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!
8 #define PERL_IN_KEYWORDS_C
13 Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
17 PERL_ARGS_ASSERT_KEYWORD;
21 case 1: /* 5 tokens of length 1 */
53 case 2: /* 18 tokens of length 2 */
199 case 3: /* 28 tokens of length 3 */
203 if (name[1] == 'N' &&
266 if (name[1] == 'i' &&
298 if (name[1] == 'o' &&
307 if (name[1] == 'e' &&
316 if (name[1] == 'n' &&
325 if (name[1] == 'o' &&
334 if (name[1] == 'a' &&
343 if (name[1] == 'o' &&
405 if (name[1] == 'e' &&
419 return (all_keywords || FEATURE_IS_ENABLED("say") ? KEY_say : 0);
445 if (name[1] == 'i' &&
454 if (name[1] == 's' &&
463 if (name[1] == 'e' &&
472 if (name[1] == 'o' &&
484 case 4: /* 41 tokens of length 4 */
488 if (name[1] == 'O' &&
498 if (name[1] == 'N' &&
508 if (name[1] == 'i' &&
518 if (name[1] == 'h' &&
528 if (name[1] == 'u' &&
541 if (name[2] == 'c' &&
550 if (name[2] == 's' &&
559 if (name[2] == 'a' &&
595 if (name[1] == 'o' &&
608 if (name[2] == 't' &&
617 if (name[2] == 'o' &&
626 if (name[2] == 't' &&
635 if (name[2] == 'e' &&
648 if (name[1] == 'o' &&
661 if (name[2] == 'y' &&
670 if (name[2] == 'l' &&
686 if (name[2] == 's' &&
695 if (name[2] == 'n' &&
704 if (name[2] == 'c' &&
717 if (name[1] == 'e' &&
727 if (name[1] == 'p' &&
740 if (name[2] == 'c' &&
749 if (name[2] == 'p' &&
758 if (name[2] == 's' &&
774 if (name[2] == 'n' &&
844 if (name[2] == 'r' &&
853 if (name[2] == 'r' &&
862 if (name[2] == 'a' &&
878 if (name[2] == 'l' &&
940 if (name[2] == 'e' &&
943 return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_when : 0);
956 case 5: /* 39 tokens of length 5 */
960 if (name[1] == 'E' &&
971 if (name[1] == 'H' &&
985 if (name[2] == 'a' &&
995 if (name[2] == 'a' &&
1012 if (name[2] == 'e' &&
1022 if (name[2] == 'e' &&
1026 return (all_keywords || FEATURE_IS_ENABLED("switch") ? -KEY_break : 0);
1042 if (name[3] == 'i' &&
1051 if (name[3] == 'o' &&
1087 if (name[2] == 'o' &&
1097 if (name[2] == 'y' &&
1111 if (name[1] == 'l' &&
1125 if (name[2] == 'n' &&
1135 if (name[2] == 'o' &&
1149 if (name[1] == 'i' &&
1154 return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_given : 0);
1163 if (name[2] == 'd' &&
1173 if (name[2] == 'c' &&
1190 if (name[2] == 'c' &&
1200 if (name[2] == 't' &&
1214 if (name[1] == 'k' &&
1225 if (name[1] == 'r' &&
1239 if (name[2] == 's' &&
1249 if (name[2] == 'd' &&
1266 if (name[2] == 'm' &&
1276 if (name[2] == 'i' &&
1286 if (name[2] == 'e' &&
1296 if (name[2] == 'l' &&
1306 if (name[2] == 'a' &&
1319 if (name[3] == 't' &&
1322 return (all_keywords || FEATURE_IS_ENABLED("state") ? KEY_state : 0);
1328 if (name[3] == 'd' &&
1345 if (name[1] == 'i' &&
1359 if (name[2] == 'a' &&
1372 if (name[3] == 'e' &&
1407 if (name[2] == 'i' &&
1424 if (name[2] == 'i' &&
1434 if (name[2] == 'i' &&
1451 case 6: /* 33 tokens of length 6 */
1455 if (name[1] == 'c' &&
1470 if (name[2] == 'l' &&
1481 if (name[2] == 'r' &&
1496 if (name[1] == 'e' &&
1511 if (name[2] == 's' &&
1516 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
1522 if (name[2] == 'i' &&
1540 if (name[2] == 'l' &&
1551 if (name[2] == 'r' &&
1566 if (name[1] == 'm' &&
1581 if (name[2] == 'n' &&
1592 if (name[2] == 's' &&
1607 if (name[1] == 's' &&
1613 if (name[4] == 't' &&
1622 if (name[4] == 'e' &&
1631 if (name[4] == 'c' &&
1640 if (name[4] == 'n' &&
1656 if (name[1] == 'r' &&
1674 if (name[3] == 'a' &&
1684 if (name[3] == 'u' &&
1698 if (name[2] == 'n' &&
1716 if (name[2] == 'a' &&
1730 if (name[3] == 'e' &&
1743 if (name[4] == 't' &&
1752 if (name[4] == 'e' &&
1774 if (name[4] == 't' &&
1783 if (name[4] == 'e' &&
1799 if (name[2] == 'c' &&
1810 if (name[2] == 'l' &&
1821 if (name[2] == 'b' &&
1832 if (name[2] == 's' &&
1855 if (name[4] == 's' &&
1864 if (name[4] == 'n' &&
1877 if (name[3] == 'a' &&
1894 if (name[1] == 'a' &&
1909 case 7: /* 29 tokens of length 7 */
1913 if (name[1] == 'E' &&
1926 if (name[1] == '_' &&
1939 if (name[1] == 'i' &&
1946 return -KEY_binmode;
1952 if (name[1] == 'o' &&
1959 return -KEY_connect;
1968 if (name[2] == 'm' &&
1974 return -KEY_dbmopen;
1985 if (name[4] == 'u' &&
1989 return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_default : 0);
1995 if (name[4] == 'n' &&
2016 if (name[1] == 'o' &&
2029 if (name[1] == 'e' &&
2036 if (name[5] == 'r' &&
2039 return -KEY_getpgrp;
2045 if (name[5] == 'i' &&
2048 return -KEY_getppid;
2061 if (name[1] == 'c' &&
2068 return -KEY_lcfirst;
2074 if (name[1] == 'p' &&
2081 return -KEY_opendir;
2087 if (name[1] == 'a' &&
2105 if (name[3] == 'd' &&
2110 return -KEY_readdir;
2116 if (name[3] == 'u' &&
2127 if (name[3] == 'e' &&
2132 return -KEY_reverse;
2151 if (name[3] == 'k' &&
2156 return -KEY_seekdir;
2162 if (name[3] == 'p' &&
2167 return -KEY_setpgrp;
2177 if (name[2] == 'm' &&
2183 return -KEY_shmread;
2189 if (name[2] == 'r' &&
2195 return -KEY_sprintf;
2204 if (name[3] == 'l' &&
2209 return -KEY_symlink;
2218 if (name[4] == 'a' &&
2222 return -KEY_syscall;
2228 if (name[4] == 'p' &&
2232 return -KEY_sysopen;
2238 if (name[4] == 'e' &&
2242 return -KEY_sysread;
2248 if (name[4] == 'e' &&
2252 return -KEY_sysseek;
2270 if (name[1] == 'e' &&
2277 return -KEY_telldir;
2286 if (name[2] == 'f' &&
2292 return -KEY_ucfirst;
2298 if (name[2] == 's' &&
2304 return -KEY_unshift;
2314 if (name[1] == 'a' &&
2321 return -KEY_waitpid;
2330 case 8: /* 26 tokens of length 8 */
2334 if (name[1] == 'U' &&
2342 return KEY_AUTOLOAD;
2353 if (name[3] == 'A' &&
2359 return KEY___DATA__;
2365 if (name[3] == 'I' &&
2371 return -KEY___FILE__;
2377 if (name[3] == 'I' &&
2383 return -KEY___LINE__;
2399 if (name[2] == 'o' &&
2406 return -KEY_closedir;
2412 if (name[2] == 'n' &&
2419 return -KEY_continue;
2429 if (name[1] == 'b' &&
2437 return -KEY_dbmclose;
2443 if (name[1] == 'n' &&
2449 if (name[4] == 'r' &&
2454 return -KEY_endgrent;
2460 if (name[4] == 'w' &&
2465 return -KEY_endpwent;
2478 if (name[1] == 'o' &&
2486 return -KEY_formline;
2492 if (name[1] == 'e' &&
2503 if (name[6] == 'n' &&
2506 return -KEY_getgrent;
2512 if (name[6] == 'i' &&
2515 return -KEY_getgrgid;
2521 if (name[6] == 'a' &&
2524 return -KEY_getgrnam;
2537 if (name[4] == 'o' &&
2542 return -KEY_getlogin;
2553 if (name[6] == 'n' &&
2556 return -KEY_getpwent;
2562 if (name[6] == 'a' &&
2565 return -KEY_getpwnam;
2571 if (name[6] == 'i' &&
2574 return -KEY_getpwuid;
2594 if (name[1] == 'e' &&
2601 if (name[5] == 'i' &&
2608 return -KEY_readline;
2613 return -KEY_readlink;
2624 if (name[5] == 'i' &&
2628 return -KEY_readpipe;
2649 if (name[4] == 'r' &&
2654 return -KEY_setgrent;
2660 if (name[4] == 'w' &&
2665 return -KEY_setpwent;
2681 if (name[3] == 'w' &&
2687 return -KEY_shmwrite;
2693 if (name[3] == 't' &&
2699 return -KEY_shutdown;
2709 if (name[2] == 's' &&
2716 return -KEY_syswrite;
2726 if (name[1] == 'r' &&
2734 return -KEY_truncate;
2743 case 9: /* 9 tokens of length 9 */
2747 if (name[1] == 'N' &&
2756 return KEY_UNITCHECK;
2762 if (name[1] == 'n' &&
2771 return -KEY_endnetent;
2777 if (name[1] == 'e' &&
2786 return -KEY_getnetent;
2792 if (name[1] == 'o' &&
2801 return -KEY_localtime;
2807 if (name[1] == 'r' &&
2816 return KEY_prototype;
2822 if (name[1] == 'u' &&
2831 return -KEY_quotemeta;
2837 if (name[1] == 'e' &&
2846 return -KEY_rewinddir;
2852 if (name[1] == 'e' &&
2861 return -KEY_setnetent;
2867 if (name[1] == 'a' &&
2876 return -KEY_wantarray;
2885 case 10: /* 9 tokens of length 10 */
2889 if (name[1] == 'n' &&
2895 if (name[4] == 'o' &&
2902 return -KEY_endhostent;
2908 if (name[4] == 'e' &&
2915 return -KEY_endservent;
2928 if (name[1] == 'e' &&
2934 if (name[4] == 'o' &&
2941 return -KEY_gethostent;
2950 if (name[5] == 'r' &&
2956 return -KEY_getservent;
2962 if (name[5] == 'c' &&
2968 return -KEY_getsockopt;
2993 if (name[4] == 'o' &&
3000 return -KEY_sethostent;
3009 if (name[5] == 'r' &&
3015 return -KEY_setservent;
3021 if (name[5] == 'c' &&
3027 return -KEY_setsockopt;
3044 if (name[2] == 'c' &&
3053 return -KEY_socketpair;
3066 case 11: /* 8 tokens of length 11 */
3070 if (name[1] == '_' &&
3081 return -KEY___PACKAGE__;
3087 if (name[1] == 'n' &&
3098 return -KEY_endprotoent;
3104 if (name[1] == 'e' &&
3113 if (name[5] == 'e' &&
3120 return -KEY_getpeername;
3129 if (name[6] == 'o' &&
3135 return -KEY_getpriority;
3141 if (name[6] == 't' &&
3147 return -KEY_getprotoent;
3161 if (name[4] == 'o' &&
3169 return -KEY_getsockname;
3182 if (name[1] == 'e' &&
3190 if (name[6] == 'o' &&
3196 return -KEY_setpriority;
3202 if (name[6] == 't' &&
3208 return -KEY_setprotoent;
3224 case 12: /* 2 tokens of length 12 */
3225 if (name[0] == 'g' &&
3237 if (name[9] == 'd' &&
3240 { /* getnetbyaddr */
3241 return -KEY_getnetbyaddr;
3247 if (name[9] == 'a' &&
3250 { /* getnetbyname */
3251 return -KEY_getnetbyname;
3263 case 13: /* 4 tokens of length 13 */
3264 if (name[0] == 'g' &&
3271 if (name[4] == 'o' &&
3280 if (name[10] == 'd' &&
3283 { /* gethostbyaddr */
3284 return -KEY_gethostbyaddr;
3290 if (name[10] == 'a' &&
3293 { /* gethostbyname */
3294 return -KEY_gethostbyname;
3307 if (name[4] == 'e' &&
3316 if (name[10] == 'a' &&
3319 { /* getservbyname */
3320 return -KEY_getservbyname;
3326 if (name[10] == 'o' &&
3329 { /* getservbyport */
3330 return -KEY_getservbyport;
3349 case 14: /* 1 tokens of length 14 */
3350 if (name[0] == 'g' &&
3364 { /* getprotobyname */
3365 return -KEY_getprotobyname;
3370 case 16: /* 1 tokens of length 16 */
3371 if (name[0] == 'g' &&
3387 { /* getprotobynumber */
3388 return -KEY_getprotobynumber;
3402 * 71ce7e36f80b1103f4a197ed423fe2dbd92fd9f619e126bfcf9f0b0153586bab regen/keywords.pl