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: /* 40 tokens of length 4 */
497 if (name[1] == 'N' &&
507 if (name[1] == 'i' &&
517 if (name[1] == 'h' &&
527 if (name[1] == 'u' &&
540 if (name[2] == 'c' &&
549 if (name[2] == 's' &&
558 if (name[2] == 'a' &&
594 if (name[1] == 'o' &&
607 if (name[2] == 't' &&
616 if (name[2] == 'o' &&
625 if (name[2] == 't' &&
634 if (name[2] == 'e' &&
647 if (name[1] == 'o' &&
660 if (name[2] == 'y' &&
669 if (name[2] == 'l' &&
685 if (name[2] == 's' &&
694 if (name[2] == 'n' &&
703 if (name[2] == 'c' &&
716 if (name[1] == 'e' &&
726 if (name[1] == 'p' &&
739 if (name[2] == 'c' &&
748 if (name[2] == 'p' &&
757 if (name[2] == 's' &&
773 if (name[2] == 'n' &&
843 if (name[2] == 'r' &&
852 if (name[2] == 'r' &&
861 if (name[2] == 'a' &&
877 if (name[2] == 'l' &&
939 if (name[2] == 'e' &&
942 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0);
955 case 5: /* 39 tokens of length 5 */
959 if (name[1] == 'E' &&
970 if (name[1] == 'H' &&
984 if (name[2] == 'a' &&
994 if (name[2] == 'a' &&
1011 if (name[2] == 'e' &&
1021 if (name[2] == 'e' &&
1025 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0);
1041 if (name[3] == 'i' &&
1050 if (name[3] == 'o' &&
1086 if (name[2] == 'o' &&
1096 if (name[2] == 'y' &&
1110 if (name[1] == 'l' &&
1124 if (name[2] == 'n' &&
1134 if (name[2] == 'o' &&
1148 if (name[1] == 'i' &&
1153 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0);
1162 if (name[2] == 'd' &&
1172 if (name[2] == 'c' &&
1189 if (name[2] == 'c' &&
1199 if (name[2] == 't' &&
1213 if (name[1] == 'k' &&
1224 if (name[1] == 'r' &&
1238 if (name[2] == 's' &&
1248 if (name[2] == 'd' &&
1265 if (name[2] == 'm' &&
1275 if (name[2] == 'i' &&
1285 if (name[2] == 'e' &&
1295 if (name[2] == 'l' &&
1305 if (name[2] == 'a' &&
1318 if (name[3] == 't' &&
1321 return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0);
1327 if (name[3] == 'd' &&
1344 if (name[1] == 'i' &&
1358 if (name[2] == 'a' &&
1371 if (name[3] == 'e' &&
1406 if (name[2] == 'i' &&
1423 if (name[2] == 'i' &&
1433 if (name[2] == 'i' &&
1450 case 6: /* 33 tokens of length 6 */
1454 if (name[1] == 'c' &&
1469 if (name[2] == 'l' &&
1480 if (name[2] == 'r' &&
1495 if (name[1] == 'e' &&
1510 if (name[2] == 's' &&
1515 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
1521 if (name[2] == 'i' &&
1539 if (name[2] == 'l' &&
1550 if (name[2] == 'r' &&
1565 if (name[1] == 'm' &&
1580 if (name[2] == 'n' &&
1591 if (name[2] == 's' &&
1606 if (name[1] == 's' &&
1612 if (name[4] == 't' &&
1621 if (name[4] == 'e' &&
1630 if (name[4] == 'c' &&
1639 if (name[4] == 'n' &&
1655 if (name[1] == 'r' &&
1673 if (name[3] == 'a' &&
1683 if (name[3] == 'u' &&
1697 if (name[2] == 'n' &&
1715 if (name[2] == 'a' &&
1729 if (name[3] == 'e' &&
1742 if (name[4] == 't' &&
1751 if (name[4] == 'e' &&
1773 if (name[4] == 't' &&
1782 if (name[4] == 'e' &&
1798 if (name[2] == 'c' &&
1809 if (name[2] == 'l' &&
1820 if (name[2] == 'b' &&
1831 if (name[2] == 's' &&
1854 if (name[4] == 's' &&
1863 if (name[4] == 'n' &&
1876 if (name[3] == 'a' &&
1893 if (name[1] == 'a' &&
1908 case 7: /* 30 tokens of length 7 */
1912 if (name[1] == 'E' &&
1930 if (name[3] == 'N' &&
1941 if (name[3] == 'U' &&
1946 return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0);
1959 if (name[1] == 'i' &&
1966 return -KEY_binmode;
1972 if (name[1] == 'o' &&
1979 return -KEY_connect;
1988 if (name[2] == 'm' &&
1994 return -KEY_dbmopen;
2005 if (name[4] == 'u' &&
2009 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0);
2015 if (name[4] == 'n' &&
2036 if (name[1] == 'o' &&
2049 if (name[1] == 'e' &&
2056 if (name[5] == 'r' &&
2059 return -KEY_getpgrp;
2065 if (name[5] == 'i' &&
2068 return -KEY_getppid;
2081 if (name[1] == 'c' &&
2088 return -KEY_lcfirst;
2094 if (name[1] == 'p' &&
2101 return -KEY_opendir;
2107 if (name[1] == 'a' &&
2125 if (name[3] == 'd' &&
2130 return -KEY_readdir;
2136 if (name[3] == 'u' &&
2147 if (name[3] == 'e' &&
2152 return -KEY_reverse;
2171 if (name[3] == 'k' &&
2176 return -KEY_seekdir;
2182 if (name[3] == 'p' &&
2187 return -KEY_setpgrp;
2197 if (name[2] == 'm' &&
2203 return -KEY_shmread;
2209 if (name[2] == 'r' &&
2215 return -KEY_sprintf;
2224 if (name[3] == 'l' &&
2229 return -KEY_symlink;
2238 if (name[4] == 'a' &&
2242 return -KEY_syscall;
2248 if (name[4] == 'p' &&
2252 return -KEY_sysopen;
2258 if (name[4] == 'e' &&
2262 return -KEY_sysread;
2268 if (name[4] == 'e' &&
2272 return -KEY_sysseek;
2290 if (name[1] == 'e' &&
2297 return -KEY_telldir;
2306 if (name[2] == 'f' &&
2312 return -KEY_ucfirst;
2318 if (name[2] == 's' &&
2324 return -KEY_unshift;
2334 if (name[1] == 'a' &&
2341 return -KEY_waitpid;
2350 case 8: /* 26 tokens of length 8 */
2354 if (name[1] == 'U' &&
2362 return KEY_AUTOLOAD;
2373 if (name[3] == 'A' &&
2379 return KEY___DATA__;
2385 if (name[3] == 'I' &&
2391 return -KEY___FILE__;
2397 if (name[3] == 'I' &&
2403 return -KEY___LINE__;
2419 if (name[2] == 'o' &&
2426 return -KEY_closedir;
2432 if (name[2] == 'n' &&
2439 return -KEY_continue;
2449 if (name[1] == 'b' &&
2457 return -KEY_dbmclose;
2463 if (name[1] == 'n' &&
2469 if (name[4] == 'r' &&
2474 return -KEY_endgrent;
2480 if (name[4] == 'w' &&
2485 return -KEY_endpwent;
2498 if (name[1] == 'o' &&
2506 return -KEY_formline;
2512 if (name[1] == 'e' &&
2523 if (name[6] == 'n' &&
2526 return -KEY_getgrent;
2532 if (name[6] == 'i' &&
2535 return -KEY_getgrgid;
2541 if (name[6] == 'a' &&
2544 return -KEY_getgrnam;
2557 if (name[4] == 'o' &&
2562 return -KEY_getlogin;
2573 if (name[6] == 'n' &&
2576 return -KEY_getpwent;
2582 if (name[6] == 'a' &&
2585 return -KEY_getpwnam;
2591 if (name[6] == 'i' &&
2594 return -KEY_getpwuid;
2614 if (name[1] == 'e' &&
2621 if (name[5] == 'i' &&
2628 return -KEY_readline;
2633 return -KEY_readlink;
2644 if (name[5] == 'i' &&
2648 return -KEY_readpipe;
2669 if (name[4] == 'r' &&
2674 return -KEY_setgrent;
2680 if (name[4] == 'w' &&
2685 return -KEY_setpwent;
2701 if (name[3] == 'w' &&
2707 return -KEY_shmwrite;
2713 if (name[3] == 't' &&
2719 return -KEY_shutdown;
2729 if (name[2] == 's' &&
2736 return -KEY_syswrite;
2746 if (name[1] == 'r' &&
2754 return -KEY_truncate;
2763 case 9: /* 10 tokens of length 9 */
2767 if (name[1] == 'N' &&
2776 return KEY_UNITCHECK;
2785 if (name[2] == 'd' &&
2793 return -KEY_endnetent;
2799 if (name[2] == 'a' &&
2807 return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0);
2817 if (name[1] == 'e' &&
2826 return -KEY_getnetent;
2832 if (name[1] == 'o' &&
2841 return -KEY_localtime;
2847 if (name[1] == 'r' &&
2856 return KEY_prototype;
2862 if (name[1] == 'u' &&
2871 return -KEY_quotemeta;
2877 if (name[1] == 'e' &&
2886 return -KEY_rewinddir;
2892 if (name[1] == 'e' &&
2901 return -KEY_setnetent;
2907 if (name[1] == 'a' &&
2916 return -KEY_wantarray;
2925 case 10: /* 9 tokens of length 10 */
2929 if (name[1] == 'n' &&
2935 if (name[4] == 'o' &&
2942 return -KEY_endhostent;
2948 if (name[4] == 'e' &&
2955 return -KEY_endservent;
2968 if (name[1] == 'e' &&
2974 if (name[4] == 'o' &&
2981 return -KEY_gethostent;
2990 if (name[5] == 'r' &&
2996 return -KEY_getservent;
3002 if (name[5] == 'c' &&
3008 return -KEY_getsockopt;
3033 if (name[4] == 'o' &&
3040 return -KEY_sethostent;
3049 if (name[5] == 'r' &&
3055 return -KEY_setservent;
3061 if (name[5] == 'c' &&
3067 return -KEY_setsockopt;
3084 if (name[2] == 'c' &&
3093 return -KEY_socketpair;
3106 case 11: /* 8 tokens of length 11 */
3110 if (name[1] == '_' &&
3121 return -KEY___PACKAGE__;
3127 if (name[1] == 'n' &&
3138 return -KEY_endprotoent;
3144 if (name[1] == 'e' &&
3153 if (name[5] == 'e' &&
3160 return -KEY_getpeername;
3169 if (name[6] == 'o' &&
3175 return -KEY_getpriority;
3181 if (name[6] == 't' &&
3187 return -KEY_getprotoent;
3201 if (name[4] == 'o' &&
3209 return -KEY_getsockname;
3222 if (name[1] == 'e' &&
3230 if (name[6] == 'o' &&
3236 return -KEY_setpriority;
3242 if (name[6] == 't' &&
3248 return -KEY_setprotoent;
3264 case 12: /* 2 tokens of length 12 */
3265 if (name[0] == 'g' &&
3277 if (name[9] == 'd' &&
3280 { /* getnetbyaddr */
3281 return -KEY_getnetbyaddr;
3287 if (name[9] == 'a' &&
3290 { /* getnetbyname */
3291 return -KEY_getnetbyname;
3303 case 13: /* 4 tokens of length 13 */
3304 if (name[0] == 'g' &&
3311 if (name[4] == 'o' &&
3320 if (name[10] == 'd' &&
3323 { /* gethostbyaddr */
3324 return -KEY_gethostbyaddr;
3330 if (name[10] == 'a' &&
3333 { /* gethostbyname */
3334 return -KEY_gethostbyname;
3347 if (name[4] == 'e' &&
3356 if (name[10] == 'a' &&
3359 { /* getservbyname */
3360 return -KEY_getservbyname;
3366 if (name[10] == 'o' &&
3369 { /* getservbyport */
3370 return -KEY_getservbyport;
3389 case 14: /* 1 tokens of length 14 */
3390 if (name[0] == 'g' &&
3404 { /* getprotobyname */
3405 return -KEY_getprotobyname;
3410 case 16: /* 1 tokens of length 16 */
3411 if (name[0] == 'g' &&
3427 { /* getprotobynumber */
3428 return -KEY_getprotobynumber;
3442 * 7c6d47fd2890b2422a40331ec90eac08f9808209b01f2b9c113141410fea91b5 regen/keywords.pl