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: /* 30 tokens of length 7 */
1913 if (name[1] == 'E' &&
1931 if (name[3] == 'N' &&
1942 if (name[3] == 'U' &&
1947 return (all_keywords || FEATURE_IS_ENABLED("__SUB__") ? -KEY___SUB__ : 0);
1960 if (name[1] == 'i' &&
1967 return -KEY_binmode;
1973 if (name[1] == 'o' &&
1980 return -KEY_connect;
1989 if (name[2] == 'm' &&
1995 return -KEY_dbmopen;
2006 if (name[4] == 'u' &&
2010 return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_default : 0);
2016 if (name[4] == 'n' &&
2037 if (name[1] == 'o' &&
2050 if (name[1] == 'e' &&
2057 if (name[5] == 'r' &&
2060 return -KEY_getpgrp;
2066 if (name[5] == 'i' &&
2069 return -KEY_getppid;
2082 if (name[1] == 'c' &&
2089 return -KEY_lcfirst;
2095 if (name[1] == 'p' &&
2102 return -KEY_opendir;
2108 if (name[1] == 'a' &&
2126 if (name[3] == 'd' &&
2131 return -KEY_readdir;
2137 if (name[3] == 'u' &&
2148 if (name[3] == 'e' &&
2153 return -KEY_reverse;
2172 if (name[3] == 'k' &&
2177 return -KEY_seekdir;
2183 if (name[3] == 'p' &&
2188 return -KEY_setpgrp;
2198 if (name[2] == 'm' &&
2204 return -KEY_shmread;
2210 if (name[2] == 'r' &&
2216 return -KEY_sprintf;
2225 if (name[3] == 'l' &&
2230 return -KEY_symlink;
2239 if (name[4] == 'a' &&
2243 return -KEY_syscall;
2249 if (name[4] == 'p' &&
2253 return -KEY_sysopen;
2259 if (name[4] == 'e' &&
2263 return -KEY_sysread;
2269 if (name[4] == 'e' &&
2273 return -KEY_sysseek;
2291 if (name[1] == 'e' &&
2298 return -KEY_telldir;
2307 if (name[2] == 'f' &&
2313 return -KEY_ucfirst;
2319 if (name[2] == 's' &&
2325 return -KEY_unshift;
2335 if (name[1] == 'a' &&
2342 return -KEY_waitpid;
2351 case 8: /* 26 tokens of length 8 */
2355 if (name[1] == 'U' &&
2363 return KEY_AUTOLOAD;
2374 if (name[3] == 'A' &&
2380 return KEY___DATA__;
2386 if (name[3] == 'I' &&
2392 return -KEY___FILE__;
2398 if (name[3] == 'I' &&
2404 return -KEY___LINE__;
2420 if (name[2] == 'o' &&
2427 return -KEY_closedir;
2433 if (name[2] == 'n' &&
2440 return -KEY_continue;
2450 if (name[1] == 'b' &&
2458 return -KEY_dbmclose;
2464 if (name[1] == 'n' &&
2470 if (name[4] == 'r' &&
2475 return -KEY_endgrent;
2481 if (name[4] == 'w' &&
2486 return -KEY_endpwent;
2499 if (name[1] == 'o' &&
2507 return -KEY_formline;
2513 if (name[1] == 'e' &&
2524 if (name[6] == 'n' &&
2527 return -KEY_getgrent;
2533 if (name[6] == 'i' &&
2536 return -KEY_getgrgid;
2542 if (name[6] == 'a' &&
2545 return -KEY_getgrnam;
2558 if (name[4] == 'o' &&
2563 return -KEY_getlogin;
2574 if (name[6] == 'n' &&
2577 return -KEY_getpwent;
2583 if (name[6] == 'a' &&
2586 return -KEY_getpwnam;
2592 if (name[6] == 'i' &&
2595 return -KEY_getpwuid;
2615 if (name[1] == 'e' &&
2622 if (name[5] == 'i' &&
2629 return -KEY_readline;
2634 return -KEY_readlink;
2645 if (name[5] == 'i' &&
2649 return -KEY_readpipe;
2670 if (name[4] == 'r' &&
2675 return -KEY_setgrent;
2681 if (name[4] == 'w' &&
2686 return -KEY_setpwent;
2702 if (name[3] == 'w' &&
2708 return -KEY_shmwrite;
2714 if (name[3] == 't' &&
2720 return -KEY_shutdown;
2730 if (name[2] == 's' &&
2737 return -KEY_syswrite;
2747 if (name[1] == 'r' &&
2755 return -KEY_truncate;
2764 case 9: /* 10 tokens of length 9 */
2768 if (name[1] == 'N' &&
2777 return KEY_UNITCHECK;
2786 if (name[2] == 'd' &&
2794 return -KEY_endnetent;
2800 if (name[2] == 'a' &&
2808 return (all_keywords || FEATURE_IS_ENABLED("evalbytes") ? -KEY_evalbytes : 0);
2818 if (name[1] == 'e' &&
2827 return -KEY_getnetent;
2833 if (name[1] == 'o' &&
2842 return -KEY_localtime;
2848 if (name[1] == 'r' &&
2857 return KEY_prototype;
2863 if (name[1] == 'u' &&
2872 return -KEY_quotemeta;
2878 if (name[1] == 'e' &&
2887 return -KEY_rewinddir;
2893 if (name[1] == 'e' &&
2902 return -KEY_setnetent;
2908 if (name[1] == 'a' &&
2917 return -KEY_wantarray;
2926 case 10: /* 9 tokens of length 10 */
2930 if (name[1] == 'n' &&
2936 if (name[4] == 'o' &&
2943 return -KEY_endhostent;
2949 if (name[4] == 'e' &&
2956 return -KEY_endservent;
2969 if (name[1] == 'e' &&
2975 if (name[4] == 'o' &&
2982 return -KEY_gethostent;
2991 if (name[5] == 'r' &&
2997 return -KEY_getservent;
3003 if (name[5] == 'c' &&
3009 return -KEY_getsockopt;
3034 if (name[4] == 'o' &&
3041 return -KEY_sethostent;
3050 if (name[5] == 'r' &&
3056 return -KEY_setservent;
3062 if (name[5] == 'c' &&
3068 return -KEY_setsockopt;
3085 if (name[2] == 'c' &&
3094 return -KEY_socketpair;
3107 case 11: /* 8 tokens of length 11 */
3111 if (name[1] == '_' &&
3122 return -KEY___PACKAGE__;
3128 if (name[1] == 'n' &&
3139 return -KEY_endprotoent;
3145 if (name[1] == 'e' &&
3154 if (name[5] == 'e' &&
3161 return -KEY_getpeername;
3170 if (name[6] == 'o' &&
3176 return -KEY_getpriority;
3182 if (name[6] == 't' &&
3188 return -KEY_getprotoent;
3202 if (name[4] == 'o' &&
3210 return -KEY_getsockname;
3223 if (name[1] == 'e' &&
3231 if (name[6] == 'o' &&
3237 return -KEY_setpriority;
3243 if (name[6] == 't' &&
3249 return -KEY_setprotoent;
3265 case 12: /* 2 tokens of length 12 */
3266 if (name[0] == 'g' &&
3278 if (name[9] == 'd' &&
3281 { /* getnetbyaddr */
3282 return -KEY_getnetbyaddr;
3288 if (name[9] == 'a' &&
3291 { /* getnetbyname */
3292 return -KEY_getnetbyname;
3304 case 13: /* 4 tokens of length 13 */
3305 if (name[0] == 'g' &&
3312 if (name[4] == 'o' &&
3321 if (name[10] == 'd' &&
3324 { /* gethostbyaddr */
3325 return -KEY_gethostbyaddr;
3331 if (name[10] == 'a' &&
3334 { /* gethostbyname */
3335 return -KEY_gethostbyname;
3348 if (name[4] == 'e' &&
3357 if (name[10] == 'a' &&
3360 { /* getservbyname */
3361 return -KEY_getservbyname;
3367 if (name[10] == 'o' &&
3370 { /* getservbyport */
3371 return -KEY_getservbyport;
3390 case 14: /* 1 tokens of length 14 */
3391 if (name[0] == 'g' &&
3405 { /* getprotobyname */
3406 return -KEY_getprotobyname;
3411 case 16: /* 1 tokens of length 16 */
3412 if (name[0] == 'g' &&
3428 { /* getprotobynumber */
3429 return -KEY_getprotobynumber;
3443 * 76ce12941a02bdb120222155311eb8772ba4a4e8965a42ba347a077cac5b426e regen/keywords.pl