1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#include <locale.h>
#include <string.h>
#include <stdlib.h>
#include "_locale.h"
#include "_safety.h"
#include "_readonly.h"
/** get or set program locale **/
char * setlocale(int category, const char *locale)
{
static char *retname = NULL;
struct __locale_t *l = __get_locale();
int mask = 0;
char *name_to_return = NULL;
SIGNAL_SAFE(0);
if (retname == NULL) {
retname = __readonly(RO_ALLOC, "setlocale");
}
if (locale == NULL) {
switch (category) {
case LC_ALL:
name_to_return = l->all;
break;
case LC_COLLATE:
name_to_return = l->collate;
break;
case LC_CTYPE:
name_to_return = l->ctype;
break;
case LC_MONETARY:
name_to_return = l->monetary;
break;
case LC_NUMERIC:
name_to_return = l->numeric;
break;
case LC_TIME:
name_to_return = l->time;
break;
#ifdef LC_MESSAGES
case LC_MESSAGES:
name_to_return = l->messages;
break;
#endif
default:
return NULL;
}
} else {
switch (category) {
case LC_ALL: mask = LC_ALL_MASK; break;
case LC_COLLATE: mask = LC_COLLATE_MASK; break;
case LC_CTYPE: mask = LC_CTYPE_MASK; break;
case LC_MONETARY: mask = LC_MONETARY_MASK; break;
case LC_NUMERIC: mask = LC_NUMERIC_MASK; break;
case LC_TIME: mask = LC_TIME_MASK; break;
#ifdef LC_MESSAGES
case LC_MESSAGES: mask = LC_MESSAGES_MASK; break;
#endif
default: return NULL;
}
name_to_return = __load_locale(l, mask, locale);
}
__readonly(RO_UNLOCK, retname);
strcpy(retname, name_to_return);
__readonly(RO_LOCK, retname);
return retname;
}
CHECK_2(char *, NULL, setlocale, int, const char *)
/***
sets or retrieves the current global locale of the
program. The program locale has global effects of various operations, based
on ARGUMENT(category):
FLAG(CONSTANT(LC_COLLATE),
`Affects regular expression, and string collation.')
FLAG(CONSTANT(LC_CTYPE),
`Affects regular expressions, character classification, and character conversion.')
FLAG(CONSTANT(LC_MESSAGES),
`On POSIX systems, affects how message catalogs are found and the format
of affirmative and negative responses. The format of strings written
or returned by library functions may also be affected.')
FLAG(CONSTANT(LC_MONETARY),
`Affects functions that convert monetary values.')
FLAG(CONSTANT(LC_NUMERIC),
`Affects functions that convert non-monetary numeric valus.')
FLAG(CONSTANT(LC_TIME),
`Affects functions that convert time.')
Specifying CONSTANT(LC_ALL) for ARGUMENT(category) will change the current global locale
for all of the above categories.
Specifying CONSTANT(NULL) for ARGUMENT(locale) will not change anything, and will simply
return the current globale locale for ARGUMENT(category).
Specifying empty() for ARGUMENT(locale) will set ARGUMENT(category) to an
implementation-defined native environment.
All conformant systems support the locale(C), which is a minimal locale required
to support std(C).
All POSIX systems support the locale(POSIX), which is a minimal locale required
to support std(POSIX).
***/
/*
RETURN(CONSTANT(NULL), the request could not be honored)
RETURN(NONNULL, the current locale name for ARGUMENT(category))
IMPLEMENTATION(The native environment)
STDC(1)
*/
|
