1 /* Multithread-safety test for nl_langinfo().
2 Copyright (C) 2019-2023 Free Software Foundation, Inc.
3
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <https://www.gnu.org/licenses/>. */
16
17 /* Written by Bruno Haible <bruno@clisp.org>, 2019. */
18
19 #include <config.h>
20
21 /* Work around GCC bug 44511. */
22 #if 4 < __GNUC__ + (3 <= __GNUC_MINOR__)
23 # pragma GCC diagnostic ignored "-Wreturn-type"
24 #endif
25
26 #if USE_ISOC_THREADS || USE_POSIX_THREADS || USE_ISOC_AND_POSIX_THREADS || USE_WINDOWS_THREADS
27
28 /* Specification. */
29 #include <langinfo.h>
30
31 #include <locale.h>
32 #include <stdio.h>
33 #include <stdlib.h>
34 #include <string.h>
35 #include <time.h>
36
37 #include "glthread/thread.h"
38
39
40 /* Some common locale names. */
41
42 #if defined _WIN32 && !defined __CYGWIN__
43 # define ENGLISH "English_United States"
44 # define FRENCH "French_France"
45 # define GERMAN "German_Germany"
46 # define ENCODING ".1252"
47 #else
48 # define ENGLISH "en_US"
49 # define FRENCH "fr_FR"
50 # define GERMAN "de_DE"
51 # if defined __sgi
52 # define ENCODING ".ISO8859-15"
53 # elif defined __hpux
54 # define ENCODING ".utf8"
55 # else
56 # define ENCODING ".UTF-8"
57 # endif
58 #endif
59
60 static const char LOCALE1[] = ENGLISH ENCODING;
61 static const char LOCALE2[] = FRENCH ENCODING;
62 static const char LOCALE3[] = GERMAN ENCODING;
63
64 static char *expected1;
65
66 static void *
67 thread1_func (void *arg)
68 {
69 for (;;)
70 {
71 const char *value = nl_langinfo (CODESET);
72 if (strcmp (expected1, value) != 0)
73 {
74 fprintf (stderr, "thread1 disturbed by threadN!\n"); fflush (stderr);
75 abort ();
76 }
77 }
78
79 /*NOTREACHED*/
80 }
81
82 static char *expected2;
83
84 static void *
85 thread2_func (void *arg)
86 {
87 for (;;)
88 {
89 const char *value = nl_langinfo (PM_STR);
90 if (strcmp (expected2, value) != 0)
91 {
92 fprintf (stderr, "thread2 disturbed by threadN!\n"); fflush (stderr);
93 abort ();
94 }
95 }
96
97 /*NOTREACHED*/
98 }
99
100 static char *expected3;
101
102 static void *
103 thread3_func (void *arg)
104 {
105 for (;;)
106 {
107 const char *value = nl_langinfo (DAY_2);
108 if (strcmp (expected3, value) != 0)
109 {
110 fprintf (stderr, "thread3 disturbed by threadN!\n"); fflush (stderr);
111 abort ();
112 }
113 }
114
115 /*NOTREACHED*/
116 }
117
118 static char *expected4;
119
120 static void *
121 thread4_func (void *arg)
122 {
123 for (;;)
124 {
125 const char *value = nl_langinfo (ALTMON_2);
126 if (strcmp (expected4, value) != 0)
127 {
128 fprintf (stderr, "thread4 disturbed by threadN!\n"); fflush (stderr);
129 abort ();
130 }
131 }
132
133 /*NOTREACHED*/
134 }
135
136 static char *expected5;
137
138 static void *
139 thread5_func (void *arg)
140 {
141 for (;;)
142 {
143 const char *value = nl_langinfo (CRNCYSTR);
144 if (strcmp (expected5, value) != 0)
145 {
146 fprintf (stderr, "thread5 disturbed by threadN!\n"); fflush (stderr);
147 abort ();
148 }
149 }
150
151 /*NOTREACHED*/
152 }
153
154 static char *expected6;
155
156 static void *
157 thread6_func (void *arg)
158 {
159 for (;;)
160 {
161 const char *value = nl_langinfo (RADIXCHAR);
162 if (strcmp (expected6, value) != 0)
163 {
164 fprintf (stderr, "thread6 disturbed by threadN!\n"); fflush (stderr);
165 abort ();
166 }
167 }
168
169 /*NOTREACHED*/
170 }
171
172 static void *
173 threadN_func (void *arg)
174 {
175 for (;;)
176 {
177 nl_langinfo (CODESET); /* LC_CTYPE */ /* locale charmap */
178 nl_langinfo (AM_STR); /* LC_TIME */ /* locale -k am_pm */
179 nl_langinfo (PM_STR); /* LC_TIME */ /* locale -k am_pm */
180 nl_langinfo (DAY_2); /* LC_TIME */ /* locale -k day */
181 nl_langinfo (DAY_5); /* LC_TIME */ /* locale -k day */
182 nl_langinfo (ALTMON_2); /* LC_TIME */ /* locale -k alt_mon */
183 nl_langinfo (ALTMON_9); /* LC_TIME */ /* locale -k alt_mon */
184 nl_langinfo (CRNCYSTR); /* LC_MONETARY */ /* locale -k currency_symbol */
185 nl_langinfo (RADIXCHAR); /* LC_NUMERIC */ /* locale -k decimal_point */
186 nl_langinfo (THOUSEP); /* LC_NUMERIC */ /* locale -k thousands_sep */
187 }
188
189 /*NOTREACHED*/
190 }
191
192 int
193 main (int argc, char *argv[])
194 {
195 if (setlocale (LC_ALL, LOCALE1) == NULL)
196 {
197 fprintf (stderr, "Skipping test: LOCALE1 not recognized\n");
198 return 77;
199 }
200 if (setlocale (LC_MONETARY, LOCALE2) == NULL)
201 {
202 fprintf (stderr, "Skipping test: LOCALE2 not recognized\n");
203 return 77;
204 }
205 if (setlocale (LC_NUMERIC, LOCALE3) == NULL)
206 {
207 fprintf (stderr, "Skipping test: LOCALE3 not recognized\n");
208 return 77;
209 }
210
211 expected1 = strdup (nl_langinfo (CODESET));
212 expected2 = strdup (nl_langinfo (PM_STR));
213 expected3 = strdup (nl_langinfo (DAY_2));
214 expected4 = strdup (nl_langinfo (ALTMON_2));
215 expected5 = strdup (nl_langinfo (CRNCYSTR));
216 expected6 = strdup (nl_langinfo (RADIXCHAR));
217
218 /* Create the checker threads. */
219 gl_thread_create (thread1_func, NULL);
220 gl_thread_create (thread2_func, NULL);
221 gl_thread_create (thread3_func, NULL);
222 gl_thread_create (thread4_func, NULL);
223 gl_thread_create (thread5_func, NULL);
224 gl_thread_create (thread6_func, NULL);
225 /* Create the disturber thread. */
226 gl_thread_create (threadN_func, NULL);
227
228 /* Let them run for 2 seconds. */
229 {
230 struct timespec duration;
231 duration.tv_sec = (argc > 1 ? atoi (argv[1]) : 2);
232 duration.tv_nsec = 0;
233
234 nanosleep (&duration, NULL);
235 }
236
237 return 0;
238 }
239
240 #else
241
242 /* No multithreading available. */
243
244 #include <stdio.h>
245
246 int
247 main ()
248 {
249 fputs ("Skipping test: multithreading not enabled\n", stderr);
250 return 77;
251 }
252
253 #endif