1 /* Implementation of the locale program according to POSIX 9945-2.
2 Copyright (C) 1995, 1996, 1997, 1998, 1999 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.
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.
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.
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 not,
18 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
41 #include "localeinfo.h"
44 /* If set print the name of the category. */
45 static int show_category_name
;
47 /* If set print the name of the item. */
48 static int show_keyword_name
;
50 /* Print names of all available locales. */
53 /* Print names of all available character maps. */
54 static int do_charmaps
= 0;
56 /* Name and version of program. */
57 static void print_version (FILE *stream
, struct argp_state
*state
);
58 void (*argp_program_version_hook
) (FILE *, struct argp_state
*) = print_version
;
60 /* Definitions of arguments for argp functions. */
61 static const struct argp_option options
[] =
63 { NULL
, 0, NULL
, 0, N_("System information:") },
64 { "all-locales", 'a', NULL
, OPTION_NO_USAGE
,
65 N_("Write names of available locales") },
66 { "charmaps", 'm', NULL
, OPTION_NO_USAGE
,
67 N_("Write names of available charmaps") },
68 { NULL
, 0, NULL
, 0, N_("Modify output format:") },
69 { "category-name", 'c', NULL
, 0, N_("Write names of selected categories") },
70 { "keyword-name", 'k', NULL
, 0, N_("Write names of selected keywords") },
71 { NULL
, 0, NULL
, 0, NULL
}
74 /* Short description of program. */
75 static const char doc
[] = N_("Get locale-specific information.");
77 /* Strings for arguments in help texts. */
78 static const char args_doc
[] = N_("NAME\n[-a|-m]");
80 /* Prototype for option handler. */
81 static error_t
parse_opt (int key
, char *arg
, struct argp_state
*state
);
83 /* Function to print some extra text in the help message. */
84 static char *more_help (int key
, const char *text
, void *input
);
86 /* Data structure to communicate with argp functions. */
87 static struct argp argp
=
89 options
, parse_opt
, args_doc
, doc
, NULL
, more_help
93 /* We don't have these constants defined because we don't use them. Give
95 #define CTYPE_MB_CUR_MIN 0
96 #define CTYPE_MB_CUR_MAX 0
97 #define CTYPE_HASH_SIZE 0
98 #define CTYPE_HASH_LAYERS 0
100 #define CTYPE_TOUPPER_EB 0
101 #define CTYPE_TOLOWER_EB 0
102 #define CTYPE_TOUPPER_EL 0
103 #define CTYPE_TOLOWER_EL 0
105 /* Definition of the data structure which represents a category and its
116 enum { std
, opt
} status
;
117 enum value_type value_type
;
123 /* Simple helper macro. */
124 #define NELEMS(arr) ((sizeof (arr)) / (sizeof (arr[0])))
126 /* For some tricky stuff. */
127 #define NO_PAREN(Item, More...) Item, ## More
129 /* We have all categories defined in `categories.def'. Now construct
130 the description and data structure used for all categories. */
131 #define DEFINE_ELEMENT(Item, More...) { Item, ## More },
132 #define DEFINE_CATEGORY(category, name, items, postload, in, check, out) \
133 static struct cat_item category##_desc[] = \
138 #include "categories.def"
139 #undef DEFINE_CATEGORY
141 static struct category category
[] =
143 #define DEFINE_CATEGORY(category, name, items, postload, in, check, out) \
144 [category] = { _NL_NUM_##category, name, NELEMS (category##_desc), \
146 #include "categories.def"
147 #undef DEFINE_CATEGORY
149 #define NCATEGORIES NELEMS (category)
152 /* Automatically set variable. */
153 extern const char *__progname
;
155 /* helper function for extended name handling. */
156 extern void locale_special (const char *name
, int show_category_name
,
157 int show_keyword_name
);
159 /* Prototypes for local functions. */
160 static void write_locales (void);
161 static void write_charmaps (void);
162 static void show_locale_vars (void);
163 static void show_info (const char *name
);
167 main (int argc
, char *argv
[])
171 /* Set initial values for global variables. */
172 show_category_name
= 0;
173 show_keyword_name
= 0;
175 /* Set locale. Do not set LC_ALL because the other categories must
176 not be affected (according to POSIX.2). */
177 setlocale (LC_CTYPE
, "");
178 setlocale (LC_MESSAGES
, "");
180 /* Initialize the message catalog. */
181 textdomain (PACKAGE
);
183 /* Parse and process arguments. */
184 argp_parse (&argp
, argc
, argv
, 0, &remaining
, NULL
);
186 /* `-a' requests the names of all available locales. */
189 setlocale (LC_COLLATE
, "");
194 /* `m' requests the names of all available charmaps. The names can be
195 used for the -f argument to localedef(1). */
196 if (do_charmaps
!= 0)
202 /* Specific information about the current locale are requested.
203 Change to this locale now. */
204 setlocale (LC_ALL
, "");
206 /* If no real argument is given we have to print the contents of the
207 current locale definition variables. These are LANG and the LC_*. */
208 if (remaining
== argc
&& show_keyword_name
== 0 && show_category_name
== 0)
214 /* Process all given names. */
215 while (remaining
< argc
)
216 show_info (argv
[remaining
++]);
222 /* Handle program arguments. */
224 parse_opt (int key
, char *arg
, struct argp_state
*state
)
232 show_category_name
= 1;
238 show_keyword_name
= 1;
241 return ARGP_ERR_UNKNOWN
;
248 more_help (int key
, const char *text
, void *input
)
252 case ARGP_KEY_HELP_EXTRA
:
253 /* We print some extra information. */
254 return strdup (gettext ("\
255 Report bugs using the `glibcbug' script to <bugs@gnu.org>.\n"));
259 return (char *) text
;
262 /* Print the version information. */
264 print_version (FILE *stream
, struct argp_state
*state
)
266 fprintf (stream
, "locale (GNU %s) %s\n", PACKAGE
, VERSION
);
267 fprintf (stream
, gettext ("\
268 Copyright (C) %s Free Software Foundation, Inc.\n\
269 This is free software; see the source for copying conditions. There is NO\n\
270 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
272 fprintf (stream
, gettext ("Written by %s.\n"), "Ulrich Drepper");
276 /* Simple action function which prints arguments as strings. */
278 print_names (const void *nodep
, VISIT value
, int level
)
280 if (value
== postorder
|| value
== leaf
)
281 puts (*(char **) nodep
);
285 /* Write the names of all available locales to stdout. We have some
286 sources of the information: the contents of the locale directory
287 and the locale.alias file. To avoid duplicates and print the
288 result is a reasonable order we put all entries is a search tree
289 and print them afterwards. */
293 void *all_data
= NULL
;
295 struct dirent
*dirent
;
297 size_t alias_path_len
;
300 #define PUT(name) tsearch ((name), &all_data, \
301 (int (*) (const void *, const void *)) strcoll)
303 dir
= opendir (LOCALEDIR
);
306 error (1, errno
, gettext ("cannot read locale directory `%s'"),
311 /* `POSIX' locale is always available (POSIX.2 4.34.3). */
313 /* And so is the "C" locale. */
316 /* Now we can look for all files in the directory. */
317 while ((dirent
= readdir (dir
)) != NULL
)
318 if (strcmp (dirent
->d_name
, ".") != 0
319 && strcmp (dirent
->d_name
, "..") != 0)
322 #ifdef _DIRENT_HAVE_D_TYPE
323 if (dirent
->d_type
!= DT_UNKNOWN
)
324 mode
= DTTOIF (dirent
->d_type
);
329 char buf
[sizeof (LOCALEDIR
) + strlen (dirent
->d_name
) + 1];
331 stpcpy (stpcpy (stpcpy (buf
, LOCALEDIR
), "/"), dirent
->d_name
);
333 if (stat (buf
, &st
) < 0)
339 PUT (strdup (dirent
->d_name
));
344 /* Now read the locale.alias files. */
345 if (argz_create_sep (LOCALE_ALIAS_PATH
, ':', &alias_path
, &alias_path_len
))
346 error (1, errno
, gettext ("while preparing output"));
349 while ((entry
= argz_next (alias_path
, alias_path_len
, entry
)))
351 static const char aliasfile
[] = "/locale.alias";
353 char full_name
[strlen (entry
) + sizeof aliasfile
];
355 stpcpy (stpcpy (full_name
, entry
), aliasfile
);
356 fp
= fopen (full_name
, "r");
358 /* Ignore non-existing files. */
363 /* It is a reasonable approach to use a fix buffer here
365 a) we are only interested in the first two fields
366 b) these fields must be usable as file names and so must
373 if (fgets (buf
, BUFSIZ
, fp
) == NULL
)
378 /* Ignore leading white space. */
379 while (isspace (cp
[0]))
382 /* A leading '#' signals a comment line. */
383 if (cp
[0] != '\0' && cp
[0] != '#')
386 while (cp
[0] != '\0' && !isspace (cp
[0]))
388 /* Terminate alias name. */
392 /* Now look for the beginning of the value. */
393 while (isspace (cp
[0]))
399 while (cp
[0] != '\0' && !isspace (cp
[0]))
401 /* Terminate value. */
404 /* This has to be done to make the following
405 test for the end of line possible. We are
406 looking for the terminating '\n' which do not
411 else if (cp
[0] != '\0')
415 PUT (strdup (alias
));
419 /* Possibly not the whole line fits into the buffer.
420 Ignore the rest of the line. */
421 while (strchr (cp
, '\n') == NULL
)
424 if (fgets (buf
, BUFSIZ
, fp
) == NULL
)
425 /* Make sure the inner loop will be left. The outer
426 loop will exit at the `feof' test. */
434 twalk (all_data
, print_names
);
438 /* Write the names of all available character maps to stdout. */
440 write_charmaps (void)
442 void *all_data
= NULL
;
444 struct dirent
*dirent
;
446 dir
= opendir (CHARMAP_PATH
);
449 error (1, errno
, gettext ("cannot read character map directory `%s'"),
454 /* Now we can look for all files in the directory. */
455 while ((dirent
= readdir (dir
)) != NULL
)
456 if (strcmp (dirent
->d_name
, ".") != 0
457 && strcmp (dirent
->d_name
, "..") != 0)
462 #ifdef _DIRENT_HAVE_D_TYPE
463 if (dirent
->d_type
!= DT_UNKNOWN
)
464 mode
= DTTOIF (dirent
->d_type
);
470 buf
= alloca (sizeof (CHARMAP_PATH
) + strlen (dirent
->d_name
) + 1);
472 stpcpy (stpcpy (stpcpy (buf
, CHARMAP_PATH
), "/"), dirent
->d_name
);
474 if (stat (buf
, &st
) < 0)
483 PUT (strdup (dirent
->d_name
));
485 /* Read the file and learn about the code set name. */
488 buf
= alloca (sizeof (CHARMAP_PATH
)
489 + strlen (dirent
->d_name
) + 1);
491 stpcpy (stpcpy (stpcpy (buf
, CHARMAP_PATH
), "/"),
495 fp
= fopen (buf
, "r");
504 if (fscanf (fp
, " <code_set_name> %as", &name
) == 1)
507 while (fgets (junk
, sizeof junk
, fp
) != NULL
508 && strchr (junk
, '\n') == NULL
)
522 twalk (all_data
, print_names
);
526 /* We have to show the contents of the environments determining the
529 show_locale_vars (void)
532 const char *lcall
= getenv ("LC_ALL");
533 const char *lang
= getenv ("LANG") ? : "POSIX";
535 void get_source (const char *name
)
537 char *val
= getenv (name
);
539 if ((lcall
?: "")[0] != '\0' || val
== NULL
)
540 printf ("%s=\"%s\"\n", name
, (lcall
?: "")[0] ? lcall
: lang
);
542 printf ("%s=%s\n", name
, val
);
545 /* LANG has to be the first value. */
546 printf ("LANG=%s\n", lang
);
548 /* Now all categories in an unspecified order. */
549 for (cat_no
= 0; cat_no
< NCATEGORIES
; ++cat_no
)
550 get_source (category
[cat_no
].name
);
552 /* The last is the LC_ALL value. */
553 printf ("LC_ALL=%s\n", lcall
? : "");
557 /* Some of the "string" we print contain non-printable characters. We
560 print_escaped (const char *string
)
562 const unsigned char *ch
;
570 printf("<0x%02x>", *ch
);
576 /* Show the information request for NAME. */
578 show_info (const char *name
)
582 void print_item (struct cat_item
*item
)
584 if (show_keyword_name
!= 0)
585 printf ("%s=", item
->name
);
587 switch (item
->value_type
)
590 if (show_keyword_name
)
592 print_escaped (nl_langinfo (item
->item_id
) ? : "");
593 if (show_keyword_name
)
601 if (show_keyword_name
)
604 for (cnt
= 0; cnt
< item
->max
- 1; ++cnt
)
606 val
= nl_langinfo (item
->item_id
+ cnt
);
612 val
= nl_langinfo (item
->item_id
+ cnt
);
616 if (show_keyword_name
)
623 const char *val
= nl_langinfo (item
->item_id
) ? : "";
627 printf ("%s%s%s%s", first
? "" : ";",
628 show_keyword_name
? "\"" : "", val
,
629 show_keyword_name
? "\"" : "");
630 val
= strchr (val
, '\0') + 1;
637 const char *val
= nl_langinfo (item
->item_id
);
640 printf ("%d", *val
== CHAR_MAX
? -1 : *val
);
645 const char *val
= nl_langinfo (item
->item_id
);
646 int cnt
= val
? strlen (val
) : 0;
650 printf ("%d;", *val
== CHAR_MAX
? -1 : *val
);
655 printf ("%d", cnt
== 0 || *val
== CHAR_MAX
? -1 : *val
);
661 (unsigned int) (unsigned long int) nl_langinfo (item
->item_id
);
670 for (cat_no
= 0; cat_no
< NCATEGORIES
; ++cat_no
)
674 if (strcmp (name
, category
[cat_no
].name
) == 0)
675 /* Print the whole category. */
677 if (show_category_name
!= 0)
678 puts (category
[cat_no
].name
);
680 for (item_no
= 0; item_no
< category
[cat_no
].number
; ++item_no
)
681 print_item (&category
[cat_no
].item_desc
[item_no
]);
686 for (item_no
= 0; item_no
< category
[cat_no
].number
; ++item_no
)
687 if (strcmp (name
, category
[cat_no
].item_desc
[item_no
].name
) == 0)
689 if (show_category_name
!= 0)
690 puts (category
[cat_no
].name
);
692 print_item (&category
[cat_no
].item_desc
[item_no
]);
697 /* The name is not a standard one.
698 For testing and perhaps advanced use allow some more symbols. */
699 locale_special (name
, show_category_name
, show_keyword_name
);