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