release/src/router/libiconv/tests/table-to.c

   1 /* Copyright (C) 2000-2002, 2004-2005 Free Software Foundation, Inc.
   2    This file is part of the GNU LIBICONV Library.
   3
   4    The GNU LIBICONV Library is free software; you can redistribute it
   5    and/or modify it under the terms of the GNU Library General Public
   6    License as published by the Free Software Foundation; either version 2
   7    of the License, or (at your option) any later version.
   8
   9    The GNU LIBICONV Library is distributed in the hope that it will be
  10    useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Library General Public License for more details.
  13
  14    You should have received a copy of the GNU Library General Public
  15    License along with the GNU LIBICONV Library; see the file COPYING.LIB.
  16    If not, write to the Free Software Foundation, Inc., 51 Franklin Street,
  17    Fifth Floor, Boston, MA 02110-1301, USA.  */
  18
  19 /* Create a table from Unicode to CHARSET. */
  20
  21 #include "config.h"
  22
  23 #include <stddef.h>
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <string.h>
  27 #include <iconv.h>
  28 #include <errno.h>
  29
  30 #include "binary-io.h"
  31
  32 int main (int argc, char* argv[])
  33 {
  34   const char* charset;
  35   iconv_t cd;
  36   int bmp_only;
  37
  38   if (argc != 2) {
  39     fprintf(stderr,"Usage: table-to charset\n");
  40     exit(1);
  41   }
  42   charset = argv[1];
  43
  44 #if O_BINARY
  45   SET_BINARY(fileno(stdout));
  46 #endif
  47
  48   cd = iconv_open(charset,"UCS-4-INTERNAL");
  49   if (cd == (iconv_t)(-1)) {
  50     perror("iconv_open");
  51     exit(1);
  52   }
  53
  54   /* When testing UTF-8, stop at 0x10000, otherwise the output file gets too
  55      big. */
  56   bmp_only = (strcmp(charset,"UTF-8") == 0);
  57
  58   {
  59     unsigned int i;
  60     unsigned char buf[10];
  61     for (i = 0; i < (bmp_only ? 0x10000 : 0x110000); i++) {
  62       unsigned int in = i;
  63       const char* inbuf = (const char*) &in;
  64       size_t inbytesleft = sizeof(unsigned int);
  65       char* outbuf = (char*)buf;
  66       size_t outbytesleft = sizeof(buf);
  67       size_t result;
  68       size_t result2 = 0;
  69       iconv(cd,NULL,NULL,NULL,NULL);
  70       result = iconv(cd,(ICONV_CONST char**)&inbuf,&inbytesleft,&outbuf,&outbytesleft);
  71       if (result != (size_t)(-1))
  72         result2 = iconv(cd,NULL,NULL,&outbuf,&outbytesleft);
  73       if (result == (size_t)(-1) || result2 == (size_t)(-1)) {
  74         if (errno != EILSEQ) {
  75           int saved_errno = errno;
  76           fprintf(stderr,"0x%02X: iconv error: ",i);
  77           errno = saved_errno;
  78           perror("");
  79           exit(1);
  80         }
  81       } else if (result == 0) /* ignore conversions with transliteration */ {
  82         if (inbytesleft == 0 && outbytesleft < sizeof(buf)) {
  83           unsigned int jmax = sizeof(buf) - outbytesleft;
  84           unsigned int j;
  85           printf("0x");
  86           for (j = 0; j < jmax; j++)
  87             printf("%02X",buf[j]);
  88           printf("\t0x%04X\n",i);
  89         } else if (inbytesleft == 0 && i >= 0xe0000 && i < 0xe0080) {
  90           /* Language tags may silently be dropped. */
  91         } else {
  92           fprintf(stderr,"0x%02X: inbytes = %ld, outbytes = %ld\n",i,(long)(sizeof(unsigned int)-inbytesleft),(long)(sizeof(buf)-outbytesleft));
  93           exit(1);
  94         }
  95       }
  96     }
  97   }
  98
  99   if (iconv_close(cd) < 0) {
 100     perror("iconv_close");
 101     exit(1);
 102   }
 103
 104   if (ferror(stdin) || ferror(stdout) || fclose(stdout)) {
 105     fprintf(stderr,"I/O error\n");
 106     exit(1);
 107   }
 108
 109   exit(0);
 110 }