1 /* $NetBSD: explodename.c,v 1.1.1.1 2016/01/10 21:36:17 christos Exp $ */ 2 3 /* Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc. 4 Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995. 5 6 This program is free software; you can redistribute it and/or modify it 7 under the terms of the GNU Library General Public License as published 8 by the Free Software Foundation; either version 2, or (at your option) 9 any later version. 10 11 This program 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 this program; if not, write to the Free Software 18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 19 USA. */ 20 21 #ifdef HAVE_CONFIG_H 22 # include <config.h> 23 #endif 24 25 #include <stdlib.h> 26 #include <string.h> 27 #include <sys/types.h> 28 29 #include "loadinfo.h" 30 31 /* On some strange systems still no definition of NULL is found. Sigh! */ 32 #ifndef NULL 33 # if defined __STDC__ && __STDC__ 34 # define NULL ((void *) 0) 35 # else 36 # define NULL 0 37 # endif 38 #endif 39 40 /* @@ end of prolog @@ */ 41 42 char * 43 _nl_find_language (name) 44 const char *name; 45 { 46 while (name[0] != '\0' && name[0] != '_' && name[0] != '@' 47 && name[0] != '+' && name[0] != ',') 48 ++name; 49 50 return (char *) name; 51 } 52 53 54 int 55 _nl_explode_name (name, language, modifier, territory, codeset, 56 normalized_codeset, special, sponsor, revision) 57 char *name; 58 const char **language; 59 const char **modifier; 60 const char **territory; 61 const char **codeset; 62 const char **normalized_codeset; 63 const char **special; 64 const char **sponsor; 65 const char **revision; 66 { 67 enum { undecided, xpg, cen } syntax; 68 char *cp; 69 int mask; 70 71 *modifier = NULL; 72 *territory = NULL; 73 *codeset = NULL; 74 *normalized_codeset = NULL; 75 *special = NULL; 76 *sponsor = NULL; 77 *revision = NULL; 78 79 /* Now we determine the single parts of the locale name. First 80 look for the language. Termination symbols are `_' and `@' if 81 we use XPG4 style, and `_', `+', and `,' if we use CEN syntax. */ 82 mask = 0; 83 syntax = undecided; 84 *language = cp = name; 85 cp = _nl_find_language (*language); 86 87 if (*language == cp) 88 /* This does not make sense: language has to be specified. Use 89 this entry as it is without exploding. Perhaps it is an alias. */ 90 cp = strchr (*language, '\0'); 91 else if (cp[0] == '_') 92 { 93 /* Next is the territory. */ 94 cp[0] = '\0'; 95 *territory = ++cp; 96 97 while (cp[0] != '\0' && cp[0] != '.' && cp[0] != '@' 98 && cp[0] != '+' && cp[0] != ',' && cp[0] != '_') 99 ++cp; 100 101 mask |= TERRITORY; 102 103 if (cp[0] == '.') 104 { 105 /* Next is the codeset. */ 106 syntax = xpg; 107 cp[0] = '\0'; 108 *codeset = ++cp; 109 110 while (cp[0] != '\0' && cp[0] != '@') 111 ++cp; 112 113 mask |= XPG_CODESET; 114 115 if (*codeset != cp && (*codeset)[0] != '\0') 116 { 117 *normalized_codeset = _nl_normalize_codeset (*codeset, 118 cp - *codeset); 119 if (strcmp (*codeset, *normalized_codeset) == 0) 120 free ((char *) *normalized_codeset); 121 else 122 mask |= XPG_NORM_CODESET; 123 } 124 } 125 } 126 127 if (cp[0] == '@' || (syntax != xpg && cp[0] == '+')) 128 { 129 /* Next is the modifier. */ 130 syntax = cp[0] == '@' ? xpg : cen; 131 cp[0] = '\0'; 132 *modifier = ++cp; 133 134 while (syntax == cen && cp[0] != '\0' && cp[0] != '+' 135 && cp[0] != ',' && cp[0] != '_') 136 ++cp; 137 138 mask |= XPG_MODIFIER | CEN_AUDIENCE; 139 } 140 141 if (syntax != xpg && (cp[0] == '+' || cp[0] == ',' || cp[0] == '_')) 142 { 143 syntax = cen; 144 145 if (cp[0] == '+') 146 { 147 /* Next is special application (CEN syntax). */ 148 cp[0] = '\0'; 149 *special = ++cp; 150 151 while (cp[0] != '\0' && cp[0] != ',' && cp[0] != '_') 152 ++cp; 153 154 mask |= CEN_SPECIAL; 155 } 156 157 if (cp[0] == ',') 158 { 159 /* Next is sponsor (CEN syntax). */ 160 cp[0] = '\0'; 161 *sponsor = ++cp; 162 163 while (cp[0] != '\0' && cp[0] != '_') 164 ++cp; 165 166 mask |= CEN_SPONSOR; 167 } 168 169 if (cp[0] == '_') 170 { 171 /* Next is revision (CEN syntax). */ 172 cp[0] = '\0'; 173 *revision = ++cp; 174 175 mask |= CEN_REVISION; 176 } 177 } 178 179 /* For CEN syntax values it might be important to have the 180 separator character in the file name, not for XPG syntax. */ 181 if (syntax == xpg) 182 { 183 if (*territory != NULL && (*territory)[0] == '\0') 184 mask &= ~TERRITORY; 185 186 if (*codeset != NULL && (*codeset)[0] == '\0') 187 mask &= ~XPG_CODESET; 188 189 if (*modifier != NULL && (*modifier)[0] == '\0') 190 mask &= ~XPG_MODIFIER; 191 } 192 193 return mask; 194 } 195