ext/I18N/Langinfo/fallback/const-c.inc

   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
  14 typedef 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
  23 static int
  24 constant_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
 228 static int
 229 constant_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
 312 static int
 313 constant_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
 529 static int
 530 constant_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
 584 static int
 585 constant_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
 628 static int
 629 constant (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
 642 use ExtUtils::Constant qw (constant_types C_constant XS_constant);
 643
 644 my $types = {map {($_, 1)} qw(IV)};
 645 my @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
 703 print constant_types(); # macro defs
 704 foreach (C_constant ("I18N::Langinfo", 'constant', 'IV', $types, undef, 3, @names) ) {
 705     print $_, "\n"; # C constant subs
 706 }
 707 print "#### XS Section:\n";
 708 print 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