xref: /illumos-gate/usr/src/cmd/localedef/time.c (revision 7262c8a615d4d5997a397e34b7229c53d8a1557a)
1 /*
2  * This file and its contents are supplied under the terms of the
3  * Common Development and Distribution License ("CDDL"), version 1.0.
4  * You may only use this file in accordance with the terms of version
5  * 1.0 of the CDDL.
6  *
7  * A full copy of the text of the CDDL should have accompanied this
8  * source.  A copy of the CDDL is also available via the Internet at
9  * http://www.illumos.org/license/CDDL.
10  */
11 
12 /*
13  * Copyright 2013 Garrett D'Amore <garrett@damore.org>
14  * Copyright 2017 Nexenta Systems, Inc.
15  */
16 
17 /*
18  * LC_TIME database generation routines for localedef.
19  */
20 
21 #include <stdio.h>
22 #include <stdlib.h>
23 #include <errno.h>
24 #include <sys/types.h>
25 #include <string.h>
26 #include <unistd.h>
27 #include "localedef.h"
28 #include "parser.tab.h"
29 #include "timelocal.h"
30 
31 struct lc_time tm;
32 
33 void
init_time(void)34 init_time(void)
35 {
36 	(void) memset(&tm, 0, sizeof (tm));
37 }
38 
39 void
add_time_str(wchar_t * wcs)40 add_time_str(wchar_t *wcs)
41 {
42 	char	*str;
43 
44 	if ((str = to_mb_string(wcs)) == NULL) {
45 		INTERR;
46 		return;
47 	}
48 	free(wcs);
49 
50 	switch (last_kw) {
51 	case T_D_T_FMT:
52 		tm.c_fmt = str;
53 		break;
54 	case T_D_FMT:
55 		tm.x_fmt = str;
56 		break;
57 	case T_T_FMT:
58 		tm.X_fmt = str;
59 		break;
60 	case T_T_FMT_AMPM:
61 		tm.ampm_fmt = str;
62 		break;
63 	case T_DATE_FMT:
64 		/*
65 		 * This one is a Solaris extension. Too bad date just
66 		 * doesn't use %c, which would be simpler.
67 		 */
68 		tm.date_fmt = str;
69 		break;
70 	case T_ERA_D_FMT:
71 	case T_ERA_T_FMT:
72 	case T_ERA_D_T_FMT:
73 		/* Silently ignore it. */
74 		free(str);
75 		break;
76 	default:
77 		free(str);
78 		INTERR;
79 		break;
80 	}
81 }
82 
83 static void
add_list(const char * ptr[],char * str,int limit)84 add_list(const char *ptr[], char *str, int limit)
85 {
86 	int	i;
87 	for (i = 0; i < limit; i++) {
88 		if (ptr[i] == NULL) {
89 			ptr[i] = str;
90 			return;
91 		}
92 	}
93 	errf(_("too many list elements"));
94 }
95 
96 void
add_time_list(wchar_t * wcs)97 add_time_list(wchar_t *wcs)
98 {
99 	char *str;
100 
101 	if ((str = to_mb_string(wcs)) == NULL) {
102 		INTERR;
103 		return;
104 	}
105 	free(wcs);
106 
107 	switch (last_kw) {
108 	case T_ABMON:
109 		add_list(tm.mon, str, 12);
110 		break;
111 	case T_MON:
112 		add_list(tm.month, str, 12);
113 		break;
114 	case T_ABDAY:
115 		add_list(tm.wday, str, 7);
116 		break;
117 	case T_DAY:
118 		add_list(tm.weekday, str, 7);
119 		break;
120 	case T_AM_PM:
121 		if (tm.am == NULL) {
122 			tm.am = str;
123 		} else if (tm.pm == NULL) {
124 			tm.pm = str;
125 		} else {
126 			errf(_("too many list elements"));
127 			free(str);
128 		}
129 		break;
130 	case T_ALT_DIGITS:
131 	case T_ERA:
132 		free(str);
133 		break;
134 	default:
135 		free(str);
136 		INTERR;
137 		break;
138 	}
139 }
140 
141 void
check_time_list(void)142 check_time_list(void)
143 {
144 	switch (last_kw) {
145 	case T_ABMON:
146 		if (tm.mon[11] != NULL)
147 			return;
148 		break;
149 	case T_MON:
150 		if (tm.month[11] != NULL)
151 			return;
152 		break;
153 	case T_ABDAY:
154 		if (tm.wday[6] != NULL)
155 			return;
156 		break;
157 	case T_DAY:
158 		if (tm.weekday[6] != NULL)
159 			return;
160 		break;
161 	case T_AM_PM:
162 		if (tm.pm != NULL)
163 			return;
164 		break;
165 	case T_ERA:
166 	case T_ALT_DIGITS:
167 		return;
168 	default:
169 		errf(_("unknown list"));
170 		break;
171 	}
172 
173 	errf(_("too few items in list (%d)"), last_kw);
174 }
175 
176 void
reset_time_list(void)177 reset_time_list(void)
178 {
179 	int i;
180 	switch (last_kw) {
181 	case T_ABMON:
182 		for (i = 0; i < 12; i++) {
183 			free((char *)tm.mon[i]);
184 			tm.mon[i] = NULL;
185 		}
186 		break;
187 	case T_MON:
188 		for (i = 0; i < 12; i++) {
189 			free((char *)tm.month[i]);
190 			tm.month[i] = NULL;
191 		}
192 		break;
193 	case T_ABDAY:
194 		for (i = 0; i < 7; i++) {
195 			free((char *)tm.wday[i]);
196 			tm.wday[i] = NULL;
197 		}
198 		break;
199 	case T_DAY:
200 		for (i = 0; i < 7; i++) {
201 			free((char *)tm.weekday[i]);
202 			tm.weekday[i] = NULL;
203 		}
204 		break;
205 	case T_AM_PM:
206 		free((char *)tm.am);
207 		tm.am = NULL;
208 		free((char *)tm.pm);
209 		tm.pm = NULL;
210 		break;
211 	}
212 }
213 
214 
215 void
dump_time(void)216 dump_time(void)
217 {
218 	FILE *f;
219 	int i;
220 
221 	if ((f = open_category()) == NULL) {
222 		return;
223 	}
224 
225 	for (i = 0; i < 12; i++) {
226 		if (putl_category(tm.mon[i], f) == EOF) {
227 			return;
228 		}
229 	}
230 	for (i = 0; i < 12; i++) {
231 		if (putl_category(tm.month[i], f) == EOF) {
232 			return;
233 		}
234 	}
235 	for (i = 0; i < 7; i++) {
236 		if (putl_category(tm.wday[i], f) == EOF) {
237 			return;
238 		}
239 	}
240 	for (i = 0; i < 7; i++) {
241 		if (putl_category(tm.weekday[i], f) == EOF) {
242 			return;
243 		}
244 	}
245 
246 	/*
247 	 * NOTE: If date_fmt is not specified, then we'll default to
248 	 * using the %c for date.  This is reasonable for most
249 	 * locales, although for reasons that I don't understand
250 	 * Solaris historically has had a separate format for date.
251 	 */
252 	if ((putl_category(tm.X_fmt, f) == EOF) ||
253 	    (putl_category(tm.x_fmt, f) == EOF) ||
254 	    (putl_category(tm.c_fmt, f) == EOF) ||
255 	    (putl_category(tm.am, f) == EOF) ||
256 	    (putl_category(tm.pm, f) == EOF) ||
257 	    (putl_category(tm.date_fmt ? tm.date_fmt : tm.c_fmt, f) == EOF) ||
258 	    (putl_category(tm.ampm_fmt, f) == EOF)) {
259 		return;
260 	}
261 	close_category(f);
262 }
263