Mercurial > hg > octave-kai > gnulib-hg
changeset 11310:9b39c3c27fde
New module 'unicase/u8-toupper'.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Sun, 08 Mar 2009 14:27:36 +0100 |
parents | fcf7e8171334 |
children | db6302d3ac3c |
files | ChangeLog lib/unicase/u8-toupper.c modules/unicase/u8-toupper |
diffstat | 3 files changed, 152 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,13 @@ 2009-03-08 Bruno Haible <bruno@clisp.org> + New module 'unicase/u8-toupper'. + * lib/unicase/u8-toupper.c: New file. + * modules/unicase/u8-toupper: New file. + + New module 'unicase/u32-casemap'. + * lib/unicase/u32-casemap.c: New file. + * modules/unicase/u32-casemap: New file. + New module 'unicase/u16-casemap'. * lib/unicase/u16-casemap.c: New file. * modules/unicase/u16-casemap: New file.
new file mode 100644 --- /dev/null +++ b/lib/unicase/u8-toupper.c @@ -0,0 +1,118 @@ +/* Uppercase mapping for UTF-8 strings (locale dependent). + Copyright (C) 2009 Free Software Foundation, Inc. + Written by Bruno Haible <bruno@clisp.org>, 2009. + + This program is free software: you can redistribute it and/or modify it + under the terms of the GNU Lesser General Public License as published + by the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. */ + +#include <config.h> + +/* Specification. */ +#include "unicase.h" + +#include <stddef.h> + +#include "unicasemap.h" +#include "special-casing.h" + +uint8_t * +u8_toupper (const uint8_t *s, size_t n, const char *iso639_language, + uninorm_t nf, + uint8_t *resultbuf, size_t *lengthp) +{ + return u8_casemap (s, n, iso639_language, + uc_toupper, offsetof (struct special_casing_rule, upper[0]), + nf, + resultbuf, lengthp); +} + + +#ifdef TEST + +#include <locale.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +/* Read the contents of an input stream, and return it, terminated with a NUL + byte. */ +char * +read_file (FILE *stream) +{ +#define BUFSIZE 4096 + char *buf = NULL; + int alloc = 0; + int size = 0; + int count; + + while (! feof (stream)) + { + if (size + BUFSIZE > alloc) + { + alloc = alloc + alloc / 2; + if (alloc < size + BUFSIZE) + alloc = size + BUFSIZE; + buf = realloc (buf, alloc); + if (buf == NULL) + { + fprintf (stderr, "out of memory\n"); + exit (1); + } + } + count = fread (buf + size, 1, BUFSIZE, stream); + if (count == 0) + { + if (ferror (stream)) + { + perror ("fread"); + exit (1); + } + } + else + size += count; + } + buf = realloc (buf, size + 1); + if (buf == NULL) + { + fprintf (stderr, "out of memory\n"); + exit (1); + } + buf[size] = '\0'; + return buf; +#undef BUFSIZE +} + +int +main (int argc, char * argv[]) +{ + setlocale (LC_ALL, ""); + if (argc == 1) + { + /* Display the upper case of the input string. */ + char *input = read_file (stdin); + int length = strlen (input); + size_t output_length; + uint8_t *output = + u8_toupper ((uint8_t *) input, length, uc_locale_language (), + NULL, + NULL, &output_length); + + fwrite (output, 1, output_length, stdout); + + return 0; + } + else + return 1; +} + +#endif /* TEST */
new file mode 100644 --- /dev/null +++ b/modules/unicase/u8-toupper @@ -0,0 +1,26 @@ +Description: +Uppercase mapping for UTF-8 strings (locale dependent). + +Files: +lib/unicase/u8-toupper.c + +Depends-on: +unicase/base +unicase/u8-casemap +unicase/special-casing +unicase/toupper + +configure.ac: + +Makefile.am: +lib_SOURCES += unicase/u8-toupper.c + +Include: +"unicase.h" + +License: +LGPL + +Maintainer: +Bruno Haible +