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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
/* SPDX-License-Identifier: BSD-2-Clause */
#define _GNU_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <dirent.h>
#include <time.h>
#include <locale.h>
#include <langinfo.h>
#include <wchar.h>
struct lc_msg_t {
char locale[64];
char yesstr[256];
char nostr[256];
char yesexpr[256];
char noexpr[256];
} msg[512];
int mcnt = 0;
char *
xfrm_utf (const wchar_t *ws)
{
static char xfrm[256];
char *p = xfrm;
int wconst = 0;
while (*ws)
{
if (*ws < 0x80 && (!wconst || !wcschr (L"aAbBcCdDeEfF", *ws)))
{
*p++ = *ws;
wconst = 0;
}
else
{
p += sprintf (p, "\\x%04lx", *ws);
wconst = 1;
}
++ws;
}
*p = '\0';
return xfrm;
}
void
read_locale_messages (char *name)
{
char *nl;
char locale[64];
wchar_t nlbuf[256];
strcpy (locale, name);
nl = strchr (locale, '@');
if (nl)
stpcpy (stpcpy (nl, ".utf8"), strchr (name, '@'));
else
strcat (locale, ".utf8");
printf ("%s\n", locale);
setlocale (LC_ALL, locale);
strcpy (msg[mcnt].locale, name);
nl = nl_langinfo (YESSTR);
mbstowcs (nlbuf, nl, 256);
strcpy (msg[mcnt].yesstr, xfrm_utf (nlbuf));
nl = nl_langinfo (NOSTR);
mbstowcs (nlbuf, nl, 256);
strcpy (msg[mcnt].nostr, xfrm_utf (nlbuf));
nl = nl_langinfo (YESEXPR);
mbstowcs (nlbuf, nl, 256);
strcpy (msg[mcnt].yesexpr, xfrm_utf (nlbuf));
nl = nl_langinfo (NOEXPR);
mbstowcs (nlbuf, nl, 256);
strcpy (msg[mcnt].noexpr, xfrm_utf (nlbuf));
/* Serbian locale rename weirdness */
if (!strncmp (msg[mcnt].locale, "sr_RS", 5))
{
/* Create additional equivalent entry for the old locale sr_SP. */
++mcnt;
memcpy (&msg[mcnt], &msg[mcnt - 1], sizeof msg[mcnt]);
msg[mcnt].locale[3] = 'S';
msg[mcnt].locale[4] = 'P';
/* Create additional equivalent entry for sr_ME@latin missing in Linux. */
if (!strcmp (msg[mcnt].locale, "sr_SP@latin"))
{
++mcnt;
memcpy (&msg[mcnt], &msg[mcnt - 1], sizeof msg[mcnt]);
msg[mcnt].locale[3] = 'M';
msg[mcnt].locale[4] = 'E';
}
}
++mcnt;
}
int
locale_cmp (const void *a, const void *b)
{
struct lc_msg_t *la = (struct lc_msg_t *) a;
struct lc_msg_t *lb = (struct lc_msg_t *) b;
return strcmp (la->locale, lb->locale);
}
void
create_list ()
{
FILE *fp = fopen ("lc_msg.h", "w");
FILE *pp = popen ("rpm -q glibc", "r");
char vers[64];
int i;
struct tm *tm;
time_t tim;
char tstr[64];
fgets (vers, 64, pp);
pclose (pp);
if (strchr (vers, '\n'))
*strchr (vers, '\n') = '\0';
tim = time (NULL);
tm = gmtime (&tim);
strftime (tstr, 64, "%F", tm);
fprintf (fp,
"/* This struct of LC_MESSAGES data has been generated by fetching locale\n"
" data from a Linux system using %s on %s. */\n"
"\n"
"struct lc_msg_t\n"
"{\n"
" const char *locale;\n"
" const wchar_t *yesexpr;\n"
" const wchar_t *noexpr;\n"
" const wchar_t *yesstr;\n"
" const wchar_t *nostr;\n"
"};\n"
"\n"
"static struct lc_msg_t lc_msg[] =\n"
"{\n", vers, tstr);
qsort (msg, mcnt, sizeof (struct lc_msg_t), locale_cmp);
for (i = 0; i < mcnt; ++i)
fprintf (fp, " { \"%s\", L\"%s\", L\"%s\", L\"%s\", L\"%s\" },\n",
msg[i].locale,
msg[i].yesexpr, msg[i].noexpr,
msg[i].yesstr, msg[i].nostr);
fputs ("};\n", fp);
fclose (fp);
}
int
main ()
{
char name[32], *c;
FILE *pp;
pp = popen ("locale -a | grep -a '_' | fgrep -v .", "r");
if (!pp)
{
perror ("popen failed");
return 1;
}
while (fgets (name, 32, pp))
{
c = strchr (name, '\n');
if (c)
*c = '\0';
read_locale_messages (name);
}
pclose (pp);
create_list ();
return 0;
}
|
