projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Upgrade to Win32-0.37
[p5sagit/p5-mst-13.2.git] / ext / I18N / Langinfo / fallback / const-c.inc
CommitLineData
9968bb4b 1#define PERL_constant_NOTFOUND 1
2#define PERL_constant_NOTDEF 2
3#define PERL_constant_ISIV 3
4#define PERL_constant_ISNO 4
5#define PERL_constant_ISNV 5
6#define PERL_constant_ISPV 6
7#define PERL_constant_ISPVN 7
8#define PERL_constant_ISSV 8
9#define PERL_constant_ISUNDEF 9
10#define PERL_constant_ISUV 10
11#define PERL_constant_ISYES 11
12
13#ifndef NVTYPE
14typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
15#endif
16#ifndef aTHX_
17#define aTHX_ /* 5.6 or later define this for threading support. */
18#endif
19#ifndef pTHX_
20#define pTHX_ /* 5.6 or later define this for threading support. */
21#endif
22
23static int
24constant_5 (pTHX_ const char *name, IV *iv_return) {
25 /* When generated this function returned values for the list of names given
26 here. However, subsequent manual editing may have added or removed some.
27 DAY_1 DAY_2 DAY_3 DAY_4 DAY_5 DAY_6 DAY_7 D_FMT MON_1 MON_2 MON_3 MON_4
28 MON_5 MON_6 MON_7 MON_8 MON_9 NOSTR T_FMT */
29 /* Offset 4 gives the best switch position. */
30 switch (name[4]) {
31 case '1':
32 if (memEQ(name, "DAY_1", 5)) {
33 /* ^ */
34#if defined(DAY_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
35 *iv_return = DAY_1;
36 return PERL_constant_ISIV;
37#else
38 return PERL_constant_NOTDEF;
39#endif
40 }
41 if (memEQ(name, "MON_1", 5)) {
42 /* ^ */
43#if defined(MON_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
44 *iv_return = MON_1;
45 return PERL_constant_ISIV;
46#else
47 return PERL_constant_NOTDEF;
48#endif
49 }
50 break;
51 case '2':
52 if (memEQ(name, "DAY_2", 5)) {
53 /* ^ */
54#if defined(DAY_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
55 *iv_return = DAY_2;
56 return PERL_constant_ISIV;
57#else
58 return PERL_constant_NOTDEF;
59#endif
60 }
61 if (memEQ(name, "MON_2", 5)) {
62 /* ^ */
63#if defined(MON_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
64 *iv_return = MON_2;
65 return PERL_constant_ISIV;
66#else
67 return PERL_constant_NOTDEF;
68#endif
69 }
70 break;
71 case '3':
72 if (memEQ(name, "DAY_3", 5)) {
73 /* ^ */
74#if defined(DAY_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
75 *iv_return = DAY_3;
76 return PERL_constant_ISIV;
77#else
78 return PERL_constant_NOTDEF;
79#endif
80 }
81 if (memEQ(name, "MON_3", 5)) {
82 /* ^ */
83#if defined(MON_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
84 *iv_return = MON_3;
85 return PERL_constant_ISIV;
86#else
87 return PERL_constant_NOTDEF;
88#endif
89 }
90 break;
91 case '4':
92 if (memEQ(name, "DAY_4", 5)) {
93 /* ^ */
94#if defined(DAY_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
95 *iv_return = DAY_4;
96 return PERL_constant_ISIV;
97#else
98 return PERL_constant_NOTDEF;
99#endif
100 }
101 if (memEQ(name, "MON_4", 5)) {
102 /* ^ */
103#if defined(MON_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
104 *iv_return = MON_4;
105 return PERL_constant_ISIV;
106#else
107 return PERL_constant_NOTDEF;
108#endif
109 }
110 break;
111 case '5':
112 if (memEQ(name, "DAY_5", 5)) {
113 /* ^ */
114#if defined(DAY_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
115 *iv_return = DAY_5;
116 return PERL_constant_ISIV;
117#else
118 return PERL_constant_NOTDEF;
119#endif
120 }
121 if (memEQ(name, "MON_5", 5)) {
122 /* ^ */
123#if defined(MON_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
124 *iv_return = MON_5;
125 return PERL_constant_ISIV;
126#else
127 return PERL_constant_NOTDEF;
128#endif
129 }
130 break;
131 case '6':
132 if (memEQ(name, "DAY_6", 5)) {
133 /* ^ */
134#if defined(DAY_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
135 *iv_return = DAY_6;
136 return PERL_constant_ISIV;
137#else
138 return PERL_constant_NOTDEF;
139#endif
140 }
141 if (memEQ(name, "MON_6", 5)) {
142 /* ^ */
143#if defined(MON_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
144 *iv_return = MON_6;
145 return PERL_constant_ISIV;
146#else
147 return PERL_constant_NOTDEF;
148#endif
149 }
150 break;
151 case '7':
152 if (memEQ(name, "DAY_7", 5)) {
153 /* ^ */
154#if defined(DAY_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
155 *iv_return = DAY_7;
156 return PERL_constant_ISIV;
157#else
158 return PERL_constant_NOTDEF;
159#endif
160 }
161 if (memEQ(name, "MON_7", 5)) {
162 /* ^ */
163#if defined(MON_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
164 *iv_return = MON_7;
165 return PERL_constant_ISIV;
166#else
167 return PERL_constant_NOTDEF;
168#endif
169 }
170 break;
171 case '8':
172 if (memEQ(name, "MON_8", 5)) {
173 /* ^ */
174#if defined(MON_8) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
175 *iv_return = MON_8;
176 return PERL_constant_ISIV;
177#else
178 return PERL_constant_NOTDEF;
179#endif
180 }
181 break;
182 case '9':
183 if (memEQ(name, "MON_9", 5)) {
184 /* ^ */
185#if defined(MON_9) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
186 *iv_return = MON_9;
187 return PERL_constant_ISIV;
188#else
189 return PERL_constant_NOTDEF;
190#endif
191 }
192 break;
193 case 'R':
194 if (memEQ(name, "NOSTR", 5)) {
195 /* ^ */
196#if defined(NOSTR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
197 *iv_return = NOSTR;
198 return PERL_constant_ISIV;
199#else
200 return PERL_constant_NOTDEF;
201#endif
202 }
203 break;
204 case 'T':
205 if (memEQ(name, "D_FMT", 5)) {
206 /* ^ */
207#if defined(D_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
208 *iv_return = D_FMT;
209 return PERL_constant_ISIV;
210#else
211 return PERL_constant_NOTDEF;
212#endif
213 }
214 if (memEQ(name, "T_FMT", 5)) {
215 /* ^ */
216#if defined(T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
217 *iv_return = T_FMT;
218 return PERL_constant_ISIV;
219#else
220 return PERL_constant_NOTDEF;
221#endif
222 }
223 break;
224 }
225 return PERL_constant_NOTFOUND;
226}
227
228static int
229constant_6 (pTHX_ const char *name, IV *iv_return) {
230 /* When generated this function returned values for the list of names given
231 here. However, subsequent manual editing may have added or removed some.
232 AM_STR MON_10 MON_11 MON_12 NOEXPR PM_STR YESSTR */
233 /* Offset 0 gives the best switch position. */
234 switch (name[0]) {
235 case 'A':
236 if (memEQ(name, "AM_STR", 6)) {
237 /* ^ */
238#if defined(AM_STR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
239 *iv_return = AM_STR;
240 return PERL_constant_ISIV;
241#else
242 return PERL_constant_NOTDEF;
243#endif
244 }
245 break;
246 case 'M':
247 if (memEQ(name, "MON_10", 6)) {
248 /* ^ */
249#if defined(MON_10) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
250 *iv_return = MON_10;
251 return PERL_constant_ISIV;
252#else
253 return PERL_constant_NOTDEF;
254#endif
255 }
256 if (memEQ(name, "MON_11", 6)) {
257 /* ^ */
258#if defined(MON_11) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
259 *iv_return = MON_11;
260 return PERL_constant_ISIV;
261#else
262 return PERL_constant_NOTDEF;
263#endif
264 }
265 if (memEQ(name, "MON_12", 6)) {
266 /* ^ */
267#if defined(MON_12) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
268 *iv_return = MON_12;
269 return PERL_constant_ISIV;
270#else
271 return PERL_constant_NOTDEF;
272#endif
273 }
274 break;
275 case 'N':
276 if (memEQ(name, "NOEXPR", 6)) {
277 /* ^ */
278#if defined(NOEXPR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
279 *iv_return = NOEXPR;
280 return PERL_constant_ISIV;
281#else
282 return PERL_constant_NOTDEF;
283#endif
284 }
285 break;
286 case 'P':
287 if (memEQ(name, "PM_STR", 6)) {
288 /* ^ */
289#if defined(PM_STR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
290 *iv_return = PM_STR;
291 return PERL_constant_ISIV;
292#else
293 return PERL_constant_NOTDEF;
294#endif
295 }
296 break;
297 case 'Y':
298 if (memEQ(name, "YESSTR", 6)) {
299 /* ^ */
300#if defined(YESSTR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
301 *iv_return = YESSTR;
302 return PERL_constant_ISIV;
303#else
304 return PERL_constant_NOTDEF;
305#endif
306 }
307 break;
308 }
309 return PERL_constant_NOTFOUND;
310}
311
312static int
313constant_7 (pTHX_ const char *name, IV *iv_return) {
314 /* When generated this function returned values for the list of names given
315 here. However, subsequent manual editing may have added or removed some.
316 ABDAY_1 ABDAY_2 ABDAY_3 ABDAY_4 ABDAY_5 ABDAY_6 ABDAY_7 ABMON_1 ABMON_2
317 ABMON_3 ABMON_4 ABMON_5 ABMON_6 ABMON_7 ABMON_8 ABMON_9 CODESET D_T_FMT
318 THOUSEP YESEXPR */
319 /* Offset 6 gives the best switch position. */
320 switch (name[6]) {
321 case '1':
322 if (memEQ(name, "ABDAY_1", 7)) {
323 /* ^ */
324#if defined(ABDAY_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
325 *iv_return = ABDAY_1;
326 return PERL_constant_ISIV;
327#else
328 return PERL_constant_NOTDEF;
329#endif
330 }
331 if (memEQ(name, "ABMON_1", 7)) {
332 /* ^ */
333#if defined(ABMON_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
334 *iv_return = ABMON_1;
335 return PERL_constant_ISIV;
336#else
337 return PERL_constant_NOTDEF;
338#endif
339 }
340 break;
341 case '2':
342 if (memEQ(name, "ABDAY_2", 7)) {
343 /* ^ */
344#if defined(ABDAY_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
345 *iv_return = ABDAY_2;
346 return PERL_constant_ISIV;
347#else
348 return PERL_constant_NOTDEF;
349#endif
350 }
351 if (memEQ(name, "ABMON_2", 7)) {
352 /* ^ */
353#if defined(ABMON_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
354 *iv_return = ABMON_2;
355 return PERL_constant_ISIV;
356#else
357 return PERL_constant_NOTDEF;
358#endif
359 }
360 break;
361 case '3':
362 if (memEQ(name, "ABDAY_3", 7)) {
363 /* ^ */
364#if defined(ABDAY_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
365 *iv_return = ABDAY_3;
366 return PERL_constant_ISIV;
367#else
368 return PERL_constant_NOTDEF;
369#endif
370 }
371 if (memEQ(name, "ABMON_3", 7)) {
372 /* ^ */
373#if defined(ABMON_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
374 *iv_return = ABMON_3;
375 return PERL_constant_ISIV;
376#else
377 return PERL_constant_NOTDEF;
378#endif
379 }
380 break;
381 case '4':
382 if (memEQ(name, "ABDAY_4", 7)) {
383 /* ^ */
384#if defined(ABDAY_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
385 *iv_return = ABDAY_4;
386 return PERL_constant_ISIV;
387#else
388 return PERL_constant_NOTDEF;
389#endif
390 }
391 if (memEQ(name, "ABMON_4", 7)) {
392 /* ^ */
393#if defined(ABMON_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
394 *iv_return = ABMON_4;
395 return PERL_constant_ISIV;
396#else
397 return PERL_constant_NOTDEF;
398#endif
399 }
400 break;
401 case '5':
402 if (memEQ(name, "ABDAY_5", 7)) {
403 /* ^ */
404#if defined(ABDAY_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
405 *iv_return = ABDAY_5;
406 return PERL_constant_ISIV;
407#else
408 return PERL_constant_NOTDEF;
409#endif
410 }
411 if (memEQ(name, "ABMON_5", 7)) {
412 /* ^ */
413#if defined(ABMON_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
414 *iv_return = ABMON_5;
415 return PERL_constant_ISIV;
416#else
417 return PERL_constant_NOTDEF;
418#endif
419 }
420 break;
421 case '6':
422 if (memEQ(name, "ABDAY_6", 7)) {
423 /* ^ */
424#if defined(ABDAY_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
425 *iv_return = ABDAY_6;
426 return PERL_constant_ISIV;
427#else
428 return PERL_constant_NOTDEF;
429#endif
430 }
431 if (memEQ(name, "ABMON_6", 7)) {
432 /* ^ */
433#if defined(ABMON_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
434 *iv_return = ABMON_6;
435 return PERL_constant_ISIV;
436#else
437 return PERL_constant_NOTDEF;
438#endif
439 }
440 break;
441 case '7':
442 if (memEQ(name, "ABDAY_7", 7)) {
443 /* ^ */
444#if defined(ABDAY_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
445 *iv_return = ABDAY_7;
446 return PERL_constant_ISIV;
447#else
448 return PERL_constant_NOTDEF;
449#endif
450 }
451 if (memEQ(name, "ABMON_7", 7)) {
452 /* ^ */
453#if defined(ABMON_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
454 *iv_return = ABMON_7;
455 return PERL_constant_ISIV;
456#else
457 return PERL_constant_NOTDEF;
458#endif
459 }
460 break;
461 case '8':
462 if (memEQ(name, "ABMON_8", 7)) {
463 /* ^ */
464#if defined(ABMON_8) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
465 *iv_return = ABMON_8;
466 return PERL_constant_ISIV;
467#else
468 return PERL_constant_NOTDEF;
469#endif
470 }
471 break;
472 case '9':
473 if (memEQ(name, "ABMON_9", 7)) {
474 /* ^ */
475#if defined(ABMON_9) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
476 *iv_return = ABMON_9;
477 return PERL_constant_ISIV;
478#else
479 return PERL_constant_NOTDEF;
480#endif
481 }
482 break;
483 case 'P':
484 if (memEQ(name, "THOUSEP", 7)) {
485 /* ^ */
486#if defined(THOUSEP) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM) && defined(__SVR4_I386_ABI_L1__))
487 *iv_return = THOUSEP;
488 return PERL_constant_ISIV;
489#else
490 return PERL_constant_NOTDEF;
491#endif
492 }
493 break;
494 case 'R':
495 if (memEQ(name, "YESEXPR", 7)) {
496 /* ^ */
497#if defined(YESEXPR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
498 *iv_return = YESEXPR;
499 return PERL_constant_ISIV;
500#else
501 return PERL_constant_NOTDEF;
502#endif
503 }
504 break;
505 case 'T':
506 if (memEQ(name, "CODESET", 7)) {
507 /* ^ */
508#ifdef CODESET
509 *iv_return = CODESET;
510 return PERL_constant_ISIV;
511#else
512 return PERL_constant_NOTDEF;
513#endif
514 }
515 if (memEQ(name, "D_T_FMT", 7)) {
516 /* ^ */
517#if defined(D_T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
518 *iv_return = D_T_FMT;
519 return PERL_constant_ISIV;
520#else
521 return PERL_constant_NOTDEF;
522#endif
523 }
524 break;
525 }
526 return PERL_constant_NOTFOUND;
527}
528
529static int
530constant_8 (pTHX_ const char *name, IV *iv_return) {
531 /* When generated this function returned values for the list of names given
532 here. However, subsequent manual editing may have added or removed some.
533 ABMON_10 ABMON_11 ABMON_12 CRNCYSTR */
534 /* Offset 7 gives the best switch position. */
535 switch (name[7]) {
536 case '0':
537 if (memEQ(name, "ABMON_10", 8)) {
538 /* ^ */
539#if defined(ABMON_10) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
540 *iv_return = ABMON_10;
541 return PERL_constant_ISIV;
542#else
543 return PERL_constant_NOTDEF;
544#endif
545 }
546 break;
547 case '1':
548 if (memEQ(name, "ABMON_11", 8)) {
549 /* ^ */
550#if defined(ABMON_11) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
551 *iv_return = ABMON_11;
552 return PERL_constant_ISIV;
553#else
554 return PERL_constant_NOTDEF;
555#endif
556 }
557 break;
558 case '2':
559 if (memEQ(name, "ABMON_12", 8)) {
560 /* ^ */
561#if defined(ABMON_12) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
562 *iv_return = ABMON_12;
563 return PERL_constant_ISIV;
564#else
565 return PERL_constant_NOTDEF;
566#endif
567 }
568 break;
569 case 'R':
570 if (memEQ(name, "CRNCYSTR", 8)) {
571 /* ^ */
572#if defined(CRNCYSTR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM) && defined(__SVR4_I386_ABI_L1__))
573 *iv_return = CRNCYSTR;
574 return PERL_constant_ISIV;
575#else
576 return PERL_constant_NOTDEF;
577#endif
578 }
579 break;
580 }
581 return PERL_constant_NOTFOUND;
582}
583
584static int
585constant_9 (pTHX_ const char *name, IV *iv_return) {
586 /* When generated this function returned values for the list of names given
587 here. However, subsequent manual editing may have added or removed some.
588 ERA_D_FMT ERA_T_FMT RADIXCHAR */
589 /* Offset 4 gives the best switch position. */
590 switch (name[4]) {
591 case 'D':
592 if (memEQ(name, "ERA_D_FMT", 9)) {
593 /* ^ */
594#if defined(ERA_D_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
595 *iv_return = ERA_D_FMT;
596 return PERL_constant_ISIV;
597#else
598 return PERL_constant_NOTDEF;
599#endif
600 }
601 break;
602 case 'T':
603 if (memEQ(name, "ERA_T_FMT", 9)) {
604 /* ^ */
605#if defined(ERA_T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
606 *iv_return = ERA_T_FMT;
607 return PERL_constant_ISIV;
608#else
609 return PERL_constant_NOTDEF;
610#endif
611 }
612 break;
613 case 'X':
614 if (memEQ(name, "RADIXCHAR", 9)) {
615 /* ^ */
616#if defined(RADIXCHAR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM) && defined(__SVR4_I386_ABI_L1__))
617 *iv_return = RADIXCHAR;
618 return PERL_constant_ISIV;
619#else
620 return PERL_constant_NOTDEF;
621#endif
622 }
623 break;
624 }
625 return PERL_constant_NOTFOUND;
626}
627
628static int
629constant (pTHX_ const char *name, STRLEN len, IV *iv_return) {
630 /* Initially switch on the length of the name. */
631 /* When generated this function returned values for the list of names given
632 in this section of perl code. Rather than manually editing these functions
633 to add or remove constants, which would result in this comment and section
634 of code becoming inaccurate, we recommend that you edit this section of
635 code, and use it to regenerate a new set of constant functions which you
636 then use to replace the originals.
637
638 Regenerate these constant functions by feeding this entire source file to
639 perl -x
640
641#!/mnt/six/blead/15141/miniperl -w
642use ExtUtils::Constant qw (constant_types C_constant XS_constant);
643
644my $types = {map {($_, 1)} qw(IV)};
645my @names = (qw(CODESET),
646 {name=>"ABDAY_1", type=>"IV", macro=>["#if defined(ABDAY_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
647 {name=>"ABDAY_2", type=>"IV", macro=>["#if defined(ABDAY_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
648 {name=>"ABDAY_3", type=>"IV", macro=>["#if defined(ABDAY_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
649 {name=>"ABDAY_4", type=>"IV", macro=>["#if defined(ABDAY_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
650 {name=>"ABDAY_5", type=>"IV", macro=>["#if defined(ABDAY_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
651 {name=>"ABDAY_6", type=>"IV", macro=>["#if defined(ABDAY_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
652 {name=>"ABDAY_7", type=>"IV", macro=>["#if defined(ABDAY_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
653 {name=>"ABMON_1", type=>"IV", macro=>["#if defined(ABMON_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
654 {name=>"ABMON_10", type=>"IV", macro=>["#if defined(ABMON_10) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
655 {name=>"ABMON_11", type=>"IV", macro=>["#if defined(ABMON_11) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
656 {name=>"ABMON_12", type=>"IV", macro=>["#if defined(ABMON_12) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
657 {name=>"ABMON_2", type=>"IV", macro=>["#if defined(ABMON_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
658 {name=>"ABMON_3", type=>"IV", macro=>["#if defined(ABMON_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
659 {name=>"ABMON_4", type=>"IV", macro=>["#if defined(ABMON_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
660 {name=>"ABMON_5", type=>"IV", macro=>["#if defined(ABMON_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
661 {name=>"ABMON_6", type=>"IV", macro=>["#if defined(ABMON_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
662 {name=>"ABMON_7", type=>"IV", macro=>["#if defined(ABMON_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
663 {name=>"ABMON_8", type=>"IV", macro=>["#if defined(ABMON_8) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
664 {name=>"ABMON_9", type=>"IV", macro=>["#if defined(ABMON_9) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
665 {name=>"ALT_DIGITS", type=>"IV", macro=>["#if defined(ALT_DIGITS) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
666 {name=>"AM_STR", type=>"IV", macro=>["#if defined(AM_STR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
667 {name=>"CRNCYSTR", type=>"IV", macro=>["#if defined(CRNCYSTR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM) && defined(__SVR4_I386_ABI_L1__))\n", "#endif\n"]},
668 {name=>"DAY_1", type=>"IV", macro=>["#if defined(DAY_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
669 {name=>"DAY_2", type=>"IV", macro=>["#if defined(DAY_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
670 {name=>"DAY_3", type=>"IV", macro=>["#if defined(DAY_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
671 {name=>"DAY_4", type=>"IV", macro=>["#if defined(DAY_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
672 {name=>"DAY_5", type=>"IV", macro=>["#if defined(DAY_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
673 {name=>"DAY_6", type=>"IV", macro=>["#if defined(DAY_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
674 {name=>"DAY_7", type=>"IV", macro=>["#if defined(DAY_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
675 {name=>"D_FMT", type=>"IV", macro=>["#if defined(D_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
676 {name=>"D_T_FMT", type=>"IV", macro=>["#if defined(D_T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
677 {name=>"ERA", type=>"IV", macro=>["#if defined(ERA) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
678 {name=>"ERA_D_FMT", type=>"IV", macro=>["#if defined(ERA_D_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
679 {name=>"ERA_D_T_FMT", type=>"IV", macro=>["#if defined(ERA_D_T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
680 {name=>"ERA_T_FMT", type=>"IV", macro=>["#if defined(ERA_T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
681 {name=>"MON_1", type=>"IV", macro=>["#if defined(MON_1) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
682 {name=>"MON_10", type=>"IV", macro=>["#if defined(MON_10) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
683 {name=>"MON_11", type=>"IV", macro=>["#if defined(MON_11) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
684 {name=>"MON_12", type=>"IV", macro=>["#if defined(MON_12) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
685 {name=>"MON_2", type=>"IV", macro=>["#if defined(MON_2) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
686 {name=>"MON_3", type=>"IV", macro=>["#if defined(MON_3) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
687 {name=>"MON_4", type=>"IV", macro=>["#if defined(MON_4) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
688 {name=>"MON_5", type=>"IV", macro=>["#if defined(MON_5) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
689 {name=>"MON_6", type=>"IV", macro=>["#if defined(MON_6) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
690 {name=>"MON_7", type=>"IV", macro=>["#if defined(MON_7) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
691 {name=>"MON_8", type=>"IV", macro=>["#if defined(MON_8) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
692 {name=>"MON_9", type=>"IV", macro=>["#if defined(MON_9) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
693 {name=>"NOEXPR", type=>"IV", macro=>["#if defined(NOEXPR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
694 {name=>"NOSTR", type=>"IV", macro=>["#if defined(NOSTR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
695 {name=>"PM_STR", type=>"IV", macro=>["#if defined(PM_STR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
696 {name=>"RADIXCHAR", type=>"IV", macro=>["#if defined(RADIXCHAR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM) && defined(__SVR4_I386_ABI_L1__))\n", "#endif\n"]},
697 {name=>"THOUSEP", type=>"IV", macro=>["#if defined(THOUSEP) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM) && defined(__SVR4_I386_ABI_L1__))\n", "#endif\n"]},
698 {name=>"T_FMT", type=>"IV", macro=>["#if defined(T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
699 {name=>"T_FMT_AMPM", type=>"IV", macro=>["#if defined(T_FMT_AMPM) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
700 {name=>"YESEXPR", type=>"IV", macro=>["#if defined(YESEXPR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]},
701 {name=>"YESSTR", type=>"IV", macro=>["#if defined(YESSTR) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))\n", "#endif\n"]});
702
703print constant_types(); # macro defs
704foreach (C_constant ("I18N::Langinfo", 'constant', 'IV', $types, undef, 3, @names) ) {
705 print $_, "\n"; # C constant subs
706}
707print "#### XS Section:\n";
708print XS_constant ("I18N::Langinfo", $types);
709__END__
710 */
711
712 switch (len) {
713 case 3:
714 if (memEQ(name, "ERA", 3)) {
715#if defined(ERA) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
716 *iv_return = ERA;
717 return PERL_constant_ISIV;
718#else
719 return PERL_constant_NOTDEF;
720#endif
721 }
722 break;
723 case 5:
724 return constant_5 (aTHX_ name, iv_return);
725 break;
726 case 6:
727 return constant_6 (aTHX_ name, iv_return);
728 break;
729 case 7:
730 return constant_7 (aTHX_ name, iv_return);
731 break;
732 case 8:
733 return constant_8 (aTHX_ name, iv_return);
734 break;
735 case 9:
736 return constant_9 (aTHX_ name, iv_return);
737 break;
738 case 10:
739 /* Names all of length 10. */
740 /* ALT_DIGITS T_FMT_AMPM */
741 /* Offset 7 gives the best switch position. */
742 switch (name[7]) {
743 case 'I':
744 if (memEQ(name, "ALT_DIGITS", 10)) {
745 /* ^ */
746#if defined(ALT_DIGITS) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
747 *iv_return = ALT_DIGITS;
748 return PERL_constant_ISIV;
749#else
750 return PERL_constant_NOTDEF;
751#endif
752 }
753 break;
754 case 'M':
755 if (memEQ(name, "T_FMT_AMPM", 10)) {
756 /* ^ */
757#if defined(T_FMT_AMPM) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
758 *iv_return = T_FMT_AMPM;
759 return PERL_constant_ISIV;
760#else
761 return PERL_constant_NOTDEF;
762#endif
763 }
764 break;
765 }
766 break;
767 case 11:
768 if (memEQ(name, "ERA_D_T_FMT", 11)) {
769#if defined(ERA_D_T_FMT) || (defined(__GNU_LIBRARY__) && defined(_NL_ITEM))
770 *iv_return = ERA_D_T_FMT;
771 return PERL_constant_ISIV;
772#else
773 return PERL_constant_NOTDEF;
774#endif
775 }
776 break;
777 }
778 return PERL_constant_NOTFOUND;
779}
780
Unnamed repository; edit this file to name it for gitweb.