1 /* -*- buffer-read-only: t -*- 2 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! 3 * This file is built by regen/keywords.pl from its data. 4 * Any changes made here will be lost! 5 */ 6 7 #include "EXTERN.h" 8 #define PERL_IN_KEYWORDS_C 9 #include "perl.h" 10 #include "keywords.h" 11 #include "feature.h" 12 13 I32 Perl_keyword(pTHX_ const char * name,I32 len,bool all_keywords)14Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) 15 { 16 PERL_ARGS_ASSERT_KEYWORD; 17 18 switch (len) 19 { 20 case 1: /* 5 tokens of length 1 */ 21 switch (name[0]) 22 { 23 case 'm': 24 { /* m */ 25 return KEY_m; 26 } 27 28 case 'q': 29 { /* q */ 30 return KEY_q; 31 } 32 33 case 's': 34 { /* s */ 35 return KEY_s; 36 } 37 38 case 'x': 39 { /* x */ 40 return -KEY_x; 41 } 42 43 case 'y': 44 { /* y */ 45 return KEY_y; 46 } 47 48 default: 49 goto unknown; 50 } 51 52 case 2: /* 19 tokens of length 2 */ 53 switch (name[0]) 54 { 55 case 'd': 56 if (name[1] == 'o') 57 { /* do */ 58 return KEY_do; 59 } 60 61 goto unknown; 62 63 case 'e': 64 if (name[1] == 'q') 65 { /* eq */ 66 return -KEY_eq; 67 } 68 69 goto unknown; 70 71 case 'f': 72 if (name[1] == 'c') 73 { /* fc */ 74 return (all_keywords || FEATURE_FC_IS_ENABLED ? -KEY_fc : 0); 75 } 76 77 goto unknown; 78 79 case 'g': 80 switch (name[1]) 81 { 82 case 'e': 83 { /* ge */ 84 return -KEY_ge; 85 } 86 87 case 't': 88 { /* gt */ 89 return -KEY_gt; 90 } 91 92 default: 93 goto unknown; 94 } 95 96 case 'i': 97 if (name[1] == 'f') 98 { /* if */ 99 return KEY_if; 100 } 101 102 goto unknown; 103 104 case 'l': 105 switch (name[1]) 106 { 107 case 'c': 108 { /* lc */ 109 return -KEY_lc; 110 } 111 112 case 'e': 113 { /* le */ 114 return -KEY_le; 115 } 116 117 case 't': 118 { /* lt */ 119 return -KEY_lt; 120 } 121 122 default: 123 goto unknown; 124 } 125 126 case 'm': 127 if (name[1] == 'y') 128 { /* my */ 129 return KEY_my; 130 } 131 132 goto unknown; 133 134 case 'n': 135 switch (name[1]) 136 { 137 case 'e': 138 { /* ne */ 139 return -KEY_ne; 140 } 141 142 case 'o': 143 { /* no */ 144 return KEY_no; 145 } 146 147 default: 148 goto unknown; 149 } 150 151 case 'o': 152 if (name[1] == 'r') 153 { /* or */ 154 return -KEY_or; 155 } 156 157 goto unknown; 158 159 case 'q': 160 switch (name[1]) 161 { 162 case 'q': 163 { /* qq */ 164 return KEY_qq; 165 } 166 167 case 'r': 168 { /* qr */ 169 return KEY_qr; 170 } 171 172 case 'w': 173 { /* qw */ 174 return KEY_qw; 175 } 176 177 case 'x': 178 { /* qx */ 179 return KEY_qx; 180 } 181 182 default: 183 goto unknown; 184 } 185 186 case 't': 187 if (name[1] == 'r') 188 { /* tr */ 189 return KEY_tr; 190 } 191 192 goto unknown; 193 194 case 'u': 195 if (name[1] == 'c') 196 { /* uc */ 197 return -KEY_uc; 198 } 199 200 goto unknown; 201 202 default: 203 goto unknown; 204 } 205 206 case 3: /* 28 tokens of length 3 */ 207 switch (name[0]) 208 { 209 case 'E': 210 if (name[1] == 'N' && 211 name[2] == 'D') 212 { /* END */ 213 return KEY_END; 214 } 215 216 goto unknown; 217 218 case 'a': 219 switch (name[1]) 220 { 221 case 'b': 222 if (name[2] == 's') 223 { /* abs */ 224 return -KEY_abs; 225 } 226 227 goto unknown; 228 229 case 'n': 230 if (name[2] == 'd') 231 { /* and */ 232 return -KEY_and; 233 } 234 235 goto unknown; 236 237 default: 238 goto unknown; 239 } 240 241 case 'c': 242 switch (name[1]) 243 { 244 case 'h': 245 if (name[2] == 'r') 246 { /* chr */ 247 return -KEY_chr; 248 } 249 250 goto unknown; 251 252 case 'm': 253 if (name[2] == 'p') 254 { /* cmp */ 255 return -KEY_cmp; 256 } 257 258 goto unknown; 259 260 case 'o': 261 if (name[2] == 's') 262 { /* cos */ 263 return -KEY_cos; 264 } 265 266 goto unknown; 267 268 default: 269 goto unknown; 270 } 271 272 case 'd': 273 if (name[1] == 'i' && 274 name[2] == 'e') 275 { /* die */ 276 return -KEY_die; 277 } 278 279 goto unknown; 280 281 case 'e': 282 switch (name[1]) 283 { 284 case 'o': 285 if (name[2] == 'f') 286 { /* eof */ 287 return -KEY_eof; 288 } 289 290 goto unknown; 291 292 case 'x': 293 if (name[2] == 'p') 294 { /* exp */ 295 return -KEY_exp; 296 } 297 298 goto unknown; 299 300 default: 301 goto unknown; 302 } 303 304 case 'f': 305 if (name[1] == 'o' && 306 name[2] == 'r') 307 { /* for */ 308 return KEY_for; 309 } 310 311 goto unknown; 312 313 case 'h': 314 if (name[1] == 'e' && 315 name[2] == 'x') 316 { /* hex */ 317 return -KEY_hex; 318 } 319 320 goto unknown; 321 322 case 'i': 323 if (name[1] == 'n' && 324 name[2] == 't') 325 { /* int */ 326 return -KEY_int; 327 } 328 329 goto unknown; 330 331 case 'l': 332 if (name[1] == 'o' && 333 name[2] == 'g') 334 { /* log */ 335 return -KEY_log; 336 } 337 338 goto unknown; 339 340 case 'm': 341 if (name[1] == 'a' && 342 name[2] == 'p') 343 { /* map */ 344 return KEY_map; 345 } 346 347 goto unknown; 348 349 case 'n': 350 if (name[1] == 'o' && 351 name[2] == 't') 352 { /* not */ 353 return -KEY_not; 354 } 355 356 goto unknown; 357 358 case 'o': 359 switch (name[1]) 360 { 361 case 'c': 362 if (name[2] == 't') 363 { /* oct */ 364 return -KEY_oct; 365 } 366 367 goto unknown; 368 369 case 'r': 370 if (name[2] == 'd') 371 { /* ord */ 372 return -KEY_ord; 373 } 374 375 goto unknown; 376 377 case 'u': 378 if (name[2] == 'r') 379 { /* our */ 380 return KEY_our; 381 } 382 383 goto unknown; 384 385 default: 386 goto unknown; 387 } 388 389 case 'p': 390 if (name[1] == 'o') 391 { 392 switch (name[2]) 393 { 394 case 'p': 395 { /* pop */ 396 return -KEY_pop; 397 } 398 399 case 's': 400 { /* pos */ 401 return KEY_pos; 402 } 403 404 default: 405 goto unknown; 406 } 407 } 408 409 goto unknown; 410 411 case 'r': 412 if (name[1] == 'e' && 413 name[2] == 'f') 414 { /* ref */ 415 return -KEY_ref; 416 } 417 418 goto unknown; 419 420 case 's': 421 switch (name[1]) 422 { 423 case 'a': 424 if (name[2] == 'y') 425 { /* say */ 426 return (all_keywords || FEATURE_SAY_IS_ENABLED ? KEY_say : 0); 427 } 428 429 goto unknown; 430 431 case 'i': 432 if (name[2] == 'n') 433 { /* sin */ 434 return -KEY_sin; 435 } 436 437 goto unknown; 438 439 case 'u': 440 if (name[2] == 'b') 441 { /* sub */ 442 return KEY_sub; 443 } 444 445 goto unknown; 446 447 default: 448 goto unknown; 449 } 450 451 case 't': 452 if (name[1] == 'i' && 453 name[2] == 'e') 454 { /* tie */ 455 return -KEY_tie; 456 } 457 458 goto unknown; 459 460 case 'u': 461 if (name[1] == 's' && 462 name[2] == 'e') 463 { /* use */ 464 return KEY_use; 465 } 466 467 goto unknown; 468 469 case 'v': 470 if (name[1] == 'e' && 471 name[2] == 'c') 472 { /* vec */ 473 return -KEY_vec; 474 } 475 476 goto unknown; 477 478 case 'x': 479 if (name[1] == 'o' && 480 name[2] == 'r') 481 { /* xor */ 482 return -KEY_xor; 483 } 484 485 goto unknown; 486 487 default: 488 goto unknown; 489 } 490 491 case 4: /* 40 tokens of length 4 */ 492 switch (name[0]) 493 { 494 case 'I': 495 if (name[1] == 'N' && 496 name[2] == 'I' && 497 name[3] == 'T') 498 { /* INIT */ 499 return KEY_INIT; 500 } 501 502 goto unknown; 503 504 case 'b': 505 if (name[1] == 'i' && 506 name[2] == 'n' && 507 name[3] == 'd') 508 { /* bind */ 509 return -KEY_bind; 510 } 511 512 goto unknown; 513 514 case 'c': 515 if (name[1] == 'h' && 516 name[2] == 'o' && 517 name[3] == 'p') 518 { /* chop */ 519 return -KEY_chop; 520 } 521 522 goto unknown; 523 524 case 'd': 525 if (name[1] == 'u' && 526 name[2] == 'm' && 527 name[3] == 'p') 528 { /* dump */ 529 return -KEY_dump; 530 } 531 532 goto unknown; 533 534 case 'e': 535 switch (name[1]) 536 { 537 case 'a': 538 if (name[2] == 'c' && 539 name[3] == 'h') 540 { /* each */ 541 return -KEY_each; 542 } 543 544 goto unknown; 545 546 case 'l': 547 if (name[2] == 's' && 548 name[3] == 'e') 549 { /* else */ 550 return KEY_else; 551 } 552 553 goto unknown; 554 555 case 'v': 556 if (name[2] == 'a' && 557 name[3] == 'l') 558 { /* eval */ 559 return KEY_eval; 560 } 561 562 goto unknown; 563 564 case 'x': 565 switch (name[2]) 566 { 567 case 'e': 568 if (name[3] == 'c') 569 { /* exec */ 570 return -KEY_exec; 571 } 572 573 goto unknown; 574 575 case 'i': 576 if (name[3] == 't') 577 { /* exit */ 578 return -KEY_exit; 579 } 580 581 goto unknown; 582 583 default: 584 goto unknown; 585 } 586 587 default: 588 goto unknown; 589 } 590 591 case 'f': 592 if (name[1] == 'o' && 593 name[2] == 'r' && 594 name[3] == 'k') 595 { /* fork */ 596 return -KEY_fork; 597 } 598 599 goto unknown; 600 601 case 'g': 602 switch (name[1]) 603 { 604 case 'e': 605 if (name[2] == 't' && 606 name[3] == 'c') 607 { /* getc */ 608 return -KEY_getc; 609 } 610 611 goto unknown; 612 613 case 'l': 614 if (name[2] == 'o' && 615 name[3] == 'b') 616 { /* glob */ 617 return KEY_glob; 618 } 619 620 goto unknown; 621 622 case 'o': 623 if (name[2] == 't' && 624 name[3] == 'o') 625 { /* goto */ 626 return KEY_goto; 627 } 628 629 goto unknown; 630 631 case 'r': 632 if (name[2] == 'e' && 633 name[3] == 'p') 634 { /* grep */ 635 return KEY_grep; 636 } 637 638 goto unknown; 639 640 default: 641 goto unknown; 642 } 643 644 case 'j': 645 if (name[1] == 'o' && 646 name[2] == 'i' && 647 name[3] == 'n') 648 { /* join */ 649 return -KEY_join; 650 } 651 652 goto unknown; 653 654 case 'k': 655 switch (name[1]) 656 { 657 case 'e': 658 if (name[2] == 'y' && 659 name[3] == 's') 660 { /* keys */ 661 return -KEY_keys; 662 } 663 664 goto unknown; 665 666 case 'i': 667 if (name[2] == 'l' && 668 name[3] == 'l') 669 { /* kill */ 670 return -KEY_kill; 671 } 672 673 goto unknown; 674 675 default: 676 goto unknown; 677 } 678 679 case 'l': 680 switch (name[1]) 681 { 682 case 'a': 683 if (name[2] == 's' && 684 name[3] == 't') 685 { /* last */ 686 return KEY_last; 687 } 688 689 goto unknown; 690 691 case 'i': 692 if (name[2] == 'n' && 693 name[3] == 'k') 694 { /* link */ 695 return -KEY_link; 696 } 697 698 goto unknown; 699 700 case 'o': 701 if (name[2] == 'c' && 702 name[3] == 'k') 703 { /* lock */ 704 return -KEY_lock; 705 } 706 707 goto unknown; 708 709 default: 710 goto unknown; 711 } 712 713 case 'n': 714 if (name[1] == 'e' && 715 name[2] == 'x' && 716 name[3] == 't') 717 { /* next */ 718 return KEY_next; 719 } 720 721 goto unknown; 722 723 case 'o': 724 if (name[1] == 'p' && 725 name[2] == 'e' && 726 name[3] == 'n') 727 { /* open */ 728 return -KEY_open; 729 } 730 731 goto unknown; 732 733 case 'p': 734 switch (name[1]) 735 { 736 case 'a': 737 if (name[2] == 'c' && 738 name[3] == 'k') 739 { /* pack */ 740 return -KEY_pack; 741 } 742 743 goto unknown; 744 745 case 'i': 746 if (name[2] == 'p' && 747 name[3] == 'e') 748 { /* pipe */ 749 return -KEY_pipe; 750 } 751 752 goto unknown; 753 754 case 'u': 755 if (name[2] == 's' && 756 name[3] == 'h') 757 { /* push */ 758 return -KEY_push; 759 } 760 761 goto unknown; 762 763 default: 764 goto unknown; 765 } 766 767 case 'r': 768 switch (name[1]) 769 { 770 case 'a': 771 if (name[2] == 'n' && 772 name[3] == 'd') 773 { /* rand */ 774 return -KEY_rand; 775 } 776 777 goto unknown; 778 779 case 'e': 780 switch (name[2]) 781 { 782 case 'a': 783 if (name[3] == 'd') 784 { /* read */ 785 return -KEY_read; 786 } 787 788 goto unknown; 789 790 case 'c': 791 if (name[3] == 'v') 792 { /* recv */ 793 return -KEY_recv; 794 } 795 796 goto unknown; 797 798 case 'd': 799 if (name[3] == 'o') 800 { /* redo */ 801 return KEY_redo; 802 } 803 804 goto unknown; 805 806 default: 807 goto unknown; 808 } 809 810 default: 811 goto unknown; 812 } 813 814 case 's': 815 switch (name[1]) 816 { 817 case 'e': 818 switch (name[2]) 819 { 820 case 'e': 821 if (name[3] == 'k') 822 { /* seek */ 823 return -KEY_seek; 824 } 825 826 goto unknown; 827 828 case 'n': 829 if (name[3] == 'd') 830 { /* send */ 831 return -KEY_send; 832 } 833 834 goto unknown; 835 836 default: 837 goto unknown; 838 } 839 840 case 'o': 841 if (name[2] == 'r' && 842 name[3] == 't') 843 { /* sort */ 844 return KEY_sort; 845 } 846 847 goto unknown; 848 849 case 'q': 850 if (name[2] == 'r' && 851 name[3] == 't') 852 { /* sqrt */ 853 return -KEY_sqrt; 854 } 855 856 goto unknown; 857 858 case 't': 859 if (name[2] == 'a' && 860 name[3] == 't') 861 { /* stat */ 862 return -KEY_stat; 863 } 864 865 goto unknown; 866 867 default: 868 goto unknown; 869 } 870 871 case 't': 872 switch (name[1]) 873 { 874 case 'e': 875 if (name[2] == 'l' && 876 name[3] == 'l') 877 { /* tell */ 878 return -KEY_tell; 879 } 880 881 goto unknown; 882 883 case 'i': 884 switch (name[2]) 885 { 886 case 'e': 887 if (name[3] == 'd') 888 { /* tied */ 889 return -KEY_tied; 890 } 891 892 goto unknown; 893 894 case 'm': 895 if (name[3] == 'e') 896 { /* time */ 897 return -KEY_time; 898 } 899 900 goto unknown; 901 902 default: 903 goto unknown; 904 } 905 906 default: 907 goto unknown; 908 } 909 910 case 'w': 911 switch (name[1]) 912 { 913 case 'a': 914 switch (name[2]) 915 { 916 case 'i': 917 if (name[3] == 't') 918 { /* wait */ 919 return -KEY_wait; 920 } 921 922 goto unknown; 923 924 case 'r': 925 if (name[3] == 'n') 926 { /* warn */ 927 return -KEY_warn; 928 } 929 930 goto unknown; 931 932 default: 933 goto unknown; 934 } 935 936 case 'h': 937 if (name[2] == 'e' && 938 name[3] == 'n') 939 { /* when */ 940 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0); 941 } 942 943 goto unknown; 944 945 default: 946 goto unknown; 947 } 948 949 default: 950 goto unknown; 951 } 952 953 case 5: /* 39 tokens of length 5 */ 954 switch (name[0]) 955 { 956 case 'B': 957 if (name[1] == 'E' && 958 name[2] == 'G' && 959 name[3] == 'I' && 960 name[4] == 'N') 961 { /* BEGIN */ 962 return KEY_BEGIN; 963 } 964 965 goto unknown; 966 967 case 'C': 968 if (name[1] == 'H' && 969 name[2] == 'E' && 970 name[3] == 'C' && 971 name[4] == 'K') 972 { /* CHECK */ 973 return KEY_CHECK; 974 } 975 976 goto unknown; 977 978 case 'a': 979 switch (name[1]) 980 { 981 case 'l': 982 if (name[2] == 'a' && 983 name[3] == 'r' && 984 name[4] == 'm') 985 { /* alarm */ 986 return -KEY_alarm; 987 } 988 989 goto unknown; 990 991 case 't': 992 if (name[2] == 'a' && 993 name[3] == 'n' && 994 name[4] == '2') 995 { /* atan2 */ 996 return -KEY_atan2; 997 } 998 999 goto unknown; 1000 1001 default: 1002 goto unknown; 1003 } 1004 1005 case 'b': 1006 switch (name[1]) 1007 { 1008 case 'l': 1009 if (name[2] == 'e' && 1010 name[3] == 's' && 1011 name[4] == 's') 1012 { /* bless */ 1013 return -KEY_bless; 1014 } 1015 1016 goto unknown; 1017 1018 case 'r': 1019 if (name[2] == 'e' && 1020 name[3] == 'a' && 1021 name[4] == 'k') 1022 { /* break */ 1023 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0); 1024 } 1025 1026 goto unknown; 1027 1028 default: 1029 goto unknown; 1030 } 1031 1032 case 'c': 1033 switch (name[1]) 1034 { 1035 case 'h': 1036 switch (name[2]) 1037 { 1038 case 'd': 1039 if (name[3] == 'i' && 1040 name[4] == 'r') 1041 { /* chdir */ 1042 return -KEY_chdir; 1043 } 1044 1045 goto unknown; 1046 1047 case 'm': 1048 if (name[3] == 'o' && 1049 name[4] == 'd') 1050 { /* chmod */ 1051 return -KEY_chmod; 1052 } 1053 1054 goto unknown; 1055 1056 case 'o': 1057 switch (name[3]) 1058 { 1059 case 'm': 1060 if (name[4] == 'p') 1061 { /* chomp */ 1062 return -KEY_chomp; 1063 } 1064 1065 goto unknown; 1066 1067 case 'w': 1068 if (name[4] == 'n') 1069 { /* chown */ 1070 return -KEY_chown; 1071 } 1072 1073 goto unknown; 1074 1075 default: 1076 goto unknown; 1077 } 1078 1079 default: 1080 goto unknown; 1081 } 1082 1083 case 'l': 1084 if (name[2] == 'o' && 1085 name[3] == 's' && 1086 name[4] == 'e') 1087 { /* close */ 1088 return -KEY_close; 1089 } 1090 1091 goto unknown; 1092 1093 case 'r': 1094 if (name[2] == 'y' && 1095 name[3] == 'p' && 1096 name[4] == 't') 1097 { /* crypt */ 1098 return -KEY_crypt; 1099 } 1100 1101 goto unknown; 1102 1103 default: 1104 goto unknown; 1105 } 1106 1107 case 'e': 1108 if (name[1] == 'l' && 1109 name[2] == 's' && 1110 name[3] == 'i' && 1111 name[4] == 'f') 1112 { /* elsif */ 1113 return KEY_elsif; 1114 } 1115 1116 goto unknown; 1117 1118 case 'f': 1119 switch (name[1]) 1120 { 1121 case 'c': 1122 if (name[2] == 'n' && 1123 name[3] == 't' && 1124 name[4] == 'l') 1125 { /* fcntl */ 1126 return -KEY_fcntl; 1127 } 1128 1129 goto unknown; 1130 1131 case 'l': 1132 if (name[2] == 'o' && 1133 name[3] == 'c' && 1134 name[4] == 'k') 1135 { /* flock */ 1136 return -KEY_flock; 1137 } 1138 1139 goto unknown; 1140 1141 default: 1142 goto unknown; 1143 } 1144 1145 case 'g': 1146 if (name[1] == 'i' && 1147 name[2] == 'v' && 1148 name[3] == 'e' && 1149 name[4] == 'n') 1150 { /* given */ 1151 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0); 1152 } 1153 1154 goto unknown; 1155 1156 case 'i': 1157 switch (name[1]) 1158 { 1159 case 'n': 1160 if (name[2] == 'd' && 1161 name[3] == 'e' && 1162 name[4] == 'x') 1163 { /* index */ 1164 return -KEY_index; 1165 } 1166 1167 goto unknown; 1168 1169 case 'o': 1170 if (name[2] == 'c' && 1171 name[3] == 't' && 1172 name[4] == 'l') 1173 { /* ioctl */ 1174 return -KEY_ioctl; 1175 } 1176 1177 goto unknown; 1178 1179 default: 1180 goto unknown; 1181 } 1182 1183 case 'l': 1184 switch (name[1]) 1185 { 1186 case 'o': 1187 if (name[2] == 'c' && 1188 name[3] == 'a' && 1189 name[4] == 'l') 1190 { /* local */ 1191 return KEY_local; 1192 } 1193 1194 goto unknown; 1195 1196 case 's': 1197 if (name[2] == 't' && 1198 name[3] == 'a' && 1199 name[4] == 't') 1200 { /* lstat */ 1201 return -KEY_lstat; 1202 } 1203 1204 goto unknown; 1205 1206 default: 1207 goto unknown; 1208 } 1209 1210 case 'm': 1211 if (name[1] == 'k' && 1212 name[2] == 'd' && 1213 name[3] == 'i' && 1214 name[4] == 'r') 1215 { /* mkdir */ 1216 return -KEY_mkdir; 1217 } 1218 1219 goto unknown; 1220 1221 case 'p': 1222 if (name[1] == 'r' && 1223 name[2] == 'i' && 1224 name[3] == 'n' && 1225 name[4] == 't') 1226 { /* print */ 1227 return KEY_print; 1228 } 1229 1230 goto unknown; 1231 1232 case 'r': 1233 switch (name[1]) 1234 { 1235 case 'e': 1236 if (name[2] == 's' && 1237 name[3] == 'e' && 1238 name[4] == 't') 1239 { /* reset */ 1240 return -KEY_reset; 1241 } 1242 1243 goto unknown; 1244 1245 case 'm': 1246 if (name[2] == 'd' && 1247 name[3] == 'i' && 1248 name[4] == 'r') 1249 { /* rmdir */ 1250 return -KEY_rmdir; 1251 } 1252 1253 goto unknown; 1254 1255 default: 1256 goto unknown; 1257 } 1258 1259 case 's': 1260 switch (name[1]) 1261 { 1262 case 'e': 1263 if (name[2] == 'm' && 1264 name[3] == 'o' && 1265 name[4] == 'p') 1266 { /* semop */ 1267 return -KEY_semop; 1268 } 1269 1270 goto unknown; 1271 1272 case 'h': 1273 if (name[2] == 'i' && 1274 name[3] == 'f' && 1275 name[4] == 't') 1276 { /* shift */ 1277 return -KEY_shift; 1278 } 1279 1280 goto unknown; 1281 1282 case 'l': 1283 if (name[2] == 'e' && 1284 name[3] == 'e' && 1285 name[4] == 'p') 1286 { /* sleep */ 1287 return -KEY_sleep; 1288 } 1289 1290 goto unknown; 1291 1292 case 'p': 1293 if (name[2] == 'l' && 1294 name[3] == 'i' && 1295 name[4] == 't') 1296 { /* split */ 1297 return KEY_split; 1298 } 1299 1300 goto unknown; 1301 1302 case 'r': 1303 if (name[2] == 'a' && 1304 name[3] == 'n' && 1305 name[4] == 'd') 1306 { /* srand */ 1307 return -KEY_srand; 1308 } 1309 1310 goto unknown; 1311 1312 case 't': 1313 switch (name[2]) 1314 { 1315 case 'a': 1316 if (name[3] == 't' && 1317 name[4] == 'e') 1318 { /* state */ 1319 return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0); 1320 } 1321 1322 goto unknown; 1323 1324 case 'u': 1325 if (name[3] == 'd' && 1326 name[4] == 'y') 1327 { /* study */ 1328 return KEY_study; 1329 } 1330 1331 goto unknown; 1332 1333 default: 1334 goto unknown; 1335 } 1336 1337 default: 1338 goto unknown; 1339 } 1340 1341 case 't': 1342 if (name[1] == 'i' && 1343 name[2] == 'm' && 1344 name[3] == 'e' && 1345 name[4] == 's') 1346 { /* times */ 1347 return -KEY_times; 1348 } 1349 1350 goto unknown; 1351 1352 case 'u': 1353 switch (name[1]) 1354 { 1355 case 'm': 1356 if (name[2] == 'a' && 1357 name[3] == 's' && 1358 name[4] == 'k') 1359 { /* umask */ 1360 return -KEY_umask; 1361 } 1362 1363 goto unknown; 1364 1365 case 'n': 1366 switch (name[2]) 1367 { 1368 case 'd': 1369 if (name[3] == 'e' && 1370 name[4] == 'f') 1371 { /* undef */ 1372 return KEY_undef; 1373 } 1374 1375 goto unknown; 1376 1377 case 't': 1378 if (name[3] == 'i') 1379 { 1380 switch (name[4]) 1381 { 1382 case 'e': 1383 { /* untie */ 1384 return -KEY_untie; 1385 } 1386 1387 case 'l': 1388 { /* until */ 1389 return KEY_until; 1390 } 1391 1392 default: 1393 goto unknown; 1394 } 1395 } 1396 1397 goto unknown; 1398 1399 default: 1400 goto unknown; 1401 } 1402 1403 case 't': 1404 if (name[2] == 'i' && 1405 name[3] == 'm' && 1406 name[4] == 'e') 1407 { /* utime */ 1408 return -KEY_utime; 1409 } 1410 1411 goto unknown; 1412 1413 default: 1414 goto unknown; 1415 } 1416 1417 case 'w': 1418 switch (name[1]) 1419 { 1420 case 'h': 1421 if (name[2] == 'i' && 1422 name[3] == 'l' && 1423 name[4] == 'e') 1424 { /* while */ 1425 return KEY_while; 1426 } 1427 1428 goto unknown; 1429 1430 case 'r': 1431 if (name[2] == 'i' && 1432 name[3] == 't' && 1433 name[4] == 'e') 1434 { /* write */ 1435 return -KEY_write; 1436 } 1437 1438 goto unknown; 1439 1440 default: 1441 goto unknown; 1442 } 1443 1444 default: 1445 goto unknown; 1446 } 1447 1448 case 6: /* 33 tokens of length 6 */ 1449 switch (name[0]) 1450 { 1451 case 'a': 1452 if (name[1] == 'c' && 1453 name[2] == 'c' && 1454 name[3] == 'e' && 1455 name[4] == 'p' && 1456 name[5] == 't') 1457 { /* accept */ 1458 return -KEY_accept; 1459 } 1460 1461 goto unknown; 1462 1463 case 'c': 1464 switch (name[1]) 1465 { 1466 case 'a': 1467 if (name[2] == 'l' && 1468 name[3] == 'l' && 1469 name[4] == 'e' && 1470 name[5] == 'r') 1471 { /* caller */ 1472 return -KEY_caller; 1473 } 1474 1475 goto unknown; 1476 1477 case 'h': 1478 if (name[2] == 'r' && 1479 name[3] == 'o' && 1480 name[4] == 'o' && 1481 name[5] == 't') 1482 { /* chroot */ 1483 return -KEY_chroot; 1484 } 1485 1486 goto unknown; 1487 1488 default: 1489 goto unknown; 1490 } 1491 1492 case 'd': 1493 if (name[1] == 'e' && 1494 name[2] == 'l' && 1495 name[3] == 'e' && 1496 name[4] == 't' && 1497 name[5] == 'e') 1498 { /* delete */ 1499 return KEY_delete; 1500 } 1501 1502 goto unknown; 1503 1504 case 'e': 1505 switch (name[1]) 1506 { 1507 case 'l': 1508 if (name[2] == 's' && 1509 name[3] == 'e' && 1510 name[4] == 'i' && 1511 name[5] == 'f') 1512 { /* elseif */ 1513 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif"); 1514 } 1515 1516 goto unknown; 1517 1518 case 'x': 1519 if (name[2] == 'i' && 1520 name[3] == 's' && 1521 name[4] == 't' && 1522 name[5] == 's') 1523 { /* exists */ 1524 return KEY_exists; 1525 } 1526 1527 goto unknown; 1528 1529 default: 1530 goto unknown; 1531 } 1532 1533 case 'f': 1534 switch (name[1]) 1535 { 1536 case 'i': 1537 if (name[2] == 'l' && 1538 name[3] == 'e' && 1539 name[4] == 'n' && 1540 name[5] == 'o') 1541 { /* fileno */ 1542 return -KEY_fileno; 1543 } 1544 1545 goto unknown; 1546 1547 case 'o': 1548 if (name[2] == 'r' && 1549 name[3] == 'm' && 1550 name[4] == 'a' && 1551 name[5] == 't') 1552 { /* format */ 1553 return KEY_format; 1554 } 1555 1556 goto unknown; 1557 1558 default: 1559 goto unknown; 1560 } 1561 1562 case 'g': 1563 if (name[1] == 'm' && 1564 name[2] == 't' && 1565 name[3] == 'i' && 1566 name[4] == 'm' && 1567 name[5] == 'e') 1568 { /* gmtime */ 1569 return -KEY_gmtime; 1570 } 1571 1572 goto unknown; 1573 1574 case 'l': 1575 switch (name[1]) 1576 { 1577 case 'e': 1578 if (name[2] == 'n' && 1579 name[3] == 'g' && 1580 name[4] == 't' && 1581 name[5] == 'h') 1582 { /* length */ 1583 return -KEY_length; 1584 } 1585 1586 goto unknown; 1587 1588 case 'i': 1589 if (name[2] == 's' && 1590 name[3] == 't' && 1591 name[4] == 'e' && 1592 name[5] == 'n') 1593 { /* listen */ 1594 return -KEY_listen; 1595 } 1596 1597 goto unknown; 1598 1599 default: 1600 goto unknown; 1601 } 1602 1603 case 'm': 1604 if (name[1] == 's' && 1605 name[2] == 'g') 1606 { 1607 switch (name[3]) 1608 { 1609 case 'c': 1610 if (name[4] == 't' && 1611 name[5] == 'l') 1612 { /* msgctl */ 1613 return -KEY_msgctl; 1614 } 1615 1616 goto unknown; 1617 1618 case 'g': 1619 if (name[4] == 'e' && 1620 name[5] == 't') 1621 { /* msgget */ 1622 return -KEY_msgget; 1623 } 1624 1625 goto unknown; 1626 1627 case 'r': 1628 if (name[4] == 'c' && 1629 name[5] == 'v') 1630 { /* msgrcv */ 1631 return -KEY_msgrcv; 1632 } 1633 1634 goto unknown; 1635 1636 case 's': 1637 if (name[4] == 'n' && 1638 name[5] == 'd') 1639 { /* msgsnd */ 1640 return -KEY_msgsnd; 1641 } 1642 1643 goto unknown; 1644 1645 default: 1646 goto unknown; 1647 } 1648 } 1649 1650 goto unknown; 1651 1652 case 'p': 1653 if (name[1] == 'r' && 1654 name[2] == 'i' && 1655 name[3] == 'n' && 1656 name[4] == 't' && 1657 name[5] == 'f') 1658 { /* printf */ 1659 return KEY_printf; 1660 } 1661 1662 goto unknown; 1663 1664 case 'r': 1665 switch (name[1]) 1666 { 1667 case 'e': 1668 switch (name[2]) 1669 { 1670 case 'n': 1671 if (name[3] == 'a' && 1672 name[4] == 'm' && 1673 name[5] == 'e') 1674 { /* rename */ 1675 return -KEY_rename; 1676 } 1677 1678 goto unknown; 1679 1680 case 't': 1681 if (name[3] == 'u' && 1682 name[4] == 'r' && 1683 name[5] == 'n') 1684 { /* return */ 1685 return KEY_return; 1686 } 1687 1688 goto unknown; 1689 1690 default: 1691 goto unknown; 1692 } 1693 1694 case 'i': 1695 if (name[2] == 'n' && 1696 name[3] == 'd' && 1697 name[4] == 'e' && 1698 name[5] == 'x') 1699 { /* rindex */ 1700 return -KEY_rindex; 1701 } 1702 1703 goto unknown; 1704 1705 default: 1706 goto unknown; 1707 } 1708 1709 case 's': 1710 switch (name[1]) 1711 { 1712 case 'c': 1713 if (name[2] == 'a' && 1714 name[3] == 'l' && 1715 name[4] == 'a' && 1716 name[5] == 'r') 1717 { /* scalar */ 1718 return KEY_scalar; 1719 } 1720 1721 goto unknown; 1722 1723 case 'e': 1724 switch (name[2]) 1725 { 1726 case 'l': 1727 if (name[3] == 'e' && 1728 name[4] == 'c' && 1729 name[5] == 't') 1730 { /* select */ 1731 return -KEY_select; 1732 } 1733 1734 goto unknown; 1735 1736 case 'm': 1737 switch (name[3]) 1738 { 1739 case 'c': 1740 if (name[4] == 't' && 1741 name[5] == 'l') 1742 { /* semctl */ 1743 return -KEY_semctl; 1744 } 1745 1746 goto unknown; 1747 1748 case 'g': 1749 if (name[4] == 'e' && 1750 name[5] == 't') 1751 { /* semget */ 1752 return -KEY_semget; 1753 } 1754 1755 goto unknown; 1756 1757 default: 1758 goto unknown; 1759 } 1760 1761 default: 1762 goto unknown; 1763 } 1764 1765 case 'h': 1766 if (name[2] == 'm') 1767 { 1768 switch (name[3]) 1769 { 1770 case 'c': 1771 if (name[4] == 't' && 1772 name[5] == 'l') 1773 { /* shmctl */ 1774 return -KEY_shmctl; 1775 } 1776 1777 goto unknown; 1778 1779 case 'g': 1780 if (name[4] == 'e' && 1781 name[5] == 't') 1782 { /* shmget */ 1783 return -KEY_shmget; 1784 } 1785 1786 goto unknown; 1787 1788 default: 1789 goto unknown; 1790 } 1791 } 1792 1793 goto unknown; 1794 1795 case 'o': 1796 if (name[2] == 'c' && 1797 name[3] == 'k' && 1798 name[4] == 'e' && 1799 name[5] == 't') 1800 { /* socket */ 1801 return -KEY_socket; 1802 } 1803 1804 goto unknown; 1805 1806 case 'p': 1807 if (name[2] == 'l' && 1808 name[3] == 'i' && 1809 name[4] == 'c' && 1810 name[5] == 'e') 1811 { /* splice */ 1812 return -KEY_splice; 1813 } 1814 1815 goto unknown; 1816 1817 case 'u': 1818 if (name[2] == 'b' && 1819 name[3] == 's' && 1820 name[4] == 't' && 1821 name[5] == 'r') 1822 { /* substr */ 1823 return -KEY_substr; 1824 } 1825 1826 goto unknown; 1827 1828 case 'y': 1829 if (name[2] == 's' && 1830 name[3] == 't' && 1831 name[4] == 'e' && 1832 name[5] == 'm') 1833 { /* system */ 1834 return -KEY_system; 1835 } 1836 1837 goto unknown; 1838 1839 default: 1840 goto unknown; 1841 } 1842 1843 case 'u': 1844 if (name[1] == 'n') 1845 { 1846 switch (name[2]) 1847 { 1848 case 'l': 1849 switch (name[3]) 1850 { 1851 case 'e': 1852 if (name[4] == 's' && 1853 name[5] == 's') 1854 { /* unless */ 1855 return KEY_unless; 1856 } 1857 1858 goto unknown; 1859 1860 case 'i': 1861 if (name[4] == 'n' && 1862 name[5] == 'k') 1863 { /* unlink */ 1864 return -KEY_unlink; 1865 } 1866 1867 goto unknown; 1868 1869 default: 1870 goto unknown; 1871 } 1872 1873 case 'p': 1874 if (name[3] == 'a' && 1875 name[4] == 'c' && 1876 name[5] == 'k') 1877 { /* unpack */ 1878 return -KEY_unpack; 1879 } 1880 1881 goto unknown; 1882 1883 default: 1884 goto unknown; 1885 } 1886 } 1887 1888 goto unknown; 1889 1890 case 'v': 1891 if (name[1] == 'a' && 1892 name[2] == 'l' && 1893 name[3] == 'u' && 1894 name[4] == 'e' && 1895 name[5] == 's') 1896 { /* values */ 1897 return -KEY_values; 1898 } 1899 1900 goto unknown; 1901 1902 default: 1903 goto unknown; 1904 } 1905 1906 case 7: /* 30 tokens of length 7 */ 1907 switch (name[0]) 1908 { 1909 case 'D': 1910 if (name[1] == 'E' && 1911 name[2] == 'S' && 1912 name[3] == 'T' && 1913 name[4] == 'R' && 1914 name[5] == 'O' && 1915 name[6] == 'Y') 1916 { /* DESTROY */ 1917 return KEY_DESTROY; 1918 } 1919 1920 goto unknown; 1921 1922 case '_': 1923 if (name[1] == '_') 1924 { 1925 switch (name[2]) 1926 { 1927 case 'E': 1928 if (name[3] == 'N' && 1929 name[4] == 'D' && 1930 name[5] == '_' && 1931 name[6] == '_') 1932 { /* __END__ */ 1933 return KEY___END__; 1934 } 1935 1936 goto unknown; 1937 1938 case 'S': 1939 if (name[3] == 'U' && 1940 name[4] == 'B' && 1941 name[5] == '_' && 1942 name[6] == '_') 1943 { /* __SUB__ */ 1944 return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0); 1945 } 1946 1947 goto unknown; 1948 1949 default: 1950 goto unknown; 1951 } 1952 } 1953 1954 goto unknown; 1955 1956 case 'b': 1957 if (name[1] == 'i' && 1958 name[2] == 'n' && 1959 name[3] == 'm' && 1960 name[4] == 'o' && 1961 name[5] == 'd' && 1962 name[6] == 'e') 1963 { /* binmode */ 1964 return -KEY_binmode; 1965 } 1966 1967 goto unknown; 1968 1969 case 'c': 1970 if (name[1] == 'o' && 1971 name[2] == 'n' && 1972 name[3] == 'n' && 1973 name[4] == 'e' && 1974 name[5] == 'c' && 1975 name[6] == 't') 1976 { /* connect */ 1977 return -KEY_connect; 1978 } 1979 1980 goto unknown; 1981 1982 case 'd': 1983 switch (name[1]) 1984 { 1985 case 'b': 1986 if (name[2] == 'm' && 1987 name[3] == 'o' && 1988 name[4] == 'p' && 1989 name[5] == 'e' && 1990 name[6] == 'n') 1991 { /* dbmopen */ 1992 return -KEY_dbmopen; 1993 } 1994 1995 goto unknown; 1996 1997 case 'e': 1998 if (name[2] == 'f') 1999 { 2000 switch (name[3]) 2001 { 2002 case 'a': 2003 if (name[4] == 'u' && 2004 name[5] == 'l' && 2005 name[6] == 't') 2006 { /* default */ 2007 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0); 2008 } 2009 2010 goto unknown; 2011 2012 case 'i': 2013 if (name[4] == 'n' && 2014 name[5] == 'e' && 2015 name[6] == 'd') 2016 { /* defined */ 2017 return KEY_defined; 2018 } 2019 2020 goto unknown; 2021 2022 default: 2023 goto unknown; 2024 } 2025 } 2026 2027 goto unknown; 2028 2029 default: 2030 goto unknown; 2031 } 2032 2033 case 'f': 2034 if (name[1] == 'o' && 2035 name[2] == 'r' && 2036 name[3] == 'e' && 2037 name[4] == 'a' && 2038 name[5] == 'c' && 2039 name[6] == 'h') 2040 { /* foreach */ 2041 return KEY_foreach; 2042 } 2043 2044 goto unknown; 2045 2046 case 'g': 2047 if (name[1] == 'e' && 2048 name[2] == 't' && 2049 name[3] == 'p') 2050 { 2051 switch (name[4]) 2052 { 2053 case 'g': 2054 if (name[5] == 'r' && 2055 name[6] == 'p') 2056 { /* getpgrp */ 2057 return -KEY_getpgrp; 2058 } 2059 2060 goto unknown; 2061 2062 case 'p': 2063 if (name[5] == 'i' && 2064 name[6] == 'd') 2065 { /* getppid */ 2066 return -KEY_getppid; 2067 } 2068 2069 goto unknown; 2070 2071 default: 2072 goto unknown; 2073 } 2074 } 2075 2076 goto unknown; 2077 2078 case 'l': 2079 if (name[1] == 'c' && 2080 name[2] == 'f' && 2081 name[3] == 'i' && 2082 name[4] == 'r' && 2083 name[5] == 's' && 2084 name[6] == 't') 2085 { /* lcfirst */ 2086 return -KEY_lcfirst; 2087 } 2088 2089 goto unknown; 2090 2091 case 'o': 2092 if (name[1] == 'p' && 2093 name[2] == 'e' && 2094 name[3] == 'n' && 2095 name[4] == 'd' && 2096 name[5] == 'i' && 2097 name[6] == 'r') 2098 { /* opendir */ 2099 return -KEY_opendir; 2100 } 2101 2102 goto unknown; 2103 2104 case 'p': 2105 if (name[1] == 'a' && 2106 name[2] == 'c' && 2107 name[3] == 'k' && 2108 name[4] == 'a' && 2109 name[5] == 'g' && 2110 name[6] == 'e') 2111 { /* package */ 2112 return KEY_package; 2113 } 2114 2115 goto unknown; 2116 2117 case 'r': 2118 if (name[1] == 'e') 2119 { 2120 switch (name[2]) 2121 { 2122 case 'a': 2123 if (name[3] == 'd' && 2124 name[4] == 'd' && 2125 name[5] == 'i' && 2126 name[6] == 'r') 2127 { /* readdir */ 2128 return -KEY_readdir; 2129 } 2130 2131 goto unknown; 2132 2133 case 'q': 2134 if (name[3] == 'u' && 2135 name[4] == 'i' && 2136 name[5] == 'r' && 2137 name[6] == 'e') 2138 { /* require */ 2139 return KEY_require; 2140 } 2141 2142 goto unknown; 2143 2144 case 'v': 2145 if (name[3] == 'e' && 2146 name[4] == 'r' && 2147 name[5] == 's' && 2148 name[6] == 'e') 2149 { /* reverse */ 2150 return -KEY_reverse; 2151 } 2152 2153 goto unknown; 2154 2155 default: 2156 goto unknown; 2157 } 2158 } 2159 2160 goto unknown; 2161 2162 case 's': 2163 switch (name[1]) 2164 { 2165 case 'e': 2166 switch (name[2]) 2167 { 2168 case 'e': 2169 if (name[3] == 'k' && 2170 name[4] == 'd' && 2171 name[5] == 'i' && 2172 name[6] == 'r') 2173 { /* seekdir */ 2174 return -KEY_seekdir; 2175 } 2176 2177 goto unknown; 2178 2179 case 't': 2180 if (name[3] == 'p' && 2181 name[4] == 'g' && 2182 name[5] == 'r' && 2183 name[6] == 'p') 2184 { /* setpgrp */ 2185 return -KEY_setpgrp; 2186 } 2187 2188 goto unknown; 2189 2190 default: 2191 goto unknown; 2192 } 2193 2194 case 'h': 2195 if (name[2] == 'm' && 2196 name[3] == 'r' && 2197 name[4] == 'e' && 2198 name[5] == 'a' && 2199 name[6] == 'd') 2200 { /* shmread */ 2201 return -KEY_shmread; 2202 } 2203 2204 goto unknown; 2205 2206 case 'p': 2207 if (name[2] == 'r' && 2208 name[3] == 'i' && 2209 name[4] == 'n' && 2210 name[5] == 't' && 2211 name[6] == 'f') 2212 { /* sprintf */ 2213 return -KEY_sprintf; 2214 } 2215 2216 goto unknown; 2217 2218 case 'y': 2219 switch (name[2]) 2220 { 2221 case 'm': 2222 if (name[3] == 'l' && 2223 name[4] == 'i' && 2224 name[5] == 'n' && 2225 name[6] == 'k') 2226 { /* symlink */ 2227 return -KEY_symlink; 2228 } 2229 2230 goto unknown; 2231 2232 case 's': 2233 switch (name[3]) 2234 { 2235 case 'c': 2236 if (name[4] == 'a' && 2237 name[5] == 'l' && 2238 name[6] == 'l') 2239 { /* syscall */ 2240 return -KEY_syscall; 2241 } 2242 2243 goto unknown; 2244 2245 case 'o': 2246 if (name[4] == 'p' && 2247 name[5] == 'e' && 2248 name[6] == 'n') 2249 { /* sysopen */ 2250 return -KEY_sysopen; 2251 } 2252 2253 goto unknown; 2254 2255 case 'r': 2256 if (name[4] == 'e' && 2257 name[5] == 'a' && 2258 name[6] == 'd') 2259 { /* sysread */ 2260 return -KEY_sysread; 2261 } 2262 2263 goto unknown; 2264 2265 case 's': 2266 if (name[4] == 'e' && 2267 name[5] == 'e' && 2268 name[6] == 'k') 2269 { /* sysseek */ 2270 return -KEY_sysseek; 2271 } 2272 2273 goto unknown; 2274 2275 default: 2276 goto unknown; 2277 } 2278 2279 default: 2280 goto unknown; 2281 } 2282 2283 default: 2284 goto unknown; 2285 } 2286 2287 case 't': 2288 if (name[1] == 'e' && 2289 name[2] == 'l' && 2290 name[3] == 'l' && 2291 name[4] == 'd' && 2292 name[5] == 'i' && 2293 name[6] == 'r') 2294 { /* telldir */ 2295 return -KEY_telldir; 2296 } 2297 2298 goto unknown; 2299 2300 case 'u': 2301 switch (name[1]) 2302 { 2303 case 'c': 2304 if (name[2] == 'f' && 2305 name[3] == 'i' && 2306 name[4] == 'r' && 2307 name[5] == 's' && 2308 name[6] == 't') 2309 { /* ucfirst */ 2310 return -KEY_ucfirst; 2311 } 2312 2313 goto unknown; 2314 2315 case 'n': 2316 if (name[2] == 's' && 2317 name[3] == 'h' && 2318 name[4] == 'i' && 2319 name[5] == 'f' && 2320 name[6] == 't') 2321 { /* unshift */ 2322 return -KEY_unshift; 2323 } 2324 2325 goto unknown; 2326 2327 default: 2328 goto unknown; 2329 } 2330 2331 case 'w': 2332 if (name[1] == 'a' && 2333 name[2] == 'i' && 2334 name[3] == 't' && 2335 name[4] == 'p' && 2336 name[5] == 'i' && 2337 name[6] == 'd') 2338 { /* waitpid */ 2339 return -KEY_waitpid; 2340 } 2341 2342 goto unknown; 2343 2344 default: 2345 goto unknown; 2346 } 2347 2348 case 8: /* 26 tokens of length 8 */ 2349 switch (name[0]) 2350 { 2351 case 'A': 2352 if (name[1] == 'U' && 2353 name[2] == 'T' && 2354 name[3] == 'O' && 2355 name[4] == 'L' && 2356 name[5] == 'O' && 2357 name[6] == 'A' && 2358 name[7] == 'D') 2359 { /* AUTOLOAD */ 2360 return KEY_AUTOLOAD; 2361 } 2362 2363 goto unknown; 2364 2365 case '_': 2366 if (name[1] == '_') 2367 { 2368 switch (name[2]) 2369 { 2370 case 'D': 2371 if (name[3] == 'A' && 2372 name[4] == 'T' && 2373 name[5] == 'A' && 2374 name[6] == '_' && 2375 name[7] == '_') 2376 { /* __DATA__ */ 2377 return KEY___DATA__; 2378 } 2379 2380 goto unknown; 2381 2382 case 'F': 2383 if (name[3] == 'I' && 2384 name[4] == 'L' && 2385 name[5] == 'E' && 2386 name[6] == '_' && 2387 name[7] == '_') 2388 { /* __FILE__ */ 2389 return -KEY___FILE__; 2390 } 2391 2392 goto unknown; 2393 2394 case 'L': 2395 if (name[3] == 'I' && 2396 name[4] == 'N' && 2397 name[5] == 'E' && 2398 name[6] == '_' && 2399 name[7] == '_') 2400 { /* __LINE__ */ 2401 return -KEY___LINE__; 2402 } 2403 2404 goto unknown; 2405 2406 default: 2407 goto unknown; 2408 } 2409 } 2410 2411 goto unknown; 2412 2413 case 'c': 2414 switch (name[1]) 2415 { 2416 case 'l': 2417 if (name[2] == 'o' && 2418 name[3] == 's' && 2419 name[4] == 'e' && 2420 name[5] == 'd' && 2421 name[6] == 'i' && 2422 name[7] == 'r') 2423 { /* closedir */ 2424 return -KEY_closedir; 2425 } 2426 2427 goto unknown; 2428 2429 case 'o': 2430 if (name[2] == 'n' && 2431 name[3] == 't' && 2432 name[4] == 'i' && 2433 name[5] == 'n' && 2434 name[6] == 'u' && 2435 name[7] == 'e') 2436 { /* continue */ 2437 return -KEY_continue; 2438 } 2439 2440 goto unknown; 2441 2442 default: 2443 goto unknown; 2444 } 2445 2446 case 'd': 2447 if (name[1] == 'b' && 2448 name[2] == 'm' && 2449 name[3] == 'c' && 2450 name[4] == 'l' && 2451 name[5] == 'o' && 2452 name[6] == 's' && 2453 name[7] == 'e') 2454 { /* dbmclose */ 2455 return -KEY_dbmclose; 2456 } 2457 2458 goto unknown; 2459 2460 case 'e': 2461 if (name[1] == 'n' && 2462 name[2] == 'd') 2463 { 2464 switch (name[3]) 2465 { 2466 case 'g': 2467 if (name[4] == 'r' && 2468 name[5] == 'e' && 2469 name[6] == 'n' && 2470 name[7] == 't') 2471 { /* endgrent */ 2472 return -KEY_endgrent; 2473 } 2474 2475 goto unknown; 2476 2477 case 'p': 2478 if (name[4] == 'w' && 2479 name[5] == 'e' && 2480 name[6] == 'n' && 2481 name[7] == 't') 2482 { /* endpwent */ 2483 return -KEY_endpwent; 2484 } 2485 2486 goto unknown; 2487 2488 default: 2489 goto unknown; 2490 } 2491 } 2492 2493 goto unknown; 2494 2495 case 'f': 2496 if (name[1] == 'o' && 2497 name[2] == 'r' && 2498 name[3] == 'm' && 2499 name[4] == 'l' && 2500 name[5] == 'i' && 2501 name[6] == 'n' && 2502 name[7] == 'e') 2503 { /* formline */ 2504 return -KEY_formline; 2505 } 2506 2507 goto unknown; 2508 2509 case 'g': 2510 if (name[1] == 'e' && 2511 name[2] == 't') 2512 { 2513 switch (name[3]) 2514 { 2515 case 'g': 2516 if (name[4] == 'r') 2517 { 2518 switch (name[5]) 2519 { 2520 case 'e': 2521 if (name[6] == 'n' && 2522 name[7] == 't') 2523 { /* getgrent */ 2524 return -KEY_getgrent; 2525 } 2526 2527 goto unknown; 2528 2529 case 'g': 2530 if (name[6] == 'i' && 2531 name[7] == 'd') 2532 { /* getgrgid */ 2533 return -KEY_getgrgid; 2534 } 2535 2536 goto unknown; 2537 2538 case 'n': 2539 if (name[6] == 'a' && 2540 name[7] == 'm') 2541 { /* getgrnam */ 2542 return -KEY_getgrnam; 2543 } 2544 2545 goto unknown; 2546 2547 default: 2548 goto unknown; 2549 } 2550 } 2551 2552 goto unknown; 2553 2554 case 'l': 2555 if (name[4] == 'o' && 2556 name[5] == 'g' && 2557 name[6] == 'i' && 2558 name[7] == 'n') 2559 { /* getlogin */ 2560 return -KEY_getlogin; 2561 } 2562 2563 goto unknown; 2564 2565 case 'p': 2566 if (name[4] == 'w') 2567 { 2568 switch (name[5]) 2569 { 2570 case 'e': 2571 if (name[6] == 'n' && 2572 name[7] == 't') 2573 { /* getpwent */ 2574 return -KEY_getpwent; 2575 } 2576 2577 goto unknown; 2578 2579 case 'n': 2580 if (name[6] == 'a' && 2581 name[7] == 'm') 2582 { /* getpwnam */ 2583 return -KEY_getpwnam; 2584 } 2585 2586 goto unknown; 2587 2588 case 'u': 2589 if (name[6] == 'i' && 2590 name[7] == 'd') 2591 { /* getpwuid */ 2592 return -KEY_getpwuid; 2593 } 2594 2595 goto unknown; 2596 2597 default: 2598 goto unknown; 2599 } 2600 } 2601 2602 goto unknown; 2603 2604 default: 2605 goto unknown; 2606 } 2607 } 2608 2609 goto unknown; 2610 2611 case 'r': 2612 if (name[1] == 'e' && 2613 name[2] == 'a' && 2614 name[3] == 'd') 2615 { 2616 switch (name[4]) 2617 { 2618 case 'l': 2619 if (name[5] == 'i' && 2620 name[6] == 'n') 2621 { 2622 switch (name[7]) 2623 { 2624 case 'e': 2625 { /* readline */ 2626 return -KEY_readline; 2627 } 2628 2629 case 'k': 2630 { /* readlink */ 2631 return -KEY_readlink; 2632 } 2633 2634 default: 2635 goto unknown; 2636 } 2637 } 2638 2639 goto unknown; 2640 2641 case 'p': 2642 if (name[5] == 'i' && 2643 name[6] == 'p' && 2644 name[7] == 'e') 2645 { /* readpipe */ 2646 return -KEY_readpipe; 2647 } 2648 2649 goto unknown; 2650 2651 default: 2652 goto unknown; 2653 } 2654 } 2655 2656 goto unknown; 2657 2658 case 's': 2659 switch (name[1]) 2660 { 2661 case 'e': 2662 if (name[2] == 't') 2663 { 2664 switch (name[3]) 2665 { 2666 case 'g': 2667 if (name[4] == 'r' && 2668 name[5] == 'e' && 2669 name[6] == 'n' && 2670 name[7] == 't') 2671 { /* setgrent */ 2672 return -KEY_setgrent; 2673 } 2674 2675 goto unknown; 2676 2677 case 'p': 2678 if (name[4] == 'w' && 2679 name[5] == 'e' && 2680 name[6] == 'n' && 2681 name[7] == 't') 2682 { /* setpwent */ 2683 return -KEY_setpwent; 2684 } 2685 2686 goto unknown; 2687 2688 default: 2689 goto unknown; 2690 } 2691 } 2692 2693 goto unknown; 2694 2695 case 'h': 2696 switch (name[2]) 2697 { 2698 case 'm': 2699 if (name[3] == 'w' && 2700 name[4] == 'r' && 2701 name[5] == 'i' && 2702 name[6] == 't' && 2703 name[7] == 'e') 2704 { /* shmwrite */ 2705 return -KEY_shmwrite; 2706 } 2707 2708 goto unknown; 2709 2710 case 'u': 2711 if (name[3] == 't' && 2712 name[4] == 'd' && 2713 name[5] == 'o' && 2714 name[6] == 'w' && 2715 name[7] == 'n') 2716 { /* shutdown */ 2717 return -KEY_shutdown; 2718 } 2719 2720 goto unknown; 2721 2722 default: 2723 goto unknown; 2724 } 2725 2726 case 'y': 2727 if (name[2] == 's' && 2728 name[3] == 'w' && 2729 name[4] == 'r' && 2730 name[5] == 'i' && 2731 name[6] == 't' && 2732 name[7] == 'e') 2733 { /* syswrite */ 2734 return -KEY_syswrite; 2735 } 2736 2737 goto unknown; 2738 2739 default: 2740 goto unknown; 2741 } 2742 2743 case 't': 2744 if (name[1] == 'r' && 2745 name[2] == 'u' && 2746 name[3] == 'n' && 2747 name[4] == 'c' && 2748 name[5] == 'a' && 2749 name[6] == 't' && 2750 name[7] == 'e') 2751 { /* truncate */ 2752 return -KEY_truncate; 2753 } 2754 2755 goto unknown; 2756 2757 default: 2758 goto unknown; 2759 } 2760 2761 case 9: /* 10 tokens of length 9 */ 2762 switch (name[0]) 2763 { 2764 case 'U': 2765 if (name[1] == 'N' && 2766 name[2] == 'I' && 2767 name[3] == 'T' && 2768 name[4] == 'C' && 2769 name[5] == 'H' && 2770 name[6] == 'E' && 2771 name[7] == 'C' && 2772 name[8] == 'K') 2773 { /* UNITCHECK */ 2774 return KEY_UNITCHECK; 2775 } 2776 2777 goto unknown; 2778 2779 case 'e': 2780 switch (name[1]) 2781 { 2782 case 'n': 2783 if (name[2] == 'd' && 2784 name[3] == 'n' && 2785 name[4] == 'e' && 2786 name[5] == 't' && 2787 name[6] == 'e' && 2788 name[7] == 'n' && 2789 name[8] == 't') 2790 { /* endnetent */ 2791 return -KEY_endnetent; 2792 } 2793 2794 goto unknown; 2795 2796 case 'v': 2797 if (name[2] == 'a' && 2798 name[3] == 'l' && 2799 name[4] == 'b' && 2800 name[5] == 'y' && 2801 name[6] == 't' && 2802 name[7] == 'e' && 2803 name[8] == 's') 2804 { /* evalbytes */ 2805 return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0); 2806 } 2807 2808 goto unknown; 2809 2810 default: 2811 goto unknown; 2812 } 2813 2814 case 'g': 2815 if (name[1] == 'e' && 2816 name[2] == 't' && 2817 name[3] == 'n' && 2818 name[4] == 'e' && 2819 name[5] == 't' && 2820 name[6] == 'e' && 2821 name[7] == 'n' && 2822 name[8] == 't') 2823 { /* getnetent */ 2824 return -KEY_getnetent; 2825 } 2826 2827 goto unknown; 2828 2829 case 'l': 2830 if (name[1] == 'o' && 2831 name[2] == 'c' && 2832 name[3] == 'a' && 2833 name[4] == 'l' && 2834 name[5] == 't' && 2835 name[6] == 'i' && 2836 name[7] == 'm' && 2837 name[8] == 'e') 2838 { /* localtime */ 2839 return -KEY_localtime; 2840 } 2841 2842 goto unknown; 2843 2844 case 'p': 2845 if (name[1] == 'r' && 2846 name[2] == 'o' && 2847 name[3] == 't' && 2848 name[4] == 'o' && 2849 name[5] == 't' && 2850 name[6] == 'y' && 2851 name[7] == 'p' && 2852 name[8] == 'e') 2853 { /* prototype */ 2854 return KEY_prototype; 2855 } 2856 2857 goto unknown; 2858 2859 case 'q': 2860 if (name[1] == 'u' && 2861 name[2] == 'o' && 2862 name[3] == 't' && 2863 name[4] == 'e' && 2864 name[5] == 'm' && 2865 name[6] == 'e' && 2866 name[7] == 't' && 2867 name[8] == 'a') 2868 { /* quotemeta */ 2869 return -KEY_quotemeta; 2870 } 2871 2872 goto unknown; 2873 2874 case 'r': 2875 if (name[1] == 'e' && 2876 name[2] == 'w' && 2877 name[3] == 'i' && 2878 name[4] == 'n' && 2879 name[5] == 'd' && 2880 name[6] == 'd' && 2881 name[7] == 'i' && 2882 name[8] == 'r') 2883 { /* rewinddir */ 2884 return -KEY_rewinddir; 2885 } 2886 2887 goto unknown; 2888 2889 case 's': 2890 if (name[1] == 'e' && 2891 name[2] == 't' && 2892 name[3] == 'n' && 2893 name[4] == 'e' && 2894 name[5] == 't' && 2895 name[6] == 'e' && 2896 name[7] == 'n' && 2897 name[8] == 't') 2898 { /* setnetent */ 2899 return -KEY_setnetent; 2900 } 2901 2902 goto unknown; 2903 2904 case 'w': 2905 if (name[1] == 'a' && 2906 name[2] == 'n' && 2907 name[3] == 't' && 2908 name[4] == 'a' && 2909 name[5] == 'r' && 2910 name[6] == 'r' && 2911 name[7] == 'a' && 2912 name[8] == 'y') 2913 { /* wantarray */ 2914 return -KEY_wantarray; 2915 } 2916 2917 goto unknown; 2918 2919 default: 2920 goto unknown; 2921 } 2922 2923 case 10: /* 9 tokens of length 10 */ 2924 switch (name[0]) 2925 { 2926 case 'e': 2927 if (name[1] == 'n' && 2928 name[2] == 'd') 2929 { 2930 switch (name[3]) 2931 { 2932 case 'h': 2933 if (name[4] == 'o' && 2934 name[5] == 's' && 2935 name[6] == 't' && 2936 name[7] == 'e' && 2937 name[8] == 'n' && 2938 name[9] == 't') 2939 { /* endhostent */ 2940 return -KEY_endhostent; 2941 } 2942 2943 goto unknown; 2944 2945 case 's': 2946 if (name[4] == 'e' && 2947 name[5] == 'r' && 2948 name[6] == 'v' && 2949 name[7] == 'e' && 2950 name[8] == 'n' && 2951 name[9] == 't') 2952 { /* endservent */ 2953 return -KEY_endservent; 2954 } 2955 2956 goto unknown; 2957 2958 default: 2959 goto unknown; 2960 } 2961 } 2962 2963 goto unknown; 2964 2965 case 'g': 2966 if (name[1] == 'e' && 2967 name[2] == 't') 2968 { 2969 switch (name[3]) 2970 { 2971 case 'h': 2972 if (name[4] == 'o' && 2973 name[5] == 's' && 2974 name[6] == 't' && 2975 name[7] == 'e' && 2976 name[8] == 'n' && 2977 name[9] == 't') 2978 { /* gethostent */ 2979 return -KEY_gethostent; 2980 } 2981 2982 goto unknown; 2983 2984 case 's': 2985 switch (name[4]) 2986 { 2987 case 'e': 2988 if (name[5] == 'r' && 2989 name[6] == 'v' && 2990 name[7] == 'e' && 2991 name[8] == 'n' && 2992 name[9] == 't') 2993 { /* getservent */ 2994 return -KEY_getservent; 2995 } 2996 2997 goto unknown; 2998 2999 case 'o': 3000 if (name[5] == 'c' && 3001 name[6] == 'k' && 3002 name[7] == 'o' && 3003 name[8] == 'p' && 3004 name[9] == 't') 3005 { /* getsockopt */ 3006 return -KEY_getsockopt; 3007 } 3008 3009 goto unknown; 3010 3011 default: 3012 goto unknown; 3013 } 3014 3015 default: 3016 goto unknown; 3017 } 3018 } 3019 3020 goto unknown; 3021 3022 case 's': 3023 switch (name[1]) 3024 { 3025 case 'e': 3026 if (name[2] == 't') 3027 { 3028 switch (name[3]) 3029 { 3030 case 'h': 3031 if (name[4] == 'o' && 3032 name[5] == 's' && 3033 name[6] == 't' && 3034 name[7] == 'e' && 3035 name[8] == 'n' && 3036 name[9] == 't') 3037 { /* sethostent */ 3038 return -KEY_sethostent; 3039 } 3040 3041 goto unknown; 3042 3043 case 's': 3044 switch (name[4]) 3045 { 3046 case 'e': 3047 if (name[5] == 'r' && 3048 name[6] == 'v' && 3049 name[7] == 'e' && 3050 name[8] == 'n' && 3051 name[9] == 't') 3052 { /* setservent */ 3053 return -KEY_setservent; 3054 } 3055 3056 goto unknown; 3057 3058 case 'o': 3059 if (name[5] == 'c' && 3060 name[6] == 'k' && 3061 name[7] == 'o' && 3062 name[8] == 'p' && 3063 name[9] == 't') 3064 { /* setsockopt */ 3065 return -KEY_setsockopt; 3066 } 3067 3068 goto unknown; 3069 3070 default: 3071 goto unknown; 3072 } 3073 3074 default: 3075 goto unknown; 3076 } 3077 } 3078 3079 goto unknown; 3080 3081 case 'o': 3082 if (name[2] == 'c' && 3083 name[3] == 'k' && 3084 name[4] == 'e' && 3085 name[5] == 't' && 3086 name[6] == 'p' && 3087 name[7] == 'a' && 3088 name[8] == 'i' && 3089 name[9] == 'r') 3090 { /* socketpair */ 3091 return -KEY_socketpair; 3092 } 3093 3094 goto unknown; 3095 3096 default: 3097 goto unknown; 3098 } 3099 3100 default: 3101 goto unknown; 3102 } 3103 3104 case 11: /* 8 tokens of length 11 */ 3105 switch (name[0]) 3106 { 3107 case '_': 3108 if (name[1] == '_' && 3109 name[2] == 'P' && 3110 name[3] == 'A' && 3111 name[4] == 'C' && 3112 name[5] == 'K' && 3113 name[6] == 'A' && 3114 name[7] == 'G' && 3115 name[8] == 'E' && 3116 name[9] == '_' && 3117 name[10] == '_') 3118 { /* __PACKAGE__ */ 3119 return -KEY___PACKAGE__; 3120 } 3121 3122 goto unknown; 3123 3124 case 'e': 3125 if (name[1] == 'n' && 3126 name[2] == 'd' && 3127 name[3] == 'p' && 3128 name[4] == 'r' && 3129 name[5] == 'o' && 3130 name[6] == 't' && 3131 name[7] == 'o' && 3132 name[8] == 'e' && 3133 name[9] == 'n' && 3134 name[10] == 't') 3135 { /* endprotoent */ 3136 return -KEY_endprotoent; 3137 } 3138 3139 goto unknown; 3140 3141 case 'g': 3142 if (name[1] == 'e' && 3143 name[2] == 't') 3144 { 3145 switch (name[3]) 3146 { 3147 case 'p': 3148 switch (name[4]) 3149 { 3150 case 'e': 3151 if (name[5] == 'e' && 3152 name[6] == 'r' && 3153 name[7] == 'n' && 3154 name[8] == 'a' && 3155 name[9] == 'm' && 3156 name[10] == 'e') 3157 { /* getpeername */ 3158 return -KEY_getpeername; 3159 } 3160 3161 goto unknown; 3162 3163 case 'r': 3164 switch (name[5]) 3165 { 3166 case 'i': 3167 if (name[6] == 'o' && 3168 name[7] == 'r' && 3169 name[8] == 'i' && 3170 name[9] == 't' && 3171 name[10] == 'y') 3172 { /* getpriority */ 3173 return -KEY_getpriority; 3174 } 3175 3176 goto unknown; 3177 3178 case 'o': 3179 if (name[6] == 't' && 3180 name[7] == 'o' && 3181 name[8] == 'e' && 3182 name[9] == 'n' && 3183 name[10] == 't') 3184 { /* getprotoent */ 3185 return -KEY_getprotoent; 3186 } 3187 3188 goto unknown; 3189 3190 default: 3191 goto unknown; 3192 } 3193 3194 default: 3195 goto unknown; 3196 } 3197 3198 case 's': 3199 if (name[4] == 'o' && 3200 name[5] == 'c' && 3201 name[6] == 'k' && 3202 name[7] == 'n' && 3203 name[8] == 'a' && 3204 name[9] == 'm' && 3205 name[10] == 'e') 3206 { /* getsockname */ 3207 return -KEY_getsockname; 3208 } 3209 3210 goto unknown; 3211 3212 default: 3213 goto unknown; 3214 } 3215 } 3216 3217 goto unknown; 3218 3219 case 's': 3220 if (name[1] == 'e' && 3221 name[2] == 't' && 3222 name[3] == 'p' && 3223 name[4] == 'r') 3224 { 3225 switch (name[5]) 3226 { 3227 case 'i': 3228 if (name[6] == 'o' && 3229 name[7] == 'r' && 3230 name[8] == 'i' && 3231 name[9] == 't' && 3232 name[10] == 'y') 3233 { /* setpriority */ 3234 return -KEY_setpriority; 3235 } 3236 3237 goto unknown; 3238 3239 case 'o': 3240 if (name[6] == 't' && 3241 name[7] == 'o' && 3242 name[8] == 'e' && 3243 name[9] == 'n' && 3244 name[10] == 't') 3245 { /* setprotoent */ 3246 return -KEY_setprotoent; 3247 } 3248 3249 goto unknown; 3250 3251 default: 3252 goto unknown; 3253 } 3254 } 3255 3256 goto unknown; 3257 3258 default: 3259 goto unknown; 3260 } 3261 3262 case 12: /* 2 tokens of length 12 */ 3263 if (name[0] == 'g' && 3264 name[1] == 'e' && 3265 name[2] == 't' && 3266 name[3] == 'n' && 3267 name[4] == 'e' && 3268 name[5] == 't' && 3269 name[6] == 'b' && 3270 name[7] == 'y') 3271 { 3272 switch (name[8]) 3273 { 3274 case 'a': 3275 if (name[9] == 'd' && 3276 name[10] == 'd' && 3277 name[11] == 'r') 3278 { /* getnetbyaddr */ 3279 return -KEY_getnetbyaddr; 3280 } 3281 3282 goto unknown; 3283 3284 case 'n': 3285 if (name[9] == 'a' && 3286 name[10] == 'm' && 3287 name[11] == 'e') 3288 { /* getnetbyname */ 3289 return -KEY_getnetbyname; 3290 } 3291 3292 goto unknown; 3293 3294 default: 3295 goto unknown; 3296 } 3297 } 3298 3299 goto unknown; 3300 3301 case 13: /* 4 tokens of length 13 */ 3302 if (name[0] == 'g' && 3303 name[1] == 'e' && 3304 name[2] == 't') 3305 { 3306 switch (name[3]) 3307 { 3308 case 'h': 3309 if (name[4] == 'o' && 3310 name[5] == 's' && 3311 name[6] == 't' && 3312 name[7] == 'b' && 3313 name[8] == 'y') 3314 { 3315 switch (name[9]) 3316 { 3317 case 'a': 3318 if (name[10] == 'd' && 3319 name[11] == 'd' && 3320 name[12] == 'r') 3321 { /* gethostbyaddr */ 3322 return -KEY_gethostbyaddr; 3323 } 3324 3325 goto unknown; 3326 3327 case 'n': 3328 if (name[10] == 'a' && 3329 name[11] == 'm' && 3330 name[12] == 'e') 3331 { /* gethostbyname */ 3332 return -KEY_gethostbyname; 3333 } 3334 3335 goto unknown; 3336 3337 default: 3338 goto unknown; 3339 } 3340 } 3341 3342 goto unknown; 3343 3344 case 's': 3345 if (name[4] == 'e' && 3346 name[5] == 'r' && 3347 name[6] == 'v' && 3348 name[7] == 'b' && 3349 name[8] == 'y') 3350 { 3351 switch (name[9]) 3352 { 3353 case 'n': 3354 if (name[10] == 'a' && 3355 name[11] == 'm' && 3356 name[12] == 'e') 3357 { /* getservbyname */ 3358 return -KEY_getservbyname; 3359 } 3360 3361 goto unknown; 3362 3363 case 'p': 3364 if (name[10] == 'o' && 3365 name[11] == 'r' && 3366 name[12] == 't') 3367 { /* getservbyport */ 3368 return -KEY_getservbyport; 3369 } 3370 3371 goto unknown; 3372 3373 default: 3374 goto unknown; 3375 } 3376 } 3377 3378 goto unknown; 3379 3380 default: 3381 goto unknown; 3382 } 3383 } 3384 3385 goto unknown; 3386 3387 case 14: /* 1 tokens of length 14 */ 3388 if (name[0] == 'g' && 3389 name[1] == 'e' && 3390 name[2] == 't' && 3391 name[3] == 'p' && 3392 name[4] == 'r' && 3393 name[5] == 'o' && 3394 name[6] == 't' && 3395 name[7] == 'o' && 3396 name[8] == 'b' && 3397 name[9] == 'y' && 3398 name[10] == 'n' && 3399 name[11] == 'a' && 3400 name[12] == 'm' && 3401 name[13] == 'e') 3402 { /* getprotobyname */ 3403 return -KEY_getprotobyname; 3404 } 3405 3406 goto unknown; 3407 3408 case 16: /* 1 tokens of length 16 */ 3409 if (name[0] == 'g' && 3410 name[1] == 'e' && 3411 name[2] == 't' && 3412 name[3] == 'p' && 3413 name[4] == 'r' && 3414 name[5] == 'o' && 3415 name[6] == 't' && 3416 name[7] == 'o' && 3417 name[8] == 'b' && 3418 name[9] == 'y' && 3419 name[10] == 'n' && 3420 name[11] == 'u' && 3421 name[12] == 'm' && 3422 name[13] == 'b' && 3423 name[14] == 'e' && 3424 name[15] == 'r') 3425 { /* getprotobynumber */ 3426 return -KEY_getprotobynumber; 3427 } 3428 3429 goto unknown; 3430 3431 default: 3432 goto unknown; 3433 } 3434 3435 unknown: 3436 return 0; 3437 } 3438 3439 /* Generated from: 3440 * db0472e0ad4f44bd0816cad799d63b60d1bbd7e11cef40ea15bf0d00f69669f6 regen/keywords.pl 3441 * ex: set ro: */ 3442