fa824fb96c0820b92d6c7e3f1baa241a4fcf81c7
[kopensolaris-gnu/glibc.git] / 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       printf ("locale (GNU %s) %s\n", PACKAGE, VERSION);
187       printf (_("\
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       printf (_("Written by %s.\n"), "Ulrich Drepper");
193
194       exit (EXIT_SUCCESS);
195     }
196
197   /* Help is requested.  */
198   if (do_help)
199     usage (EXIT_SUCCESS);
200
201   /* `-a' requests the names of all available locales.  */
202   if (do_all != 0)
203     {
204       write_locales ();
205       exit (EXIT_SUCCESS);
206     }
207
208   /* `m' requests the names of all available charmaps.  The names can be
209      used for the -f argument to localedef(3).  */
210   if (do_charmaps != 0)
211     {
212       write_charmaps ();
213       exit (EXIT_SUCCESS);
214     }
215
216   /* Specific information about the current locale are requested.
217      Change to this locale now.  */
218   setlocale (LC_ALL, "");
219
220   /* If no real argument is given we have to print the contents of the
221      current locale definition variables.  These are LANG and the LC_*.  */
222   if (optind == argc && show_keyword_name == 0 && show_category_name == 0)
223     {
224       show_locale_vars ();
225       exit (EXIT_SUCCESS);
226     }
227
228   /* Process all given names.  */
229   while (optind <  argc)
230     show_info (argv[optind++]);
231
232   exit (EXIT_SUCCESS);
233 }
234
235
236 /* Display usage information and exit.  */
237 static void
238 usage (int status)
239 {
240   if (status != EXIT_SUCCESS)
241     fprintf (stderr, gettext ("Try `%s --help' for more information.\n"),
242              __progname);
243   else
244     {
245       printf (gettext ("\
246 Usage: %s [OPTION]... name\n\
247 Mandatory arguments to long options are mandatory for short options too.\n\
248   -h, --help            display this help and exit\n\
249   -V, --version         output version information and exit\n\
250 \n\
251   -a, --all-locales     write names of available locales\n\
252   -m, --charmaps        write names of available charmaps\n\
253 \n\
254   -c, --category-name   write names of selected categories\n\
255   -k, --keyword-name    write names of selected keywords\n"),
256               __progname);
257       fputs (gettext ("Report bugs to <bug-glibc@prep.ai.mit.edu>.\n"),
258              stdout);
259     }
260
261   exit (status);
262 }
263
264
265 /* Write the names of all available locales to stdout.  */
266 static void
267 write_locales (void)
268 {
269   DIR *dir;
270   struct dirent *dirent;
271
272   /* `POSIX' locale is always available (POSIX.2 4.34.3).  */
273   puts ("POSIX");
274
275   dir = opendir (LOCALE_PATH);
276   if (dir == NULL)
277     {
278       error (1, errno, gettext ("cannot read locale directory `%s'"),
279              LOCALE_PATH);
280       return;
281     }
282
283   /* Now we can look for all files in the directory.  */
284   while ((dirent = readdir (dir)) != NULL)
285     if (strcmp (dirent->d_name, ".") != 0
286         && strcmp (dirent->d_name, "..") != 0)
287       puts (dirent->d_name);
288
289   closedir (dir);
290 }
291
292
293 /* Write the names of all available character maps to stdout.  */
294 static void
295 write_charmaps (void)
296 {
297   DIR *dir;
298   struct dirent *dirent;
299
300   dir = opendir (CHARMAP_PATH);
301   if (dir == NULL)
302     {
303       error (1, errno, gettext ("cannot read character map directory `%s'"),
304              CHARMAP_PATH);
305       return;
306     }
307
308   /* Now we can look for all files in the directory.  */
309   while ((dirent = readdir (dir)) != NULL)
310     if (strcmp (dirent->d_name, ".") != 0
311         && strcmp (dirent->d_name, "..") != 0)
312       puts (dirent->d_name);
313
314   closedir (dir);
315 }
316
317
318 /* We have to show the contents of the environments determining the
319    locale.  */
320 static void
321 show_locale_vars (void)
322 {
323   size_t cat_no;
324   const char *lcall = getenv ("LC_ALL");
325   const char *lang = getenv ("LANG") ? : "POSIX";
326
327   void get_source (const char *name)
328     {
329       char *val = getenv (name);
330
331       if (lcall != NULL || val == NULL)
332         printf ("%s=\"%s\"\n", name, lcall ? : lang);
333       else
334         printf ("%s=%s\n", name, val);
335     }
336
337   /* LANG has to be the first value.  */
338   printf ("LANG=%s\n", lang);
339
340   /* Now all categories in an unspecified order.  */
341   for (cat_no = 0; cat_no < NCATEGORIES; ++cat_no)
342     get_source (category[cat_no].name);
343
344   /* The last is the LC_ALL value.  */
345   printf ("LC_ALL=%s\n", lcall ? : "");
346 }
347
348
349 /* Show the information request for NAME.  */
350 static void
351 show_info (const char *name)
352 {
353   size_t cat_no;
354
355   void print_item (struct cat_item *item)
356     {
357       if (show_keyword_name != 0)
358         printf ("%s=", item->name);
359
360       switch (item->value_type)
361         {
362         case string:
363           printf ("%s%s%s", show_keyword_name ? "\"" : "",
364                   nl_langinfo (item->item_id) ? : "",
365                   show_keyword_name ? "\"" : "");
366           break;
367         case stringarray:
368           {
369             int cnt;
370             const char *val;
371
372             if (show_keyword_name)
373               putchar ('"');
374
375             for (cnt = 0; cnt < item->max - 1; ++cnt)
376               {
377                 val = nl_langinfo (item->item_id + cnt);
378                 printf ("%s;", val ? : "");
379               }
380
381             val = nl_langinfo (item->item_id + cnt);
382             printf ("%s", val ? : "");
383
384             if (show_keyword_name)
385               putchar ('"');
386           }
387           break;
388         case byte:
389           {
390             const char *val = nl_langinfo (item->item_id);
391
392             if (val != NULL)
393               printf ("%d", *val == CHAR_MAX ? -1 : *val);
394           }
395           break;
396         case bytearray:
397           {
398             const char *val = nl_langinfo (item->item_id);
399             int cnt = val ? strlen (val) : 0;
400
401             while (cnt > 1)
402               {
403                 printf ("%d;", *val == CHAR_MAX ? -1 : *val);
404                 --cnt;
405                 ++val;
406               }
407
408             printf ("%d", cnt == 0 || *val == CHAR_MAX ? -1 : *val);
409           }
410           break;
411         case word:
412           {
413             unsigned int val = (unsigned int) nl_langinfo (item->item_id);
414             printf ("%d", val);
415           }
416           break;
417         default:
418         }
419       putchar ('\n');
420     }
421
422   for (cat_no = 0; cat_no < NCATEGORIES; ++cat_no)
423     {
424       size_t item_no;
425
426       if (strcmp (name, category[cat_no].name) == 0)
427         /* Print the whole category.  */
428         {
429           if (show_category_name != 0)
430             puts (category[cat_no].name);
431
432           for (item_no = 0; item_no < category[cat_no].number; ++item_no)
433             print_item (&category[cat_no].item_desc[item_no]);
434
435           return;
436         }
437
438       for (item_no = 0; item_no < category[cat_no].number; ++item_no)
439         if (strcmp (name, category[cat_no].item_desc[item_no].name) == 0)
440           {
441             if (show_category_name != 0)
442               puts (category[cat_no].name);
443
444             print_item (&category[cat_no].item_desc[item_no]);
445             return;
446           }
447     }
448
449   /* When we get to here the name is not standard ones.  For testing
450      and perhpas advanced use we allow some more symbols.  */
451   locale_special (name, show_category_name, show_keyword_name);
452 }