1 /*- 2 * Copyright (c) 2002 Alexey Zelkin <phantom@FreeBSD.org> 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24 * SUCH DAMAGE. 25 * 26 * $FreeBSD$ 27 */ 28 29 #include <sys/types.h> 30 #include <dirent.h> 31 #include <locale.h> 32 #include <rune.h> /* for _PATH_LOCALE */ 33 #include <stdio.h> 34 #include <stdlib.h> 35 #include <string.h> 36 #include <stringlist.h> 37 #include <unistd.h> 38 39 /* Local prototypes */ 40 void usage(void); 41 void get_locales_list(void); 42 void list_locales(void); 43 void display_locale_status(int); 44 45 /* Global variables */ 46 static StringList *locales = NULL; 47 48 int all_locales = 0; 49 int verbose = 0; 50 int env_used = 0; 51 52 struct _lcinfo { 53 char *name; 54 int id; 55 } lcinfo [] = { 56 "LANG", LC_ALL, 57 "LC_ALL", LC_ALL, 58 "LC_CTYPE", LC_CTYPE, 59 "LC_COLLATE", LC_COLLATE, 60 "LC_TIME", LC_TIME, 61 "LC_NUMERIC", LC_NUMERIC, 62 "LC_MONETARY", LC_MONETARY, 63 "LC_MESSAGES", LC_MESSAGES 64 }; 65 #define NLCINFO (sizeof(lcinfo)/sizeof(lcinfo[0])) 66 67 int 68 main(int argc, char *argv[]) 69 { 70 char ch; 71 72 while ((ch = getopt(argc, argv, "av")) != -1) 73 switch (ch) { 74 case 'a': 75 all_locales = 1; 76 break; 77 case 'v': 78 verbose = 1; 79 break; 80 default: 81 usage(); 82 } 83 argc -= optind; 84 argv += optind; 85 86 if (all_locales) { 87 list_locales(); 88 exit(0); 89 } 90 91 display_locale_status(verbose); 92 return (0); 93 } 94 95 void 96 usage(void) 97 { 98 printf("\nUsage: locale [ -a ] [ -v ]\n"); 99 exit(1); 100 } 101 102 void 103 list_locales(void) 104 { 105 int i; 106 107 get_locales_list(); 108 for (i = 0; i < locales->sl_cur; i++) { 109 printf("%s\n", locales->sl_str[i]); 110 } 111 } 112 113 void 114 probe_var(char *varname, int id) 115 { 116 char *value, *res1, *res2; 117 118 value = getenv(varname); 119 if (value == NULL) { 120 printf("%s = (null)\n", varname); 121 return; 122 } 123 124 if (sl_find(locales, value) == NULL) 125 res1 = "invalid"; 126 else 127 res1 = "valid"; 128 129 if (strcmp(value, setlocale(id, value)) != 0) 130 res2 = "invalid"; 131 else 132 res2 = "valid"; 133 134 printf("%s = \"%s\"\t\t(name is %s, content is %s)\n", 135 varname, value, res1, res2); 136 } 137 138 void 139 display_locale_status(int verbose) 140 { 141 int i; 142 143 setlocale(LC_ALL, ""); 144 145 if (verbose) { 146 get_locales_list(); 147 if (env_used) 148 printf("WARNING: PATH_LOCALE environment variable is set!"); 149 } 150 151 printf("Current status of locale settings:\n\n"); 152 for (i = 1; i < NLCINFO; i++) { /* start with 1 to avoid 'LANG' */ 153 printf("%s = \"%s\"\n", 154 lcinfo[i].name, 155 setlocale(lcinfo[i].id, "")); 156 } 157 158 /* 159 * If verbose flag is set, add environment information 160 */ 161 if (verbose) { 162 printf("\nCurrent environment variables (and status):\n\n"); 163 for (i = 0; i < NLCINFO; i++) 164 probe_var(lcinfo[i].name, lcinfo[i].id); 165 } 166 } 167 168 static char * 169 get_locale_path(void) 170 { 171 char *localedir; 172 173 localedir = getenv("PATH_LOCALE"); 174 if (localedir == NULL) 175 localedir = _PATH_LOCALE; 176 else 177 env_used = 1; 178 return (localedir); 179 } 180 181 static int 182 scmp(const void *s1, const void *s2) 183 { 184 return strcmp(*(const char **)s1, *(const char **)s2); 185 } 186 187 void 188 get_locales_list() 189 { 190 DIR *dirp; 191 struct dirent *dp; 192 char *dirname; 193 194 if (locales != NULL) 195 return; 196 197 locales = sl_init(); 198 if (locales == NULL) 199 err(1, "could not allocate memory"); 200 201 dirname = get_locale_path(); 202 dirp = opendir(dirname); 203 if (dirp == NULL) 204 err(1, "could not open directory '%s'", dirname); 205 206 while ((dp = readdir(dirp)) != NULL) { 207 if (*dp->d_name == '.') 208 continue; 209 sl_add(locales, strdup(dp->d_name)); 210 } 211 closedir(dirp); 212 213 qsort(locales->sl_str, locales->sl_cur, sizeof(char *), scmp); 214 } 215