nl_langinfo.c revision 78024 
1/*-
2 * Copyright (c) 2001 Alexey Zelkin
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 * SUCH DAMAGE.
25 *
26 * $FreeBSD: head/lib/libc/locale/nl_langinfo.c 78024 2001-06-10 23:22:31Z ache $
27 */
28
29#include <locale.h>
30#include <langinfo.h>
31#include <limits.h>
32#include <stdlib.h>
33#include <string.h>
34#include "../stdtime/timelocal.h"
35#include "lnumeric.h"
36#include "lmonetary.h"
37#include "lmessages.h"
38
39#define _REL(BASE) ((int)item-BASE)
40
41char *
42nl_langinfo(nl_item item) {
43
44   char *ret, *s, *cs;
45   static char *csym = NULL;
46
47   switch (item) {
48	case CODESET:
49		ret = "";
50		if ((s = setlocale(LC_CTYPE, NULL)) != NULL) {
51			if ((cs = strchr(s, '.')) != NULL)
52				ret = cs + 1;
53			else if (strcmp(s, "C") == 0 ||
54				 strcmp(s, "POSIX") == 0 ||
55				 strstr(s, "ASCII") != NULL)
56				ret = "US-ASCII";
57		}
58		break;
59	case D_T_FMT:
60		ret = (char *) __get_current_time_locale()->c_fmt;
61		break;
62	case D_FMT:
63		ret = (char *) __get_current_time_locale()->x_fmt;
64		break;
65	case T_FMT:
66		ret = (char *) __get_current_time_locale()->X_fmt;
67		break;
68	case T_FMT_AMPM:
69		ret = (char *) __get_current_time_locale()->ampm_fmt;
70		break;
71	case AM_STR:
72		ret = (char *) __get_current_time_locale()->am;
73		break;
74	case PM_STR:
75		ret = (char *) __get_current_time_locale()->pm;
76		break;
77	case DAY_1: case DAY_2: case DAY_3:
78	case DAY_4: case DAY_5: case DAY_6: case DAY_7:
79		ret = (char*) __get_current_time_locale()->weekday[_REL(DAY_1)];
80		break;
81	case ABDAY_1: case ABDAY_2: case ABDAY_3:
82	case ABDAY_4: case ABDAY_5: case ABDAY_6: case ABDAY_7:
83		ret = (char*) __get_current_time_locale()->wday[_REL(ABDAY_1)];
84		break;
85	case MON_1: case MON_2: case MON_3: case MON_4:
86	case MON_5: case MON_6: case MON_7: case MON_8:
87	case MON_9: case MON_10: case MON_11: case MON_12:
88		ret = (char*) __get_current_time_locale()->month[_REL(MON_1)];
89		break;
90	case ABMON_1: case ABMON_2: case ABMON_3: case ABMON_4:
91	case ABMON_5: case ABMON_6: case ABMON_7: case ABMON_8:
92	case ABMON_9: case ABMON_10: case ABMON_11: case ABMON_12:
93		ret = (char*) __get_current_time_locale()->mon[_REL(ABMON_1)];
94		break;
95	case ERA:
96		/* XXX: need to be implemented  */
97		ret = "";
98		break;
99	case ERA_D_FMT:
100		/* XXX: need to be implemented  */
101		ret = "";
102		break;
103	case ERA_D_T_FMT:
104		/* XXX: need to be implemented  */
105		ret = "";
106		break;
107	case ERA_T_FMT:
108		/* XXX: need to be implemented  */
109		ret = "";
110		break;
111	case ALT_DIGITS:
112		/* XXX: need to be implemented  */
113		ret = "";
114		break;
115	case RADIXCHAR:
116		ret = (char*) __get_current_numeric_locale()->decimal_point;
117		break;
118	case THOUSEP:
119		ret = (char*) __get_current_numeric_locale()->thousands_sep;
120		break;
121	case YESEXPR:
122		ret = (char*) __get_current_messages_locale()->yesexpr;
123		break;
124	case NOEXPR:
125		ret = (char*) __get_current_messages_locale()->noexpr;
126		break;
127	/* All items marked with LEGACY are available, but not recomended
128	 * by SUSv2 to be used in portable applications since they're subject
129	 * to remove in future specification editions
130	 */
131	case YESSTR:            /* LEGACY  */
132		ret = (char*) __get_current_messages_locale()->yesstr;
133		break;
134	case NOSTR:             /* LEGACY  */
135		ret = (char*) __get_current_messages_locale()->nostr;
136		break;
137	case CRNCYSTR:
138		ret = "";
139		cs = (char*) __get_current_monetary_locale()->currency_symbol;
140		if (*cs != '\0') {
141			char pos = localeconv()->p_cs_precedes;
142
143			if (pos == localeconv()->n_cs_precedes) {
144				char psn = '\0';
145
146				if (pos == CHAR_MAX) {
147					if (strcmp(cs, __get_current_monetary_locale()->mon_decimal_point) == 0)
148						psn = '.';
149				} else
150					psn = pos ? '-' : '+';
151				if (psn != '\0') {
152					int clen = strlen(cs);
153
154					if ((csym = reallocf(csym, clen + 2)) != NULL) {
155						*csym = psn;
156						strcpy(csym + 1, cs);
157						ret = csym;
158					}
159				}
160			}
161		}
162		break;
163	case D_MD_ORDER:        /* local extension */
164		ret = (char *) __get_current_time_locale()->md_order;
165		break;
166	default:
167		ret = "";
168   }
169   return (ret);
170}
171