1 /*
2 * Copyright 2010 Nexenta Systems, Inc. All rights reserved.
3 * Copyright 2015 John Marino <draco@marino.st>
4 *
5 * This source code is derived from the illumos localedef command, and
6 * provided under BSD-style license terms by Nexenta Systems, Inc.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 *
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
19 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
22 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 * POSSIBILITY OF SUCH DAMAGE.
29 */
30
31 /*
32 * LC_TIME database generation routines for localedef.
33 */
34
35 #include <stdio.h>
36 #include <stdlib.h>
37 #include <errno.h>
38 #include <sys/types.h>
39 #include <string.h>
40 #include <unistd.h>
41 #include "localedef.h"
42 #include "parser.h"
43 #include "timelocal.h"
44
45 static struct lc_time_T tm;
46
47 void
init_time(void)48 init_time(void)
49 {
50 (void) memset(&tm, 0, sizeof (tm));
51 }
52
53 void
add_time_str(wchar_t * wcs)54 add_time_str(wchar_t *wcs)
55 {
56 char *str;
57
58 if ((str = to_mb_string(wcs)) == NULL) {
59 INTERR;
60 return;
61 }
62 free(wcs);
63
64 switch (last_kw) {
65 case T_D_T_FMT:
66 tm.c_fmt = str;
67 break;
68 case T_D_FMT:
69 tm.x_fmt = str;
70 break;
71 case T_T_FMT:
72 tm.X_fmt = str;
73 break;
74 case T_T_FMT_AMPM:
75 tm.ampm_fmt = str;
76 break;
77 case T_DATE_FMT:
78 /*
79 * This one is a Solaris extension, Too bad date just
80 * doesn't use %c, which would be simpler.
81 */
82 tm.date_fmt = str;
83 break;
84 case T_ERA_D_FMT:
85 case T_ERA_T_FMT:
86 case T_ERA_D_T_FMT:
87 /* Silently ignore it. */
88 break;
89 default:
90 free(str);
91 INTERR;
92 break;
93 }
94 }
95
96 static void
add_list(const char * ptr[],char * str,int limit)97 add_list(const char *ptr[], char *str, int limit)
98 {
99 int i;
100 for (i = 0; i < limit; i++) {
101 if (ptr[i] == NULL) {
102 ptr[i] = str;
103 return;
104 }
105 }
106 fprintf(stderr,"too many list elements");
107 }
108
109 void
add_time_list(wchar_t * wcs)110 add_time_list(wchar_t *wcs)
111 {
112 char *str;
113
114 if ((str = to_mb_string(wcs)) == NULL) {
115 INTERR;
116 return;
117 }
118 free(wcs);
119
120 switch (last_kw) {
121 case T_ABMON:
122 add_list(tm.mon, str, 12);
123 break;
124 case T_MON:
125 add_list(tm.month, str, 12);
126 break;
127 case T_ABDAY:
128 add_list(tm.wday, str, 7);
129 break;
130 case T_DAY:
131 add_list(tm.weekday, str, 7);
132 break;
133 case T_AM_PM:
134 if (tm.am == NULL) {
135 tm.am = str;
136 } else if (tm.pm == NULL) {
137 tm.pm = str;
138 } else {
139 fprintf(stderr,"too many list elements");
140 }
141 break;
142 case T_ALT_DIGITS:
143 case T_ERA:
144 free(str);
145 break;
146 default:
147 free(str);
148 INTERR;
149 break;
150 }
151 }
152
153 void
check_time_list(void)154 check_time_list(void)
155 {
156 switch (last_kw) {
157 case T_ABMON:
158 if (tm.mon[11] != NULL)
159 return;
160 break;
161 case T_MON:
162 if (tm.month[11] != NULL)
163 return;
164 break;
165 case T_ABDAY:
166 if (tm.wday[6] != NULL)
167 return;
168 break;
169 case T_DAY:
170 if (tm.weekday[6] != NULL)
171 return;
172 break;
173 case T_AM_PM:
174 if (tm.pm != NULL)
175 return;
176 break;
177 case T_ERA:
178 case T_ALT_DIGITS:
179 return;
180 default:
181 fprintf(stderr,"unknown list");
182 break;
183 }
184
185 fprintf(stderr,"too few items in list (%d)", last_kw);
186 }
187
188 #pragma GCC diagnostic push
189 #pragma GCC diagnostic ignored "-Wcast-qual"
190
191 void
reset_time_list(void)192 reset_time_list(void)
193 {
194 int i;
195 switch (last_kw) {
196 case T_ABMON:
197 for (i = 0; i < 12; i++) {
198 free((char *)tm.mon[i]);
199 tm.mon[i] = NULL;
200 }
201 break;
202 case T_MON:
203 for (i = 0; i < 12; i++) {
204 free((char *)tm.month[i]);
205 tm.month[i] = NULL;
206 }
207 break;
208 case T_ABDAY:
209 for (i = 0; i < 7; i++) {
210 free((char *)tm.wday[i]);
211 tm.wday[i] = NULL;
212 }
213 break;
214 case T_DAY:
215 for (i = 0; i < 7; i++) {
216 free((char *)tm.weekday[i]);
217 tm.weekday[i] = NULL;
218 }
219 break;
220 case T_AM_PM:
221 free((char *)tm.am);
222 tm.am = NULL;
223 free((char *)tm.pm);
224 tm.pm = NULL;
225 break;
226 }
227 }
228
229 #pragma GCC diagnostic pop
230
231 void
dump_time(void)232 dump_time(void)
233 {
234 FILE *f;
235 int i;
236
237 if ((f = open_category()) == NULL) {
238 return;
239 }
240
241 for (i = 0; i < 12; i++) {
242 if (putl_category(tm.mon[i], f) == EOF) {
243 return;
244 }
245 }
246 for (i = 0; i < 12; i++) {
247 if (putl_category(tm.month[i], f) == EOF) {
248 return;
249 }
250 }
251 for (i = 0; i < 7; i++) {
252 if (putl_category(tm.wday[i], f) == EOF) {
253 return;
254 }
255 }
256 for (i = 0; i < 7; i++) {
257 if (putl_category(tm.weekday[i], f) == EOF) {
258 return;
259 }
260 }
261
262 /*
263 * NOTE: If date_fmt is not specified, then we'll default to
264 * using the %c for date. This is reasonable for most
265 * locales, although for reasons that I don't understand
266 * Solaris historically has had a seperate format for date.
267 */
268 if ((putl_category(tm.X_fmt, f) == EOF) ||
269 (putl_category(tm.x_fmt, f) == EOF) ||
270 (putl_category(tm.c_fmt, f) == EOF) ||
271 (putl_category(tm.am, f) == EOF) ||
272 (putl_category(tm.pm, f) == EOF) ||
273 (putl_category(tm.date_fmt ? tm.date_fmt : tm.c_fmt, f) == EOF) ||
274 (putl_category(tm.ampm_fmt, f) == EOF)) {
275 return;
276 }
277 close_category(f);
278 }
279