1: /* Test program for nl_langinfo() function.
    2:    Copyright (C) 2000 Free Software Foundation, Inc.
    3:    This file is part of the GNU C Library.
    4:    Contributed by Ulrich Drepper <drepper@cygnus.com>.
    5: 
    6:    The GNU C Library is free software; you can redistribute it and/or
    7:    modify it under the terms of the GNU Lesser General Public
    8:    License as published by the Free Software Foundation; either
    9:    version 2.1 of the License, or (at your option) any later version.
   10: 
   11:    The GNU C Library is distributed in the hope that it will be useful,
   12:    but WITHOUT ANY WARRANTY; without even the implied warranty of
   13:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   14:    Lesser General Public License for more details.
   15: 
   16:    You should have received a copy of the GNU Lesser General Public
   17:    License along with the GNU C Library; if not, write to the Free
   18:    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   19:    02111-1307 USA.  */
   20: 
   21: #include <langinfo.h>
   22: #include <locale.h>
   23: #include <stdio.h>
   24: #include <string.h>
   25: 
   26: 
   27: struct map
   28: {
   29:   const char *str;
   30:   int val;
   31: } map[] =
   32: {
   33: #define VAL(name) { #name, name }
   34:   VAL (ABDAY_1),
   35:   VAL (ABDAY_2),
   36:   VAL (ABDAY_3),
   37:   VAL (ABDAY_4),
   38:   VAL (ABDAY_5),
   39:   VAL (ABDAY_6),
   40:   VAL (ABDAY_7),
   41:   VAL (ABMON_1),
   42:   VAL (ABMON_10),
   43:   VAL (ABMON_11),
   44:   VAL (ABMON_12),
   45:   VAL (ABMON_2),
   46:   VAL (ABMON_3),
   47:   VAL (ABMON_4),
   48:   VAL (ABMON_5),
   49:   VAL (ABMON_6),
   50:   VAL (ABMON_7),
   51:   VAL (ABMON_8),
   52:   VAL (ABMON_9),
   53:   VAL (ALT_DIGITS),
   54:   VAL (AM_STR),
   55:   VAL (CRNCYSTR),
   56:   VAL (CURRENCY_SYMBOL),
   57:   VAL (DAY_1),
   58:   VAL (DAY_2),
   59:   VAL (DAY_3),
   60:   VAL (DAY_4),
   61:   VAL (DAY_5),
   62:   VAL (DAY_6),
   63:   VAL (DAY_7),
   64:   VAL (DECIMAL_POINT),
   65:   VAL (D_FMT),
   66:   VAL (D_T_FMT),
   67:   VAL (ERA),
   68:   VAL (ERA_D_FMT),
   69:   VAL (ERA_D_T_FMT),
   70:   VAL (ERA_T_FMT),
   71:   VAL (ERA_YEAR),
   72:   VAL (FRAC_DIGITS),
   73:   VAL (GROUPING),
   74:   VAL (INT_CURR_SYMBOL),
   75:   VAL (INT_FRAC_DIGITS),
   76:   VAL (MON_1),
   77:   VAL (MON_10),
   78:   VAL (MON_11),
   79:   VAL (MON_12),
   80:   VAL (MON_2),
   81:   VAL (MON_3),
   82:   VAL (MON_4),
   83:   VAL (MON_5),
   84:   VAL (MON_6),
   85:   VAL (MON_7),
   86:   VAL (MON_8),
   87:   VAL (MON_9),
   88:   VAL (MON_DECIMAL_POINT),
   89:   VAL (MON_GROUPING),
   90:   VAL (MON_THOUSANDS_SEP),
   91:   VAL (NEGATIVE_SIGN),
   92:   VAL (NOEXPR),
   93:   VAL (NOSTR),
   94:   VAL (N_CS_PRECEDES),
   95:   VAL (N_SEP_BY_SPACE),
   96:   VAL (N_SIGN_POSN),
   97:   VAL (PM_STR),
   98:   VAL (POSITIVE_SIGN),
   99:   VAL (P_CS_PRECEDES),
  100:   VAL (P_SEP_BY_SPACE),
  101:   VAL (P_SIGN_POSN),
  102:   VAL (RADIXCHAR),
  103:   VAL (THOUSANDS_SEP),
  104:   VAL (THOUSEP),
  105:   VAL (T_FMT),
  106:   VAL (T_FMT_AMPM),
  107:   VAL (YESEXPR),
  108:   VAL (YESSTR)
  109: };
  110: 
  111: 
  112: static int
  113: map_paramstr (const char *str)
  114: {
  115:   int low = 0;
  116:   int high = sizeof (map) / sizeof (map[0]);
  117: 
  118:   while (low < high)
  119:     {
  120:       int med = (low + high) / 2;
  121:       int cmpres;
  122: 
  123:       cmpres = strcmp (str, map[med].str);
  124:       if (cmpres == 0)
  125:         return map[med].val;
  126:       else if (cmpres > 0)
  127:         low = med + 1;
  128:       else
  129:         high = med;
  130:     }
  131: 
  132:   return -1;
  133: }
  134: 
  135: 
  136: #ifdef DEBUG
  137: # define REASON(str) printf ("\"%s\" ignored: %s\n", buf, str)
  138: #else
  139: # define REASON(str)
  140: #endif
  141: 
  142: int
  143: main (void)
  144: {
  145:   int result = 0;
  146: 
  147:   while (! feof (stdin))
  148:     {
  149:       char buf[1000];
  150:       char *rp;
  151:       char *locale;
  152:       char *paramstr;
  153:       char *expected;
  154:       char *actual;
  155:       int param;
  156: 
  157:       if (fgets (buf, sizeof (buf), stdin) == NULL)
  158:         break;
  159: 
  160:       /* Split the fields.   There are three is them:
  161:          1. locale
  162:          2. langinfo() parameter
  163:          3. expected result; this can be a string with white space etc.
  164:       */
  165:       rp = buf;
  166:       while (*rp == ' ' || *rp == '\t')
  167:         ++rp;
  168: 
  169:       if  (*rp == '#')
  170:         {
  171:           /* It's a comment line.  Ignore it.  */
  172:           REASON ("comment");
  173:           continue;
  174:         }
  175:       locale = rp;
  176: 
  177:       while (*rp != '\0' && *rp != ' ' && *rp != '\t' && *rp != '\n')
  178:         ++rp;
  179:       if (*rp == '\0' || *rp == '\n')
  180:         {
  181:           /* Incomplete line.  */
  182:           REASON ("incomplete line");
  183:           continue;
  184:         }
  185:       *rp++ = '\0';
  186: 
  187:       while (*rp == ' ' || *rp == '\t')
  188:         ++rp;
  189:       paramstr = rp;
  190: 
  191:       while (*rp != '\0' && *rp != ' ' && *rp != '\t' && *rp != '\n')
  192:         ++rp;
  193:       if (*rp == '\0' || *rp == '\n')
  194:         {
  195:           /* Incomplete line.  */
  196:           REASON ("incomplete line");
  197:           continue;
  198:         }
  199:       *rp++ = '\0';
  200: 
  201:       while (*rp == ' ' || *rp == '\t')
  202:         ++rp;
  203: 
  204:       if (*rp == '"')
  205:         {
  206:           char *wp;
  207: 
  208:           expected = wp = ++rp;
  209:           while (*rp != '"' && *rp != '\n' && *rp != '\0')
  210:             {
  211:               if (*rp == '\\')
  212:                 {
  213:                   ++rp;
  214:                   if (*rp == '\0')
  215:                     break;
  216:                   if (*rp >= '0' && *rp <= '9')
  217:                     {
  218:                       int val = *rp - '0';
  219:                       if (rp[1] >= '0' && rp[1] <= '9')
  220:                         {
  221:                           ++rp;
  222:                           val *= 10;
  223:                           val += *rp - '0';
  224:                           if (rp[1] >= '0' && rp[1] <= '9')
  225:                             {
  226:                               ++rp;
  227:                               val *= 10;
  228:                               val += *rp - '0';
  229:                             }
  230:                         }
  231:                       *rp = val;
  232:                     }
  233:                 }
  234:               *wp++ = *rp++;
  235:             }
  236: 
  237:           if (*rp != '"')
  238:             {
  239:               REASON ("missing '\"'");
  240:               continue;
  241:             }
  242: 
  243:           *wp = '\0';
  244:         }
  245:       else
  246:         {
  247:           expected = rp;
  248:           while (*rp != '\0' && *rp != '\n')
  249:             ++rp;
  250:           *rp = '\0';
  251:         }
  252: 
  253:       param = map_paramstr (paramstr);
  254:       if (param == -1)
  255:         {
  256:           /* Invalid parameter.  */
  257:           REASON ("invalid parameter");
  258:           continue;
  259:         }
  260: 
  261:       /* Set the locale and check whether it worked.  */
  262:       printf ("LC_ALL=%s nl_langinfo(%s)", locale, paramstr);
  263:       setlocale (LC_ALL, locale);
  264:       if (strcmp (locale, setlocale (LC_ALL, NULL)) != 0)
  265:         {
  266:           puts (": failed to set locale");
  267:           result = 1;
  268:           continue;
  269:         }
  270: 
  271:       actual = nl_langinfo (param);
  272:       printf (" = \"%s\", ", actual);
  273: 
  274:       if (strcmp (actual, expected) == 0)
  275:         puts ("OK");
  276:       else
  277:         {
  278:           printf ("FAILED (expected: %s)\n", expected);
  279:           result = 1;
  280:         }
  281:     }
  282: 
  283:   return result;
  284: }