1  /* Test program for iswctype() function in ja_JP locale.
       2     Copyright (C) 2000-2023 Free Software Foundation, Inc.
       3     This file is part of the GNU C Library.
       4  
       5     The GNU C Library is free software; you can redistribute it and/or
       6     modify it under the terms of the GNU Lesser General Public
       7     License as published by the Free Software Foundation; either
       8     version 2.1 of the License, or (at your option) any later version.
       9  
      10     The GNU C Library is distributed in the hope that it will be useful,
      11     but WITHOUT ANY WARRANTY; without even the implied warranty of
      12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      13     Lesser General Public License for more details.
      14  
      15     You should have received a copy of the GNU Lesser General Public
      16     License along with the GNU C Library; if not, see
      17     <https://www.gnu.org/licenses/>.  */
      18  
      19  #include <error.h>
      20  #include <locale.h>
      21  #include <stdio.h>
      22  #include <stdlib.h>
      23  #include <wchar.h>
      24  #include <wctype.h>
      25  
      26  static int
      27  do_test (void)
      28  {
      29    wctype_t wct;
      30    wchar_t buf[1000];
      31    int result = 1;
      32  
      33    setlocale (LC_ALL, "");
      34    wprintf (L"locale = %s\n", setlocale (LC_CTYPE, NULL));
      35  
      36    wct = wctype ("jhira");
      37    if (wct == 0)
      38      error (EXIT_FAILURE, 0, "jhira: no such character class");
      39  
      40    if (fgetws (buf, sizeof (buf) / sizeof (buf[0]), stdin) != NULL)
      41      {
      42        int n;
      43  
      44        wprintf (L"buf[] = \"%ls\"\n", buf);
      45  
      46        result = 0;
      47  
      48        for (n = 0; buf[n] != L'\0'; ++n)
      49  	{
      50  	  wprintf (L"jhira(U%04lx = %lc) = %d\n", (long) buf[n], buf[n],
      51  		   iswctype (buf[n], wct));
      52  	  result |= ((buf[n] < 0xff && iswctype (buf[n], wct))
      53  		     || (buf[n] > 0xff && !iswctype (buf[n], wct)));
      54  	}
      55      }
      56  
      57    wct = wctype ("jkata");
      58    if (wct == 0)
      59      error (EXIT_FAILURE, 0, "jkata: no such character class");
      60  
      61    if (fgetws (buf, sizeof (buf) / sizeof (buf[0]), stdin) != NULL)
      62      {
      63        int n;
      64  
      65        wprintf (L"buf[] = \"%ls\"\n", buf);
      66  
      67        result = 0;
      68  
      69        for (n = 0; buf[n] != L'\0'; ++n)
      70  	{
      71  	  wprintf (L"jkata(U%04lx = %lc) = %d\n", (long) buf[n], buf[n],
      72  		   iswctype (buf[n], wct));
      73  	  result |= ((buf[n] < 0xff && iswctype (buf[n], wct))
      74  		     || (buf[n] > 0xff && !iswctype (buf[n], wct)));
      75  	}
      76      }
      77  
      78    wct = wctype ("jdigit");
      79    if (wct == 0)
      80      error (EXIT_FAILURE, 0, "jdigit: no such character class");
      81  
      82    if (fgetws (buf, sizeof (buf) / sizeof (buf[0]), stdin) != NULL)
      83      {
      84        int n;
      85  
      86        wprintf (L"buf[] = \"%ls\"\n", buf);
      87  
      88        result = 0;
      89  
      90        for (n = 0; buf[n] != L'\0'; ++n)
      91  	{
      92  	  wprintf (L"jdigit(U%04lx = %lc) = %d\n", (long) buf[n], buf[n],
      93  		   iswctype (buf[n], wct));
      94  	  result |= ((buf[n] < 0xff && iswctype (buf[n], wct))
      95  		     || (buf[n] > 0xff && !iswctype (buf[n], wct)));
      96  	}
      97      }
      98  
      99    wct = wctype ("jspace");
     100    if (wct == 0)
     101      error (EXIT_FAILURE, 0, "jspace: no such character class");
     102  
     103    if (fgetws (buf, sizeof (buf) / sizeof (buf[0]), stdin) != NULL)
     104      {
     105        int n;
     106  
     107        wprintf (L"buf[] = \"%ls\"\n", buf);
     108  
     109        result = 0;
     110  
     111        for (n = 0; buf[n] != L'\0'; ++n)
     112  	{
     113  	  wprintf (L"jspace(U%04lx = %lc) = %d\n", (long) buf[n], buf[n],
     114  		   iswctype (buf[n], wct));
     115  	  result |= ((buf[n] < 0xff && iswctype (buf[n], wct))
     116  		     || (buf[n] > 0xff && !iswctype (buf[n], wct)));
     117  	}
     118      }
     119  
     120    wct = wctype ("jkanji");
     121    if (wct == 0)
     122      error (EXIT_FAILURE, 0, "jkanji: no such character class");
     123  
     124    if (fgetws (buf, sizeof (buf) / sizeof (buf[0]), stdin) != NULL)
     125      {
     126        int n;
     127  
     128        wprintf (L"buf[] = \"%ls\"\n", buf);
     129  
     130        result = 0;
     131  
     132        for (n = 0; buf[n] != L'\0'; ++n)
     133  	{
     134  	  wprintf (L"jkanji(U%04lx = %lc) = %d\n", (long) buf[n], buf[n],
     135  		   iswctype (buf[n], wct));
     136  	  result |= ((buf[n] < 0xff && iswctype (buf[n], wct))
     137  		     || (buf[n] > 0xff && !iswctype (buf[n], wct)));
     138  	}
     139      }
     140  
     141    return result;
     142  }
     143  
     144  #define TEST_FUNCTION do_test ()
     145  #include "../test-skeleton.c"