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)
16 PERL_ARGS_ASSERT_KEYWORD;
20 case 1: /* 5 tokens of length 1 */
52 case 2: /* 19 tokens of length 2 */
74 return (all_keywords || FEATURE_FC_IS_ENABLED ? -KEY_fc : 0);
206 case 3: /* 29 tokens of length 3 */
210 if (name[1] == 'N' &&
273 if (name[1] == 'i' &&
305 if (name[1] == 'o' &&
314 if (name[1] == 'e' &&
336 return (all_keywords || FEATURE_ISA_IS_ENABLED ? -KEY_isa : 0);
346 if (name[1] == 'o' &&
355 if (name[1] == 'a' &&
364 if (name[1] == 'o' &&
426 if (name[1] == 'e' &&
440 return (all_keywords || FEATURE_SAY_IS_ENABLED ? KEY_say : 0);
466 if (name[1] == 'i' &&
475 if (name[1] == 's' &&
484 if (name[1] == 'e' &&
493 if (name[1] == 'o' &&
505 case 4: /* 40 tokens of length 4 */
509 if (name[1] == 'N' &&
519 if (name[1] == 'i' &&
529 if (name[1] == 'h' &&
539 if (name[1] == 'u' &&
552 if (name[2] == 'c' &&
561 if (name[2] == 's' &&
570 if (name[2] == 'a' &&
606 if (name[1] == 'o' &&
619 if (name[2] == 't' &&
628 if (name[2] == 'o' &&
637 if (name[2] == 't' &&
646 if (name[2] == 'e' &&
659 if (name[1] == 'o' &&
672 if (name[2] == 'y' &&
681 if (name[2] == 'l' &&
697 if (name[2] == 's' &&
706 if (name[2] == 'n' &&
715 if (name[2] == 'c' &&
728 if (name[1] == 'e' &&
738 if (name[1] == 'p' &&
751 if (name[2] == 'c' &&
760 if (name[2] == 'p' &&
769 if (name[2] == 's' &&
785 if (name[2] == 'n' &&
855 if (name[2] == 'r' &&
864 if (name[2] == 'r' &&
873 if (name[2] == 'a' &&
889 if (name[2] == 'l' &&
951 if (name[2] == 'e' &&
954 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0);
967 case 5: /* 39 tokens of length 5 */
971 if (name[1] == 'E' &&
982 if (name[1] == 'H' &&
996 if (name[2] == 'a' &&
1006 if (name[2] == 'a' &&
1023 if (name[2] == 'e' &&
1033 if (name[2] == 'e' &&
1037 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0);
1053 if (name[3] == 'i' &&
1062 if (name[3] == 'o' &&
1098 if (name[2] == 'o' &&
1108 if (name[2] == 'y' &&
1122 if (name[1] == 'l' &&
1136 if (name[2] == 'n' &&
1146 if (name[2] == 'o' &&
1160 if (name[1] == 'i' &&
1165 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0);
1174 if (name[2] == 'd' &&
1184 if (name[2] == 'c' &&
1201 if (name[2] == 'c' &&
1211 if (name[2] == 't' &&
1225 if (name[1] == 'k' &&
1236 if (name[1] == 'r' &&
1250 if (name[2] == 's' &&
1260 if (name[2] == 'd' &&
1277 if (name[2] == 'm' &&
1287 if (name[2] == 'i' &&
1297 if (name[2] == 'e' &&
1307 if (name[2] == 'l' &&
1317 if (name[2] == 'a' &&
1330 if (name[3] == 't' &&
1333 return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0);
1339 if (name[3] == 'd' &&
1356 if (name[1] == 'i' &&
1370 if (name[2] == 'a' &&
1383 if (name[3] == 'e' &&
1418 if (name[2] == 'i' &&
1435 if (name[2] == 'i' &&
1445 if (name[2] == 'i' &&
1462 case 6: /* 33 tokens of length 6 */
1466 if (name[1] == 'c' &&
1481 if (name[2] == 'l' &&
1492 if (name[2] == 'r' &&
1507 if (name[1] == 'e' &&
1522 if (name[2] == 's' &&
1527 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
1533 if (name[2] == 'i' &&
1551 if (name[2] == 'l' &&
1562 if (name[2] == 'r' &&
1577 if (name[1] == 'm' &&
1592 if (name[2] == 'n' &&
1603 if (name[2] == 's' &&
1618 if (name[1] == 's' &&
1624 if (name[4] == 't' &&
1633 if (name[4] == 'e' &&
1642 if (name[4] == 'c' &&
1651 if (name[4] == 'n' &&
1667 if (name[1] == 'r' &&
1685 if (name[3] == 'a' &&
1695 if (name[3] == 'u' &&
1709 if (name[2] == 'n' &&
1727 if (name[2] == 'a' &&
1741 if (name[3] == 'e' &&
1754 if (name[4] == 't' &&
1763 if (name[4] == 'e' &&
1785 if (name[4] == 't' &&
1794 if (name[4] == 'e' &&
1810 if (name[2] == 'c' &&
1821 if (name[2] == 'l' &&
1832 if (name[2] == 'b' &&
1843 if (name[2] == 's' &&
1866 if (name[4] == 's' &&
1875 if (name[4] == 'n' &&
1888 if (name[3] == 'a' &&
1905 if (name[1] == 'a' &&
1920 case 7: /* 30 tokens of length 7 */
1924 if (name[1] == 'E' &&
1942 if (name[3] == 'N' &&
1953 if (name[3] == 'U' &&
1958 return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0);
1971 if (name[1] == 'i' &&
1978 return -KEY_binmode;
1984 if (name[1] == 'o' &&
1991 return -KEY_connect;
2000 if (name[2] == 'm' &&
2006 return -KEY_dbmopen;
2017 if (name[4] == 'u' &&
2021 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0);
2027 if (name[4] == 'n' &&
2048 if (name[1] == 'o' &&
2061 if (name[1] == 'e' &&
2068 if (name[5] == 'r' &&
2071 return -KEY_getpgrp;
2077 if (name[5] == 'i' &&
2080 return -KEY_getppid;
2093 if (name[1] == 'c' &&
2100 return -KEY_lcfirst;
2106 if (name[1] == 'p' &&
2113 return -KEY_opendir;
2119 if (name[1] == 'a' &&
2137 if (name[3] == 'd' &&
2142 return -KEY_readdir;
2148 if (name[3] == 'u' &&
2159 if (name[3] == 'e' &&
2164 return -KEY_reverse;
2183 if (name[3] == 'k' &&
2188 return -KEY_seekdir;
2194 if (name[3] == 'p' &&
2199 return -KEY_setpgrp;
2209 if (name[2] == 'm' &&
2215 return -KEY_shmread;
2221 if (name[2] == 'r' &&
2227 return -KEY_sprintf;
2236 if (name[3] == 'l' &&
2241 return -KEY_symlink;
2250 if (name[4] == 'a' &&
2254 return -KEY_syscall;
2260 if (name[4] == 'p' &&
2264 return -KEY_sysopen;
2270 if (name[4] == 'e' &&
2274 return -KEY_sysread;
2280 if (name[4] == 'e' &&
2284 return -KEY_sysseek;
2302 if (name[1] == 'e' &&
2309 return -KEY_telldir;
2318 if (name[2] == 'f' &&
2324 return -KEY_ucfirst;
2330 if (name[2] == 's' &&
2336 return -KEY_unshift;
2346 if (name[1] == 'a' &&
2353 return -KEY_waitpid;
2362 case 8: /* 26 tokens of length 8 */
2366 if (name[1] == 'U' &&
2374 return KEY_AUTOLOAD;
2385 if (name[3] == 'A' &&
2391 return KEY___DATA__;
2397 if (name[3] == 'I' &&
2403 return -KEY___FILE__;
2409 if (name[3] == 'I' &&
2415 return -KEY___LINE__;
2431 if (name[2] == 'o' &&
2438 return -KEY_closedir;
2444 if (name[2] == 'n' &&
2451 return -KEY_continue;
2461 if (name[1] == 'b' &&
2469 return -KEY_dbmclose;
2475 if (name[1] == 'n' &&
2481 if (name[4] == 'r' &&
2486 return -KEY_endgrent;
2492 if (name[4] == 'w' &&
2497 return -KEY_endpwent;
2510 if (name[1] == 'o' &&
2518 return -KEY_formline;
2524 if (name[1] == 'e' &&
2535 if (name[6] == 'n' &&
2538 return -KEY_getgrent;
2544 if (name[6] == 'i' &&
2547 return -KEY_getgrgid;
2553 if (name[6] == 'a' &&
2556 return -KEY_getgrnam;
2569 if (name[4] == 'o' &&
2574 return -KEY_getlogin;
2585 if (name[6] == 'n' &&
2588 return -KEY_getpwent;
2594 if (name[6] == 'a' &&
2597 return -KEY_getpwnam;
2603 if (name[6] == 'i' &&
2606 return -KEY_getpwuid;
2626 if (name[1] == 'e' &&
2633 if (name[5] == 'i' &&
2640 return -KEY_readline;
2645 return -KEY_readlink;
2656 if (name[5] == 'i' &&
2660 return -KEY_readpipe;
2681 if (name[4] == 'r' &&
2686 return -KEY_setgrent;
2692 if (name[4] == 'w' &&
2697 return -KEY_setpwent;
2713 if (name[3] == 'w' &&
2719 return -KEY_shmwrite;
2725 if (name[3] == 't' &&
2731 return -KEY_shutdown;
2741 if (name[2] == 's' &&
2748 return -KEY_syswrite;
2758 if (name[1] == 'r' &&
2766 return -KEY_truncate;
2775 case 9: /* 10 tokens of length 9 */
2779 if (name[1] == 'N' &&
2788 return KEY_UNITCHECK;
2797 if (name[2] == 'd' &&
2805 return -KEY_endnetent;
2811 if (name[2] == 'a' &&
2819 return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0);
2829 if (name[1] == 'e' &&
2838 return -KEY_getnetent;
2844 if (name[1] == 'o' &&
2853 return -KEY_localtime;
2859 if (name[1] == 'r' &&
2868 return KEY_prototype;
2874 if (name[1] == 'u' &&
2883 return -KEY_quotemeta;
2889 if (name[1] == 'e' &&
2898 return -KEY_rewinddir;
2904 if (name[1] == 'e' &&
2913 return -KEY_setnetent;
2919 if (name[1] == 'a' &&
2928 return -KEY_wantarray;
2937 case 10: /* 9 tokens of length 10 */
2941 if (name[1] == 'n' &&
2947 if (name[4] == 'o' &&
2954 return -KEY_endhostent;
2960 if (name[4] == 'e' &&
2967 return -KEY_endservent;
2980 if (name[1] == 'e' &&
2986 if (name[4] == 'o' &&
2993 return -KEY_gethostent;
3002 if (name[5] == 'r' &&
3008 return -KEY_getservent;
3014 if (name[5] == 'c' &&
3020 return -KEY_getsockopt;
3045 if (name[4] == 'o' &&
3052 return -KEY_sethostent;
3061 if (name[5] == 'r' &&
3067 return -KEY_setservent;
3073 if (name[5] == 'c' &&
3079 return -KEY_setsockopt;
3096 if (name[2] == 'c' &&
3105 return -KEY_socketpair;
3118 case 11: /* 8 tokens of length 11 */
3122 if (name[1] == '_' &&
3133 return -KEY___PACKAGE__;
3139 if (name[1] == 'n' &&
3150 return -KEY_endprotoent;
3156 if (name[1] == 'e' &&
3165 if (name[5] == 'e' &&
3172 return -KEY_getpeername;
3181 if (name[6] == 'o' &&
3187 return -KEY_getpriority;
3193 if (name[6] == 't' &&
3199 return -KEY_getprotoent;
3213 if (name[4] == 'o' &&
3221 return -KEY_getsockname;
3234 if (name[1] == 'e' &&
3242 if (name[6] == 'o' &&
3248 return -KEY_setpriority;
3254 if (name[6] == 't' &&
3260 return -KEY_setprotoent;
3276 case 12: /* 2 tokens of length 12 */
3277 if (name[0] == 'g' &&
3289 if (name[9] == 'd' &&
3292 { /* getnetbyaddr */
3293 return -KEY_getnetbyaddr;
3299 if (name[9] == 'a' &&
3302 { /* getnetbyname */
3303 return -KEY_getnetbyname;
3315 case 13: /* 4 tokens of length 13 */
3316 if (name[0] == 'g' &&
3323 if (name[4] == 'o' &&
3332 if (name[10] == 'd' &&
3335 { /* gethostbyaddr */
3336 return -KEY_gethostbyaddr;
3342 if (name[10] == 'a' &&
3345 { /* gethostbyname */
3346 return -KEY_gethostbyname;
3359 if (name[4] == 'e' &&
3368 if (name[10] == 'a' &&
3371 { /* getservbyname */
3372 return -KEY_getservbyname;
3378 if (name[10] == 'o' &&
3381 { /* getservbyport */
3382 return -KEY_getservbyport;
3401 case 14: /* 1 tokens of length 14 */
3402 if (name[0] == 'g' &&
3416 { /* getprotobyname */
3417 return -KEY_getprotobyname;
3422 case 16: /* 1 tokens of length 16 */
3423 if (name[0] == 'g' &&
3439 { /* getprotobynumber */
3440 return -KEY_getprotobynumber;
3454 * f77998a5bc995c1b42d3d080de227ef5f11638bcd329367431d8f193aef2d3cc regen/keywords.pl