1/*-
2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
3 *
4 * Copyright (c) 2001 Alexey Zelkin <phantom@FreeBSD.org>
5 * Copyright (c) 1997 FreeBSD Inc.
6 * All rights reserved.
7 *
8 * Copyright (c) 2011 The FreeBSD Foundation
9 * All rights reserved.
10 * Portions of this software were developed by David Chisnall
11 * under sponsorship from the FreeBSD Foundation.
12 *
13 * Redistribution and use in source and binary forms, with or without
14 * modification, are permitted provided that the following conditions
15 * are met:
16 * 1. Redistributions of source code must retain the above copyright
17 *    notice, this list of conditions and the following disclaimer.
18 * 2. Redistributions in binary form must reproduce the above copyright
19 *    notice, this list of conditions and the following disclaimer in the
20 *    documentation and/or other materials provided with the distribution.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34
35#include <sys/cdefs.h>
36__FBSDID("$FreeBSD$");
37
38#include <stddef.h>
39
40#include "ldpart.h"
41#include "timelocal.h"
42
43struct xlocale_time {
44	struct xlocale_component header;
45	char *buffer;
46	struct lc_time_T locale;
47};
48
49struct xlocale_time __xlocale_global_time;
50
51#define	LCTIME_SIZE (sizeof(struct lc_time_T) / sizeof(char *))
52
53static const struct lc_time_T	_C_time_locale = {
54	{
55		"Jan", "Feb", "Mar", "Apr", "May", "Jun",
56		"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
57	}, {
58		"January", "February", "March", "April", "May", "June",
59		"July", "August", "September", "October", "November", "December"
60	}, {
61		"Sun", "Mon", "Tue", "Wed",
62		"Thu", "Fri", "Sat"
63	}, {
64		"Sunday", "Monday", "Tuesday", "Wednesday",
65		"Thursday", "Friday", "Saturday"
66	},
67
68	/* X_fmt */
69	"%H:%M:%S",
70
71	/*
72	 * x_fmt
73	 * Since the C language standard calls for
74	 * "date, using locale's date format," anything goes.
75	 * Using just numbers (as here) makes Quakers happier;
76	 * it's also compatible with SVR4.
77	 */
78	"%m/%d/%y",
79
80	/*
81	 * c_fmt
82	 */
83	"%a %b %e %H:%M:%S %Y",
84
85	/* am */
86	"AM",
87
88	/* pm */
89	"PM",
90
91	/* date_fmt */
92	"%a %b %e %H:%M:%S %Z %Y",
93
94	/* alt_month
95	 * Standalone months forms for %OB
96	 */
97	{
98		"January", "February", "March", "April", "May", "June",
99		"July", "August", "September", "October", "November", "December"
100	},
101
102	/* md_order
103	 * Month / day order in dates
104	 */
105	"md",
106
107	/* ampm_fmt
108	 * To determine 12-hour clock format time (empty, if N/A)
109	 */
110	"%I:%M:%S %p"
111};
112
113static void destruct_time(void *v)
114{
115	struct xlocale_time *l = v;
116	if (l->buffer)
117		free(l->buffer);
118	free(l);
119}
120
121#include <stdio.h>
122struct lc_time_T *
123__get_current_time_locale(locale_t loc)
124{
125	return (loc->using_time_locale
126		? &((struct xlocale_time *)loc->components[XLC_TIME])->locale
127		: (struct lc_time_T *)&_C_time_locale);
128}
129
130static int
131time_load_locale(struct xlocale_time *l, int *using_locale, const char *name)
132{
133	struct lc_time_T *time_locale = &l->locale;
134	return (__part_load_locale(name, using_locale,
135			&l->buffer, "LC_TIME",
136			LCTIME_SIZE, LCTIME_SIZE,
137			(const char **)time_locale));
138}
139int
140__time_load_locale(const char *name)
141{
142	return time_load_locale(&__xlocale_global_time,
143			&__xlocale_global_locale.using_time_locale, name);
144}
145void* __time_load(const char* name, locale_t loc)
146{
147	struct xlocale_time *new = calloc(sizeof(struct xlocale_time), 1);
148	new->header.header.destructor = destruct_time;
149	if (time_load_locale(new, &loc->using_time_locale, name) == _LDP_ERROR)
150	{
151		xlocale_release(new);
152		return NULL;
153	}
154	return new;
155}
156
157