locale/programs/locale.c

   1 /* Copyright (C) 1995, 1996 Free Software Foundation, Inc.
   2
   3 The GNU C Library is free software; you can redistribute it and/or
   4 modify it under the terms of the GNU Library General Public License as
   5 published by the Free Software Foundation; either version 2 of the
   6 License, or (at your option) any later version.
   7
   8 The GNU C Library is distributed in the hope that it will be useful,
   9 but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 Library General Public License for more details.
  12
  13 You should have received a copy of the GNU Library General Public
  14 License along with the GNU C Library; see the file COPYING.LIB.  If
  15 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16 Cambridge, MA 02139, USA.  */
  17
  18 #include <dirent.h>
  19 #include <getopt.h>
  20 #include <langinfo.h>
  21 #include <libintl.h>
  22 #include <limits.h>
  23 #include <locale.h>
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <unistd.h>
  27 #include <errno.h>
  28
  29 /*#include "localedef.h"*/
  30 #include "localeinfo.h"
  31
  32
  33 /* If set dump C code describing the current locale.  */
  34 static int do_dump;
  35
  36 /* If set print the name of the category.  */
  37 static int show_category_name;
  38
  39 /* If set print the name of the item.  */
  40 static int show_keyword_name;
  41
  42 /* Long options.  */
  43 static const struct option long_options[] =
  44 {
  45   { "all-locales", no_argument, NULL, 'a' },
  46   { "category-name", no_argument, &show_category_name, 1 },
  47   { "charmaps", no_argument, NULL, 'm' },
  48   { "dump", no_argument, &do_dump, 1 },
  49   { "help", no_argument, NULL, 'h' },
  50   { "keyword-name", no_argument, &show_keyword_name, 1 },
  51   { "version", no_argument, NULL, 'v' },
  52   { NULL, 0, NULL, 0 }
  53 };
  54
  55
  56 /* We don't have these constants defined because we don't use them.  Give
  57    default values.  */
  58 #define CTYPE_MB_CUR_MIN 0
  59 #define CTYPE_MB_CUR_MAX 0
  60 #define CTYPE_HASH_SIZE 0
  61 #define CTYPE_HASH_LAYERS 0
  62 #define CTYPE_CLASS 0
  63 #define CTYPE_TOUPPER_EB 0
  64 #define CTYPE_TOLOWER_EB 0
  65 #define CTYPE_TOUPPER_EL 0
  66 #define CTYPE_TOLOWER_EL 0
  67
  68 /* XXX Hack */
  69 struct cat_item
  70 {
  71   int item_id;
  72   const char *name;
  73   enum { std, opt } status;
  74   enum value_type value_type;
  75   int min;
  76   int max;
  77 };
  78
  79
  80 /* We have all categories defined in `categories.def'.  Now construct
  81    the description and data structure used for all categories.  */
  82 #define DEFINE_CATEGORY(category, name, items, postload, in, check, out)      \
  83     static struct cat_item category##_desc[] =                                \
  84       {                                                                       \
  85         NO_PAREN items                                                        \
  86       };
  87
  88 #include "locale/aux/categories.def"
  89 #undef DEFINE_CATEGORY
  90
  91 static struct category category[] =
  92   {
  93 #define DEFINE_CATEGORY(category, name, items, postload, in, check, out)      \
  94     { _NL_NUM_##category, name, NELEMS (category##_desc) - 1,                 \
  95       category##_desc, NULL, NULL, NULL, out },
  96 #include "locale/aux/categories.def"
  97 #undef DEFINE_CATEGORY
  98   };
  99 #define NCATEGORIES NELEMS (category)
 100
 101
 102 /* Prototypes for local functions.  */
 103 static void usage (int status) __attribute__ ((noreturn));
 104 static void write_locales (void);
 105 static void write_charmaps (void);
 106 static void show_locale_vars (void);
 107 static void show_info (const char *name);
 108 static void dump_category (const char *name);
 109
 110
 111 int
 112 main (int argc, char *argv[])
 113 {
 114   int optchar;
 115   int do_all = 0;
 116   int do_help = 0;
 117   int do_version = 0;
 118   int do_charmaps = 0;
 119
 120   /* Set initial values for global varaibles.  */
 121   do_dump = 0;
 122   show_category_name = 0;
 123   show_keyword_name = 0;
 124
 125   /* Set locale.  Do not set LC_ALL because the other categories must
 126      not be affected (acccording to POSIX.2).  */
 127   setlocale (LC_CTYPE, "");
 128   setlocale (LC_MESSAGES, "");
 129
 130   /* Initialize the message catalog.  */
 131   textdomain (PACKAGE);
 132
 133   while ((optchar = getopt_long (argc, argv, "achkmv", long_options, NULL))
 134          != EOF)
 135     switch (optchar)
 136       {
 137       case '\0':
 138         break;
 139       case 'a':
 140         do_all = 1;
 141         break;
 142       case 'c':
 143         show_category_name = 1;
 144         break;
 145       case 'h':
 146         do_help = 1;
 147         break;
 148       case 'k':
 149         show_keyword_name = 1;
 150         break;
 151       case 'm':
 152         do_charmaps = 1;
 153         break;
 154       case 'v':
 155         do_version = 1;
 156         break;
 157       default:
 158         error (1, 0, gettext ("illegal option \"%s\""), optarg);
 159         break;
 160       }
 161
 162   /* Version information is requested.  */
 163   if (do_version)
 164     {
 165       fprintf (stderr, "GNU %s %s\n", PACKAGE, VERSION);
 166       exit (EXIT_SUCCESS);
 167     }
 168
 169   /* Help is requested.  */
 170   if (do_help)
 171     usage (EXIT_SUCCESS);
 172
 173   /* Dump C code.  */
 174   if (do_dump)
 175     {
 176       printf ("\
 177 /* Generated by GNU %s %s.  */\n\
 178 \n\
 179 #include \"localeinfo.h\"\n", program_invocation_name, VERSION);
 180
 181       while (optind < argc)
 182         dump_category (argv[optind++]);
 183
 184       exit (EXIT_SUCCESS);
 185     }
 186
 187   /* `-a' requests the names of all available locales.  */
 188   if (do_all != 0)
 189     {
 190       write_locales ();
 191       exit (EXIT_SUCCESS);
 192     }
 193
 194   /* `m' requests the names of all available charmaps.  The names can be
 195      used for the -f argument to localedef(3).  */
 196   if (do_charmaps != 0)
 197     {
 198       write_charmaps ();
 199       exit (EXIT_SUCCESS);
 200     }
 201
 202   /* If no real argument is given we have to print the contents of the
 203      current locale definition variables.  These are LANG and the LC_*.  */
 204   if (optind == argc && show_keyword_name == 0 && show_category_name == 0)
 205     {
 206       show_locale_vars ();
 207       exit (EXIT_SUCCESS);
 208     }
 209
 210   /* Process all given names.  */
 211   while (optind <  argc)
 212     show_info (argv[optind++]);
 213
 214   exit (EXIT_SUCCESS);
 215 }
 216
 217
 218 /* Display usage information and exit.  */
 219 static void
 220 usage(int status)
 221 {
 222   if (status != EXIT_SUCCESS)
 223     fprintf (stderr, gettext ("Try `%s --help' for more information.\n"),
 224              program_invocation_name);
 225   else
 226     printf(gettext ("\
 227 Usage: %s [OPTION]... name\n\
 228 Mandatory arguments to long options are mandatory for short options too.\n\
 229   -h, --help            display this help and exit\n\
 230   -v, --version         output version information and exit\n\
 231 \n\
 232   -a, --all-locales     write names of available locales\n\
 233   -m, --charmaps        write names of available charmaps\n\
 234 \n\
 235   -c, --category-name   write names of selected categories\n\
 236   -k, --keyword-name    write names of selected keywords\n\
 237 \n\
 238       --dump            dump C code describing the current locale\n\
 239                         (this code can be used in the C library)\n\
 240 "), program_invocation_name);
 241
 242   exit (status);
 243 }
 244
 245
 246 /* Write the names of all available locales to stdout.  */
 247 static void
 248 write_locales (void)
 249 {
 250   DIR *dir;
 251   struct dirent *dirent;
 252
 253   /* `POSIX' locale is always available (POSIX.2 4.34.3).  */
 254   puts ("POSIX");
 255
 256   dir = opendir (LOCALE_PATH);
 257   if (dir == NULL)
 258     {
 259       error (1, errno, gettext ("cannot read locale directory `%s'"),
 260              LOCALE_PATH);
 261       return;
 262     }
 263
 264   /* Now we can look for all files in the directory.  */
 265   while ((dirent = readdir (dir)) != NULL)
 266     if (strcmp (dirent->d_name, ".") != 0
 267         && strcmp (dirent->d_name, "..") != 0)
 268       puts (dirent->d_name);
 269
 270   closedir (dir);
 271 }
 272
 273
 274 /* Write the names of all available character maps to stdout.  */
 275 static void
 276 write_charmaps (void)
 277 {
 278   DIR *dir;
 279   struct dirent *dirent;
 280
 281   dir = opendir (CHARMAP_PATH);
 282   if (dir == NULL)
 283     {
 284       error (1, errno, gettext ("cannot read character map directory `%s'"),
 285              CHARMAP_PATH);
 286       return;
 287     }
 288
 289   /* Now we can look for all files in the directory.  */
 290   while ((dirent = readdir (dir)) != NULL)
 291     if (strcmp (dirent->d_name, ".") != 0
 292         && strcmp (dirent->d_name, "..") != 0)
 293       puts (dirent->d_name);
 294
 295   closedir (dir);
 296 }
 297
 298
 299 /* We have to show the contents of the environments determining the
 300    locale.  */
 301 static void
 302 show_locale_vars (void)
 303 {
 304   size_t cat_no;
 305   const char *lcall = getenv ("LC_ALL");
 306   const char *lang = getenv ("LANG") ? : "POSIX";
 307
 308   void get_source (const char *name)
 309     {
 310       char *val = getenv (name);
 311
 312       if (lcall != NULL || val == NULL)
 313         printf ("%s=\"%s\"\n", name, lcall ? : lang);
 314       else
 315         printf ("%s=%s\n", name, val);
 316     }
 317
 318   /* LANG has to be the first value.  */
 319   printf ("LANG=%s\n", lang);
 320
 321   /* Now all categories in an unspecified order.  */
 322   for (cat_no = 0; cat_no < NCATEGORIES; ++cat_no)
 323     get_source (category[cat_no].name);
 324
 325   /* The last is the LC_ALL value.  */
 326   printf ("LC_ALL=%s\n", lcall ? : "");
 327 }
 328
 329
 330 /* Show the information request for NAME.  */
 331 static void
 332 show_info (const char *name)
 333 {
 334   size_t cat_no;
 335
 336   void print_item (struct cat_item *item)
 337     {
 338       if (show_keyword_name != 0)
 339         printf ("%s=", item->name);
 340
 341       switch (item->value_type)
 342         {
 343         case string:
 344           printf ("%s%s%s", show_keyword_name ? "\"" : "",
 345                   nl_langinfo (item->item_id) ? : "",
 346                   show_keyword_name ? "\"" : "");
 347           break;
 348         case stringarray:
 349           {
 350             int cnt;
 351             const char *val;
 352
 353             if (show_keyword_name)
 354               putchar ('"');
 355
 356             for (cnt = 0; cnt < item->max - 1; ++cnt)
 357               {
 358                 val = nl_langinfo (item->item_id + cnt);
 359                 printf ("%s;", val ? : "");
 360               }
 361
 362             val = nl_langinfo (item->item_id + cnt);
 363             printf ("%s", val ? : "");
 364
 365             if (show_keyword_name)
 366               putchar ('"');
 367           }
 368           break;
 369         case byte:
 370           {
 371             const char *val = nl_langinfo (item->item_id);
 372
 373             if (val != NULL)
 374               printf ("%d", *val == CHAR_MAX ? -1 : *val);
 375           }
 376           break;
 377         case bytearray:
 378           {
 379             const char *val = nl_langinfo (item->item_id);
 380             int cnt = val ? strlen (val) : 0;
 381
 382             while (cnt > 1)
 383               {
 384                 printf ("%d;", *val == CHAR_MAX ? -1 : *val);
 385                 --cnt;
 386                 ++val;
 387               }
 388
 389             printf ("%d", cnt == 0 || *val == CHAR_MAX ? -1 : *val);
 390           }
 391           break;
 392         default:
 393         }
 394       putchar ('\n');
 395     }
 396
 397   for (cat_no = 0; cat_no < NCATEGORIES; ++cat_no)
 398     {
 399       size_t item_no;
 400
 401       if (category[cat_no].outfct != NULL)
 402         /* Categories which need special handling of the output are
 403            not written.  This is especially for LC_CTYPE and LC_COLLATE.
 404            It does not make sense to have this large number of cryptic
 405            characters displayed.  */
 406         continue;
 407
 408       if (strcmp (name, category[cat_no].name) == 0)
 409         /* Print the whole category.  */
 410         {
 411           if (show_category_name != 0)
 412             puts (category[cat_no].name);
 413
 414           for (item_no = 0; item_no < category[cat_no].number; ++item_no)
 415             print_item (&category[cat_no].item_desc[item_no]);
 416
 417           return;
 418         }
 419
 420       for (item_no = 0; item_no < category[cat_no].number; ++item_no)
 421         if (strcmp (name, category[cat_no].item_desc[item_no].name) == 0)
 422           {
 423             if (show_category_name != 0)
 424               puts (category[cat_no].name);
 425
 426             print_item (&category[cat_no].item_desc[item_no]);
 427             return;
 428           }
 429     }
 430 }
 431
 432
 433 static void
 434 dump_category (const char *name)
 435 {
 436   char *locname;
 437   size_t cat_no, item_no, nstrings;
 438
 439   for (cat_no = 0; cat_no < NCATEGORIES; ++cat_no)
 440     if (strcmp (name, category[cat_no].name) == 0)
 441       break;
 442
 443   if (cat_no >= NCATEGORIES)
 444     return;
 445
 446   /* The NAME specifies a correct locale category.  */
 447   if (category[cat_no].outfct != NULL)
 448     {
 449       category[cat_no].outfct ();
 450       return;
 451     }
 452
 453   locname = (getenv ("LC_ALL") ?: getenv (name) ?:
 454              getenv ("LANG") ?: (char *) "POSIX");
 455
 456   /* Determine the number of strings in advance.  */
 457   nstrings = 0;
 458   for (item_no = 0; item_no < category[cat_no].number; ++item_no)
 459     switch (category[cat_no].item_desc[item_no].value_type)
 460       {
 461       case string:
 462       case byte:
 463       case bytearray:
 464         ++nstrings;
 465         break;
 466       case stringarray:
 467         nstrings += category[cat_no].item_desc[item_no].max;
 468       default:
 469       }
 470
 471   printf ("\nconst struct locale_data _nl_%s_%s =\n{\n"
 472           "  NULL, 0, /* no file mapped */\n  %Zu,\n  {\n",
 473           locname, name, nstrings);
 474
 475   for (item_no = 0; item_no < category[cat_no].number; ++item_no)
 476     switch (category[cat_no].item_desc[item_no].value_type)
 477       {
 478       case string:
 479         {
 480           const char *val = nl_langinfo (
 481             category[cat_no].item_desc[item_no].item_id);
 482
 483           if (val != NULL)
 484             printf ("    \"%s\",\n", val);
 485           else
 486             puts ("    NULL,");
 487         }
 488         break;
 489       case stringarray:
 490         {
 491           const char *val;
 492           int cnt;
 493
 494           for (cnt = 0; cnt < category[cat_no].item_desc[item_no].max; ++cnt)
 495             {
 496               val = nl_langinfo (
 497                 category[cat_no].item_desc[item_no].item_id + cnt);
 498
 499               if (val != NULL)
 500                 printf ("    \"%s\",\n", val);
 501               else
 502                 puts ("    NULL,");
 503             }
 504         }
 505         break;
 506       case byte:
 507         {
 508           const char *val = nl_langinfo (
 509             category[cat_no].item_desc[item_no].item_id);
 510
 511           if (val != NULL)
 512             printf ("    \"\\%o\",\n",
 513                     *(unsigned char *) val ? : UCHAR_MAX);
 514           else
 515             puts ("    NULL,");
 516         }
 517         break;
 518       case bytearray:
 519         {
 520           const char *bytes = nl_langinfo (
 521             category[cat_no].item_desc[item_no].item_id);
 522
 523           if (bytes != NULL)
 524             {
 525               fputs ("    \"", stdout);
 526               if (*bytes != '\0')
 527                 do
 528                   printf ("\\%o", *(unsigned char *) bytes++);
 529                 while (*bytes != '\0');
 530               else
 531                 printf ("\\%o", UCHAR_MAX);
 532
 533               puts ("\",");
 534             }
 535           else
 536             puts ("    NULL,");
 537         }
 538         break;
 539       default:
 540         break;
 541       }
 542
 543   puts ("  }\n};");
 544 }