locale/programs/locale.c

   1 /* locale - Implementation of the locale program according to POSIX 1003.2
   2 Copyright (C) 1995, 1996 Free Software Foundation, Inc.
   3 This file is part of the GNU C Library.
   4 Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
   5
   6 The GNU C Library is free software; you can redistribute it and/or
   7 modify it under the terms of the GNU Library General Public License as
   8 published by the Free Software Foundation; either version 2 of the
   9 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 Library General Public License for more details.
  15
  16 You should have received a copy of the GNU Library General Public
  17 License along with the GNU C Library; see the file COPYING.LIB.  If
  18 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 #ifdef HAVE_CONFIG_H
  22 # include <config.h>
  23 #endif
  24
  25 #include <dirent.h>
  26 #include <error.h>
  27 #include <getopt.h>
  28 #include <langinfo.h>
  29 #include <libintl.h>
  30 #include <limits.h>
  31 #include <locale.h>
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #include <unistd.h>
  35 #include <errno.h>
  36 #include <string.h>
  37
  38 #include "localeinfo.h"
  39
  40
  41 /* If set print the name of the category.  */
  42 static int show_category_name;
  43
  44 /* If set print the name of the item.  */
  45 static int show_keyword_name;
  46
  47 /* Long options.  */
  48 static const struct option long_options[] =
  49 {
  50   { "all-locales", no_argument, NULL, 'a' },
  51   { "category-name", no_argument, &show_category_name, 1 },
  52   { "charmaps", no_argument, NULL, 'm' },
  53   { "help", no_argument, NULL, 'h' },
  54   { "keyword-name", no_argument, &show_keyword_name, 1 },
  55   { "version", no_argument, NULL, 'V' },
  56   { NULL, 0, NULL, 0 }
  57 };
  58
  59
  60 /* We don't have these constants defined because we don't use them.  Give
  61    default values.  */
  62 #define CTYPE_MB_CUR_MIN 0
  63 #define CTYPE_MB_CUR_MAX 0
  64 #define CTYPE_HASH_SIZE 0
  65 #define CTYPE_HASH_LAYERS 0
  66 #define CTYPE_CLASS 0
  67 #define CTYPE_TOUPPER_EB 0
  68 #define CTYPE_TOLOWER_EB 0
  69 #define CTYPE_TOUPPER_EL 0
  70 #define CTYPE_TOLOWER_EL 0
  71
  72 /* Definition of the data structure which represents a category and its
  73    items.  */
  74 struct category
  75 {
  76   int cat_id;
  77   const char *name;
  78   size_t number;
  79   struct cat_item
  80   {
  81     int item_id;
  82     const char *name;
  83     enum { std, opt } status;
  84     enum value_type value_type;
  85     int min;
  86     int max;
  87   } *item_desc;
  88 };
  89
  90 /* Simple helper macro.  */
  91 #define NELEMS(arr) ((sizeof (arr)) / (sizeof (arr[0])))
  92
  93 /* For some tricky stuff.  */
  94 #define NO_PAREN(Item, More...) Item, ## More
  95
  96 /* We have all categories defined in `categories.def'.  Now construct
  97    the description and data structure used for all categories.  */
  98 #define DEFINE_ELEMENT(Item, More...) { Item, ## More },
  99 #define DEFINE_CATEGORY(category, name, items, postload, in, check, out)      \
 100     static struct cat_item category##_desc[] =                                \
 101       {                                                                       \
 102         NO_PAREN items                                                        \
 103       };
 104
 105 #include "categories.def"
 106 #undef DEFINE_CATEGORY
 107
 108 static struct category category[] =
 109   {
 110 #define DEFINE_CATEGORY(category, name, items, postload, in, check, out)      \
 111     [category] = { _NL_NUM_##category, name, NELEMS (category##_desc),        \
 112                    category##_desc },
 113 #include "categories.def"
 114 #undef DEFINE_CATEGORY
 115   };
 116 #define NCATEGORIES NELEMS (category)
 117
 118
 119 /* Automatically set variable.  */
 120 extern const char *__progname;
 121
 122 /* helper function for extended name handling.  */
 123 extern void locale_special (const char *name, int show_category_name,
 124                             int show_keyword_name);
 125
 126 /* Prototypes for local functions.  */
 127 static void usage (int status) __attribute__ ((noreturn));
 128 static void write_locales (void);
 129 static void write_charmaps (void);
 130 static void show_locale_vars (void);
 131 static void show_info (const char *name);
 132
 133
 134 int
 135 main (int argc, char *argv[])
 136 {
 137   int optchar;
 138   int do_all = 0;
 139   int do_help = 0;
 140   int do_version = 0;
 141   int do_charmaps = 0;
 142
 143   /* Set initial values for global variables.  */
 144   show_category_name = 0;
 145   show_keyword_name = 0;
 146
 147   /* Set locale.  Do not set LC_ALL because the other categories must
 148      not be affected (acccording to POSIX.2).  */
 149   setlocale (LC_CTYPE, "");
 150   setlocale (LC_MESSAGES, "");
 151
 152   /* Initialize the message catalog.  */
 153   textdomain (PACKAGE);
 154
 155   while ((optchar = getopt_long (argc, argv, "achkmV", long_options, NULL))
 156          != EOF)
 157     switch (optchar)
 158       {
 159       case '\0':                /* Long option.  */
 160         break;
 161       case 'a':
 162         do_all = 1;
 163         break;
 164       case 'c':
 165         show_category_name = 1;
 166         break;
 167       case 'h':
 168         do_help = 1;
 169         break;
 170       case 'k':
 171         show_keyword_name = 1;
 172         break;
 173       case 'm':
 174         do_charmaps = 1;
 175         break;
 176       case 'V':
 177         do_version = 1;
 178         break;
 179       default:
 180         usage (EXIT_FAILURE);
 181       }
 182
 183   /* Version information is requested.  */
 184   if (do_version)
 185     {
 186       fprintf (stderr, "locale (GNU %s) %s\n", PACKAGE, VERSION);
 187       fprintf (stderr, _("\
 188 Copyright (C) %s Free Software Foundation, Inc.\n\
 189 This is free software; see the source for copying conditions.  There is NO\n\
 190 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
 191 "), "1995, 1996");
 192       fprintf (stderr, _("Written by %s.\n"),
 193                "Ulrich Drepper");
 194
 195       exit (EXIT_SUCCESS);
 196     }
 197
 198   /* Help is requested.  */
 199   if (do_help)
 200     usage (EXIT_SUCCESS);
 201
 202   /* `-a' requests the names of all available locales.  */
 203   if (do_all != 0)
 204     {
 205       write_locales ();
 206       exit (EXIT_SUCCESS);
 207     }
 208
 209   /* `m' requests the names of all available charmaps.  The names can be
 210      used for the -f argument to localedef(3).  */
 211   if (do_charmaps != 0)
 212     {
 213       write_charmaps ();
 214       exit (EXIT_SUCCESS);
 215     }
 216
 217   /* Specific information about the current locale are requested.
 218      Change to this locale now.  */
 219   setlocale (LC_ALL, "");
 220
 221   /* If no real argument is given we have to print the contents of the
 222      current locale definition variables.  These are LANG and the LC_*.  */
 223   if (optind == argc && show_keyword_name == 0 && show_category_name == 0)
 224     {
 225       show_locale_vars ();
 226       exit (EXIT_SUCCESS);
 227     }
 228
 229   /* Process all given names.  */
 230   while (optind <  argc)
 231     show_info (argv[optind++]);
 232
 233   exit (EXIT_SUCCESS);
 234 }
 235
 236
 237 /* Display usage information and exit.  */
 238 static void
 239 usage (int status)
 240 {
 241   if (status != EXIT_SUCCESS)
 242     fprintf (stderr, gettext ("Try `%s --help' for more information.\n"),
 243              __progname);
 244   else
 245     {
 246       printf (gettext ("\
 247 Usage: %s [OPTION]... name\n\
 248 Mandatory arguments to long options are mandatory for short options too.\n\
 249   -h, --help            display this help and exit\n\
 250   -V, --version         output version information and exit\n\
 251 \n\
 252   -a, --all-locales     write names of available locales\n\
 253   -m, --charmaps        write names of available charmaps\n\
 254 \n\
 255   -c, --category-name   write names of selected categories\n\
 256   -k, --keyword-name    write names of selected keywords\n"),
 257               __progname);
 258       fputs (gettext ("Report bugs to <bug-glibc@prep.ai.mit.edu>.\n"),
 259              stdout);
 260     }
 261
 262   exit (status);
 263 }
 264
 265
 266 /* Write the names of all available locales to stdout.  */
 267 static void
 268 write_locales (void)
 269 {
 270   DIR *dir;
 271   struct dirent *dirent;
 272
 273   /* `POSIX' locale is always available (POSIX.2 4.34.3).  */
 274   puts ("POSIX");
 275
 276   dir = opendir (LOCALE_PATH);
 277   if (dir == NULL)
 278     {
 279       error (1, errno, gettext ("cannot read locale directory `%s'"),
 280              LOCALE_PATH);
 281       return;
 282     }
 283
 284   /* Now we can look for all files in the directory.  */
 285   while ((dirent = readdir (dir)) != NULL)
 286     if (strcmp (dirent->d_name, ".") != 0
 287         && strcmp (dirent->d_name, "..") != 0)
 288       puts (dirent->d_name);
 289
 290   closedir (dir);
 291 }
 292
 293
 294 /* Write the names of all available character maps to stdout.  */
 295 static void
 296 write_charmaps (void)
 297 {
 298   DIR *dir;
 299   struct dirent *dirent;
 300
 301   dir = opendir (CHARMAP_PATH);
 302   if (dir == NULL)
 303     {
 304       error (1, errno, gettext ("cannot read character map directory `%s'"),
 305              CHARMAP_PATH);
 306       return;
 307     }
 308
 309   /* Now we can look for all files in the directory.  */
 310   while ((dirent = readdir (dir)) != NULL)
 311     if (strcmp (dirent->d_name, ".") != 0
 312         && strcmp (dirent->d_name, "..") != 0)
 313       puts (dirent->d_name);
 314
 315   closedir (dir);
 316 }
 317
 318
 319 /* We have to show the contents of the environments determining the
 320    locale.  */
 321 static void
 322 show_locale_vars (void)
 323 {
 324   size_t cat_no;
 325   const char *lcall = getenv ("LC_ALL");
 326   const char *lang = getenv ("LANG") ? : "POSIX";
 327
 328   void get_source (const char *name)
 329     {
 330       char *val = getenv (name);
 331
 332       if (lcall != NULL || val == NULL)
 333         printf ("%s=\"%s\"\n", name, lcall ? : lang);
 334       else
 335         printf ("%s=%s\n", name, val);
 336     }
 337
 338   /* LANG has to be the first value.  */
 339   printf ("LANG=%s\n", lang);
 340
 341   /* Now all categories in an unspecified order.  */
 342   for (cat_no = 0; cat_no < NCATEGORIES; ++cat_no)
 343     get_source (category[cat_no].name);
 344
 345   /* The last is the LC_ALL value.  */
 346   printf ("LC_ALL=%s\n", lcall ? : "");
 347 }
 348
 349
 350 /* Show the information request for NAME.  */
 351 static void
 352 show_info (const char *name)
 353 {
 354   size_t cat_no;
 355
 356   void print_item (struct cat_item *item)
 357     {
 358       if (show_keyword_name != 0)
 359         printf ("%s=", item->name);
 360
 361       switch (item->value_type)
 362         {
 363         case string:
 364           printf ("%s%s%s", show_keyword_name ? "\"" : "",
 365                   nl_langinfo (item->item_id) ? : "",
 366                   show_keyword_name ? "\"" : "");
 367           break;
 368         case stringarray:
 369           {
 370             int cnt;
 371             const char *val;
 372
 373             if (show_keyword_name)
 374               putchar ('"');
 375
 376             for (cnt = 0; cnt < item->max - 1; ++cnt)
 377               {
 378                 val = nl_langinfo (item->item_id + cnt);
 379                 printf ("%s;", val ? : "");
 380               }
 381
 382             val = nl_langinfo (item->item_id + cnt);
 383             printf ("%s", val ? : "");
 384
 385             if (show_keyword_name)
 386               putchar ('"');
 387           }
 388           break;
 389         case byte:
 390           {
 391             const char *val = nl_langinfo (item->item_id);
 392
 393             if (val != NULL)
 394               printf ("%d", *val == CHAR_MAX ? -1 : *val);
 395           }
 396           break;
 397         case bytearray:
 398           {
 399             const char *val = nl_langinfo (item->item_id);
 400             int cnt = val ? strlen (val) : 0;
 401
 402             while (cnt > 1)
 403               {
 404                 printf ("%d;", *val == CHAR_MAX ? -1 : *val);
 405                 --cnt;
 406                 ++val;
 407               }
 408
 409             printf ("%d", cnt == 0 || *val == CHAR_MAX ? -1 : *val);
 410           }
 411           break;
 412         case word:
 413           {
 414             unsigned int val = (unsigned int) nl_langinfo (item->item_id);
 415             printf ("%d", val);
 416           }
 417           break;
 418         default:
 419         }
 420       putchar ('\n');
 421     }
 422
 423   for (cat_no = 0; cat_no < NCATEGORIES; ++cat_no)
 424     {
 425       size_t item_no;
 426
 427       if (strcmp (name, category[cat_no].name) == 0)
 428         /* Print the whole category.  */
 429         {
 430           if (show_category_name != 0)
 431             puts (category[cat_no].name);
 432
 433           for (item_no = 0; item_no < category[cat_no].number; ++item_no)
 434             print_item (&category[cat_no].item_desc[item_no]);
 435
 436           return;
 437         }
 438
 439       for (item_no = 0; item_no < category[cat_no].number; ++item_no)
 440         if (strcmp (name, category[cat_no].item_desc[item_no].name) == 0)
 441           {
 442             if (show_category_name != 0)
 443               puts (category[cat_no].name);
 444
 445             print_item (&category[cat_no].item_desc[item_no]);
 446             return;
 447           }
 448     }
 449
 450   /* When we get to here the name is not standard ones.  For testing
 451      and perhpas advanced use we allow some more symbols.  */
 452   locale_special (name, show_category_name, show_keyword_name);
 453 }