source: branches/libc-0.6/src/libctests/glibc/localedata/tst-langinfo.c

/* Test program for nl_langinfo() function.
   Copyright (C) 2000 Free Software Foundation, Inc.
   This file is part of the GNU C Library.
   Contributed by Ulrich Drepper <drepper@cygnus.com>.

   The GNU C Library 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 2.1 of the License, or (at your option) any later version.

   The GNU C Library 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 the GNU C Library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

#include <langinfo.h>
#include <locale.h>
#include <stdio.h>
#include <string.h>


struct map
{
  const char *str;
  int val;
} map[] =
{
#define VAL(name) { #name, name }
  VAL (ABDAY_1),
  VAL (ABDAY_2),
  VAL (ABDAY_3),
  VAL (ABDAY_4),
  VAL (ABDAY_5),
  VAL (ABDAY_6),
  VAL (ABDAY_7),
  VAL (ABMON_1),
  VAL (ABMON_10),
  VAL (ABMON_11),
  VAL (ABMON_12),
  VAL (ABMON_2),
  VAL (ABMON_3),
  VAL (ABMON_4),
  VAL (ABMON_5),
  VAL (ABMON_6),
  VAL (ABMON_7),
  VAL (ABMON_8),
  VAL (ABMON_9),
  VAL (ALT_DIGITS),
  VAL (AM_STR),
  VAL (CRNCYSTR),
  VAL (CURRENCY_SYMBOL),
  VAL (DAY_1),
  VAL (DAY_2),
  VAL (DAY_3),
  VAL (DAY_4),
  VAL (DAY_5),
  VAL (DAY_6),
  VAL (DAY_7),
  VAL (DECIMAL_POINT),
  VAL (D_FMT),
  VAL (D_T_FMT),
  VAL (ERA),
  VAL (ERA_D_FMT),
  VAL (ERA_D_T_FMT),
  VAL (ERA_T_FMT),
  VAL (ERA_YEAR),
  VAL (FRAC_DIGITS),
  VAL (GROUPING),
  VAL (INT_CURR_SYMBOL),
  VAL (INT_FRAC_DIGITS),
  VAL (MON_1),
  VAL (MON_10),
  VAL (MON_11),
  VAL (MON_12),
  VAL (MON_2),
  VAL (MON_3),
  VAL (MON_4),
  VAL (MON_5),
  VAL (MON_6),
  VAL (MON_7),
  VAL (MON_8),
  VAL (MON_9),
  VAL (MON_DECIMAL_POINT),
  VAL (MON_GROUPING),
  VAL (MON_THOUSANDS_SEP),
  VAL (NEGATIVE_SIGN),
  VAL (NOEXPR),
  VAL (NOSTR),
  VAL (N_CS_PRECEDES),
  VAL (N_SEP_BY_SPACE),
  VAL (N_SIGN_POSN),
  VAL (PM_STR),
  VAL (POSITIVE_SIGN),
  VAL (P_CS_PRECEDES),
  VAL (P_SEP_BY_SPACE),
  VAL (P_SIGN_POSN),
  VAL (RADIXCHAR),
  VAL (THOUSANDS_SEP),
  VAL (THOUSEP),
  VAL (T_FMT),
  VAL (T_FMT_AMPM),
  VAL (YESEXPR),
  VAL (YESSTR)
};


static int
map_paramstr (const char *str)
{
  int low = 0;
  int high = sizeof (map) / sizeof (map[0]);

  while (low < high)
    {
      int med = (low + high) / 2;
      int cmpres;

      cmpres = strcmp (str, map[med].str);
      if (cmpres == 0)
        return map[med].val;
      else if (cmpres > 0)
        low = med + 1;
      else
        high = med;
    }

  return -1;
}


#ifdef DEBUG
# define REASON(str) printf ("\"%s\" ignored: %s\n", buf, str)
#else
# define REASON(str)
#endif

int
main (void)
{
  int result = 0;

  while (! feof (stdin))
    {
      char buf[1000];
      char *rp;
      char *locale;
      char *paramstr;
      char *expected;
      char *actual;
      int param;

      if (fgets (buf, sizeof (buf), stdin) == NULL)
        break;

      /* Split the fields.   There are three is them:
         1. locale
         2. langinfo() parameter
         3. expected result; this can be a string with white space etc.
      */
      rp = buf;
      while (*rp == ' ' || *rp == '\t')
        ++rp;

      if  (*rp == '#')
        {
          /* It's a comment line.  Ignore it.  */
          REASON ("comment");
          continue;
        }
      locale = rp;

      while (*rp != '\0' && *rp != ' ' && *rp != '\t' && *rp != '\n')
        ++rp;
      if (*rp == '\0' || *rp == '\n')
        {
          /* Incomplete line.  */
          REASON ("incomplete line");
          continue;
        }
      *rp++ = '\0';

      while (*rp == ' ' || *rp == '\t')
        ++rp;
      paramstr = rp;

      while (*rp != '\0' && *rp != ' ' && *rp != '\t' && *rp != '\n')
        ++rp;
      if (*rp == '\0' || *rp == '\n')
        {
          /* Incomplete line.  */
          REASON ("incomplete line");
          continue;
        }
      *rp++ = '\0';

      while (*rp == ' ' || *rp == '\t')
        ++rp;

      if (*rp == '"')
        {
          char *wp;

          expected = wp = ++rp;
          while (*rp != '"' && *rp != '\n' && *rp != '\0')
            {
              if (*rp == '\\')
                {
                  ++rp;
                  if (*rp == '\0')
                    break;
                  if (*rp >= '0' && *rp <= '9')
                    {
                      int val = *rp - '0';
                      if (rp[1] >= '0' && rp[1] <= '9')
                        {
                          ++rp;
                          val *= 10;
                          val += *rp - '0';
                          if (rp[1] >= '0' && rp[1] <= '9')
                            {
                              ++rp;
                              val *= 10;
                              val += *rp - '0';
                            }
                        }
                      *rp = val;
                    }
                }
              *wp++ = *rp++;
            }

          if (*rp != '"')
            {
              REASON ("missing '\"'");
              continue;
            }

          *wp = '\0';
        }
      else
        {
          expected = rp;
          while (*rp != '\0' && *rp != '\n')
            ++rp;
          *rp = '\0';
        }

      param = map_paramstr (paramstr);
      if (param == -1)
        {
          /* Invalid parameter.  */
          REASON ("invalid parameter");
          continue;
        }

      /* Set the locale and check whether it worked.  */
      printf ("LC_ALL=%s nl_langinfo(%s)", locale, paramstr);
      setlocale (LC_ALL, locale);
      if (strcmp (locale, setlocale (LC_ALL, NULL)) != 0)
        {
          puts (": failed to set locale");
          result = 1;
          continue;
        }

      actual = nl_langinfo (param);
      printf (" = \"%s\", ", actual);

      if (strcmp (actual, expected) == 0)
        puts ("OK");
      else
        {
          printf ("FAILED (expected: %s)\n", expected);
          result = 1;
        }
    }

  return result;
}