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_3 (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 B50 B75 CS5 CS6 CS7 CS8 EIO EOF */ 28 /* Offset 2 gives the best switch position. */ 29 ###### switch (name[2]) { 30 case '0': 31 ###### if (name[0] == 'B' && name[1] == '5') { 32 #ifdef B50 33 ###### *iv_return = B50; 34 ###### return PERL_constant_ISIV; 35 #else 36 return PERL_constant_NOTDEF; 37 #endif 38 } 39 ###### break; 40 case '5': 41 ###### if (name[0] == 'B' && name[1] == '7') { 42 #ifdef B75 43 ###### *iv_return = B75; 44 ###### return PERL_constant_ISIV; 45 #else 46 return PERL_constant_NOTDEF; 47 #endif 48 } 49 ###### if (name[0] == 'C' && name[1] == 'S') { 50 #ifdef CS5 51 ###### *iv_return = CS5; 52 ###### return PERL_constant_ISIV; 53 #else 54 return PERL_constant_NOTDEF; 55 #endif 56 } 57 ###### break; 58 case '6': 59 ###### if (name[0] == 'C' && name[1] == 'S') { 60 #ifdef CS6 61 ###### *iv_return = CS6; 62 ###### return PERL_constant_ISIV; 63 #else 64 return PERL_constant_NOTDEF; 65 #endif 66 } 67 ###### break; 68 case '7': 69 ###### if (name[0] == 'C' && name[1] == 'S') { 70 #ifdef CS7 71 ###### *iv_return = CS7; 72 ###### return PERL_constant_ISIV; 73 #else 74 return PERL_constant_NOTDEF; 75 #endif 76 } 77 ###### break; 78 case '8': 79 ###### if (name[0] == 'C' && name[1] == 'S') { 80 #ifdef CS8 81 ###### *iv_return = CS8; 82 ###### return PERL_constant_ISIV; 83 #else 84 return PERL_constant_NOTDEF; 85 #endif 86 } 87 ###### break; 88 case 'F': 89 ###### if (name[0] == 'E' && name[1] == 'O') { 90 #ifdef EOF 91 ###### *iv_return = EOF; 92 ###### return PERL_constant_ISIV; 93 #else 94 return PERL_constant_NOTDEF; 95 #endif 96 } 97 ###### break; 98 case 'O': 99 ###### if (name[0] == 'E' && name[1] == 'I') { 100 #ifdef EIO 101 ###### *iv_return = EIO; 102 ###### return PERL_constant_ISIV; 103 #else 104 return PERL_constant_NOTDEF; 105 #endif 106 } 107 ###### break; 108 } 109 ###### return PERL_constant_NOTFOUND; 110 } 111 112 static int 113 ###### constant_4 (pTHX_ const char *name, IV *iv_return) { 114 /* When generated this function returned values for the list of names given 115 here. However, subsequent manual editing may have added or removed some. 116 B110 B134 B150 B200 B300 B600 ECHO EDOM F_OK ISIG IXON NCCS NULL R_OK VEOF 117 VEOL VMIN W_OK X_OK */ 118 /* Offset 1 gives the best switch position. */ 119 ###### switch (name[1]) { 120 case '1': 121 ###### if (memEQ(name, "B110", 4)) { 122 /* ^ */ 123 #ifdef B110 124 ###### *iv_return = B110; 125 ###### return PERL_constant_ISIV; 126 #else 127 return PERL_constant_NOTDEF; 128 #endif 129 } 130 ###### if (memEQ(name, "B134", 4)) { 131 /* ^ */ 132 #ifdef B134 133 ###### *iv_return = B134; 134 ###### return PERL_constant_ISIV; 135 #else 136 return PERL_constant_NOTDEF; 137 #endif 138 } 139 ###### if (memEQ(name, "B150", 4)) { 140 /* ^ */ 141 #ifdef B150 142 ###### *iv_return = B150; 143 ###### return PERL_constant_ISIV; 144 #else 145 return PERL_constant_NOTDEF; 146 #endif 147 } 148 ###### break; 149 case '2': 150 ###### if (memEQ(name, "B200", 4)) { 151 /* ^ */ 152 #ifdef B200 153 ###### *iv_return = B200; 154 ###### return PERL_constant_ISIV; 155 #else 156 return PERL_constant_NOTDEF; 157 #endif 158 } 159 ###### break; 160 case '3': 161 ###### if (memEQ(name, "B300", 4)) { 162 /* ^ */ 163 #ifdef B300 164 ###### *iv_return = B300; 165 ###### return PERL_constant_ISIV; 166 #else 167 return PERL_constant_NOTDEF; 168 #endif 169 } 170 ###### break; 171 case '6': 172 ###### if (memEQ(name, "B600", 4)) { 173 /* ^ */ 174 #ifdef B600 175 ###### *iv_return = B600; 176 ###### return PERL_constant_ISIV; 177 #else 178 return PERL_constant_NOTDEF; 179 #endif 180 } 181 ###### break; 182 case 'C': 183 ###### if (memEQ(name, "ECHO", 4)) { 184 /* ^ */ 185 #ifdef ECHO 186 ###### *iv_return = ECHO; 187 ###### return PERL_constant_ISIV; 188 #else 189 return PERL_constant_NOTDEF; 190 #endif 191 } 192 ###### if (memEQ(name, "NCCS", 4)) { 193 /* ^ */ 194 #ifdef NCCS 195 ###### *iv_return = NCCS; 196 ###### return PERL_constant_ISIV; 197 #else 198 return PERL_constant_NOTDEF; 199 #endif 200 } 201 ###### break; 202 case 'D': 203 ###### if (memEQ(name, "EDOM", 4)) { 204 /* ^ */ 205 #ifdef EDOM 206 ###### *iv_return = EDOM; 207 ###### return PERL_constant_ISIV; 208 #else 209 return PERL_constant_NOTDEF; 210 #endif 211 } 212 ###### break; 213 case 'E': 214 ###### if (memEQ(name, "VEOF", 4)) { 215 /* ^ */ 216 #ifdef VEOF 217 ###### *iv_return = VEOF; 218 ###### return PERL_constant_ISIV; 219 #else 220 return PERL_constant_NOTDEF; 221 #endif 222 } 223 ###### if (memEQ(name, "VEOL", 4)) { 224 /* ^ */ 225 #ifdef VEOL 226 ###### *iv_return = VEOL; 227 ###### return PERL_constant_ISIV; 228 #else 229 return PERL_constant_NOTDEF; 230 #endif 231 } 232 ###### break; 233 case 'M': 234 ###### if (memEQ(name, "VMIN", 4)) { 235 /* ^ */ 236 #ifdef VMIN 237 ###### *iv_return = VMIN; 238 ###### return PERL_constant_ISIV; 239 #else 240 return PERL_constant_NOTDEF; 241 #endif 242 } 243 ###### break; 244 case 'S': 245 ###### if (memEQ(name, "ISIG", 4)) { 246 /* ^ */ 247 #ifdef ISIG 248 ###### *iv_return = ISIG; 249 ###### return PERL_constant_ISIV; 250 #else 251 return PERL_constant_NOTDEF; 252 #endif 253 } 254 ###### break; 255 case 'U': 256 ###### if (memEQ(name, "NULL", 4)) { 257 /* ^ */ 258 #ifdef NULL 259 ###### *iv_return = 0; 260 ###### return PERL_constant_ISIV; 261 #else 262 return PERL_constant_NOTDEF; 263 #endif 264 } 265 ###### break; 266 case 'X': 267 ###### if (memEQ(name, "IXON", 4)) { 268 /* ^ */ 269 #ifdef IXON 270 ###### *iv_return = IXON; 271 ###### return PERL_constant_ISIV; 272 #else 273 return PERL_constant_NOTDEF; 274 #endif 275 } 276 ###### break; 277 case '_': 278 ###### if (memEQ(name, "F_OK", 4)) { 279 /* ^ */ 280 #ifdef F_OK 281 ###### *iv_return = F_OK; 282 ###### return PERL_constant_ISIV; 283 #else 284 return PERL_constant_NOTDEF; 285 #endif 286 } 287 ###### if (memEQ(name, "R_OK", 4)) { 288 /* ^ */ 289 #ifdef R_OK 290 ###### *iv_return = R_OK; 291 ###### return PERL_constant_ISIV; 292 #else 293 return PERL_constant_NOTDEF; 294 #endif 295 } 296 ###### if (memEQ(name, "W_OK", 4)) { 297 /* ^ */ 298 #ifdef W_OK 299 ###### *iv_return = W_OK; 300 ###### return PERL_constant_ISIV; 301 #else 302 return PERL_constant_NOTDEF; 303 #endif 304 } 305 ###### if (memEQ(name, "X_OK", 4)) { 306 /* ^ */ 307 #ifdef X_OK 308 ###### *iv_return = X_OK; 309 ###### return PERL_constant_ISIV; 310 #else 311 return PERL_constant_NOTDEF; 312 #endif 313 } 314 ###### break; 315 } 316 ###### return PERL_constant_NOTFOUND; 317 } 318 319 static int 320 ###### constant_5 (pTHX_ const char *name, IV *iv_return) { 321 /* When generated this function returned values for the list of names given 322 here. However, subsequent manual editing may have added or removed some. 323 B1200 B1800 B2400 B4800 B9600 CREAD CSIZE E2BIG EBADF EBUSY ECHOE ECHOK 324 EFBIG EINTR ELOOP ENXIO EPERM EPIPE EROFS ESRCH EXDEV HUPCL ICRNL IGNCR 325 INLCR INPCK IXOFF OPOST TCION TCOON VINTR VKILL VQUIT VSTOP VSUSP VTIME */ 326 /* Offset 1 gives the best switch position. */ 327 ###### switch (name[1]) { 328 case '1': 329 ###### if (memEQ(name, "B1200", 5)) { 330 /* ^ */ 331 #ifdef B1200 332 ###### *iv_return = B1200; 333 ###### return PERL_constant_ISIV; 334 #else 335 return PERL_constant_NOTDEF; 336 #endif 337 } 338 ###### if (memEQ(name, "B1800", 5)) { 339 /* ^ */ 340 #ifdef B1800 341 ###### *iv_return = B1800; 342 ###### return PERL_constant_ISIV; 343 #else 344 return PERL_constant_NOTDEF; 345 #endif 346 } 347 ###### break; 348 case '2': 349 ###### if (memEQ(name, "B2400", 5)) { 350 /* ^ */ 351 #ifdef B2400 352 ###### *iv_return = B2400; 353 ###### return PERL_constant_ISIV; 354 #else 355 return PERL_constant_NOTDEF; 356 #endif 357 } 358 ###### if (memEQ(name, "E2BIG", 5)) { 359 /* ^ */ 360 #ifdef E2BIG 361 ###### *iv_return = E2BIG; 362 ###### return PERL_constant_ISIV; 363 #else 364 return PERL_constant_NOTDEF; 365 #endif 366 } 367 ###### break; 368 case '4': 369 ###### if (memEQ(name, "B4800", 5)) { 370 /* ^ */ 371 #ifdef B4800 372 ###### *iv_return = B4800; 373 ###### return PERL_constant_ISIV; 374 #else 375 return PERL_constant_NOTDEF; 376 #endif 377 } 378 ###### break; 379 case '9': 380 ###### if (memEQ(name, "B9600", 5)) { 381 /* ^ */ 382 #ifdef B9600 383 ###### *iv_return = B9600; 384 ###### return PERL_constant_ISIV; 385 #else 386 return PERL_constant_NOTDEF; 387 #endif 388 } 389 ###### break; 390 case 'B': 391 ###### if (memEQ(name, "EBADF", 5)) { 392 /* ^ */ 393 #ifdef EBADF 394 ###### *iv_return = EBADF; 395 ###### return PERL_constant_ISIV; 396 #else 397 return PERL_constant_NOTDEF; 398 #endif 399 } 400 ###### if (memEQ(name, "EBUSY", 5)) { 401 /* ^ */ 402 #ifdef EBUSY 403 ###### *iv_return = EBUSY; 404 ###### return PERL_constant_ISIV; 405 #else 406 return PERL_constant_NOTDEF; 407 #endif 408 } 409 ###### break; 410 case 'C': 411 ###### if (memEQ(name, "ECHOE", 5)) { 412 /* ^ */ 413 #ifdef ECHOE 414 ###### *iv_return = ECHOE; 415 ###### return PERL_constant_ISIV; 416 #else 417 return PERL_constant_NOTDEF; 418 #endif 419 } 420 ###### if (memEQ(name, "ECHOK", 5)) { 421 /* ^ */ 422 #ifdef ECHOK 423 ###### *iv_return = ECHOK; 424 ###### return PERL_constant_ISIV; 425 #else 426 return PERL_constant_NOTDEF; 427 #endif 428 } 429 ###### if (memEQ(name, "ICRNL", 5)) { 430 /* ^ */ 431 #ifdef ICRNL 432 ###### *iv_return = ICRNL; 433 ###### return PERL_constant_ISIV; 434 #else 435 return PERL_constant_NOTDEF; 436 #endif 437 } 438 ###### if (memEQ(name, "TCION", 5)) { 439 /* ^ */ 440 #ifdef TCION 441 ###### *iv_return = TCION; 442 ###### return PERL_constant_ISIV; 443 #else 444 return PERL_constant_NOTDEF; 445 #endif 446 } 447 ###### if (memEQ(name, "TCOON", 5)) { 448 /* ^ */ 449 #ifdef TCOON 450 ###### *iv_return = TCOON; 451 ###### return PERL_constant_ISIV; 452 #else 453 return PERL_constant_NOTDEF; 454 #endif 455 } 456 ###### break; 457 case 'F': 458 ###### if (memEQ(name, "EFBIG", 5)) { 459 /* ^ */ 460 #ifdef EFBIG 461 ###### *iv_return = EFBIG; 462 ###### return PERL_constant_ISIV; 463 #else 464 return PERL_constant_NOTDEF; 465 #endif 466 } 467 ###### break; 468 case 'G': 469 ###### if (memEQ(name, "IGNCR", 5)) { 470 /* ^ */ 471 #ifdef IGNCR 472 ###### *iv_return = IGNCR; 473 ###### return PERL_constant_ISIV; 474 #else 475 return PERL_constant_NOTDEF; 476 #endif 477 } 478 ###### break; 479 case 'I': 480 ###### if (memEQ(name, "EINTR", 5)) { 481 /* ^ */ 482 #ifdef EINTR 483 ###### *iv_return = EINTR; 484 ###### return PERL_constant_ISIV; 485 #else 486 return PERL_constant_NOTDEF; 487 #endif 488 } 489 ###### if (memEQ(name, "VINTR", 5)) { 490 /* ^ */ 491 #ifdef VINTR 492 ###### *iv_return = VINTR; 493 ###### return PERL_constant_ISIV; 494 #else 495 return PERL_constant_NOTDEF; 496 #endif 497 } 498 ###### break; 499 case 'K': 500 ###### if (memEQ(name, "VKILL", 5)) { 501 /* ^ */ 502 #ifdef VKILL 503 ###### *iv_return = VKILL; 504 ###### return PERL_constant_ISIV; 505 #else 506 return PERL_constant_NOTDEF; 507 #endif 508 } 509 ###### break; 510 case 'L': 511 ###### if (memEQ(name, "ELOOP", 5)) { 512 /* ^ */ 513 #ifdef ELOOP 514 ###### *iv_return = ELOOP; 515 ###### return PERL_constant_ISIV; 516 #else 517 return PERL_constant_NOTDEF; 518 #endif 519 } 520 ###### break; 521 case 'N': 522 ###### if (memEQ(name, "ENXIO", 5)) { 523 /* ^ */ 524 #ifdef ENXIO 525 ###### *iv_return = ENXIO; 526 ###### return PERL_constant_ISIV; 527 #else 528 return PERL_constant_NOTDEF; 529 #endif 530 } 531 ###### if (memEQ(name, "INLCR", 5)) { 532 /* ^ */ 533 #ifdef INLCR 534 ###### *iv_return = INLCR; 535 ###### return PERL_constant_ISIV; 536 #else 537 return PERL_constant_NOTDEF; 538 #endif 539 } 540 ###### if (memEQ(name, "INPCK", 5)) { 541 /* ^ */ 542 #ifdef INPCK 543 ###### *iv_return = INPCK; 544 ###### return PERL_constant_ISIV; 545 #else 546 return PERL_constant_NOTDEF; 547 #endif 548 } 549 ###### break; 550 case 'P': 551 ###### if (memEQ(name, "EPERM", 5)) { 552 /* ^ */ 553 #ifdef EPERM 554 ###### *iv_return = EPERM; 555 ###### return PERL_constant_ISIV; 556 #else 557 return PERL_constant_NOTDEF; 558 #endif 559 } 560 ###### if (memEQ(name, "EPIPE", 5)) { 561 /* ^ */ 562 #ifdef EPIPE 563 ###### *iv_return = EPIPE; 564 ###### return PERL_constant_ISIV; 565 #else 566 return PERL_constant_NOTDEF; 567 #endif 568 } 569 ###### if (memEQ(name, "OPOST", 5)) { 570 /* ^ */ 571 #ifdef OPOST 572 ###### *iv_return = OPOST; 573 ###### return PERL_constant_ISIV; 574 #else 575 return PERL_constant_NOTDEF; 576 #endif 577 } 578 ###### break; 579 case 'Q': 580 ###### if (memEQ(name, "VQUIT", 5)) { 581 /* ^ */ 582 #ifdef VQUIT 583 ###### *iv_return = VQUIT; 584 ###### return PERL_constant_ISIV; 585 #else 586 return PERL_constant_NOTDEF; 587 #endif 588 } 589 ###### break; 590 case 'R': 591 ###### if (memEQ(name, "CREAD", 5)) { 592 /* ^ */ 593 #ifdef CREAD 594 ###### *iv_return = CREAD; 595 ###### return PERL_constant_ISIV; 596 #else 597 return PERL_constant_NOTDEF; 598 #endif 599 } 600 ###### if (memEQ(name, "EROFS", 5)) { 601 /* ^ */ 602 #ifdef EROFS 603 ###### *iv_return = EROFS; 604 ###### return PERL_constant_ISIV; 605 #else 606 return PERL_constant_NOTDEF; 607 #endif 608 } 609 ###### break; 610 case 'S': 611 ###### if (memEQ(name, "CSIZE", 5)) { 612 /* ^ */ 613 #ifdef CSIZE 614 ###### *iv_return = CSIZE; 615 ###### return PERL_constant_ISIV; 616 #else 617 return PERL_constant_NOTDEF; 618 #endif 619 } 620 ###### if (memEQ(name, "ESRCH", 5)) { 621 /* ^ */ 622 #ifdef ESRCH 623 ###### *iv_return = ESRCH; 624 ###### return PERL_constant_ISIV; 625 #else 626 return PERL_constant_NOTDEF; 627 #endif 628 } 629 ###### if (memEQ(name, "VSTOP", 5)) { 630 /* ^ */ 631 #ifdef VSTOP 632 ###### *iv_return = VSTOP; 633 ###### return PERL_constant_ISIV; 634 #else 635 return PERL_constant_NOTDEF; 636 #endif 637 } 638 ###### if (memEQ(name, "VSUSP", 5)) { 639 /* ^ */ 640 #ifdef VSUSP 641 ###### *iv_return = VSUSP; 642 ###### return PERL_constant_ISIV; 643 #else 644 return PERL_constant_NOTDEF; 645 #endif 646 } 647 ###### break; 648 case 'T': 649 ###### if (memEQ(name, "VTIME", 5)) { 650 /* ^ */ 651 #ifdef VTIME 652 ###### *iv_return = VTIME; 653 ###### return PERL_constant_ISIV; 654 #else 655 return PERL_constant_NOTDEF; 656 #endif 657 } 658 ###### break; 659 case 'U': 660 ###### if (memEQ(name, "HUPCL", 5)) { 661 /* ^ */ 662 #ifdef HUPCL 663 ###### *iv_return = HUPCL; 664 ###### return PERL_constant_ISIV; 665 #else 666 return PERL_constant_NOTDEF; 667 #endif 668 } 669 ###### break; 670 case 'X': 671 ###### if (memEQ(name, "EXDEV", 5)) { 672 /* ^ */ 673 #ifdef EXDEV 674 ###### *iv_return = EXDEV; 675 ###### return PERL_constant_ISIV; 676 #else 677 return PERL_constant_NOTDEF; 678 #endif 679 } 680 ###### if (memEQ(name, "IXOFF", 5)) { 681 /* ^ */ 682 #ifdef IXOFF 683 ###### *iv_return = IXOFF; 684 ###### return PERL_constant_ISIV; 685 #else 686 return PERL_constant_NOTDEF; 687 #endif 688 } 689 ###### break; 690 } 691 ###### return PERL_constant_NOTFOUND; 692 } 693 694 static int 695 7 constant_6 (pTHX_ const char *name, IV *iv_return) { 696 /* When generated this function returned values for the list of names given 697 here. However, subsequent manual editing may have added or removed some. 698 B19200 B38400 BRKINT BUFSIZ CLOCAL CSTOPB EACCES EAGAIN ECHILD ECHONL 699 EDQUOT EEXIST EFAULT EINVAL EISDIR EMFILE EMLINK ENFILE ENODEV ENOENT 700 ENOLCK ENOMEM ENOSPC ENOSYS ENOTTY ERANGE ESPIPE ESTALE EUSERS ICANON 701 IEXTEN IGNBRK IGNPAR ISTRIP LC_ALL NOFLSH O_EXCL O_RDWR PARENB PARMRK 702 PARODD SIGFPE SIGHUP SIGILL SIGINT TCIOFF TCOOFF TOSTOP VERASE VSTART */ 703 /* Offset 3 gives the best switch position. */ 704 7 switch (name[3]) { 705 case '2': 706 ###### if (memEQ(name, "B19200", 6)) { 707 /* ^ */ 708 #ifdef B19200 709 ###### *iv_return = B19200; 710 ###### return PERL_constant_ISIV; 711 #else 712 return PERL_constant_NOTDEF; 713 #endif 714 } 715 ###### break; 716 case '4': 717 ###### if (memEQ(name, "B38400", 6)) { 718 /* ^ */ 719 #ifdef B38400 720 ###### *iv_return = B38400; 721 ###### return PERL_constant_ISIV; 722 #else 723 return PERL_constant_NOTDEF; 724 #endif 725 } 726 5 break; 727 case 'A': 728 5 if (memEQ(name, "EAGAIN", 6)) { 729 /* ^ */ 730 #ifdef EAGAIN 731 2 *iv_return = EAGAIN; 732 2 return PERL_constant_ISIV; 733 #else 734 return PERL_constant_NOTDEF; 735 #endif 736 } 737 3 if (memEQ(name, "ESTALE", 6)) { 738 /* ^ */ 739 #ifdef ESTALE 740 ###### *iv_return = ESTALE; 741 ###### return PERL_constant_ISIV; 742 #else 743 return PERL_constant_NOTDEF; 744 #endif 745 } 746 3 if (memEQ(name, "LC_ALL", 6)) { 747 /* ^ */ 748 #ifdef LC_ALL 749 3 *iv_return = LC_ALL; 750 3 return PERL_constant_ISIV; 751 #else 752 return PERL_constant_NOTDEF; 753 #endif 754 } 755 ###### if (memEQ(name, "VERASE", 6)) { 756 /* ^ */ 757 #ifdef VERASE 758 ###### *iv_return = VERASE; 759 ###### return PERL_constant_ISIV; 760 #else 761 return PERL_constant_NOTDEF; 762 #endif 763 } 764 ###### if (memEQ(name, "VSTART", 6)) { 765 /* ^ */ 766 #ifdef VSTART 767 ###### *iv_return = VSTART; 768 ###### return PERL_constant_ISIV; 769 #else 770 return PERL_constant_NOTDEF; 771 #endif 772 } 773 ###### break; 774 case 'B': 775 ###### if (memEQ(name, "IGNBRK", 6)) { 776 /* ^ */ 777 #ifdef IGNBRK 778 ###### *iv_return = IGNBRK; 779 ###### return PERL_constant_ISIV; 780 #else 781 return PERL_constant_NOTDEF; 782 #endif 783 } 784 ###### break; 785 case 'C': 786 ###### if (memEQ(name, "CLOCAL", 6)) { 787 /* ^ */ 788 #ifdef CLOCAL 789 ###### *iv_return = CLOCAL; 790 ###### return PERL_constant_ISIV; 791 #else 792 return PERL_constant_NOTDEF; 793 #endif 794 } 795 ###### if (memEQ(name, "EACCES", 6)) { 796 /* ^ */ 797 #ifdef EACCES 798 ###### *iv_return = EACCES; 799 ###### return PERL_constant_ISIV; 800 #else 801 return PERL_constant_NOTDEF; 802 #endif 803 } 804 ###### break; 805 case 'D': 806 ###### if (memEQ(name, "EISDIR", 6)) { 807 /* ^ */ 808 #ifdef EISDIR 809 ###### *iv_return = EISDIR; 810 ###### return PERL_constant_ISIV; 811 #else 812 return PERL_constant_NOTDEF; 813 #endif 814 } 815 ###### if (memEQ(name, "ENODEV", 6)) { 816 /* ^ */ 817 #ifdef ENODEV 818 ###### *iv_return = ENODEV; 819 ###### return PERL_constant_ISIV; 820 #else 821 return PERL_constant_NOTDEF; 822 #endif 823 } 824 ###### if (memEQ(name, "O_RDWR", 6)) { 825 /* ^ */ 826 #ifdef O_RDWR 827 ###### *iv_return = O_RDWR; 828 ###### return PERL_constant_ISIV; 829 #else 830 return PERL_constant_NOTDEF; 831 #endif 832 } 833 ###### break; 834 case 'E': 835 ###### if (memEQ(name, "ENOENT", 6)) { 836 /* ^ */ 837 #ifdef ENOENT 838 ###### *iv_return = ENOENT; 839 ###### return PERL_constant_ISIV; 840 #else 841 return PERL_constant_NOTDEF; 842 #endif 843 } 844 ###### if (memEQ(name, "EUSERS", 6)) { 845 /* ^ */ 846 #ifdef EUSERS 847 ###### *iv_return = EUSERS; 848 ###### return PERL_constant_ISIV; 849 #else 850 return PERL_constant_NOTDEF; 851 #endif 852 } 853 ###### if (memEQ(name, "PARENB", 6)) { 854 /* ^ */ 855 #ifdef PARENB 856 ###### *iv_return = PARENB; 857 ###### return PERL_constant_ISIV; 858 #else 859 return PERL_constant_NOTDEF; 860 #endif 861 } 862 ###### break; 863 case 'F': 864 ###### if (memEQ(name, "SIGFPE", 6)) { 865 /* ^ */ 866 #ifdef SIGFPE 867 ###### *iv_return = SIGFPE; 868 ###### return PERL_constant_ISIV; 869 #else 870 return PERL_constant_NOTDEF; 871 #endif 872 } 873 1 break; 874 case 'H': 875 1 if (memEQ(name, "SIGHUP", 6)) { 876 /* ^ */ 877 #ifdef SIGHUP 878 1 *iv_return = SIGHUP; 879 1 return PERL_constant_ISIV; 880 #else 881 return PERL_constant_NOTDEF; 882 #endif 883 } 884 1 break; 885 case 'I': 886 1 if (memEQ(name, "BRKINT", 6)) { 887 /* ^ */ 888 #ifdef BRKINT 889 ###### *iv_return = BRKINT; 890 ###### return PERL_constant_ISIV; 891 #else 892 return PERL_constant_NOTDEF; 893 #endif 894 } 895 1 if (memEQ(name, "ECHILD", 6)) { 896 /* ^ */ 897 #ifdef ECHILD 898 ###### *iv_return = ECHILD; 899 ###### return PERL_constant_ISIV; 900 #else 901 return PERL_constant_NOTDEF; 902 #endif 903 } 904 1 if (memEQ(name, "EEXIST", 6)) { 905 /* ^ */ 906 #ifdef EEXIST 907 ###### *iv_return = EEXIST; 908 ###### return PERL_constant_ISIV; 909 #else 910 return PERL_constant_NOTDEF; 911 #endif 912 } 913 1 if (memEQ(name, "EMFILE", 6)) { 914 /* ^ */ 915 #ifdef EMFILE 916 ###### *iv_return = EMFILE; 917 ###### return PERL_constant_ISIV; 918 #else 919 return PERL_constant_NOTDEF; 920 #endif 921 } 922 1 if (memEQ(name, "EMLINK", 6)) { 923 /* ^ */ 924 #ifdef EMLINK 925 ###### *iv_return = EMLINK; 926 ###### return PERL_constant_ISIV; 927 #else 928 return PERL_constant_NOTDEF; 929 #endif 930 } 931 1 if (memEQ(name, "ENFILE", 6)) { 932 /* ^ */ 933 #ifdef ENFILE 934 ###### *iv_return = ENFILE; 935 ###### return PERL_constant_ISIV; 936 #else 937 return PERL_constant_NOTDEF; 938 #endif 939 } 940 1 if (memEQ(name, "ESPIPE", 6)) { 941 /* ^ */ 942 #ifdef ESPIPE 943 ###### *iv_return = ESPIPE; 944 ###### return PERL_constant_ISIV; 945 #else 946 return PERL_constant_NOTDEF; 947 #endif 948 } 949 1 if (memEQ(name, "SIGILL", 6)) { 950 /* ^ */ 951 #ifdef SIGILL 952 ###### *iv_return = SIGILL; 953 ###### return PERL_constant_ISIV; 954 #else 955 return PERL_constant_NOTDEF; 956 #endif 957 } 958 1 if (memEQ(name, "SIGINT", 6)) { 959 /* ^ */ 960 #ifdef SIGINT 961 1 *iv_return = SIGINT; 962 1 return PERL_constant_ISIV; 963 #else 964 return PERL_constant_NOTDEF; 965 #endif 966 } 967 ###### break; 968 case 'L': 969 ###### if (memEQ(name, "ENOLCK", 6)) { 970 /* ^ */ 971 #ifdef ENOLCK 972 ###### *iv_return = ENOLCK; 973 ###### return PERL_constant_ISIV; 974 #else 975 return PERL_constant_NOTDEF; 976 #endif 977 } 978 ###### if (memEQ(name, "NOFLSH", 6)) { 979 /* ^ */ 980 #ifdef NOFLSH 981 ###### *iv_return = NOFLSH; 982 ###### return PERL_constant_ISIV; 983 #else 984 return PERL_constant_NOTDEF; 985 #endif 986 } 987 ###### break; 988 case 'M': 989 ###### if (memEQ(name, "ENOMEM", 6)) { 990 /* ^ */ 991 #ifdef ENOMEM 992 ###### *iv_return = ENOMEM; 993 ###### return PERL_constant_ISIV; 994 #else 995 return PERL_constant_NOTDEF; 996 #endif 997 } 998 ###### if (memEQ(name, "PARMRK", 6)) { 999 /* ^ */ 1000 #ifdef PARMRK 1001 ###### *iv_return = PARMRK; 1002 ###### return PERL_constant_ISIV; 1003 #else 1004 return PERL_constant_NOTDEF; 1005 #endif 1006 } 1007 ###### break; 1008 case 'N': 1009 ###### if (memEQ(name, "ERANGE", 6)) { 1010 /* ^ */ 1011 #ifdef ERANGE 1012 ###### *iv_return = ERANGE; 1013 ###### return PERL_constant_ISIV; 1014 #else 1015 return PERL_constant_NOTDEF; 1016 #endif 1017 } 1018 ###### if (memEQ(name, "ICANON", 6)) { 1019 /* ^ */ 1020 #ifdef ICANON 1021 ###### *iv_return = ICANON; 1022 ###### return PERL_constant_ISIV; 1023 #else 1024 return PERL_constant_NOTDEF; 1025 #endif 1026 } 1027 ###### break; 1028 case 'O': 1029 ###### if (memEQ(name, "CSTOPB", 6)) { 1030 /* ^ */ 1031 #ifdef CSTOPB 1032 ###### *iv_return = CSTOPB; 1033 ###### return PERL_constant_ISIV; 1034 #else 1035 return PERL_constant_NOTDEF; 1036 #endif 1037 } 1038 ###### if (memEQ(name, "ECHONL", 6)) { 1039 /* ^ */ 1040 #ifdef ECHONL 1041 ###### *iv_return = ECHONL; 1042 ###### return PERL_constant_ISIV; 1043 #else 1044 return PERL_constant_NOTDEF; 1045 #endif 1046 } 1047 ###### if (memEQ(name, "PARODD", 6)) { 1048 /* ^ */ 1049 #ifdef PARODD 1050 ###### *iv_return = PARODD; 1051 ###### return PERL_constant_ISIV; 1052 #else 1053 return PERL_constant_NOTDEF; 1054 #endif 1055 } 1056 ###### if (memEQ(name, "TCIOFF", 6)) { 1057 /* ^ */ 1058 #ifdef TCIOFF 1059 ###### *iv_return = TCIOFF; 1060 ###### return PERL_constant_ISIV; 1061 #else 1062 return PERL_constant_NOTDEF; 1063 #endif 1064 } 1065 ###### if (memEQ(name, "TCOOFF", 6)) { 1066 /* ^ */ 1067 #ifdef TCOOFF 1068 ###### *iv_return = TCOOFF; 1069 ###### return PERL_constant_ISIV; 1070 #else 1071 return PERL_constant_NOTDEF; 1072 #endif 1073 } 1074 ###### break; 1075 case 'P': 1076 ###### if (memEQ(name, "IGNPAR", 6)) { 1077 /* ^ */ 1078 #ifdef IGNPAR 1079 ###### *iv_return = IGNPAR; 1080 ###### return PERL_constant_ISIV; 1081 #else 1082 return PERL_constant_NOTDEF; 1083 #endif 1084 } 1085 ###### break; 1086 case 'R': 1087 ###### if (memEQ(name, "ISTRIP", 6)) { 1088 /* ^ */ 1089 #ifdef ISTRIP 1090 ###### *iv_return = ISTRIP; 1091 ###### return PERL_constant_ISIV; 1092 #else 1093 return PERL_constant_NOTDEF; 1094 #endif 1095 } 1096 ###### break; 1097 case 'S': 1098 ###### if (memEQ(name, "BUFSIZ", 6)) { 1099 /* ^ */ 1100 #ifdef BUFSIZ 1101 ###### *iv_return = BUFSIZ; 1102 ###### return PERL_constant_ISIV; 1103 #else 1104 return PERL_constant_NOTDEF; 1105 #endif 1106 } 1107 ###### if (memEQ(name, "ENOSPC", 6)) { 1108 /* ^ */ 1109 #ifdef ENOSPC 1110 ###### *iv_return = ENOSPC; 1111 ###### return PERL_constant_ISIV; 1112 #else 1113 return PERL_constant_NOTDEF; 1114 #endif 1115 } 1116 ###### if (memEQ(name, "ENOSYS", 6)) { 1117 /* ^ */ 1118 #ifdef ENOSYS 1119 ###### *iv_return = ENOSYS; 1120 ###### return PERL_constant_ISIV; 1121 #else 1122 return PERL_constant_NOTDEF; 1123 #endif 1124 } 1125 ###### break; 1126 case 'T': 1127 ###### if (memEQ(name, "ENOTTY", 6)) { 1128 /* ^ */ 1129 #ifdef ENOTTY 1130 ###### *iv_return = ENOTTY; 1131 ###### return PERL_constant_ISIV; 1132 #else 1133 return PERL_constant_NOTDEF; 1134 #endif 1135 } 1136 ###### if (memEQ(name, "IEXTEN", 6)) { 1137 /* ^ */ 1138 #ifdef IEXTEN 1139 ###### *iv_return = IEXTEN; 1140 ###### return PERL_constant_ISIV; 1141 #else 1142 return PERL_constant_NOTDEF; 1143 #endif 1144 } 1145 ###### if (memEQ(name, "TOSTOP", 6)) { 1146 /* ^ */ 1147 #ifdef TOSTOP 1148 ###### *iv_return = TOSTOP; 1149 ###### return PERL_constant_ISIV; 1150 #else 1151 return PERL_constant_NOTDEF; 1152 #endif 1153 } 1154 ###### break; 1155 case 'U': 1156 ###### if (memEQ(name, "EDQUOT", 6)) { 1157 /* ^ */ 1158 #ifdef EDQUOT 1159 ###### *iv_return = EDQUOT; 1160 ###### return PERL_constant_ISIV; 1161 #else 1162 return PERL_constant_NOTDEF; 1163 #endif 1164 } 1165 ###### if (memEQ(name, "EFAULT", 6)) { 1166 /* ^ */ 1167 #ifdef EFAULT 1168 ###### *iv_return = EFAULT; 1169 ###### return PERL_constant_ISIV; 1170 #else 1171 return PERL_constant_NOTDEF; 1172 #endif 1173 } 1174 ###### break; 1175 case 'V': 1176 ###### if (memEQ(name, "EINVAL", 6)) { 1177 /* ^ */ 1178 #ifdef EINVAL 1179 ###### *iv_return = EINVAL; 1180 ###### return PERL_constant_ISIV; 1181 #else 1182 return PERL_constant_NOTDEF; 1183 #endif 1184 } 1185 ###### break; 1186 case 'X': 1187 ###### if (memEQ(name, "O_EXCL", 6)) { 1188 /* ^ */ 1189 #ifdef O_EXCL 1190 ###### *iv_return = O_EXCL; 1191 ###### return PERL_constant_ISIV; 1192 #else 1193 return PERL_constant_NOTDEF; 1194 #endif 1195 } 1196 ###### break; 1197 } 1198 ###### return PERL_constant_NOTFOUND; 1199 } 1200 1201 static int 1202 26 constant_7 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 1203 /* When generated this function returned values for the list of names given 1204 here. However, subsequent manual editing may have added or removed some. 1205 ARG_MAX CLK_TCK DBL_DIG DBL_MAX DBL_MIN EDEADLK EISCONN ENOBUFS ENOEXEC 1206 ENOTBLK ENOTDIR EREMOTE ETXTBSY FLT_DIG FLT_MAX FLT_MIN F_DUPFD F_GETFD 1207 F_GETFL F_GETLK F_RDLCK F_SETFD F_SETFL F_SETLK F_UNLCK F_WRLCK INT_MAX 1208 INT_MIN LC_TIME O_CREAT O_TRUNC SIGABRT SIGALRM SIGCHLD SIGCONT SIGKILL 1209 SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 1210 SIGUSR2 SIG_DFL SIG_ERR SIG_IGN S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO 1211 S_IRWXU S_ISGID S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR 1212 TCSANOW TMP_MAX WNOHANG */ 1213 /* Offset 6 gives the best switch position. */ 1214 26 switch (name[6]) { 1215 case '1': 1216 1 if (memEQ(name, "SIGUSR", 6)) { 1217 /* 1 */ 1218 #ifdef SIGUSR1 1219 1 *iv_return = SIGUSR1; 1220 1 return PERL_constant_ISIV; 1221 #else 1222 return PERL_constant_NOTDEF; 1223 #endif 1224 } 1225 ###### break; 1226 case '2': 1227 ###### if (memEQ(name, "SIGUSR", 6)) { 1228 /* 2 */ 1229 #ifdef SIGUSR2 1230 ###### *iv_return = SIGUSR2; 1231 ###### return PERL_constant_ISIV; 1232 #else 1233 return PERL_constant_NOTDEF; 1234 #endif 1235 } 1236 ###### break; 1237 case 'C': 1238 ###### if (memEQ(name, "ENOEXE", 6)) { 1239 /* C */ 1240 #ifdef ENOEXEC 1241 ###### *iv_return = ENOEXEC; 1242 ###### return PERL_constant_ISIV; 1243 #else 1244 return PERL_constant_NOTDEF; 1245 #endif 1246 } 1247 ###### if (memEQ(name, "O_TRUN", 6)) { 1248 /* C */ 1249 #ifdef O_TRUNC 1250 ###### *iv_return = O_TRUNC; 1251 ###### return PERL_constant_ISIV; 1252 #else 1253 return PERL_constant_NOTDEF; 1254 #endif 1255 } 1256 ###### break; 1257 case 'D': 1258 ###### if (memEQ(name, "F_DUPF", 6)) { 1259 /* D */ 1260 #ifdef F_DUPFD 1261 ###### *iv_return = F_DUPFD; 1262 ###### return PERL_constant_ISIV; 1263 #else 1264 return PERL_constant_NOTDEF; 1265 #endif 1266 } 1267 ###### if (memEQ(name, "F_GETF", 6)) { 1268 /* D */ 1269 #ifdef F_GETFD 1270 ###### *iv_return = F_GETFD; 1271 ###### return PERL_constant_ISIV; 1272 #else 1273 return PERL_constant_NOTDEF; 1274 #endif 1275 } 1276 ###### if (memEQ(name, "F_SETF", 6)) { 1277 /* D */ 1278 #ifdef F_SETFD 1279 ###### *iv_return = F_SETFD; 1280 ###### return PERL_constant_ISIV; 1281 #else 1282 return PERL_constant_NOTDEF; 1283 #endif 1284 } 1285 ###### if (memEQ(name, "SIGCHL", 6)) { 1286 /* D */ 1287 #ifdef SIGCHLD 1288 ###### *iv_return = SIGCHLD; 1289 ###### return PERL_constant_ISIV; 1290 #else 1291 return PERL_constant_NOTDEF; 1292 #endif 1293 } 1294 ###### if (memEQ(name, "S_ISGI", 6)) { 1295 /* D */ 1296 #ifdef S_ISGID 1297 ###### *iv_return = S_ISGID; 1298 ###### return PERL_constant_ISIV; 1299 #else 1300 return PERL_constant_NOTDEF; 1301 #endif 1302 } 1303 ###### if (memEQ(name, "S_ISUI", 6)) { 1304 /* D */ 1305 #ifdef S_ISUID 1306 ###### *iv_return = S_ISUID; 1307 ###### return PERL_constant_ISIV; 1308 #else 1309 return PERL_constant_NOTDEF; 1310 #endif 1311 } 1312 ###### break; 1313 case 'E': 1314 ###### if (memEQ(name, "EREMOT", 6)) { 1315 /* E */ 1316 #ifdef EREMOTE 1317 ###### *iv_return = EREMOTE; 1318 ###### return PERL_constant_ISIV; 1319 #else 1320 return PERL_constant_NOTDEF; 1321 #endif 1322 } 1323 ###### if (memEQ(name, "LC_TIM", 6)) { 1324 /* E */ 1325 #ifdef LC_TIME 1326 ###### *iv_return = LC_TIME; 1327 ###### return PERL_constant_ISIV; 1328 #else 1329 return PERL_constant_NOTDEF; 1330 #endif 1331 } 1332 ###### if (memEQ(name, "SIGPIP", 6)) { 1333 /* E */ 1334 #ifdef SIGPIPE 1335 ###### *iv_return = SIGPIPE; 1336 ###### return PERL_constant_ISIV; 1337 #else 1338 return PERL_constant_NOTDEF; 1339 #endif 1340 } 1341 1 break; 1342 case 'G': 1343 1 if (memEQ(name, "DBL_DI", 6)) { 1344 /* G */ 1345 #ifdef DBL_DIG 1346 ###### *nv_return = DBL_DIG; 1347 ###### return PERL_constant_ISNV; 1348 #else 1349 return PERL_constant_NOTDEF; 1350 #endif 1351 } 1352 1 if (memEQ(name, "FLT_DI", 6)) { 1353 /* G */ 1354 #ifdef FLT_DIG 1355 ###### *nv_return = FLT_DIG; 1356 ###### return PERL_constant_ISNV; 1357 #else 1358 return PERL_constant_NOTDEF; 1359 #endif 1360 } 1361 1 if (memEQ(name, "S_IRWX", 6)) { 1362 /* G */ 1363 #ifdef S_IRWXG 1364 ###### *iv_return = S_IRWXG; 1365 ###### return PERL_constant_ISIV; 1366 #else 1367 return PERL_constant_NOTDEF; 1368 #endif 1369 } 1370 1 if (memEQ(name, "WNOHAN", 6)) { 1371 /* G */ 1372 #ifdef WNOHANG 1373 1 *iv_return = WNOHANG; 1374 1 return PERL_constant_ISIV; 1375 #else 1376 return PERL_constant_NOTDEF; 1377 #endif 1378 } 1379 ###### break; 1380 case 'H': 1381 ###### if (memEQ(name, "S_IROT", 6)) { 1382 /* H */ 1383 #ifdef S_IROTH 1384 ###### *iv_return = S_IROTH; 1385 ###### return PERL_constant_ISIV; 1386 #else 1387 return PERL_constant_NOTDEF; 1388 #endif 1389 } 1390 ###### if (memEQ(name, "S_IWOT", 6)) { 1391 /* H */ 1392 #ifdef S_IWOTH 1393 ###### *iv_return = S_IWOTH; 1394 ###### return PERL_constant_ISIV; 1395 #else 1396 return PERL_constant_NOTDEF; 1397 #endif 1398 } 1399 ###### if (memEQ(name, "S_IXOT", 6)) { 1400 /* H */ 1401 #ifdef S_IXOTH 1402 ###### *iv_return = S_IXOTH; 1403 ###### return PERL_constant_ISIV; 1404 #else 1405 return PERL_constant_NOTDEF; 1406 #endif 1407 } 1408 ###### break; 1409 case 'K': 1410 ###### if (memEQ(name, "CLK_TC", 6)) { 1411 /* K */ 1412 #ifdef CLK_TCK 1413 *iv_return = CLK_TCK; 1414 return PERL_constant_ISIV; 1415 #else 1416 ###### return PERL_constant_NOTDEF; 1417 #endif 1418 } 1419 ###### if (memEQ(name, "EDEADL", 6)) { 1420 /* K */ 1421 #ifdef EDEADLK 1422 ###### *iv_return = EDEADLK; 1423 ###### return PERL_constant_ISIV; 1424 #else 1425 return PERL_constant_NOTDEF; 1426 #endif 1427 } 1428 ###### if (memEQ(name, "ENOTBL", 6)) { 1429 /* K */ 1430 #ifdef ENOTBLK 1431 ###### *iv_return = ENOTBLK; 1432 ###### return PERL_constant_ISIV; 1433 #else 1434 return PERL_constant_NOTDEF; 1435 #endif 1436 } 1437 ###### if (memEQ(name, "F_GETL", 6)) { 1438 /* K */ 1439 #ifdef F_GETLK 1440 ###### *iv_return = F_GETLK; 1441 ###### return PERL_constant_ISIV; 1442 #else 1443 return PERL_constant_NOTDEF; 1444 #endif 1445 } 1446 ###### if (memEQ(name, "F_RDLC", 6)) { 1447 /* K */ 1448 #ifdef F_RDLCK 1449 ###### *iv_return = F_RDLCK; 1450 ###### return PERL_constant_ISIV; 1451 #else 1452 return PERL_constant_NOTDEF; 1453 #endif 1454 } 1455 ###### if (memEQ(name, "F_SETL", 6)) { 1456 /* K */ 1457 #ifdef F_SETLK 1458 ###### *iv_return = F_SETLK; 1459 ###### return PERL_constant_ISIV; 1460 #else 1461 return PERL_constant_NOTDEF; 1462 #endif 1463 } 1464 ###### if (memEQ(name, "F_UNLC", 6)) { 1465 /* K */ 1466 #ifdef F_UNLCK 1467 ###### *iv_return = F_UNLCK; 1468 ###### return PERL_constant_ISIV; 1469 #else 1470 return PERL_constant_NOTDEF; 1471 #endif 1472 } 1473 ###### if (memEQ(name, "F_WRLC", 6)) { 1474 /* K */ 1475 #ifdef F_WRLCK 1476 ###### *iv_return = F_WRLCK; 1477 ###### return PERL_constant_ISIV; 1478 #else 1479 return PERL_constant_NOTDEF; 1480 #endif 1481 } 1482 1 break; 1483 case 'L': 1484 1 if (memEQ(name, "F_GETF", 6)) { 1485 /* L */ 1486 #ifdef F_GETFL 1487 ###### *iv_return = F_GETFL; 1488 ###### return PERL_constant_ISIV; 1489 #else 1490 return PERL_constant_NOTDEF; 1491 #endif 1492 } 1493 1 if (memEQ(name, "F_SETF", 6)) { 1494 /* L */ 1495 #ifdef F_SETFL 1496 ###### *iv_return = F_SETFL; 1497 ###### return PERL_constant_ISIV; 1498 #else 1499 return PERL_constant_NOTDEF; 1500 #endif 1501 } 1502 1 if (memEQ(name, "SIGKIL", 6)) { 1503 /* L */ 1504 #ifdef SIGKILL 1505 1 *iv_return = SIGKILL; 1506 1 return PERL_constant_ISIV; 1507 #else 1508 return PERL_constant_NOTDEF; 1509 #endif 1510 } 1511 ###### if (memEQ(name, "SIG_DF", 6)) { 1512 /* L */ 1513 #ifdef SIG_DFL 1514 ###### *iv_return = (IV)SIG_DFL; 1515 ###### return PERL_constant_ISIV; 1516 #else 1517 return PERL_constant_NOTDEF; 1518 #endif 1519 } 1520 ###### break; 1521 case 'M': 1522 ###### if (memEQ(name, "SIGALR", 6)) { 1523 /* M */ 1524 #ifdef SIGALRM 1525 ###### *iv_return = SIGALRM; 1526 ###### return PERL_constant_ISIV; 1527 #else 1528 return PERL_constant_NOTDEF; 1529 #endif 1530 } 1531 ###### if (memEQ(name, "SIGTER", 6)) { 1532 /* M */ 1533 #ifdef SIGTERM 1534 ###### *iv_return = SIGTERM; 1535 ###### return PERL_constant_ISIV; 1536 #else 1537 return PERL_constant_NOTDEF; 1538 #endif 1539 } 1540 ###### break; 1541 case 'N': 1542 ###### if (memEQ(name, "DBL_MI", 6)) { 1543 /* N */ 1544 #ifdef DBL_MIN 1545 ###### *nv_return = DBL_MIN; 1546 ###### return PERL_constant_ISNV; 1547 #else 1548 return PERL_constant_NOTDEF; 1549 #endif 1550 } 1551 ###### if (memEQ(name, "EISCON", 6)) { 1552 /* N */ 1553 #ifdef EISCONN 1554 ###### *iv_return = EISCONN; 1555 ###### return PERL_constant_ISIV; 1556 #else 1557 return PERL_constant_NOTDEF; 1558 #endif 1559 } 1560 ###### if (memEQ(name, "FLT_MI", 6)) { 1561 /* N */ 1562 #ifdef FLT_MIN 1563 ###### *nv_return = FLT_MIN; 1564 ###### return PERL_constant_ISNV; 1565 #else 1566 return PERL_constant_NOTDEF; 1567 #endif 1568 } 1569 ###### if (memEQ(name, "INT_MI", 6)) { 1570 /* N */ 1571 #ifdef INT_MIN 1572 ###### *iv_return = INT_MIN; 1573 ###### return PERL_constant_ISIV; 1574 #else 1575 return PERL_constant_NOTDEF; 1576 #endif 1577 } 1578 ###### if (memEQ(name, "SIGTTI", 6)) { 1579 /* N */ 1580 #ifdef SIGTTIN 1581 ###### *iv_return = SIGTTIN; 1582 ###### return PERL_constant_ISIV; 1583 #else 1584 return PERL_constant_NOTDEF; 1585 #endif 1586 } 1587 ###### if (memEQ(name, "SIG_IG", 6)) { 1588 /* N */ 1589 #ifdef SIG_IGN 1590 ###### *iv_return = (IV)SIG_IGN; 1591 ###### return PERL_constant_ISIV; 1592 #else 1593 return PERL_constant_NOTDEF; 1594 #endif 1595 } 1596 ###### break; 1597 case 'O': 1598 ###### if (memEQ(name, "S_IRWX", 6)) { 1599 /* O */ 1600 #ifdef S_IRWXO 1601 ###### *iv_return = S_IRWXO; 1602 ###### return PERL_constant_ISIV; 1603 #else 1604 return PERL_constant_NOTDEF; 1605 #endif 1606 } 1607 ###### break; 1608 case 'P': 1609 ###### if (memEQ(name, "SIGSTO", 6)) { 1610 /* P */ 1611 #ifdef SIGSTOP 1612 ###### *iv_return = SIGSTOP; 1613 ###### return PERL_constant_ISIV; 1614 #else 1615 return PERL_constant_NOTDEF; 1616 #endif 1617 } 1618 ###### if (memEQ(name, "SIGTST", 6)) { 1619 /* P */ 1620 #ifdef SIGTSTP 1621 ###### *iv_return = SIGTSTP; 1622 ###### return PERL_constant_ISIV; 1623 #else 1624 return PERL_constant_NOTDEF; 1625 #endif 1626 } 1627 ###### if (memEQ(name, "S_IRGR", 6)) { 1628 /* P */ 1629 #ifdef S_IRGRP 1630 ###### *iv_return = S_IRGRP; 1631 ###### return PERL_constant_ISIV; 1632 #else 1633 return PERL_constant_NOTDEF; 1634 #endif 1635 } 1636 ###### if (memEQ(name, "S_IWGR", 6)) { 1637 /* P */ 1638 #ifdef S_IWGRP 1639 ###### *iv_return = S_IWGRP; 1640 ###### return PERL_constant_ISIV; 1641 #else 1642 return PERL_constant_NOTDEF; 1643 #endif 1644 } 1645 ###### if (memEQ(name, "S_IXGR", 6)) { 1646 /* P */ 1647 #ifdef S_IXGRP 1648 ###### *iv_return = S_IXGRP; 1649 ###### return PERL_constant_ISIV; 1650 #else 1651 return PERL_constant_NOTDEF; 1652 #endif 1653 } 1654 ###### break; 1655 case 'R': 1656 ###### if (memEQ(name, "ENOTDI", 6)) { 1657 /* R */ 1658 #ifdef ENOTDIR 1659 ###### *iv_return = ENOTDIR; 1660 ###### return PERL_constant_ISIV; 1661 #else 1662 return PERL_constant_NOTDEF; 1663 #endif 1664 } 1665 ###### if (memEQ(name, "SIG_ER", 6)) { 1666 /* R */ 1667 #ifdef SIG_ERR 1668 ###### *iv_return = (IV)SIG_ERR; 1669 ###### return PERL_constant_ISIV; 1670 #else 1671 return PERL_constant_NOTDEF; 1672 #endif 1673 } 1674 ###### if (memEQ(name, "S_IRUS", 6)) { 1675 /* R */ 1676 #ifdef S_IRUSR 1677 ###### *iv_return = S_IRUSR; 1678 ###### return PERL_constant_ISIV; 1679 #else 1680 return PERL_constant_NOTDEF; 1681 #endif 1682 } 1683 ###### if (memEQ(name, "S_IWUS", 6)) { 1684 /* R */ 1685 #ifdef S_IWUSR 1686 ###### *iv_return = S_IWUSR; 1687 ###### return PERL_constant_ISIV; 1688 #else 1689 return PERL_constant_NOTDEF; 1690 #endif 1691 } 1692 ###### if (memEQ(name, "S_IXUS", 6)) { 1693 /* R */ 1694 #ifdef S_IXUSR 1695 ###### *iv_return = S_IXUSR; 1696 ###### return PERL_constant_ISIV; 1697 #else 1698 return PERL_constant_NOTDEF; 1699 #endif 1700 } 1701 ###### break; 1702 case 'S': 1703 ###### if (memEQ(name, "ENOBUF", 6)) { 1704 /* S */ 1705 #ifdef ENOBUFS 1706 ###### *iv_return = ENOBUFS; 1707 ###### return PERL_constant_ISIV; 1708 #else 1709 return PERL_constant_NOTDEF; 1710 #endif 1711 } 1712 1 break; 1713 case 'T': 1714 1 if (memEQ(name, "O_CREA", 6)) { 1715 /* T */ 1716 #ifdef O_CREAT 1717 ###### *iv_return = O_CREAT; 1718 ###### return PERL_constant_ISIV; 1719 #else 1720 return PERL_constant_NOTDEF; 1721 #endif 1722 } 1723 1 if (memEQ(name, "SIGABR", 6)) { 1724 /* T */ 1725 #ifdef SIGABRT 1726 ###### *iv_return = SIGABRT; 1727 ###### return PERL_constant_ISIV; 1728 #else 1729 return PERL_constant_NOTDEF; 1730 #endif 1731 } 1732 1 if (memEQ(name, "SIGCON", 6)) { 1733 /* T */ 1734 #ifdef SIGCONT 1735 1 *iv_return = SIGCONT; 1736 1 return PERL_constant_ISIV; 1737 #else 1738 return PERL_constant_NOTDEF; 1739 #endif 1740 } 1741 ###### if (memEQ(name, "SIGQUI", 6)) { 1742 /* T */ 1743 #ifdef SIGQUIT 1744 ###### *iv_return = SIGQUIT; 1745 ###### return PERL_constant_ISIV; 1746 #else 1747 return PERL_constant_NOTDEF; 1748 #endif 1749 } 1750 ###### break; 1751 case 'U': 1752 ###### if (memEQ(name, "SIGTTO", 6)) { 1753 /* U */ 1754 #ifdef SIGTTOU 1755 ###### *iv_return = SIGTTOU; 1756 ###### return PERL_constant_ISIV; 1757 #else 1758 return PERL_constant_NOTDEF; 1759 #endif 1760 } 1761 ###### if (memEQ(name, "S_IRWX", 6)) { 1762 /* U */ 1763 #ifdef S_IRWXU 1764 ###### *iv_return = S_IRWXU; 1765 ###### return PERL_constant_ISIV; 1766 #else 1767 return PERL_constant_NOTDEF; 1768 #endif 1769 } 1770 ###### break; 1771 case 'V': 1772 ###### if (memEQ(name, "SIGSEG", 6)) { 1773 /* V */ 1774 #ifdef SIGSEGV 1775 ###### *iv_return = SIGSEGV; 1776 ###### return PERL_constant_ISIV; 1777 #else 1778 return PERL_constant_NOTDEF; 1779 #endif 1780 } 1781 ###### break; 1782 case 'W': 1783 ###### if (memEQ(name, "TCSANO", 6)) { 1784 /* W */ 1785 #ifdef TCSANOW 1786 ###### *iv_return = TCSANOW; 1787 ###### return PERL_constant_ISIV; 1788 #else 1789 return PERL_constant_NOTDEF; 1790 #endif 1791 } 1792 22 break; 1793 case 'X': 1794 22 if (memEQ(name, "ARG_MA", 6)) { 1795 /* X */ 1796 #ifdef ARG_MAX 1797 22 *iv_return = ARG_MAX; 1798 22 return PERL_constant_ISIV; 1799 #else 1800 return PERL_constant_NOTDEF; 1801 #endif 1802 } 1803 ###### if (memEQ(name, "DBL_MA", 6)) { 1804 /* X */ 1805 #ifdef DBL_MAX 1806 ###### *nv_return = DBL_MAX; 1807 ###### return PERL_constant_ISNV; 1808 #else 1809 return PERL_constant_NOTDEF; 1810 #endif 1811 } 1812 ###### if (memEQ(name, "FLT_MA", 6)) { 1813 /* X */ 1814 #ifdef FLT_MAX 1815 ###### *nv_return = FLT_MAX; 1816 ###### return PERL_constant_ISNV; 1817 #else 1818 return PERL_constant_NOTDEF; 1819 #endif 1820 } 1821 ###### if (memEQ(name, "INT_MA", 6)) { 1822 /* X */ 1823 #ifdef INT_MAX 1824 ###### *iv_return = INT_MAX; 1825 ###### return PERL_constant_ISIV; 1826 #else 1827 return PERL_constant_NOTDEF; 1828 #endif 1829 } 1830 ###### if (memEQ(name, "TMP_MA", 6)) { 1831 /* X */ 1832 #ifdef TMP_MAX 1833 ###### *iv_return = TMP_MAX; 1834 ###### return PERL_constant_ISIV; 1835 #else 1836 return PERL_constant_NOTDEF; 1837 #endif 1838 } 1839 ###### break; 1840 case 'Y': 1841 ###### if (memEQ(name, "ETXTBS", 6)) { 1842 /* Y */ 1843 #ifdef ETXTBSY 1844 ###### *iv_return = ETXTBSY; 1845 ###### return PERL_constant_ISIV; 1846 #else 1847 return PERL_constant_NOTDEF; 1848 #endif 1849 } 1850 ###### break; 1851 } 1852 ###### return PERL_constant_NOTFOUND; 1853 } 1854 1855 static int 1856 35 constant_8 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 1857 /* When generated this function returned values for the list of names given 1858 here. However, subsequent manual editing may have added or removed some. 1859 CHAR_BIT CHAR_MAX CHAR_MIN EALREADY EMSGSIZE ENETDOWN ENOTCONN ENOTSOCK 1860 EPROCLIM ERESTART F_SETLKW HUGE_VAL LC_CTYPE LDBL_DIG LDBL_MAX LDBL_MIN 1861 LINK_MAX LONG_MAX LONG_MIN L_tmpnam NAME_MAX OPEN_MAX O_APPEND O_NOCTTY 1862 O_RDONLY O_WRONLY PATH_MAX PIPE_BUF RAND_MAX SEEK_CUR SEEK_END SEEK_SET 1863 SHRT_MAX SHRT_MIN TCIFLUSH TCOFLUSH UINT_MAX */ 1864 /* Offset 2 gives the best switch position. */ 1865 35 switch (name[2]) { 1866 case 'A': 1867 ###### if (memEQ(name, "CHAR_BIT", 8)) { 1868 /* ^ */ 1869 #ifdef CHAR_BIT 1870 ###### *iv_return = CHAR_BIT; 1871 ###### return PERL_constant_ISIV; 1872 #else 1873 return PERL_constant_NOTDEF; 1874 #endif 1875 } 1876 ###### if (memEQ(name, "CHAR_MAX", 8)) { 1877 /* ^ */ 1878 #ifdef CHAR_MAX 1879 ###### *iv_return = CHAR_MAX; 1880 ###### return PERL_constant_ISIV; 1881 #else 1882 return PERL_constant_NOTDEF; 1883 #endif 1884 } 1885 ###### if (memEQ(name, "CHAR_MIN", 8)) { 1886 /* ^ */ 1887 #ifdef CHAR_MIN 1888 ###### *iv_return = CHAR_MIN; 1889 ###### return PERL_constant_ISIV; 1890 #else 1891 return PERL_constant_NOTDEF; 1892 #endif 1893 } 1894 ###### if (memEQ(name, "O_APPEND", 8)) { 1895 /* ^ */ 1896 #ifdef O_APPEND 1897 ###### *iv_return = O_APPEND; 1898 ###### return PERL_constant_ISIV; 1899 #else 1900 return PERL_constant_NOTDEF; 1901 #endif 1902 } 1903 ###### break; 1904 case 'B': 1905 ###### if (memEQ(name, "LDBL_DIG", 8)) { 1906 /* ^ */ 1907 #ifdef LDBL_DIG 1908 ###### *nv_return = LDBL_DIG; 1909 ###### return PERL_constant_ISNV; 1910 #else 1911 return PERL_constant_NOTDEF; 1912 #endif 1913 } 1914 ###### if (memEQ(name, "LDBL_MAX", 8)) { 1915 /* ^ */ 1916 #ifdef LDBL_MAX 1917 *nv_return = LDBL_MAX; 1918 return PERL_constant_ISNV; 1919 #else 1920 ###### return PERL_constant_NOTDEF; 1921 #endif 1922 } 1923 ###### if (memEQ(name, "LDBL_MIN", 8)) { 1924 /* ^ */ 1925 #ifdef LDBL_MIN 1926 *nv_return = LDBL_MIN; 1927 return PERL_constant_ISNV; 1928 #else 1929 ###### return PERL_constant_NOTDEF; 1930 #endif 1931 } 1932 33 break; 1933 case 'E': 1934 33 if (memEQ(name, "ENETDOWN", 8)) { 1935 /* ^ */ 1936 #ifdef ENETDOWN 1937 ###### *iv_return = ENETDOWN; 1938 ###### return PERL_constant_ISIV; 1939 #else 1940 return PERL_constant_NOTDEF; 1941 #endif 1942 } 1943 33 if (memEQ(name, "ERESTART", 8)) { 1944 /* ^ */ 1945 #ifdef ERESTART 1946 ###### *iv_return = ERESTART; 1947 ###### return PERL_constant_ISIV; 1948 #else 1949 return PERL_constant_NOTDEF; 1950 #endif 1951 } 1952 33 if (memEQ(name, "OPEN_MAX", 8)) { 1953 /* ^ */ 1954 #ifdef OPEN_MAX 1955 *iv_return = OPEN_MAX; 1956 return PERL_constant_ISIV; 1957 #else 1958 ###### return PERL_constant_NOTDEF; 1959 #endif 1960 } 1961 33 if (memEQ(name, "SEEK_CUR", 8)) { 1962 /* ^ */ 1963 #ifdef SEEK_CUR 1964 ###### *iv_return = SEEK_CUR; 1965 ###### return PERL_constant_ISIV; 1966 #else 1967 return PERL_constant_NOTDEF; 1968 #endif 1969 } 1970 33 if (memEQ(name, "SEEK_END", 8)) { 1971 /* ^ */ 1972 #ifdef SEEK_END 1973 ###### *iv_return = SEEK_END; 1974 ###### return PERL_constant_ISIV; 1975 #else 1976 return PERL_constant_NOTDEF; 1977 #endif 1978 } 1979 33 if (memEQ(name, "SEEK_SET", 8)) { 1980 /* ^ */ 1981 #ifdef SEEK_SET 1982 33 *iv_return = SEEK_SET; 1983 33 return PERL_constant_ISIV; 1984 #else 1985 return PERL_constant_NOTDEF; 1986 #endif 1987 } 1988 ###### break; 1989 case 'G': 1990 ###### if (memEQ(name, "HUGE_VAL", 8)) { 1991 /* ^ */ 1992 #if (defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)) || defined(HUGE_VAL) 1993 /* HUGE_VALL is admittedly non-POSIX but if we are using long doubles 1994 * we might as well use long doubles. --jhi */ 1995 ###### *nv_return = 1996 #if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL) 1997 HUGE_VALL 1998 #else 1999 HUGE_VAL 2000 #endif 2001 ; 2002 ###### return PERL_constant_ISNV; 2003 #else 2004 return PERL_constant_NOTDEF; 2005 #endif 2006 } 2007 ###### break; 2008 case 'I': 2009 ###### if (memEQ(name, "TCIFLUSH", 8)) { 2010 /* ^ */ 2011 #ifdef TCIFLUSH 2012 ###### *iv_return = TCIFLUSH; 2013 ###### return PERL_constant_ISIV; 2014 #else 2015 return PERL_constant_NOTDEF; 2016 #endif 2017 } 2018 ###### break; 2019 case 'L': 2020 ###### if (memEQ(name, "EALREADY", 8)) { 2021 /* ^ */ 2022 #ifdef EALREADY 2023 ###### *iv_return = EALREADY; 2024 ###### return PERL_constant_ISIV; 2025 #else 2026 return PERL_constant_NOTDEF; 2027 #endif 2028 } 2029 ###### break; 2030 case 'M': 2031 ###### if (memEQ(name, "NAME_MAX", 8)) { 2032 /* ^ */ 2033 #ifdef NAME_MAX 2034 ###### *iv_return = NAME_MAX; 2035 ###### return PERL_constant_ISIV; 2036 #else 2037 return PERL_constant_NOTDEF; 2038 #endif 2039 } 2040 ###### break; 2041 case 'N': 2042 ###### if (memEQ(name, "LINK_MAX", 8)) { 2043 /* ^ */ 2044 #ifdef LINK_MAX 2045 *iv_return = LINK_MAX; 2046 return PERL_constant_ISIV; 2047 #else 2048 ###### return PERL_constant_NOTDEF; 2049 #endif 2050 } 2051 ###### if (memEQ(name, "LONG_MAX", 8)) { 2052 /* ^ */ 2053 #ifdef LONG_MAX 2054 ###### *iv_return = LONG_MAX; 2055 ###### return PERL_constant_ISIV; 2056 #else 2057 return PERL_constant_NOTDEF; 2058 #endif 2059 } 2060 ###### if (memEQ(name, "LONG_MIN", 8)) { 2061 /* ^ */ 2062 #ifdef LONG_MIN 2063 ###### *iv_return = LONG_MIN; 2064 ###### return PERL_constant_ISIV; 2065 #else 2066 return PERL_constant_NOTDEF; 2067 #endif 2068 } 2069 ###### if (memEQ(name, "O_NOCTTY", 8)) { 2070 /* ^ */ 2071 #ifdef O_NOCTTY 2072 ###### *iv_return = O_NOCTTY; 2073 ###### return PERL_constant_ISIV; 2074 #else 2075 return PERL_constant_NOTDEF; 2076 #endif 2077 } 2078 ###### if (memEQ(name, "RAND_MAX", 8)) { 2079 /* ^ */ 2080 #ifdef RAND_MAX 2081 ###### *iv_return = RAND_MAX; 2082 ###### return PERL_constant_ISIV; 2083 #else 2084 return PERL_constant_NOTDEF; 2085 #endif 2086 } 2087 ###### if (memEQ(name, "UINT_MAX", 8)) { 2088 /* ^ */ 2089 #ifdef UINT_MAX 2090 ###### *iv_return = (IV)UINT_MAX; 2091 ###### return PERL_constant_ISUV; 2092 #else 2093 return PERL_constant_NOTDEF; 2094 #endif 2095 } 2096 ###### break; 2097 case 'O': 2098 ###### if (memEQ(name, "ENOTCONN", 8)) { 2099 /* ^ */ 2100 #ifdef ENOTCONN 2101 ###### *iv_return = ENOTCONN; 2102 ###### return PERL_constant_ISIV; 2103 #else 2104 return PERL_constant_NOTDEF; 2105 #endif 2106 } 2107 ###### if (memEQ(name, "ENOTSOCK", 8)) { 2108 /* ^ */ 2109 #ifdef ENOTSOCK 2110 ###### *iv_return = ENOTSOCK; 2111 ###### return PERL_constant_ISIV; 2112 #else 2113 return PERL_constant_NOTDEF; 2114 #endif 2115 } 2116 ###### if (memEQ(name, "TCOFLUSH", 8)) { 2117 /* ^ */ 2118 #ifdef TCOFLUSH 2119 ###### *iv_return = TCOFLUSH; 2120 ###### return PERL_constant_ISIV; 2121 #else 2122 return PERL_constant_NOTDEF; 2123 #endif 2124 } 2125 ###### break; 2126 case 'P': 2127 ###### if (memEQ(name, "PIPE_BUF", 8)) { 2128 /* ^ */ 2129 #ifdef PIPE_BUF 2130 ###### *iv_return = PIPE_BUF; 2131 ###### return PERL_constant_ISIV; 2132 #else 2133 return PERL_constant_NOTDEF; 2134 #endif 2135 } 2136 1 break; 2137 case 'R': 2138 1 if (memEQ(name, "EPROCLIM", 8)) { 2139 /* ^ */ 2140 #ifdef EPROCLIM 2141 *iv_return = EPROCLIM; 2142 return PERL_constant_ISIV; 2143 #else 2144 ###### return PERL_constant_NOTDEF; 2145 #endif 2146 } 2147 1 if (memEQ(name, "O_RDONLY", 8)) { 2148 /* ^ */ 2149 #ifdef O_RDONLY 2150 1 *iv_return = O_RDONLY; 2151 1 return PERL_constant_ISIV; 2152 #else 2153 return PERL_constant_NOTDEF; 2154 #endif 2155 } 2156 ###### if (memEQ(name, "SHRT_MAX", 8)) { 2157 /* ^ */ 2158 #ifdef SHRT_MAX 2159 ###### *iv_return = SHRT_MAX; 2160 ###### return PERL_constant_ISIV; 2161 #else 2162 return PERL_constant_NOTDEF; 2163 #endif 2164 } 2165 ###### if (memEQ(name, "SHRT_MIN", 8)) { 2166 /* ^ */ 2167 #ifdef SHRT_MIN 2168 ###### *iv_return = SHRT_MIN; 2169 ###### return PERL_constant_ISIV; 2170 #else 2171 return PERL_constant_NOTDEF; 2172 #endif 2173 } 2174 ###### break; 2175 case 'S': 2176 ###### if (memEQ(name, "EMSGSIZE", 8)) { 2177 /* ^ */ 2178 #ifdef EMSGSIZE 2179 ###### *iv_return = EMSGSIZE; 2180 ###### return PERL_constant_ISIV; 2181 #else 2182 return PERL_constant_NOTDEF; 2183 #endif 2184 } 2185 ###### if (memEQ(name, "F_SETLKW", 8)) { 2186 /* ^ */ 2187 #ifdef F_SETLKW 2188 ###### *iv_return = F_SETLKW; 2189 ###### return PERL_constant_ISIV; 2190 #else 2191 return PERL_constant_NOTDEF; 2192 #endif 2193 } 2194 ###### break; 2195 case 'T': 2196 ###### if (memEQ(name, "PATH_MAX", 8)) { 2197 /* ^ */ 2198 #ifdef PATH_MAX 2199 ###### *iv_return = PATH_MAX; 2200 ###### return PERL_constant_ISIV; 2201 #else 2202 return PERL_constant_NOTDEF; 2203 #endif 2204 } 2205 1 break; 2206 case 'W': 2207 1 if (memEQ(name, "O_WRONLY", 8)) { 2208 /* ^ */ 2209 #ifdef O_WRONLY 2210 1 *iv_return = O_WRONLY; 2211 1 return PERL_constant_ISIV; 2212 #else 2213 return PERL_constant_NOTDEF; 2214 #endif 2215 } 2216 ###### break; 2217 case '_': 2218 ###### if (memEQ(name, "LC_CTYPE", 8)) { 2219 /* ^ */ 2220 #ifdef LC_CTYPE 2221 ###### *iv_return = LC_CTYPE; 2222 ###### return PERL_constant_ISIV; 2223 #else 2224 return PERL_constant_NOTDEF; 2225 #endif 2226 } 2227 ###### break; 2228 case 't': 2229 ###### if (memEQ(name, "L_tmpnam", 8)) { 2230 /* ^ */ 2231 #ifdef L_tmpnam 2232 ###### *iv_return = L_tmpnam; 2233 ###### return PERL_constant_ISIV; 2234 #else 2235 return PERL_constant_NOTDEF; 2236 #endif 2237 } 2238 ###### break; 2239 } 2240 ###### return PERL_constant_NOTFOUND; 2241 } 2242 2243 static int 2244 ###### constant_9 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 2245 /* When generated this function returned values for the list of names given 2246 here. However, subsequent manual editing may have added or removed some. 2247 CHILD_MAX EHOSTDOWN ENETRESET ENOTEMPTY ESHUTDOWN ETIMEDOUT FLT_RADIX 2248 L_ctermid L_cuserid L_tmpname MAX_CANON MAX_INPUT O_ACCMODE SCHAR_MAX 2249 SCHAR_MIN SIG_BLOCK SSIZE_MAX TCIOFLUSH TCSADRAIN TCSAFLUSH UCHAR_MAX 2250 ULONG_MAX USHRT_MAX WUNTRACED */ 2251 /* Offset 3 gives the best switch position. */ 2252 ###### switch (name[3]) { 2253 case 'A': 2254 ###### if (memEQ(name, "SCHAR_MAX", 9)) { 2255 /* ^ */ 2256 #ifdef SCHAR_MAX 2257 ###### *iv_return = SCHAR_MAX; 2258 ###### return PERL_constant_ISIV; 2259 #else 2260 return PERL_constant_NOTDEF; 2261 #endif 2262 } 2263 ###### if (memEQ(name, "SCHAR_MIN", 9)) { 2264 /* ^ */ 2265 #ifdef SCHAR_MIN 2266 ###### *iv_return = SCHAR_MIN; 2267 ###### return PERL_constant_ISIV; 2268 #else 2269 return PERL_constant_NOTDEF; 2270 #endif 2271 } 2272 ###### if (memEQ(name, "TCSADRAIN", 9)) { 2273 /* ^ */ 2274 #ifdef TCSADRAIN 2275 ###### *iv_return = TCSADRAIN; 2276 ###### return PERL_constant_ISIV; 2277 #else 2278 return PERL_constant_NOTDEF; 2279 #endif 2280 } 2281 ###### if (memEQ(name, "TCSAFLUSH", 9)) { 2282 /* ^ */ 2283 #ifdef TCSAFLUSH 2284 ###### *iv_return = TCSAFLUSH; 2285 ###### return PERL_constant_ISIV; 2286 #else 2287 return PERL_constant_NOTDEF; 2288 #endif 2289 } 2290 ###### if (memEQ(name, "UCHAR_MAX", 9)) { 2291 /* ^ */ 2292 #ifdef UCHAR_MAX 2293 ###### *iv_return = (IV)UCHAR_MAX; 2294 ###### return PERL_constant_ISUV; 2295 #else 2296 return PERL_constant_NOTDEF; 2297 #endif 2298 } 2299 ###### break; 2300 case 'C': 2301 ###### if (memEQ(name, "O_ACCMODE", 9)) { 2302 /* ^ */ 2303 #ifdef O_ACCMODE 2304 ###### *iv_return = O_ACCMODE; 2305 ###### return PERL_constant_ISIV; 2306 #else 2307 return PERL_constant_NOTDEF; 2308 #endif 2309 } 2310 ###### break; 2311 case 'L': 2312 ###### if (memEQ(name, "CHILD_MAX", 9)) { 2313 /* ^ */ 2314 #ifdef CHILD_MAX 2315 ###### *iv_return = CHILD_MAX; 2316 ###### return PERL_constant_ISIV; 2317 #else 2318 return PERL_constant_NOTDEF; 2319 #endif 2320 } 2321 ###### break; 2322 case 'M': 2323 ###### if (memEQ(name, "ETIMEDOUT", 9)) { 2324 /* ^ */ 2325 #ifdef ETIMEDOUT 2326 ###### *iv_return = ETIMEDOUT; 2327 ###### return PERL_constant_ISIV; 2328 #else 2329 return PERL_constant_NOTDEF; 2330 #endif 2331 } 2332 ###### break; 2333 case 'N': 2334 ###### if (memEQ(name, "ULONG_MAX", 9)) { 2335 /* ^ */ 2336 #ifdef ULONG_MAX 2337 ###### *iv_return = (IV)ULONG_MAX; 2338 ###### return PERL_constant_ISUV; 2339 #else 2340 return PERL_constant_NOTDEF; 2341 #endif 2342 } 2343 ###### break; 2344 case 'O': 2345 ###### if (memEQ(name, "TCIOFLUSH", 9)) { 2346 /* ^ */ 2347 #ifdef TCIOFLUSH 2348 ###### *iv_return = TCIOFLUSH; 2349 ###### return PERL_constant_ISIV; 2350 #else 2351 return PERL_constant_NOTDEF; 2352 #endif 2353 } 2354 ###### break; 2355 case 'R': 2356 ###### if (memEQ(name, "USHRT_MAX", 9)) { 2357 /* ^ */ 2358 #ifdef USHRT_MAX 2359 ###### *iv_return = (IV)USHRT_MAX; 2360 ###### return PERL_constant_ISUV; 2361 #else 2362 return PERL_constant_NOTDEF; 2363 #endif 2364 } 2365 ###### break; 2366 case 'S': 2367 ###### if (memEQ(name, "EHOSTDOWN", 9)) { 2368 /* ^ */ 2369 #ifdef EHOSTDOWN 2370 ###### *iv_return = EHOSTDOWN; 2371 ###### return PERL_constant_ISIV; 2372 #else 2373 return PERL_constant_NOTDEF; 2374 #endif 2375 } 2376 ###### break; 2377 case 'T': 2378 ###### if (memEQ(name, "ENETRESET", 9)) { 2379 /* ^ */ 2380 #ifdef ENETRESET 2381 ###### *iv_return = ENETRESET; 2382 ###### return PERL_constant_ISIV; 2383 #else 2384 return PERL_constant_NOTDEF; 2385 #endif 2386 } 2387 ###### if (memEQ(name, "ENOTEMPTY", 9)) { 2388 /* ^ */ 2389 #ifdef ENOTEMPTY 2390 ###### *iv_return = ENOTEMPTY; 2391 ###### return PERL_constant_ISIV; 2392 #else 2393 return PERL_constant_NOTDEF; 2394 #endif 2395 } 2396 ###### if (memEQ(name, "WUNTRACED", 9)) { 2397 /* ^ */ 2398 #ifdef WUNTRACED 2399 ###### *iv_return = WUNTRACED; 2400 ###### return PERL_constant_ISIV; 2401 #else 2402 return PERL_constant_NOTDEF; 2403 #endif 2404 } 2405 ###### break; 2406 case 'U': 2407 ###### if (memEQ(name, "ESHUTDOWN", 9)) { 2408 /* ^ */ 2409 #ifdef ESHUTDOWN 2410 ###### *iv_return = ESHUTDOWN; 2411 ###### return PERL_constant_ISIV; 2412 #else 2413 return PERL_constant_NOTDEF; 2414 #endif 2415 } 2416 ###### break; 2417 case 'Z': 2418 ###### if (memEQ(name, "SSIZE_MAX", 9)) { 2419 /* ^ */ 2420 #ifdef SSIZE_MAX 2421 ###### *iv_return = SSIZE_MAX; 2422 ###### return PERL_constant_ISIV; 2423 #else 2424 return PERL_constant_NOTDEF; 2425 #endif 2426 } 2427 ###### break; 2428 case '_': 2429 ###### if (memEQ(name, "FLT_RADIX", 9)) { 2430 /* ^ */ 2431 #ifdef FLT_RADIX 2432 ###### *nv_return = FLT_RADIX; 2433 ###### return PERL_constant_ISNV; 2434 #else 2435 return PERL_constant_NOTDEF; 2436 #endif 2437 } 2438 ###### if (memEQ(name, "MAX_CANON", 9)) { 2439 /* ^ */ 2440 #ifdef MAX_CANON 2441 ###### *iv_return = MAX_CANON; 2442 ###### return PERL_constant_ISIV; 2443 #else 2444 return PERL_constant_NOTDEF; 2445 #endif 2446 } 2447 ###### if (memEQ(name, "MAX_INPUT", 9)) { 2448 /* ^ */ 2449 #ifdef MAX_INPUT 2450 ###### *iv_return = MAX_INPUT; 2451 ###### return PERL_constant_ISIV; 2452 #else 2453 return PERL_constant_NOTDEF; 2454 #endif 2455 } 2456 ###### if (memEQ(name, "SIG_BLOCK", 9)) { 2457 /* ^ */ 2458 #ifdef SIG_BLOCK 2459 ###### *iv_return = SIG_BLOCK; 2460 ###### return PERL_constant_ISIV; 2461 #else 2462 return PERL_constant_NOTDEF; 2463 #endif 2464 } 2465 ###### break; 2466 case 'm': 2467 ###### if (memEQ(name, "L_tmpname", 9)) { 2468 /* ^ */ 2469 #ifdef L_tmpname 2470 *iv_return = L_tmpnam; 2471 return PERL_constant_ISIV; 2472 #else 2473 ###### return PERL_constant_NOTDEF; 2474 #endif 2475 } 2476 ###### break; 2477 case 't': 2478 ###### if (memEQ(name, "L_ctermid", 9)) { 2479 /* ^ */ 2480 #ifdef L_ctermid 2481 ###### *iv_return = L_ctermid; 2482 ###### return PERL_constant_ISIV; 2483 #else 2484 return PERL_constant_NOTDEF; 2485 #endif 2486 } 2487 ###### break; 2488 case 'u': 2489 ###### if (memEQ(name, "L_cuserid", 9)) { 2490 /* ^ */ 2491 #ifdef L_cuserid 2492 ###### *iv_return = L_cuserid; 2493 ###### return PERL_constant_ISIV; 2494 #else 2495 return PERL_constant_NOTDEF; 2496 #endif 2497 } 2498 ###### break; 2499 } 2500 ###### return PERL_constant_NOTFOUND; 2501 } 2502 2503 static int 2504 1 constant_10 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 2505 /* When generated this function returned values for the list of names given 2506 here. However, subsequent manual editing may have added or removed some. 2507 EADDRINUSE ECONNRESET EOPNOTSUPP EPROTOTYPE FD_CLOEXEC FLT_ROUNDS 2508 LC_COLLATE LC_NUMERIC MB_CUR_MAX MB_LEN_MAX O_NONBLOCK SA_NODEFER 2509 SA_ONSTACK SA_RESTART SA_SIGINFO STREAM_MAX TZNAME_MAX */ 2510 /* Offset 5 gives the best switch position. */ 2511 1 switch (name[5]) { 2512 case 'B': 2513 ###### if (memEQ(name, "O_NONBLOCK", 10)) { 2514 /* ^ */ 2515 #ifdef O_NONBLOCK 2516 ###### *iv_return = O_NONBLOCK; 2517 ###### return PERL_constant_ISIV; 2518 #else 2519 return PERL_constant_NOTDEF; 2520 #endif 2521 } 2522 ###### break; 2523 case 'D': 2524 ###### if (memEQ(name, "SA_NODEFER", 10)) { 2525 /* ^ */ 2526 #ifdef SA_NODEFER 2527 ###### *iv_return = (IV)SA_NODEFER; 2528 ###### return PERL_constant_ISUV; 2529 #else 2530 return PERL_constant_NOTDEF; 2531 #endif 2532 } 2533 ###### break; 2534 case 'E': 2535 ###### if (memEQ(name, "TZNAME_MAX", 10)) { 2536 /* ^ */ 2537 #ifdef TZNAME_MAX 2538 *iv_return = TZNAME_MAX; 2539 return PERL_constant_ISIV; 2540 #else 2541 ###### return PERL_constant_NOTDEF; 2542 #endif 2543 } 2544 ###### break; 2545 case 'G': 2546 ###### if (memEQ(name, "SA_SIGINFO", 10)) { 2547 /* ^ */ 2548 #ifdef SA_SIGINFO 2549 ###### *iv_return = (IV)SA_SIGINFO; 2550 ###### return PERL_constant_ISUV; 2551 #else 2552 return PERL_constant_NOTDEF; 2553 #endif 2554 } 2555 ###### break; 2556 case 'I': 2557 ###### if (memEQ(name, "EADDRINUSE", 10)) { 2558 /* ^ */ 2559 #ifdef EADDRINUSE 2560 ###### *iv_return = EADDRINUSE; 2561 ###### return PERL_constant_ISIV; 2562 #else 2563 return PERL_constant_NOTDEF; 2564 #endif 2565 } 2566 ###### break; 2567 case 'L': 2568 ###### if (memEQ(name, "LC_COLLATE", 10)) { 2569 /* ^ */ 2570 #ifdef LC_COLLATE 2571 ###### *iv_return = LC_COLLATE; 2572 ###### return PERL_constant_ISIV; 2573 #else 2574 return PERL_constant_NOTDEF; 2575 #endif 2576 } 2577 1 break; 2578 case 'M': 2579 1 if (memEQ(name, "LC_NUMERIC", 10)) { 2580 /* ^ */ 2581 #ifdef LC_NUMERIC 2582 1 *iv_return = LC_NUMERIC; 2583 1 return PERL_constant_ISIV; 2584 #else 2585 return PERL_constant_NOTDEF; 2586 #endif 2587 } 2588 ###### if (memEQ(name, "STREAM_MAX", 10)) { 2589 /* ^ */ 2590 #ifdef STREAM_MAX 2591 *iv_return = STREAM_MAX; 2592 return PERL_constant_ISIV; 2593 #else 2594 ###### return PERL_constant_NOTDEF; 2595 #endif 2596 } 2597 ###### break; 2598 case 'N': 2599 ###### if (memEQ(name, "MB_LEN_MAX", 10)) { 2600 /* ^ */ 2601 #ifdef MB_LEN_MAX 2602 ###### *iv_return = MB_LEN_MAX; 2603 ###### return PERL_constant_ISIV; 2604 #else 2605 return PERL_constant_NOTDEF; 2606 #endif 2607 } 2608 ###### break; 2609 case 'O': 2610 ###### if (memEQ(name, "EPROTOTYPE", 10)) { 2611 /* ^ */ 2612 #ifdef EPROTOTYPE 2613 ###### *iv_return = EPROTOTYPE; 2614 ###### return PERL_constant_ISIV; 2615 #else 2616 return PERL_constant_NOTDEF; 2617 #endif 2618 } 2619 ###### if (memEQ(name, "FD_CLOEXEC", 10)) { 2620 /* ^ */ 2621 #ifdef FD_CLOEXEC 2622 ###### *iv_return = FD_CLOEXEC; 2623 ###### return PERL_constant_ISIV; 2624 #else 2625 return PERL_constant_NOTDEF; 2626 #endif 2627 } 2628 ###### if (memEQ(name, "FLT_ROUNDS", 10)) { 2629 /* ^ */ 2630 #ifdef FLT_ROUNDS 2631 ###### *nv_return = FLT_ROUNDS; 2632 ###### return PERL_constant_ISNV; 2633 #else 2634 return PERL_constant_NOTDEF; 2635 #endif 2636 } 2637 ###### break; 2638 case 'R': 2639 ###### if (memEQ(name, "ECONNRESET", 10)) { 2640 /* ^ */ 2641 #ifdef ECONNRESET 2642 ###### *iv_return = ECONNRESET; 2643 ###### return PERL_constant_ISIV; 2644 #else 2645 return PERL_constant_NOTDEF; 2646 #endif 2647 } 2648 ###### if (memEQ(name, "MB_CUR_MAX", 10)) { 2649 /* ^ */ 2650 #ifdef MB_CUR_MAX 2651 ###### *iv_return = MB_CUR_MAX; 2652 ###### return PERL_constant_ISIV; 2653 #else 2654 return PERL_constant_NOTDEF; 2655 #endif 2656 } 2657 ###### break; 2658 case 'S': 2659 ###### if (memEQ(name, "SA_ONSTACK", 10)) { 2660 /* ^ */ 2661 #ifdef SA_ONSTACK 2662 ###### *iv_return = (IV)SA_ONSTACK; 2663 ###### return PERL_constant_ISUV; 2664 #else 2665 return PERL_constant_NOTDEF; 2666 #endif 2667 } 2668 ###### if (memEQ(name, "SA_RESTART", 10)) { 2669 /* ^ */ 2670 #ifdef SA_RESTART 2671 ###### *iv_return = (IV)SA_RESTART; 2672 ###### return PERL_constant_ISUV; 2673 #else 2674 return PERL_constant_NOTDEF; 2675 #endif 2676 } 2677 ###### break; 2678 case 'T': 2679 ###### if (memEQ(name, "EOPNOTSUPP", 10)) { 2680 /* ^ */ 2681 #ifdef EOPNOTSUPP 2682 ###### *iv_return = EOPNOTSUPP; 2683 ###### return PERL_constant_ISIV; 2684 #else 2685 return PERL_constant_NOTDEF; 2686 #endif 2687 } 2688 ###### break; 2689 } 2690 ###### return PERL_constant_NOTFOUND; 2691 } 2692 2693 static int 2694 2 constant_11 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 2695 /* When generated this function returned values for the list of names given 2696 here. However, subsequent manual editing may have added or removed some. 2697 DBL_EPSILON DBL_MAX_EXP DBL_MIN_EXP EINPROGRESS ENETUNREACH ENOPROTOOPT 2698 EWOULDBLOCK FLT_EPSILON FLT_MAX_EXP FLT_MIN_EXP LC_MESSAGES LC_MONETARY 2699 NGROUPS_MAX SIG_SETMASK SIG_UNBLOCK _SC_ARG_MAX _SC_CLK_TCK _SC_VERSION */ 2700 /* Offset 5 gives the best switch position. */ 2701 2 switch (name[5]) { 2702 case 'A': 2703 ###### if (memEQ(name, "DBL_MAX_EXP", 11)) { 2704 /* ^ */ 2705 #ifdef DBL_MAX_EXP 2706 ###### *nv_return = DBL_MAX_EXP; 2707 ###### return PERL_constant_ISNV; 2708 #else 2709 return PERL_constant_NOTDEF; 2710 #endif 2711 } 2712 ###### if (memEQ(name, "FLT_MAX_EXP", 11)) { 2713 /* ^ */ 2714 #ifdef FLT_MAX_EXP 2715 ###### *nv_return = FLT_MAX_EXP; 2716 ###### return PERL_constant_ISNV; 2717 #else 2718 return PERL_constant_NOTDEF; 2719 #endif 2720 } 2721 ###### break; 2722 case 'D': 2723 ###### if (memEQ(name, "EWOULDBLOCK", 11)) { 2724 /* ^ */ 2725 #ifdef EWOULDBLOCK 2726 ###### *iv_return = EWOULDBLOCK; 2727 ###### return PERL_constant_ISIV; 2728 #else 2729 return PERL_constant_NOTDEF; 2730 #endif 2731 } 2732 ###### break; 2733 case 'E': 2734 ###### if (memEQ(name, "SIG_SETMASK", 11)) { 2735 /* ^ */ 2736 #ifdef SIG_SETMASK 2737 ###### *iv_return = SIG_SETMASK; 2738 ###### return PERL_constant_ISIV; 2739 #else 2740 return PERL_constant_NOTDEF; 2741 #endif 2742 } 2743 ###### if (memEQ(name, "_SC_VERSION", 11)) { 2744 /* ^ */ 2745 #ifdef _SC_VERSION 2746 ###### *iv_return = _SC_VERSION; 2747 ###### return PERL_constant_ISIV; 2748 #else 2749 return PERL_constant_NOTDEF; 2750 #endif 2751 } 2752 ###### break; 2753 case 'I': 2754 ###### if (memEQ(name, "DBL_MIN_EXP", 11)) { 2755 /* ^ */ 2756 #ifdef DBL_MIN_EXP 2757 ###### *nv_return = DBL_MIN_EXP; 2758 ###### return PERL_constant_ISNV; 2759 #else 2760 return PERL_constant_NOTDEF; 2761 #endif 2762 } 2763 ###### if (memEQ(name, "FLT_MIN_EXP", 11)) { 2764 /* ^ */ 2765 #ifdef FLT_MIN_EXP 2766 ###### *nv_return = FLT_MIN_EXP; 2767 ###### return PERL_constant_ISNV; 2768 #else 2769 return PERL_constant_NOTDEF; 2770 #endif 2771 } 2772 ###### break; 2773 case 'L': 2774 ###### if (memEQ(name, "_SC_CLK_TCK", 11)) { 2775 /* ^ */ 2776 #ifdef _SC_CLK_TCK 2777 ###### *iv_return = _SC_CLK_TCK; 2778 ###### return PERL_constant_ISIV; 2779 #else 2780 return PERL_constant_NOTDEF; 2781 #endif 2782 } 2783 ###### break; 2784 case 'N': 2785 ###### if (memEQ(name, "ENETUNREACH", 11)) { 2786 /* ^ */ 2787 #ifdef ENETUNREACH 2788 ###### *iv_return = ENETUNREACH; 2789 ###### return PERL_constant_ISIV; 2790 #else 2791 return PERL_constant_NOTDEF; 2792 #endif 2793 } 2794 ###### if (memEQ(name, "LC_MONETARY", 11)) { 2795 /* ^ */ 2796 #ifdef LC_MONETARY 2797 ###### *iv_return = LC_MONETARY; 2798 ###### return PERL_constant_ISIV; 2799 #else 2800 return PERL_constant_NOTDEF; 2801 #endif 2802 } 2803 ###### if (memEQ(name, "SIG_UNBLOCK", 11)) { 2804 /* ^ */ 2805 #ifdef SIG_UNBLOCK 2806 ###### *iv_return = SIG_UNBLOCK; 2807 ###### return PERL_constant_ISIV; 2808 #else 2809 return PERL_constant_NOTDEF; 2810 #endif 2811 } 2812 2 break; 2813 case 'O': 2814 2 if (memEQ(name, "EINPROGRESS", 11)) { 2815 /* ^ */ 2816 #ifdef EINPROGRESS 2817 2 *iv_return = EINPROGRESS; 2818 2 return PERL_constant_ISIV; 2819 #else 2820 return PERL_constant_NOTDEF; 2821 #endif 2822 } 2823 ###### if (memEQ(name, "ENOPROTOOPT", 11)) { 2824 /* ^ */ 2825 #ifdef ENOPROTOOPT 2826 ###### *iv_return = ENOPROTOOPT; 2827 ###### return PERL_constant_ISIV; 2828 #else 2829 return PERL_constant_NOTDEF; 2830 #endif 2831 } 2832 ###### break; 2833 case 'P': 2834 ###### if (memEQ(name, "DBL_EPSILON", 11)) { 2835 /* ^ */ 2836 #ifdef DBL_EPSILON 2837 ###### *nv_return = DBL_EPSILON; 2838 ###### return PERL_constant_ISNV; 2839 #else 2840 return PERL_constant_NOTDEF; 2841 #endif 2842 } 2843 ###### if (memEQ(name, "FLT_EPSILON", 11)) { 2844 /* ^ */ 2845 #ifdef FLT_EPSILON 2846 ###### *nv_return = FLT_EPSILON; 2847 ###### return PERL_constant_ISNV; 2848 #else 2849 return PERL_constant_NOTDEF; 2850 #endif 2851 } 2852 ###### if (memEQ(name, "NGROUPS_MAX", 11)) { 2853 /* ^ */ 2854 #ifdef NGROUPS_MAX 2855 ###### *iv_return = NGROUPS_MAX; 2856 ###### return PERL_constant_ISIV; 2857 #else 2858 return PERL_constant_NOTDEF; 2859 #endif 2860 } 2861 ###### break; 2862 case 'R': 2863 ###### if (memEQ(name, "_SC_ARG_MAX", 11)) { 2864 /* ^ */ 2865 #ifdef _SC_ARG_MAX 2866 ###### *iv_return = _SC_ARG_MAX; 2867 ###### return PERL_constant_ISIV; 2868 #else 2869 return PERL_constant_NOTDEF; 2870 #endif 2871 } 2872 ###### break; 2873 case 'S': 2874 ###### if (memEQ(name, "LC_MESSAGES", 11)) { 2875 /* ^ */ 2876 #ifdef LC_MESSAGES 2877 ###### *iv_return = LC_MESSAGES; 2878 ###### return PERL_constant_ISIV; 2879 #else 2880 return PERL_constant_NOTDEF; 2881 #endif 2882 } 2883 ###### break; 2884 } 2885 ###### return PERL_constant_NOTFOUND; 2886 } 2887 2888 static int 2889 3 constant_12 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 2890 /* When generated this function returned values for the list of names given 2891 here. However, subsequent manual editing may have added or removed some. 2892 DBL_MANT_DIG EAFNOSUPPORT ECONNABORTED ECONNREFUSED EDESTADDRREQ 2893 EHOSTUNREACH ENAMETOOLONG EPFNOSUPPORT ETOOMANYREFS EXIT_FAILURE 2894 EXIT_SUCCESS FILENAME_MAX FLT_MANT_DIG LDBL_EPSILON LDBL_MAX_EXP 2895 LDBL_MIN_EXP SA_NOCLDSTOP SA_NOCLDWAIT SA_RESETHAND STDIN_FILENO 2896 _PC_LINK_MAX _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF 2897 _PC_VDISABLE _SC_OPEN_MAX _SC_PAGESIZE */ 2898 /* Offset 7 gives the best switch position. */ 2899 3 switch (name[7]) { 2900 case 'C': 2901 ###### if (memEQ(name, "EXIT_SUCCESS", 12)) { 2902 /* ^ */ 2903 #ifdef EXIT_SUCCESS 2904 ###### *iv_return = EXIT_SUCCESS; 2905 ###### return PERL_constant_ISIV; 2906 #else 2907 *iv_return = 0; 2908 return PERL_constant_ISIV; 2909 #endif 2910 } 2911 ###### break; 2912 case 'D': 2913 ###### if (memEQ(name, "EDESTADDRREQ", 12)) { 2914 /* ^ */ 2915 #ifdef EDESTADDRREQ 2916 ###### *iv_return = EDESTADDRREQ; 2917 ###### return PERL_constant_ISIV; 2918 #else 2919 return PERL_constant_NOTDEF; 2920 #endif 2921 } 2922 ###### if (memEQ(name, "SA_NOCLDSTOP", 12)) { 2923 /* ^ */ 2924 #ifdef SA_NOCLDSTOP 2925 ###### *iv_return = (IV)SA_NOCLDSTOP; 2926 ###### return PERL_constant_ISUV; 2927 #else 2928 return PERL_constant_NOTDEF; 2929 #endif 2930 } 2931 ###### if (memEQ(name, "SA_NOCLDWAIT", 12)) { 2932 /* ^ */ 2933 #ifdef SA_NOCLDWAIT 2934 ###### *iv_return = (IV)SA_NOCLDWAIT; 2935 ###### return PERL_constant_ISUV; 2936 #else 2937 return PERL_constant_NOTDEF; 2938 #endif 2939 } 2940 ###### break; 2941 case 'E': 2942 ###### if (memEQ(name, "FILENAME_MAX", 12)) { 2943 /* ^ */ 2944 #ifdef FILENAME_MAX 2945 ###### *iv_return = FILENAME_MAX; 2946 ###### return PERL_constant_ISIV; 2947 #else 2948 return PERL_constant_NOTDEF; 2949 #endif 2950 } 2951 ###### if (memEQ(name, "_PC_NAME_MAX", 12)) { 2952 /* ^ */ 2953 #ifdef _PC_NAME_MAX 2954 ###### *iv_return = _PC_NAME_MAX; 2955 ###### return PERL_constant_ISIV; 2956 #else 2957 return PERL_constant_NOTDEF; 2958 #endif 2959 } 2960 ###### if (memEQ(name, "_PC_PIPE_BUF", 12)) { 2961 /* ^ */ 2962 #ifdef _PC_PIPE_BUF 2963 ###### *iv_return = _PC_PIPE_BUF; 2964 ###### return PERL_constant_ISIV; 2965 #else 2966 return PERL_constant_NOTDEF; 2967 #endif 2968 } 2969 ###### if (memEQ(name, "_SC_PAGESIZE", 12)) { 2970 /* ^ */ 2971 #ifdef _SC_PAGESIZE 2972 ###### *iv_return = _SC_PAGESIZE; 2973 ###### return PERL_constant_ISIV; 2974 #else 2975 return PERL_constant_NOTDEF; 2976 #endif 2977 } 2978 3 break; 2979 case 'F': 2980 3 if (memEQ(name, "ECONNREFUSED", 12)) { 2981 /* ^ */ 2982 #ifdef ECONNREFUSED 2983 3 *iv_return = ECONNREFUSED; 2984 3 return PERL_constant_ISIV; 2985 #else 2986 return PERL_constant_NOTDEF; 2987 #endif 2988 } 2989 ###### break; 2990 case 'H': 2991 ###### if (memEQ(name, "_PC_PATH_MAX", 12)) { 2992 /* ^ */ 2993 #ifdef _PC_PATH_MAX 2994 ###### *iv_return = _PC_PATH_MAX; 2995 ###### return PERL_constant_ISIV; 2996 #else 2997 return PERL_constant_NOTDEF; 2998 #endif 2999 } 3000 ###### break; 3001 case 'I': 3002 ###### if (memEQ(name, "EXIT_FAILURE", 12)) { 3003 /* ^ */ 3004 #ifdef EXIT_FAILURE 3005 ###### *iv_return = EXIT_FAILURE; 3006 ###### return PERL_constant_ISIV; 3007 #else 3008 *iv_return = 1; 3009 return PERL_constant_ISIV; 3010 #endif 3011 } 3012 ###### if (memEQ(name, "STDIN_FILENO", 12)) { 3013 /* ^ */ 3014 #ifdef STDIN_FILENO 3015 ###### *iv_return = STDIN_FILENO; 3016 ###### return PERL_constant_ISIV; 3017 #else 3018 return PERL_constant_NOTDEF; 3019 #endif 3020 } 3021 ###### break; 3022 case 'K': 3023 ###### if (memEQ(name, "_PC_LINK_MAX", 12)) { 3024 /* ^ */ 3025 #ifdef _PC_LINK_MAX 3026 ###### *iv_return = _PC_LINK_MAX; 3027 ###### return PERL_constant_ISIV; 3028 #else 3029 return PERL_constant_NOTDEF; 3030 #endif 3031 } 3032 ###### break; 3033 case 'N': 3034 ###### if (memEQ(name, "LDBL_MIN_EXP", 12)) { 3035 /* ^ */ 3036 #ifdef LDBL_MIN_EXP 3037 ###### *nv_return = LDBL_MIN_EXP; 3038 ###### return PERL_constant_ISNV; 3039 #else 3040 return PERL_constant_NOTDEF; 3041 #endif 3042 } 3043 ###### if (memEQ(name, "_SC_OPEN_MAX", 12)) { 3044 /* ^ */ 3045 #ifdef _SC_OPEN_MAX 3046 ###### *iv_return = _SC_OPEN_MAX; 3047 ###### return PERL_constant_ISIV; 3048 #else 3049 return PERL_constant_NOTDEF; 3050 #endif 3051 } 3052 ###### break; 3053 case 'O': 3054 ###### if (memEQ(name, "ECONNABORTED", 12)) { 3055 /* ^ */ 3056 #ifdef ECONNABORTED 3057 ###### *iv_return = ECONNABORTED; 3058 ###### return PERL_constant_ISIV; 3059 #else 3060 return PERL_constant_NOTDEF; 3061 #endif 3062 } 3063 ###### if (memEQ(name, "ENAMETOOLONG", 12)) { 3064 /* ^ */ 3065 #ifdef ENAMETOOLONG 3066 ###### *iv_return = ENAMETOOLONG; 3067 ###### return PERL_constant_ISIV; 3068 #else 3069 return PERL_constant_NOTDEF; 3070 #endif 3071 } 3072 ###### break; 3073 case 'P': 3074 ###### if (memEQ(name, "EAFNOSUPPORT", 12)) { 3075 /* ^ */ 3076 #ifdef EAFNOSUPPORT 3077 ###### *iv_return = EAFNOSUPPORT; 3078 ###### return PERL_constant_ISIV; 3079 #else 3080 return PERL_constant_NOTDEF; 3081 #endif 3082 } 3083 ###### if (memEQ(name, "EPFNOSUPPORT", 12)) { 3084 /* ^ */ 3085 #ifdef EPFNOSUPPORT 3086 ###### *iv_return = EPFNOSUPPORT; 3087 ###### return PERL_constant_ISIV; 3088 #else 3089 return PERL_constant_NOTDEF; 3090 #endif 3091 } 3092 ###### break; 3093 case 'R': 3094 ###### if (memEQ(name, "EHOSTUNREACH", 12)) { 3095 /* ^ */ 3096 #ifdef EHOSTUNREACH 3097 ###### *iv_return = EHOSTUNREACH; 3098 ###### return PERL_constant_ISIV; 3099 #else 3100 return PERL_constant_NOTDEF; 3101 #endif 3102 } 3103 ###### break; 3104 case 'S': 3105 ###### if (memEQ(name, "LDBL_EPSILON", 12)) { 3106 /* ^ */ 3107 #ifdef LDBL_EPSILON 3108 *nv_return = LDBL_EPSILON; 3109 return PERL_constant_ISNV; 3110 #else 3111 ###### return PERL_constant_NOTDEF; 3112 #endif 3113 } 3114 ###### if (memEQ(name, "_PC_VDISABLE", 12)) { 3115 /* ^ */ 3116 #ifdef _PC_VDISABLE 3117 ###### *iv_return = _PC_VDISABLE; 3118 ###### return PERL_constant_ISIV; 3119 #else 3120 return PERL_constant_NOTDEF; 3121 #endif 3122 } 3123 ###### break; 3124 case 'T': 3125 ###### if (memEQ(name, "DBL_MANT_DIG", 12)) { 3126 /* ^ */ 3127 #ifdef DBL_MANT_DIG 3128 ###### *nv_return = DBL_MANT_DIG; 3129 ###### return PERL_constant_ISNV; 3130 #else 3131 return PERL_constant_NOTDEF; 3132 #endif 3133 } 3134 ###### if (memEQ(name, "FLT_MANT_DIG", 12)) { 3135 /* ^ */ 3136 #ifdef FLT_MANT_DIG 3137 ###### *nv_return = FLT_MANT_DIG; 3138 ###### return PERL_constant_ISNV; 3139 #else 3140 return PERL_constant_NOTDEF; 3141 #endif 3142 } 3143 ###### if (memEQ(name, "SA_RESETHAND", 12)) { 3144 /* ^ */ 3145 #ifdef SA_RESETHAND 3146 ###### *iv_return = (IV)SA_RESETHAND; 3147 ###### return PERL_constant_ISUV; 3148 #else 3149 return PERL_constant_NOTDEF; 3150 #endif 3151 } 3152 ###### if (memEQ(name, "_PC_NO_TRUNC", 12)) { 3153 /* ^ */ 3154 #ifdef _PC_NO_TRUNC 3155 ###### *iv_return = _PC_NO_TRUNC; 3156 ###### return PERL_constant_ISIV; 3157 #else 3158 return PERL_constant_NOTDEF; 3159 #endif 3160 } 3161 ###### break; 3162 case 'X': 3163 ###### if (memEQ(name, "LDBL_MAX_EXP", 12)) { 3164 /* ^ */ 3165 #ifdef LDBL_MAX_EXP 3166 ###### *nv_return = LDBL_MAX_EXP; 3167 ###### return PERL_constant_ISNV; 3168 #else 3169 return PERL_constant_NOTDEF; 3170 #endif 3171 } 3172 ###### break; 3173 case 'Y': 3174 ###### if (memEQ(name, "ETOOMANYREFS", 12)) { 3175 /* ^ */ 3176 #ifdef ETOOMANYREFS 3177 ###### *iv_return = ETOOMANYREFS; 3178 ###### return PERL_constant_ISIV; 3179 #else 3180 return PERL_constant_NOTDEF; 3181 #endif 3182 } 3183 ###### break; 3184 } 3185 ###### return PERL_constant_NOTFOUND; 3186 } 3187 3188 static int 3189 ###### constant_13 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 3190 /* When generated this function returned values for the list of names given 3191 here. However, subsequent manual editing may have added or removed some. 3192 EADDRNOTAVAIL LDBL_MANT_DIG STDERR_FILENO STDOUT_FILENO _PC_MAX_CANON 3193 _PC_MAX_INPUT _SC_CHILD_MAX _SC_SAVED_IDS */ 3194 /* Offset 10 gives the best switch position. */ 3195 ###### switch (name[10]) { 3196 case 'A': 3197 ###### if (memEQ(name, "EADDRNOTAVAIL", 13)) { 3198 /* ^ */ 3199 #ifdef EADDRNOTAVAIL 3200 ###### *iv_return = EADDRNOTAVAIL; 3201 ###### return PERL_constant_ISIV; 3202 #else 3203 return PERL_constant_NOTDEF; 3204 #endif 3205 } 3206 ###### break; 3207 case 'D': 3208 ###### if (memEQ(name, "LDBL_MANT_DIG", 13)) { 3209 /* ^ */ 3210 #ifdef LDBL_MANT_DIG 3211 ###### *nv_return = LDBL_MANT_DIG; 3212 ###### return PERL_constant_ISNV; 3213 #else 3214 return PERL_constant_NOTDEF; 3215 #endif 3216 } 3217 ###### break; 3218 case 'E': 3219 ###### if (memEQ(name, "STDERR_FILENO", 13)) { 3220 /* ^ */ 3221 #ifdef STDERR_FILENO 3222 ###### *iv_return = STDERR_FILENO; 3223 ###### return PERL_constant_ISIV; 3224 #else 3225 return PERL_constant_NOTDEF; 3226 #endif 3227 } 3228 ###### if (memEQ(name, "STDOUT_FILENO", 13)) { 3229 /* ^ */ 3230 #ifdef STDOUT_FILENO 3231 ###### *iv_return = STDOUT_FILENO; 3232 ###### return PERL_constant_ISIV; 3233 #else 3234 return PERL_constant_NOTDEF; 3235 #endif 3236 } 3237 ###### break; 3238 case 'I': 3239 ###### if (memEQ(name, "_SC_SAVED_IDS", 13)) { 3240 /* ^ */ 3241 #ifdef _SC_SAVED_IDS 3242 ###### *iv_return = _SC_SAVED_IDS; 3243 ###### return PERL_constant_ISIV; 3244 #else 3245 return PERL_constant_NOTDEF; 3246 #endif 3247 } 3248 ###### break; 3249 case 'M': 3250 ###### if (memEQ(name, "_SC_CHILD_MAX", 13)) { 3251 /* ^ */ 3252 #ifdef _SC_CHILD_MAX 3253 ###### *iv_return = _SC_CHILD_MAX; 3254 ###### return PERL_constant_ISIV; 3255 #else 3256 return PERL_constant_NOTDEF; 3257 #endif 3258 } 3259 ###### break; 3260 case 'N': 3261 ###### if (memEQ(name, "_PC_MAX_CANON", 13)) { 3262 /* ^ */ 3263 #ifdef _PC_MAX_CANON 3264 ###### *iv_return = _PC_MAX_CANON; 3265 ###### return PERL_constant_ISIV; 3266 #else 3267 return PERL_constant_NOTDEF; 3268 #endif 3269 } 3270 ###### break; 3271 case 'P': 3272 ###### if (memEQ(name, "_PC_MAX_INPUT", 13)) { 3273 /* ^ */ 3274 #ifdef _PC_MAX_INPUT 3275 ###### *iv_return = _PC_MAX_INPUT; 3276 ###### return PERL_constant_ISIV; 3277 #else 3278 return PERL_constant_NOTDEF; 3279 #endif 3280 } 3281 ###### break; 3282 } 3283 ###### return PERL_constant_NOTFOUND; 3284 } 3285 3286 static int 3287 ###### constant_14 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 3288 /* When generated this function returned values for the list of names given 3289 here. However, subsequent manual editing may have added or removed some. 3290 CLOCKS_PER_SEC DBL_MAX_10_EXP DBL_MIN_10_EXP FLT_MAX_10_EXP FLT_MIN_10_EXP 3291 _POSIX_ARG_MAX _POSIX_VERSION _SC_STREAM_MAX _SC_TZNAME_MAX */ 3292 /* Offset 5 gives the best switch position. */ 3293 ###### switch (name[5]) { 3294 case 'A': 3295 ###### if (memEQ(name, "DBL_MAX_10_EXP", 14)) { 3296 /* ^ */ 3297 #ifdef DBL_MAX_10_EXP 3298 ###### *nv_return = DBL_MAX_10_EXP; 3299 ###### return PERL_constant_ISNV; 3300 #else 3301 return PERL_constant_NOTDEF; 3302 #endif 3303 } 3304 ###### if (memEQ(name, "FLT_MAX_10_EXP", 14)) { 3305 /* ^ */ 3306 #ifdef FLT_MAX_10_EXP 3307 ###### *nv_return = FLT_MAX_10_EXP; 3308 ###### return PERL_constant_ISNV; 3309 #else 3310 return PERL_constant_NOTDEF; 3311 #endif 3312 } 3313 ###### break; 3314 case 'I': 3315 ###### if (memEQ(name, "DBL_MIN_10_EXP", 14)) { 3316 /* ^ */ 3317 #ifdef DBL_MIN_10_EXP 3318 ###### *nv_return = DBL_MIN_10_EXP; 3319 ###### return PERL_constant_ISNV; 3320 #else 3321 return PERL_constant_NOTDEF; 3322 #endif 3323 } 3324 ###### if (memEQ(name, "FLT_MIN_10_EXP", 14)) { 3325 /* ^ */ 3326 #ifdef FLT_MIN_10_EXP 3327 ###### *nv_return = FLT_MIN_10_EXP; 3328 ###### return PERL_constant_ISNV; 3329 #else 3330 return PERL_constant_NOTDEF; 3331 #endif 3332 } 3333 ###### break; 3334 case 'S': 3335 ###### if (memEQ(name, "CLOCKS_PER_SEC", 14)) { 3336 /* ^ */ 3337 #ifdef CLOCKS_PER_SEC 3338 ###### *iv_return = CLOCKS_PER_SEC; 3339 ###### return PERL_constant_ISIV; 3340 #else 3341 return PERL_constant_NOTDEF; 3342 #endif 3343 } 3344 ###### break; 3345 case 'T': 3346 ###### if (memEQ(name, "_SC_STREAM_MAX", 14)) { 3347 /* ^ */ 3348 #ifdef _SC_STREAM_MAX 3349 ###### *iv_return = _SC_STREAM_MAX; 3350 ###### return PERL_constant_ISIV; 3351 #else 3352 return PERL_constant_NOTDEF; 3353 #endif 3354 } 3355 ###### break; 3356 case 'X': 3357 ###### if (memEQ(name, "_POSIX_ARG_MAX", 14)) { 3358 /* ^ */ 3359 #ifdef _POSIX_ARG_MAX 3360 ###### *iv_return = _POSIX_ARG_MAX; 3361 ###### return PERL_constant_ISIV; 3362 #else 3363 *iv_return = 0; 3364 return PERL_constant_ISIV; 3365 #endif 3366 } 3367 ###### if (memEQ(name, "_POSIX_VERSION", 14)) { 3368 /* ^ */ 3369 #ifdef _POSIX_VERSION 3370 ###### *iv_return = _POSIX_VERSION; 3371 ###### return PERL_constant_ISIV; 3372 #else 3373 *iv_return = 0; 3374 return PERL_constant_ISIV; 3375 #endif 3376 } 3377 ###### break; 3378 case 'Z': 3379 ###### if (memEQ(name, "_SC_TZNAME_MAX", 14)) { 3380 /* ^ */ 3381 #ifdef _SC_TZNAME_MAX 3382 ###### *iv_return = _SC_TZNAME_MAX; 3383 ###### return PERL_constant_ISIV; 3384 #else 3385 return PERL_constant_NOTDEF; 3386 #endif 3387 } 3388 ###### break; 3389 } 3390 ###### return PERL_constant_NOTFOUND; 3391 } 3392 3393 static int 3394 ###### constant_15 (pTHX_ const char *name, IV *iv_return, NV *nv_return) { 3395 /* When generated this function returned values for the list of names given 3396 here. However, subsequent manual editing may have added or removed some. 3397 EPROTONOSUPPORT ESOCKTNOSUPPORT LDBL_MAX_10_EXP LDBL_MIN_10_EXP 3398 _POSIX_LINK_MAX _POSIX_NAME_MAX _POSIX_NO_TRUNC _POSIX_OPEN_MAX 3399 _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_VDISABLE _SC_JOB_CONTROL 3400 _SC_NGROUPS_MAX */ 3401 /* Offset 9 gives the best switch position. */ 3402 ###### switch (name[9]) { 3403 case '1': 3404 ###### if (memEQ(name, "LDBL_MAX_10_EXP", 15)) { 3405 /* ^ */ 3406 #ifdef LDBL_MAX_10_EXP 3407 ###### *nv_return = LDBL_MAX_10_EXP; 3408 ###### return PERL_constant_ISNV; 3409 #else 3410 return PERL_constant_NOTDEF; 3411 #endif 3412 } 3413 ###### if (memEQ(name, "LDBL_MIN_10_EXP", 15)) { 3414 /* ^ */ 3415 #ifdef LDBL_MIN_10_EXP 3416 ###### *nv_return = LDBL_MIN_10_EXP; 3417 ###### return PERL_constant_ISNV; 3418 #else 3419 return PERL_constant_NOTDEF; 3420 #endif 3421 } 3422 ###### break; 3423 case 'E': 3424 ###### if (memEQ(name, "_POSIX_OPEN_MAX", 15)) { 3425 /* ^ */ 3426 #ifdef _POSIX_OPEN_MAX 3427 ###### *iv_return = _POSIX_OPEN_MAX; 3428 ###### return PERL_constant_ISIV; 3429 #else 3430 *iv_return = 0; 3431 return PERL_constant_ISIV; 3432 #endif 3433 } 3434 ###### break; 3435 case 'I': 3436 ###### if (memEQ(name, "_POSIX_VDISABLE", 15)) { 3437 /* ^ */ 3438 #ifdef _POSIX_VDISABLE 3439 ###### *iv_return = _POSIX_VDISABLE; 3440 ###### return PERL_constant_ISIV; 3441 #else 3442 *iv_return = 0; 3443 return PERL_constant_ISIV; 3444 #endif 3445 } 3446 ###### break; 3447 case 'M': 3448 ###### if (memEQ(name, "_POSIX_NAME_MAX", 15)) { 3449 /* ^ */ 3450 #ifdef _POSIX_NAME_MAX 3451 ###### *iv_return = _POSIX_NAME_MAX; 3452 ###### return PERL_constant_ISIV; 3453 #else 3454 *iv_return = 0; 3455 return PERL_constant_ISIV; 3456 #endif 3457 } 3458 ###### break; 3459 case 'N': 3460 ###### if (memEQ(name, "_POSIX_LINK_MAX", 15)) { 3461 /* ^ */ 3462 #ifdef _POSIX_LINK_MAX 3463 ###### *iv_return = _POSIX_LINK_MAX; 3464 ###### return PERL_constant_ISIV; 3465 #else 3466 *iv_return = 0; 3467 return PERL_constant_ISIV; 3468 #endif 3469 } 3470 ###### break; 3471 case 'O': 3472 ###### if (memEQ(name, "_SC_JOB_CONTROL", 15)) { 3473 /* ^ */ 3474 #ifdef _SC_JOB_CONTROL 3475 ###### *iv_return = _SC_JOB_CONTROL; 3476 ###### return PERL_constant_ISIV; 3477 #else 3478 return PERL_constant_NOTDEF; 3479 #endif 3480 } 3481 ###### break; 3482 case 'P': 3483 ###### if (memEQ(name, "_POSIX_PIPE_BUF", 15)) { 3484 /* ^ */ 3485 #ifdef _POSIX_PIPE_BUF 3486 ###### *iv_return = _POSIX_PIPE_BUF; 3487 ###### return PERL_constant_ISIV; 3488 #else 3489 *iv_return = 0; 3490 return PERL_constant_ISIV; 3491 #endif 3492 } 3493 ###### if (memEQ(name, "_SC_NGROUPS_MAX", 15)) { 3494 /* ^ */ 3495 #ifdef _SC_NGROUPS_MAX 3496 ###### *iv_return = _SC_NGROUPS_MAX; 3497 ###### return PERL_constant_ISIV; 3498 #else 3499 return PERL_constant_NOTDEF; 3500 #endif 3501 } 3502 ###### break; 3503 case 'T': 3504 ###### if (memEQ(name, "_POSIX_PATH_MAX", 15)) { 3505 /* ^ */ 3506 #ifdef _POSIX_PATH_MAX 3507 ###### *iv_return = _POSIX_PATH_MAX; 3508 ###### return PERL_constant_ISIV; 3509 #else 3510 *iv_return = 0; 3511 return PERL_constant_ISIV; 3512 #endif 3513 } 3514 ###### break; 3515 case 'U': 3516 ###### if (memEQ(name, "EPROTONOSUPPORT", 15)) { 3517 /* ^ */ 3518 #ifdef EPROTONOSUPPORT 3519 ###### *iv_return = EPROTONOSUPPORT; 3520 ###### return PERL_constant_ISIV; 3521 #else 3522 return PERL_constant_NOTDEF; 3523 #endif 3524 } 3525 ###### if (memEQ(name, "ESOCKTNOSUPPORT", 15)) { 3526 /* ^ */ 3527 #ifdef ESOCKTNOSUPPORT 3528 ###### *iv_return = ESOCKTNOSUPPORT; 3529 ###### return PERL_constant_ISIV; 3530 #else 3531 return PERL_constant_NOTDEF; 3532 #endif 3533 } 3534 ###### break; 3535 case '_': 3536 ###### if (memEQ(name, "_POSIX_NO_TRUNC", 15)) { 3537 /* ^ */ 3538 #ifdef _POSIX_NO_TRUNC 3539 ###### *iv_return = _POSIX_NO_TRUNC; 3540 ###### return PERL_constant_ISIV; 3541 #else 3542 *iv_return = 0; 3543 return PERL_constant_ISIV; 3544 #endif 3545 } 3546 ###### br