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
14 Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
18 PERL_ARGS_ASSERT_KEYWORD;
22 case 1: /* 5 tokens of length 1 */
54 case 2: /* 19 tokens of length 2 */
76 return (all_keywords || FEATURE_FC_IS_ENABLED ? -KEY_fc : 0);
208 case 3: /* 28 tokens of length 3 */
212 if (name[1] == 'N' &&
275 if (name[1] == 'i' &&
307 if (name[1] == 'o' &&
316 if (name[1] == 'e' &&
325 if (name[1] == 'n' &&
334 if (name[1] == 'o' &&
343 if (name[1] == 'a' &&
352 if (name[1] == 'o' &&
414 if (name[1] == 'e' &&
428 return (all_keywords || FEATURE_SAY_IS_ENABLED ? KEY_say : 0);
454 if (name[1] == 'i' &&
463 if (name[1] == 's' &&
472 if (name[1] == 'e' &&
481 if (name[1] == 'o' &&
493 case 4: /* 41 tokens of length 4 */
497 if (name[1] == 'O' &&
507 if (name[1] == 'N' &&
517 if (name[1] == 'i' &&
527 if (name[1] == 'h' &&
537 if (name[1] == 'u' &&
550 if (name[2] == 'c' &&
559 if (name[2] == 's' &&
568 if (name[2] == 'a' &&
604 if (name[1] == 'o' &&
617 if (name[2] == 't' &&
626 if (name[2] == 'o' &&
635 if (name[2] == 't' &&
644 if (name[2] == 'e' &&
657 if (name[1] == 'o' &&
670 if (name[2] == 'y' &&
679 if (name[2] == 'l' &&
695 if (name[2] == 's' &&
704 if (name[2] == 'n' &&
713 if (name[2] == 'c' &&
726 if (name[1] == 'e' &&
736 if (name[1] == 'p' &&
749 if (name[2] == 'c' &&
758 if (name[2] == 'p' &&
767 if (name[2] == 's' &&
783 if (name[2] == 'n' &&
853 if (name[2] == 'r' &&
862 if (name[2] == 'r' &&
871 if (name[2] == 'a' &&
887 if (name[2] == 'l' &&
949 if (name[2] == 'e' &&
952 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0);
965 case 5: /* 39 tokens of length 5 */
969 if (name[1] == 'E' &&
980 if (name[1] == 'H' &&
994 if (name[2] == 'a' &&
1004 if (name[2] == 'a' &&
1021 if (name[2] == 'e' &&
1031 if (name[2] == 'e' &&
1035 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0);
1051 if (name[3] == 'i' &&
1060 if (name[3] == 'o' &&
1096 if (name[2] == 'o' &&
1106 if (name[2] == 'y' &&
1120 if (name[1] == 'l' &&
1134 if (name[2] == 'n' &&
1144 if (name[2] == 'o' &&
1158 if (name[1] == 'i' &&
1163 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0);
1172 if (name[2] == 'd' &&
1182 if (name[2] == 'c' &&
1199 if (name[2] == 'c' &&
1209 if (name[2] == 't' &&
1223 if (name[1] == 'k' &&
1234 if (name[1] == 'r' &&
1248 if (name[2] == 's' &&
1258 if (name[2] == 'd' &&
1275 if (name[2] == 'm' &&
1285 if (name[2] == 'i' &&
1295 if (name[2] == 'e' &&
1305 if (name[2] == 'l' &&
1315 if (name[2] == 'a' &&
1328 if (name[3] == 't' &&
1331 return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0);
1337 if (name[3] == 'd' &&
1354 if (name[1] == 'i' &&
1368 if (name[2] == 'a' &&
1381 if (name[3] == 'e' &&
1416 if (name[2] == 'i' &&
1433 if (name[2] == 'i' &&
1443 if (name[2] == 'i' &&
1460 case 6: /* 33 tokens of length 6 */
1464 if (name[1] == 'c' &&
1479 if (name[2] == 'l' &&
1490 if (name[2] == 'r' &&
1505 if (name[1] == 'e' &&
1520 if (name[2] == 's' &&
1525 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
1531 if (name[2] == 'i' &&
1549 if (name[2] == 'l' &&
1560 if (name[2] == 'r' &&
1575 if (name[1] == 'm' &&
1590 if (name[2] == 'n' &&
1601 if (name[2] == 's' &&
1616 if (name[1] == 's' &&
1622 if (name[4] == 't' &&
1631 if (name[4] == 'e' &&
1640 if (name[4] == 'c' &&
1649 if (name[4] == 'n' &&
1665 if (name[1] == 'r' &&
1683 if (name[3] == 'a' &&
1693 if (name[3] == 'u' &&
1707 if (name[2] == 'n' &&
1725 if (name[2] == 'a' &&
1739 if (name[3] == 'e' &&
1752 if (name[4] == 't' &&
1761 if (name[4] == 'e' &&
1783 if (name[4] == 't' &&
1792 if (name[4] == 'e' &&
1808 if (name[2] == 'c' &&
1819 if (name[2] == 'l' &&
1830 if (name[2] == 'b' &&
1841 if (name[2] == 's' &&
1864 if (name[4] == 's' &&
1873 if (name[4] == 'n' &&
1886 if (name[3] == 'a' &&
1903 if (name[1] == 'a' &&
1918 case 7: /* 30 tokens of length 7 */
1922 if (name[1] == 'E' &&
1940 if (name[3] == 'N' &&
1951 if (name[3] == 'U' &&
1956 return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0);
1969 if (name[1] == 'i' &&
1976 return -KEY_binmode;
1982 if (name[1] == 'o' &&
1989 return -KEY_connect;
1998 if (name[2] == 'm' &&
2004 return -KEY_dbmopen;
2015 if (name[4] == 'u' &&
2019 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0);
2025 if (name[4] == 'n' &&
2046 if (name[1] == 'o' &&
2059 if (name[1] == 'e' &&
2066 if (name[5] == 'r' &&
2069 return -KEY_getpgrp;
2075 if (name[5] == 'i' &&
2078 return -KEY_getppid;
2091 if (name[1] == 'c' &&
2098 return -KEY_lcfirst;
2104 if (name[1] == 'p' &&
2111 return -KEY_opendir;
2117 if (name[1] == 'a' &&
2135 if (name[3] == 'd' &&
2140 return -KEY_readdir;
2146 if (name[3] == 'u' &&
2157 if (name[3] == 'e' &&
2162 return -KEY_reverse;
2181 if (name[3] == 'k' &&
2186 return -KEY_seekdir;
2192 if (name[3] == 'p' &&
2197 return -KEY_setpgrp;
2207 if (name[2] == 'm' &&
2213 return -KEY_shmread;
2219 if (name[2] == 'r' &&
2225 return -KEY_sprintf;
2234 if (name[3] == 'l' &&
2239 return -KEY_symlink;
2248 if (name[4] == 'a' &&
2252 return -KEY_syscall;
2258 if (name[4] == 'p' &&
2262 return -KEY_sysopen;
2268 if (name[4] == 'e' &&
2272 return -KEY_sysread;
2278 if (name[4] == 'e' &&
2282 return -KEY_sysseek;
2300 if (name[1] == 'e' &&
2307 return -KEY_telldir;
2316 if (name[2] == 'f' &&
2322 return -KEY_ucfirst;
2328 if (name[2] == 's' &&
2334 return -KEY_unshift;
2344 if (name[1] == 'a' &&
2351 return -KEY_waitpid;
2360 case 8: /* 26 tokens of length 8 */
2364 if (name[1] == 'U' &&
2372 return KEY_AUTOLOAD;
2383 if (name[3] == 'A' &&
2389 return KEY___DATA__;
2395 if (name[3] == 'I' &&
2401 return -KEY___FILE__;
2407 if (name[3] == 'I' &&
2413 return -KEY___LINE__;
2429 if (name[2] == 'o' &&
2436 return -KEY_closedir;
2442 if (name[2] == 'n' &&
2449 return -KEY_continue;
2459 if (name[1] == 'b' &&
2467 return -KEY_dbmclose;
2473 if (name[1] == 'n' &&
2479 if (name[4] == 'r' &&
2484 return -KEY_endgrent;
2490 if (name[4] == 'w' &&
2495 return -KEY_endpwent;
2508 if (name[1] == 'o' &&
2516 return -KEY_formline;
2522 if (name[1] == 'e' &&
2533 if (name[6] == 'n' &&
2536 return -KEY_getgrent;
2542 if (name[6] == 'i' &&
2545 return -KEY_getgrgid;
2551 if (name[6] == 'a' &&
2554 return -KEY_getgrnam;
2567 if (name[4] == 'o' &&
2572 return -KEY_getlogin;
2583 if (name[6] == 'n' &&
2586 return -KEY_getpwent;
2592 if (name[6] == 'a' &&
2595 return -KEY_getpwnam;
2601 if (name[6] == 'i' &&
2604 return -KEY_getpwuid;
2624 if (name[1] == 'e' &&
2631 if (name[5] == 'i' &&
2638 return -KEY_readline;
2643 return -KEY_readlink;
2654 if (name[5] == 'i' &&
2658 return -KEY_readpipe;
2679 if (name[4] == 'r' &&
2684 return -KEY_setgrent;
2690 if (name[4] == 'w' &&
2695 return -KEY_setpwent;
2711 if (name[3] == 'w' &&
2717 return -KEY_shmwrite;
2723 if (name[3] == 't' &&
2729 return -KEY_shutdown;
2739 if (name[2] == 's' &&
2746 return -KEY_syswrite;
2756 if (name[1] == 'r' &&
2764 return -KEY_truncate;
2773 case 9: /* 10 tokens of length 9 */
2777 if (name[1] == 'N' &&
2786 return KEY_UNITCHECK;
2795 if (name[2] == 'd' &&
2803 return -KEY_endnetent;
2809 if (name[2] == 'a' &&
2817 return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0);
2827 if (name[1] == 'e' &&
2836 return -KEY_getnetent;
2842 if (name[1] == 'o' &&
2851 return -KEY_localtime;
2857 if (name[1] == 'r' &&
2866 return KEY_prototype;
2872 if (name[1] == 'u' &&
2881 return -KEY_quotemeta;
2887 if (name[1] == 'e' &&
2896 return -KEY_rewinddir;
2902 if (name[1] == 'e' &&
2911 return -KEY_setnetent;
2917 if (name[1] == 'a' &&
2926 return -KEY_wantarray;
2935 case 10: /* 9 tokens of length 10 */
2939 if (name[1] == 'n' &&
2945 if (name[4] == 'o' &&
2952 return -KEY_endhostent;
2958 if (name[4] == 'e' &&
2965 return -KEY_endservent;
2978 if (name[1] == 'e' &&
2984 if (name[4] == 'o' &&
2991 return -KEY_gethostent;
3000 if (name[5] == 'r' &&
3006 return -KEY_getservent;
3012 if (name[5] == 'c' &&
3018 return -KEY_getsockopt;
3043 if (name[4] == 'o' &&
3050 return -KEY_sethostent;
3059 if (name[5] == 'r' &&
3065 return -KEY_setservent;
3071 if (name[5] == 'c' &&
3077 return -KEY_setsockopt;
3094 if (name[2] == 'c' &&
3103 return -KEY_socketpair;
3116 case 11: /* 8 tokens of length 11 */
3120 if (name[1] == '_' &&
3131 return -KEY___PACKAGE__;
3137 if (name[1] == 'n' &&
3148 return -KEY_endprotoent;
3154 if (name[1] == 'e' &&
3163 if (name[5] == 'e' &&
3170 return -KEY_getpeername;
3179 if (name[6] == 'o' &&
3185 return -KEY_getpriority;
3191 if (name[6] == 't' &&
3197 return -KEY_getprotoent;
3211 if (name[4] == 'o' &&
3219 return -KEY_getsockname;
3232 if (name[1] == 'e' &&
3240 if (name[6] == 'o' &&
3246 return -KEY_setpriority;
3252 if (name[6] == 't' &&
3258 return -KEY_setprotoent;
3274 case 12: /* 2 tokens of length 12 */
3275 if (name[0] == 'g' &&
3287 if (name[9] == 'd' &&
3290 { /* getnetbyaddr */
3291 return -KEY_getnetbyaddr;
3297 if (name[9] == 'a' &&
3300 { /* getnetbyname */
3301 return -KEY_getnetbyname;
3313 case 13: /* 4 tokens of length 13 */
3314 if (name[0] == 'g' &&
3321 if (name[4] == 'o' &&
3330 if (name[10] == 'd' &&
3333 { /* gethostbyaddr */
3334 return -KEY_gethostbyaddr;
3340 if (name[10] == 'a' &&
3343 { /* gethostbyname */
3344 return -KEY_gethostbyname;
3357 if (name[4] == 'e' &&
3366 if (name[10] == 'a' &&
3369 { /* getservbyname */
3370 return -KEY_getservbyname;
3376 if (name[10] == 'o' &&
3379 { /* getservbyport */
3380 return -KEY_getservbyport;
3399 case 14: /* 1 tokens of length 14 */
3400 if (name[0] == 'g' &&
3414 { /* getprotobyname */
3415 return -KEY_getprotobyname;
3420 case 16: /* 1 tokens of length 16 */
3421 if (name[0] == 'g' &&
3437 { /* getprotobynumber */
3438 return -KEY_getprotobynumber;
3452 * e5a540774760ea54c761ef17ee4a153cc264e9a700b817d561e390730c457406 regen/keywords.pl