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: /* 28 tokens of length 3 */
210 if (name[1] == 'N' &&
273 if (name[1] == 'i' &&
305 if (name[1] == 'o' &&
314 if (name[1] == 'e' &&
323 if (name[1] == 'n' &&
332 if (name[1] == 'o' &&
341 if (name[1] == 'a' &&
350 if (name[1] == 'o' &&
412 if (name[1] == 'e' &&
426 return (all_keywords || FEATURE_SAY_IS_ENABLED ? KEY_say : 0);
452 if (name[1] == 'i' &&
461 if (name[1] == 's' &&
470 if (name[1] == 'e' &&
479 if (name[1] == 'o' &&
491 case 4: /* 40 tokens of length 4 */
495 if (name[1] == 'N' &&
505 if (name[1] == 'i' &&
515 if (name[1] == 'h' &&
525 if (name[1] == 'u' &&
538 if (name[2] == 'c' &&
547 if (name[2] == 's' &&
556 if (name[2] == 'a' &&
592 if (name[1] == 'o' &&
605 if (name[2] == 't' &&
614 if (name[2] == 'o' &&
623 if (name[2] == 't' &&
632 if (name[2] == 'e' &&
645 if (name[1] == 'o' &&
658 if (name[2] == 'y' &&
667 if (name[2] == 'l' &&
683 if (name[2] == 's' &&
692 if (name[2] == 'n' &&
701 if (name[2] == 'c' &&
714 if (name[1] == 'e' &&
724 if (name[1] == 'p' &&
737 if (name[2] == 'c' &&
746 if (name[2] == 'p' &&
755 if (name[2] == 's' &&
771 if (name[2] == 'n' &&
841 if (name[2] == 'r' &&
850 if (name[2] == 'r' &&
859 if (name[2] == 'a' &&
875 if (name[2] == 'l' &&
937 if (name[2] == 'e' &&
940 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0);
953 case 5: /* 39 tokens of length 5 */
957 if (name[1] == 'E' &&
968 if (name[1] == 'H' &&
982 if (name[2] == 'a' &&
992 if (name[2] == 'a' &&
1009 if (name[2] == 'e' &&
1019 if (name[2] == 'e' &&
1023 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0);
1039 if (name[3] == 'i' &&
1048 if (name[3] == 'o' &&
1084 if (name[2] == 'o' &&
1094 if (name[2] == 'y' &&
1108 if (name[1] == 'l' &&
1122 if (name[2] == 'n' &&
1132 if (name[2] == 'o' &&
1146 if (name[1] == 'i' &&
1151 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0);
1160 if (name[2] == 'd' &&
1170 if (name[2] == 'c' &&
1187 if (name[2] == 'c' &&
1197 if (name[2] == 't' &&
1211 if (name[1] == 'k' &&
1222 if (name[1] == 'r' &&
1236 if (name[2] == 's' &&
1246 if (name[2] == 'd' &&
1263 if (name[2] == 'm' &&
1273 if (name[2] == 'i' &&
1283 if (name[2] == 'e' &&
1293 if (name[2] == 'l' &&
1303 if (name[2] == 'a' &&
1316 if (name[3] == 't' &&
1319 return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0);
1325 if (name[3] == 'd' &&
1342 if (name[1] == 'i' &&
1356 if (name[2] == 'a' &&
1369 if (name[3] == 'e' &&
1404 if (name[2] == 'i' &&
1421 if (name[2] == 'i' &&
1431 if (name[2] == 'i' &&
1448 case 6: /* 33 tokens of length 6 */
1452 if (name[1] == 'c' &&
1467 if (name[2] == 'l' &&
1478 if (name[2] == 'r' &&
1493 if (name[1] == 'e' &&
1508 if (name[2] == 's' &&
1513 Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
1519 if (name[2] == 'i' &&
1537 if (name[2] == 'l' &&
1548 if (name[2] == 'r' &&
1563 if (name[1] == 'm' &&
1578 if (name[2] == 'n' &&
1589 if (name[2] == 's' &&
1604 if (name[1] == 's' &&
1610 if (name[4] == 't' &&
1619 if (name[4] == 'e' &&
1628 if (name[4] == 'c' &&
1637 if (name[4] == 'n' &&
1653 if (name[1] == 'r' &&
1671 if (name[3] == 'a' &&
1681 if (name[3] == 'u' &&
1695 if (name[2] == 'n' &&
1713 if (name[2] == 'a' &&
1727 if (name[3] == 'e' &&
1740 if (name[4] == 't' &&
1749 if (name[4] == 'e' &&
1771 if (name[4] == 't' &&
1780 if (name[4] == 'e' &&
1796 if (name[2] == 'c' &&
1807 if (name[2] == 'l' &&
1818 if (name[2] == 'b' &&
1829 if (name[2] == 's' &&
1852 if (name[4] == 's' &&
1861 if (name[4] == 'n' &&
1874 if (name[3] == 'a' &&
1891 if (name[1] == 'a' &&
1906 case 7: /* 30 tokens of length 7 */
1910 if (name[1] == 'E' &&
1928 if (name[3] == 'N' &&
1939 if (name[3] == 'U' &&
1944 return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0);
1957 if (name[1] == 'i' &&
1964 return -KEY_binmode;
1970 if (name[1] == 'o' &&
1977 return -KEY_connect;
1986 if (name[2] == 'm' &&
1992 return -KEY_dbmopen;
2003 if (name[4] == 'u' &&
2007 return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0);
2013 if (name[4] == 'n' &&
2034 if (name[1] == 'o' &&
2047 if (name[1] == 'e' &&
2054 if (name[5] == 'r' &&
2057 return -KEY_getpgrp;
2063 if (name[5] == 'i' &&
2066 return -KEY_getppid;
2079 if (name[1] == 'c' &&
2086 return -KEY_lcfirst;
2092 if (name[1] == 'p' &&
2099 return -KEY_opendir;
2105 if (name[1] == 'a' &&
2123 if (name[3] == 'd' &&
2128 return -KEY_readdir;
2134 if (name[3] == 'u' &&
2145 if (name[3] == 'e' &&
2150 return -KEY_reverse;
2169 if (name[3] == 'k' &&
2174 return -KEY_seekdir;
2180 if (name[3] == 'p' &&
2185 return -KEY_setpgrp;
2195 if (name[2] == 'm' &&
2201 return -KEY_shmread;
2207 if (name[2] == 'r' &&
2213 return -KEY_sprintf;
2222 if (name[3] == 'l' &&
2227 return -KEY_symlink;
2236 if (name[4] == 'a' &&
2240 return -KEY_syscall;
2246 if (name[4] == 'p' &&
2250 return -KEY_sysopen;
2256 if (name[4] == 'e' &&
2260 return -KEY_sysread;
2266 if (name[4] == 'e' &&
2270 return -KEY_sysseek;
2288 if (name[1] == 'e' &&
2295 return -KEY_telldir;
2304 if (name[2] == 'f' &&
2310 return -KEY_ucfirst;
2316 if (name[2] == 's' &&
2322 return -KEY_unshift;
2332 if (name[1] == 'a' &&
2339 return -KEY_waitpid;
2348 case 8: /* 26 tokens of length 8 */
2352 if (name[1] == 'U' &&
2360 return KEY_AUTOLOAD;
2371 if (name[3] == 'A' &&
2377 return KEY___DATA__;
2383 if (name[3] == 'I' &&
2389 return -KEY___FILE__;
2395 if (name[3] == 'I' &&
2401 return -KEY___LINE__;
2417 if (name[2] == 'o' &&
2424 return -KEY_closedir;
2430 if (name[2] == 'n' &&
2437 return -KEY_continue;
2447 if (name[1] == 'b' &&
2455 return -KEY_dbmclose;
2461 if (name[1] == 'n' &&
2467 if (name[4] == 'r' &&
2472 return -KEY_endgrent;
2478 if (name[4] == 'w' &&
2483 return -KEY_endpwent;
2496 if (name[1] == 'o' &&
2504 return -KEY_formline;
2510 if (name[1] == 'e' &&
2521 if (name[6] == 'n' &&
2524 return -KEY_getgrent;
2530 if (name[6] == 'i' &&
2533 return -KEY_getgrgid;
2539 if (name[6] == 'a' &&
2542 return -KEY_getgrnam;
2555 if (name[4] == 'o' &&
2560 return -KEY_getlogin;
2571 if (name[6] == 'n' &&
2574 return -KEY_getpwent;
2580 if (name[6] == 'a' &&
2583 return -KEY_getpwnam;
2589 if (name[6] == 'i' &&
2592 return -KEY_getpwuid;
2612 if (name[1] == 'e' &&
2619 if (name[5] == 'i' &&
2626 return -KEY_readline;
2631 return -KEY_readlink;
2642 if (name[5] == 'i' &&
2646 return -KEY_readpipe;
2667 if (name[4] == 'r' &&
2672 return -KEY_setgrent;
2678 if (name[4] == 'w' &&
2683 return -KEY_setpwent;
2699 if (name[3] == 'w' &&
2705 return -KEY_shmwrite;
2711 if (name[3] == 't' &&
2717 return -KEY_shutdown;
2727 if (name[2] == 's' &&
2734 return -KEY_syswrite;
2744 if (name[1] == 'r' &&
2752 return -KEY_truncate;
2761 case 9: /* 10 tokens of length 9 */
2765 if (name[1] == 'N' &&
2774 return KEY_UNITCHECK;
2783 if (name[2] == 'd' &&
2791 return -KEY_endnetent;
2797 if (name[2] == 'a' &&
2805 return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0);
2815 if (name[1] == 'e' &&
2824 return -KEY_getnetent;
2830 if (name[1] == 'o' &&
2839 return -KEY_localtime;
2845 if (name[1] == 'r' &&
2854 return KEY_prototype;
2860 if (name[1] == 'u' &&
2869 return -KEY_quotemeta;
2875 if (name[1] == 'e' &&
2884 return -KEY_rewinddir;
2890 if (name[1] == 'e' &&
2899 return -KEY_setnetent;
2905 if (name[1] == 'a' &&
2914 return -KEY_wantarray;
2923 case 10: /* 9 tokens of length 10 */
2927 if (name[1] == 'n' &&
2933 if (name[4] == 'o' &&
2940 return -KEY_endhostent;
2946 if (name[4] == 'e' &&
2953 return -KEY_endservent;
2966 if (name[1] == 'e' &&
2972 if (name[4] == 'o' &&
2979 return -KEY_gethostent;
2988 if (name[5] == 'r' &&
2994 return -KEY_getservent;
3000 if (name[5] == 'c' &&
3006 return -KEY_getsockopt;
3031 if (name[4] == 'o' &&
3038 return -KEY_sethostent;
3047 if (name[5] == 'r' &&
3053 return -KEY_setservent;
3059 if (name[5] == 'c' &&
3065 return -KEY_setsockopt;
3082 if (name[2] == 'c' &&
3091 return -KEY_socketpair;
3104 case 11: /* 8 tokens of length 11 */
3108 if (name[1] == '_' &&
3119 return -KEY___PACKAGE__;
3125 if (name[1] == 'n' &&
3136 return -KEY_endprotoent;
3142 if (name[1] == 'e' &&
3151 if (name[5] == 'e' &&
3158 return -KEY_getpeername;
3167 if (name[6] == 'o' &&
3173 return -KEY_getpriority;
3179 if (name[6] == 't' &&
3185 return -KEY_getprotoent;
3199 if (name[4] == 'o' &&
3207 return -KEY_getsockname;
3220 if (name[1] == 'e' &&
3228 if (name[6] == 'o' &&
3234 return -KEY_setpriority;
3240 if (name[6] == 't' &&
3246 return -KEY_setprotoent;
3262 case 12: /* 2 tokens of length 12 */
3263 if (name[0] == 'g' &&
3275 if (name[9] == 'd' &&
3278 { /* getnetbyaddr */
3279 return -KEY_getnetbyaddr;
3285 if (name[9] == 'a' &&
3288 { /* getnetbyname */
3289 return -KEY_getnetbyname;
3301 case 13: /* 4 tokens of length 13 */
3302 if (name[0] == 'g' &&
3309 if (name[4] == 'o' &&
3318 if (name[10] == 'd' &&
3321 { /* gethostbyaddr */
3322 return -KEY_gethostbyaddr;
3328 if (name[10] == 'a' &&
3331 { /* gethostbyname */
3332 return -KEY_gethostbyname;
3345 if (name[4] == 'e' &&
3354 if (name[10] == 'a' &&
3357 { /* getservbyname */
3358 return -KEY_getservbyname;
3364 if (name[10] == 'o' &&
3367 { /* getservbyport */
3368 return -KEY_getservbyport;
3387 case 14: /* 1 tokens of length 14 */
3388 if (name[0] == 'g' &&
3402 { /* getprotobyname */
3403 return -KEY_getprotobyname;
3408 case 16: /* 1 tokens of length 16 */
3409 if (name[0] == 'g' &&
3425 { /* getprotobynumber */
3426 return -KEY_getprotobynumber;
3440 * db0472e0ad4f44bd0816cad799d63b60d1bbd7e11cef40ea15bf0d00f69669f6 regen/keywords.pl