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: /* 30 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);
479 return (all_keywords || FEATURE_TRY_IS_ENABLED ? KEY_try : 0);
489 if (name[1] == 's' &&
498 if (name[1] == 'e' &&
507 if (name[1] == 'o' &&
519 case 4: /* 40 tokens of length 4 */
523 if (name[1] == 'N' &&
533 if (name[1] == 'i' &&
543 if (name[1] == 'h' &&
553 if (name[1] == 'u' &&
566 if (name[2] == 'c' &&
575 if (name[2] == 's' &&
584 if (name[2] == 'a' &&
620 if (name[1] == 'o' &&
633 if (name[2] == 't' &&
642 if (name[2] == 'o' &&
651 if (name[2] == 't' &&
660 if (name[2] == 'e' &&
673 if (name[1] == 'o' &&
686 if (name[2] == 'y' &&
695 if (name[2] == 'l' &&
711 if (name[2] == 's' &&
720 if (name[2] == 'n' &&
729 if (name[2] == 'c' &&
742 if (name[1] == 'e' &&
752 if (name[1] == 'p' &&
765 if (name[2] == 'c' &&
774 if (name[2] == 'p' &&
783 if (name[2] == 's' &&
799 if (name[2] == 'n' &&
869 if (name[2] == 'r' &&
878 if (name[2] == 'r' &&
887 if (name[2] == 'a' &&
903 if (name[2] == 'l' &&
965 if (name[2] == 'e' &&
968 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0);
981 case 5: /* 43 tokens of length 5 */
985 if (name[1] == 'E' &&
996 if (name[1] == 'H' &&
1010 if (name[2] == 'a' &&
1020 if (name[2] == 'a' &&
1037 if (name[2] == 'e' &&
1047 if (name[2] == 'e' &&
1051 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0);
1064 if (name[2] == 't' &&
1068 return (all_keywords || FEATURE_TRY_IS_ENABLED ? KEY_catch : 0);
1077 if (name[3] == 'i' &&
1086 if (name[3] == 'o' &&
1125 if (name[3] == 's' &&
1128 return (all_keywords || FEATURE_CLASS_IS_ENABLED ? -KEY_class : 0);
1134 if (name[3] == 's' &&
1147 if (name[2] == 'y' &&
1161 if (name[1] == 'e' &&
1166 return (all_keywords || FEATURE_DEFER_IS_ENABLED ? KEY_defer : 0);
1172 if (name[1] == 'l' &&
1186 if (name[2] == 'n' &&
1196 if (name[2] == 'e' &&
1200 return (all_keywords || FEATURE_CLASS_IS_ENABLED ? -KEY_field : 0);
1206 if (name[2] == 'o' &&
1220 if (name[1] == 'i' &&
1225 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0);
1234 if (name[2] == 'd' &&
1244 if (name[2] == 'c' &&
1261 if (name[2] == 'c' &&
1271 if (name[2] == 't' &&
1285 if (name[1] == 'k' &&
1296 if (name[1] == 'r' &&
1310 if (name[2] == 's' &&
1320 if (name[2] == 'd' &&
1337 if (name[2] == 'm' &&
1347 if (name[2] == 'i' &&
1357 if (name[2] == 'e' &&
1367 if (name[2] == 'l' &&
1377 if (name[2] == 'a' &&
1390 if (name[3] == 't' &&
1393 return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0);
1399 if (name[3] == 'd' &&
1416 if (name[1] == 'i' &&
1430 if (name[2] == 'a' &&
1443 if (name[3] == 'e' &&
1478 if (name[2] == 'i' &&
1495 if (name[2] == 'i' &&
1505 if (name[2] == 'i' &&
1522 case 6: /* 35 tokens of length 6 */
1526 if (name[1] == 'D' &&
1532 return (all_keywords || FEATURE_CLASS_IS_ENABLED ? KEY_ADJUST : 0);
1538 if (name[1] == 'c' &&
1553 if (name[2] == 'l' &&
1564 if (name[2] == 'r' &&
1579 if (name[1] == 'e' &&
1594 if (name[2] == 's' &&
1599 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
1605 if (name[2] == 'i' &&
1623 if (name[2] == 'l' &&
1634 if (name[2] == 'r' &&
1649 if (name[1] == 'm' &&
1664 if (name[2] == 'n' &&
1675 if (name[2] == 's' &&
1693 if (name[2] == 't' &&
1698 return (all_keywords || FEATURE_CLASS_IS_ENABLED ? -KEY_method : 0);
1709 if (name[4] == 't' &&
1718 if (name[4] == 'e' &&
1727 if (name[4] == 'c' &&
1736 if (name[4] == 'n' &&
1756 if (name[1] == 'r' &&
1774 if (name[3] == 'a' &&
1784 if (name[3] == 'u' &&
1798 if (name[2] == 'n' &&
1816 if (name[2] == 'a' &&
1830 if (name[3] == 'e' &&
1843 if (name[4] == 't' &&
1852 if (name[4] == 'e' &&
1874 if (name[4] == 't' &&
1883 if (name[4] == 'e' &&
1899 if (name[2] == 'c' &&
1910 if (name[2] == 'l' &&
1921 if (name[2] == 'b' &&
1932 if (name[2] == 's' &&
1955 if (name[4] == 's' &&
1964 if (name[4] == 'n' &&
1977 if (name[3] == 'a' &&
1994 if (name[1] == 'a' &&
2009 case 7: /* 31 tokens of length 7 */
2013 if (name[1] == 'E' &&
2031 if (name[3] == 'N' &&
2042 if (name[3] == 'U' &&
2047 return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0);
2060 if (name[1] == 'i' &&
2067 return -KEY_binmode;
2073 if (name[1] == 'o' &&
2080 return -KEY_connect;
2089 if (name[2] == 'm' &&
2095 return -KEY_dbmopen;
2106 if (name[4] == 'u' &&
2110 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0);
2116 if (name[4] == 'n' &&
2140 if (name[2] == 'n' &&
2146 return (all_keywords || FEATURE_TRY_IS_ENABLED ? KEY_finally : 0);
2152 if (name[2] == 'r' &&
2168 if (name[1] == 'e' &&
2175 if (name[5] == 'r' &&
2178 return -KEY_getpgrp;
2184 if (name[5] == 'i' &&
2187 return -KEY_getppid;
2200 if (name[1] == 'c' &&
2207 return -KEY_lcfirst;
2213 if (name[1] == 'p' &&
2220 return -KEY_opendir;
2226 if (name[1] == 'a' &&
2244 if (name[3] == 'd' &&
2249 return -KEY_readdir;
2255 if (name[3] == 'u' &&
2266 if (name[3] == 'e' &&
2271 return -KEY_reverse;
2290 if (name[3] == 'k' &&
2295 return -KEY_seekdir;
2301 if (name[3] == 'p' &&
2306 return -KEY_setpgrp;
2316 if (name[2] == 'm' &&
2322 return -KEY_shmread;
2328 if (name[2] == 'r' &&
2334 return -KEY_sprintf;
2343 if (name[3] == 'l' &&
2348 return -KEY_symlink;
2357 if (name[4] == 'a' &&
2361 return -KEY_syscall;
2367 if (name[4] == 'p' &&
2371 return -KEY_sysopen;
2377 if (name[4] == 'e' &&
2381 return -KEY_sysread;
2387 if (name[4] == 'e' &&
2391 return -KEY_sysseek;
2409 if (name[1] == 'e' &&
2416 return -KEY_telldir;
2425 if (name[2] == 'f' &&
2431 return -KEY_ucfirst;
2437 if (name[2] == 's' &&
2443 return -KEY_unshift;
2453 if (name[1] == 'a' &&
2460 return -KEY_waitpid;
2469 case 8: /* 26 tokens of length 8 */
2473 if (name[1] == 'U' &&
2481 return KEY_AUTOLOAD;
2492 if (name[3] == 'A' &&
2498 return KEY___DATA__;
2504 if (name[3] == 'I' &&
2510 return -KEY___FILE__;
2516 if (name[3] == 'I' &&
2522 return -KEY___LINE__;
2538 if (name[2] == 'o' &&
2545 return -KEY_closedir;
2551 if (name[2] == 'n' &&
2558 return -KEY_continue;
2568 if (name[1] == 'b' &&
2576 return -KEY_dbmclose;
2582 if (name[1] == 'n' &&
2588 if (name[4] == 'r' &&
2593 return -KEY_endgrent;
2599 if (name[4] == 'w' &&
2604 return -KEY_endpwent;
2617 if (name[1] == 'o' &&
2625 return -KEY_formline;
2631 if (name[1] == 'e' &&
2642 if (name[6] == 'n' &&
2645 return -KEY_getgrent;
2651 if (name[6] == 'i' &&
2654 return -KEY_getgrgid;
2660 if (name[6] == 'a' &&
2663 return -KEY_getgrnam;
2676 if (name[4] == 'o' &&
2681 return -KEY_getlogin;
2692 if (name[6] == 'n' &&
2695 return -KEY_getpwent;
2701 if (name[6] == 'a' &&
2704 return -KEY_getpwnam;
2710 if (name[6] == 'i' &&
2713 return -KEY_getpwuid;
2733 if (name[1] == 'e' &&
2740 if (name[5] == 'i' &&
2747 return -KEY_readline;
2752 return -KEY_readlink;
2763 if (name[5] == 'i' &&
2767 return -KEY_readpipe;
2788 if (name[4] == 'r' &&
2793 return -KEY_setgrent;
2799 if (name[4] == 'w' &&
2804 return -KEY_setpwent;
2820 if (name[3] == 'w' &&
2826 return -KEY_shmwrite;
2832 if (name[3] == 't' &&
2838 return -KEY_shutdown;
2848 if (name[2] == 's' &&
2855 return -KEY_syswrite;
2865 if (name[1] == 'r' &&
2873 return -KEY_truncate;
2882 case 9: /* 10 tokens of length 9 */
2886 if (name[1] == 'N' &&
2895 return KEY_UNITCHECK;
2904 if (name[2] == 'd' &&
2912 return -KEY_endnetent;
2918 if (name[2] == 'a' &&
2926 return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0);
2936 if (name[1] == 'e' &&
2945 return -KEY_getnetent;
2951 if (name[1] == 'o' &&
2960 return -KEY_localtime;
2966 if (name[1] == 'r' &&
2975 return KEY_prototype;
2981 if (name[1] == 'u' &&
2990 return -KEY_quotemeta;
2996 if (name[1] == 'e' &&
3005 return -KEY_rewinddir;
3011 if (name[1] == 'e' &&
3020 return -KEY_setnetent;
3026 if (name[1] == 'a' &&
3035 return -KEY_wantarray;
3044 case 10: /* 9 tokens of length 10 */
3048 if (name[1] == 'n' &&
3054 if (name[4] == 'o' &&
3061 return -KEY_endhostent;
3067 if (name[4] == 'e' &&
3074 return -KEY_endservent;
3087 if (name[1] == 'e' &&
3093 if (name[4] == 'o' &&
3100 return -KEY_gethostent;
3109 if (name[5] == 'r' &&
3115 return -KEY_getservent;
3121 if (name[5] == 'c' &&
3127 return -KEY_getsockopt;
3152 if (name[4] == 'o' &&
3159 return -KEY_sethostent;
3168 if (name[5] == 'r' &&
3174 return -KEY_setservent;
3180 if (name[5] == 'c' &&
3186 return -KEY_setsockopt;
3203 if (name[2] == 'c' &&
3212 return -KEY_socketpair;
3225 case 11: /* 8 tokens of length 11 */
3229 if (name[1] == '_' &&
3240 return -KEY___PACKAGE__;
3246 if (name[1] == 'n' &&
3257 return -KEY_endprotoent;
3263 if (name[1] == 'e' &&
3272 if (name[5] == 'e' &&
3279 return -KEY_getpeername;
3288 if (name[6] == 'o' &&
3294 return -KEY_getpriority;
3300 if (name[6] == 't' &&
3306 return -KEY_getprotoent;
3320 if (name[4] == 'o' &&
3328 return -KEY_getsockname;
3341 if (name[1] == 'e' &&
3349 if (name[6] == 'o' &&
3355 return -KEY_setpriority;
3361 if (name[6] == 't' &&
3367 return -KEY_setprotoent;
3383 case 12: /* 2 tokens of length 12 */
3384 if (name[0] == 'g' &&
3396 if (name[9] == 'd' &&
3399 { /* getnetbyaddr */
3400 return -KEY_getnetbyaddr;
3406 if (name[9] == 'a' &&
3409 { /* getnetbyname */
3410 return -KEY_getnetbyname;
3422 case 13: /* 4 tokens of length 13 */
3423 if (name[0] == 'g' &&
3430 if (name[4] == 'o' &&
3439 if (name[10] == 'd' &&
3442 { /* gethostbyaddr */
3443 return -KEY_gethostbyaddr;
3449 if (name[10] == 'a' &&
3452 { /* gethostbyname */
3453 return -KEY_gethostbyname;
3466 if (name[4] == 'e' &&
3475 if (name[10] == 'a' &&
3478 { /* getservbyname */
3479 return -KEY_getservbyname;
3485 if (name[10] == 'o' &&
3488 { /* getservbyport */
3489 return -KEY_getservbyport;
3508 case 14: /* 1 tokens of length 14 */
3509 if (name[0] == 'g' &&
3523 { /* getprotobyname */
3524 return -KEY_getprotobyname;
3529 case 16: /* 1 tokens of length 16 */
3530 if (name[0] == 'g' &&
3546 { /* getprotobynumber */
3547 return -KEY_getprotobynumber;
3561 * eb67e851da14ede1aad67aec4a387fa250c1345407fad0a02988d2d8d3cc27f2 regen/keywords.pl