1  /* Copyright (C) 2000-2023 Free Software Foundation, Inc.
       2     This file is part of the GNU C Library.
       3  
       4     The GNU C Library is free software; you can redistribute it and/or
       5     modify it under the terms of the GNU Lesser General Public
       6     License as published by the Free Software Foundation; either
       7     version 2.1 of the License, or (at your option) any later version.
       8  
       9     The GNU C Library is distributed in the hope that it will be useful,
      10     but WITHOUT ANY WARRANTY; without even the implied warranty of
      11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      12     Lesser General Public License for more details.
      13  
      14     You should have received a copy of the GNU Lesser General Public
      15     License along with the GNU C Library; if not, see
      16     <https://www.gnu.org/licenses/>.  */
      17  
      18  #include <locale.h>
      19  #include <stdio.h>
      20  #include <wchar.h>
      21  
      22  
      23  /* Currently selected locale.  */
      24  static const char *current_locale;
      25  
      26  
      27  /* Test which should succeed.  */
      28  static int
      29  ok_test (int c, wint_t expwc)
      30  {
      31    wint_t wc = btowc (c);
      32  
      33    if (wc != expwc)
      34      {
      35        printf ("%s: btowc('%c') failed, returned L'\\x%x' instead of L'\\x%x'\n",
      36  	      current_locale, c, wc, expwc);
      37        return 1;
      38      }
      39  
      40    return 0;
      41  }
      42  
      43  /* Test which should fail.  */
      44  static int
      45  fail_test (int c)
      46  {
      47    wint_t wc = btowc (c);
      48  
      49    if (wc != WEOF)
      50      {
      51        printf ("%s: btowc('%c') succeeded, returned L'\\x%x' instead of WEOF\n",
      52  	      current_locale, c, wc);
      53        return 1;
      54      }
      55  
      56    return 0;
      57  }
      58  
      59  
      60  /* Test EOF handling.  */
      61  static int
      62  eof_test (void)
      63  {
      64    wint_t wc = btowc (EOF);
      65    if (wc != WEOF)
      66      {
      67        printf ("%s: btowc(EOF) returned L'\\x%x', not WEOF\n",
      68  	      current_locale, wc);
      69      }
      70  
      71    return 0;
      72  }
      73  
      74  
      75  /* Test the btowc() function for a few locales with known character sets.  */
      76  static int
      77  do_test (void)
      78  {
      79    int result = 0;
      80  
      81    current_locale = setlocale (LC_ALL, "en_US.ANSI_X3.4-1968");
      82    if (current_locale == NULL)
      83      {
      84        puts ("cannot set locale \"en_US.ANSI_X3.4-1968\"");
      85        result = 1;
      86      }
      87    else
      88      {
      89        int c;
      90  
      91        for (c = 0; c < 128; ++c)
      92  	result |= ok_test (c, c);
      93  
      94        for (c = 128; c < 256; ++c)
      95  	result |= fail_test (c);
      96  
      97        result |= eof_test ();
      98      }
      99  
     100    current_locale = setlocale (LC_ALL, "de_DE.ISO-8859-1");
     101    if (current_locale == NULL)
     102      {
     103        puts ("cannot set locale \"de_DE.ISO-8859-1\"");
     104        result = 1;
     105      }
     106    else
     107      {
     108        int c;
     109  
     110        for (c = 0; c < 256; ++c)
     111  	result |= ok_test (c, c);
     112  
     113        result |= eof_test ();
     114      }
     115  
     116    current_locale = setlocale (LC_ALL, "de_DE.UTF-8");
     117    if (current_locale == NULL)
     118      {
     119        puts ("cannot set locale \"de_DE.UTF-8\"");
     120        result = 1;
     121      }
     122    else
     123      {
     124        int c;
     125  
     126        for (c = 0; c < 128; ++c)
     127  	result |= ok_test (c, c);
     128  
     129        for (c = 128; c < 256; ++c)
     130  	result |= fail_test (c);
     131  
     132        result |= eof_test ();
     133      }
     134  
     135    current_locale = setlocale (LC_ALL, "hr_HR.ISO-8859-2");
     136    if (current_locale == NULL)
     137      {
     138        puts ("cannot set locale \"hr_HR.ISO-8859-2\"");
     139        result = 1;
     140      }
     141    else
     142      {
     143        static const wint_t upper_half[] =
     144        {
     145  	0x0104, 0x02D8, 0x0141, 0x00A4, 0x013D, 0x015A, 0x00A7, 0x00A8,
     146  	0x0160, 0x015E, 0x0164, 0x0179, 0x00AD, 0x017D, 0x017B, 0x00B0,
     147  	0x0105, 0x02DB, 0x0142, 0x00B4, 0x013E, 0x015B, 0x02C7, 0x00B8,
     148  	0x0161, 0x015F, 0x0165, 0x017A, 0x02DD, 0x017E, 0x017C, 0x0154,
     149  	0x00C1, 0x00C2, 0x0102, 0x00C4, 0x0139, 0x0106, 0x00C7, 0x010C,
     150  	0x00C9, 0x0118, 0x00CB, 0x011A, 0x00CD, 0x00CE, 0x010E, 0x0110,
     151  	0x0143, 0x0147, 0x00D3, 0x00D4, 0x0150, 0x00D6, 0x00D7, 0x0158,
     152  	0x016E, 0x00DA, 0x0170, 0x00DC, 0x00DD, 0x0162, 0x00DF, 0x0155,
     153  	0x00E1, 0x00E2, 0x0103, 0x00E4, 0x013A, 0x0107, 0x00E7, 0x010D,
     154  	0x00E9, 0x0119, 0x00EB, 0x011B, 0x00ED, 0x00EE, 0x010F, 0x0111,
     155  	0x0144, 0x0148, 0x00F3, 0x00F4, 0x0151, 0x00F6, 0x00F7, 0x0159,
     156  	0x016F, 0x00FA, 0x0171, 0x00FC, 0x00FD, 0x0163, 0x02D9
     157        };
     158        int c;
     159  
     160        for (c = 0; c < 161; ++c)
     161  	result |= ok_test (c, c);
     162  
     163        for (c = 161; c < 256; ++c)
     164  	result |= ok_test (c, upper_half[c - 161]);
     165  
     166        result |= eof_test ();
     167      }
     168  
     169    if (result == 0)
     170      puts ("all OK");
     171  
     172    return result;
     173  }
     174  
     175  #include <support/test-driver.c>