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