X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/26ea9e123d12cb8db56e9e161eaec98bd295b821..70bd58e99cf8c4f66531ed2261be494f9fe83a00:/keywords.c diff --git a/keywords.c b/keywords.c index 199eaed..9fa30e6 100644 --- a/keywords.c +++ b/keywords.c @@ -1,18 +1,19 @@ -/* - * The following code was generated by perl_keyword.pl. +/* -*- buffer-read-only: t -*- + * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! + * This file is built by regen/keywords.pl from its data. + * Any changes made here will be lost! */ #include "EXTERN.h" #define PERL_IN_KEYWORDS_C #include "perl.h" #include "keywords.h" +#include "feature.h" I32 Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) { - dVAR; - - PERL_ARGS_ASSERT_KEYWORD; + PERL_ARGS_ASSERT_KEYWORD; switch (len) { @@ -48,7 +49,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; } - case 2: /* 18 tokens of length 2 */ + case 2: /* 19 tokens of length 2 */ switch (name[0]) { case 'd': @@ -67,6 +68,14 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; + case 'f': + if (name[1] == 'c') + { /* fc */ + return (all_keywords || FEATURE_FC_IS_ENABLED ? -KEY_fc : 0); + } + + goto unknown; + case 'g': switch (name[1]) { @@ -414,7 +423,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) case 'a': if (name[2] == 'y') { /* say */ - return (all_keywords || FEATURE_IS_ENABLED("say") ? KEY_say : 0); + return (all_keywords || FEATURE_SAY_IS_ENABLED ? KEY_say : 0); } goto unknown; @@ -479,19 +488,9 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; } - case 4: /* 41 tokens of length 4 */ + case 4: /* 40 tokens of length 4 */ switch (name[0]) { - case 'C': - if (name[1] == 'O' && - name[2] == 'R' && - name[3] == 'E') - { /* CORE */ - return -KEY_CORE; - } - - goto unknown; - case 'I': if (name[1] == 'N' && name[2] == 'I' && @@ -938,7 +937,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) if (name[2] == 'e' && name[3] == 'n') { /* when */ - return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_when : 0); + return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_when : 0); } goto unknown; @@ -1021,7 +1020,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) name[3] == 'a' && name[4] == 'k') { /* break */ - return (all_keywords || FEATURE_IS_ENABLED("switch") ? -KEY_break : 0); + return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? -KEY_break : 0); } goto unknown; @@ -1149,7 +1148,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) name[3] == 'e' && name[4] == 'n') { /* given */ - return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_given : 0); + return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_given : 0); } goto unknown; @@ -1317,7 +1316,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) if (name[3] == 't' && name[4] == 'e') { /* state */ - return (all_keywords || FEATURE_IS_ENABLED("state") ? KEY_state : 0); + return (all_keywords || FEATURE_STATE_IS_ENABLED ? KEY_state : 0); } goto unknown; @@ -1904,7 +1903,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; } - case 7: /* 29 tokens of length 7 */ + case 7: /* 30 tokens of length 7 */ switch (name[0]) { case 'D': @@ -1921,14 +1920,35 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; case '_': - if (name[1] == '_' && - name[2] == 'E' && - name[3] == 'N' && - name[4] == 'D' && - name[5] == '_' && - name[6] == '_') - { /* __END__ */ - return KEY___END__; + if (name[1] == '_') + { + switch (name[2]) + { + case 'E': + if (name[3] == 'N' && + name[4] == 'D' && + name[5] == '_' && + name[6] == '_') + { /* __END__ */ + return KEY___END__; + } + + goto unknown; + + case 'S': + if (name[3] == 'U' && + name[4] == 'B' && + name[5] == '_' && + name[6] == '_') + { /* __SUB__ */ + return (all_keywords || FEATURE___SUB___IS_ENABLED ? -KEY___SUB__ : 0); + } + + goto unknown; + + default: + goto unknown; + } } goto unknown; @@ -1984,7 +2004,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) name[5] == 'l' && name[6] == 't') { /* default */ - return (all_keywords || FEATURE_IS_ENABLED("switch") ? KEY_default : 0); + return (all_keywords || FEATURE_SWITCH_IS_ENABLED ? KEY_default : 0); } goto unknown; @@ -2738,7 +2758,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; } - case 9: /* 9 tokens of length 9 */ + case 9: /* 10 tokens of length 9 */ switch (name[0]) { case 'U': @@ -2757,19 +2777,39 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) goto unknown; case 'e': - if (name[1] == 'n' && - name[2] == 'd' && - name[3] == 'n' && - name[4] == 'e' && - name[5] == 't' && - name[6] == 'e' && - name[7] == 'n' && - name[8] == 't') - { /* endnetent */ - return -KEY_endnetent; - } + switch (name[1]) + { + case 'n': + if (name[2] == 'd' && + name[3] == 'n' && + name[4] == 'e' && + name[5] == 't' && + name[6] == 'e' && + name[7] == 'n' && + name[8] == 't') + { /* endnetent */ + return -KEY_endnetent; + } - goto unknown; + goto unknown; + + case 'v': + if (name[2] == 'a' && + name[3] == 'l' && + name[4] == 'b' && + name[5] == 'y' && + name[6] == 't' && + name[7] == 'e' && + name[8] == 's') + { /* evalbytes */ + return (all_keywords || FEATURE_EVALBYTES_IS_ENABLED ? -KEY_evalbytes : 0); + } + + goto unknown; + + default: + goto unknown; + } case 'g': if (name[1] == 'e' && @@ -3395,3 +3435,7 @@ Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords) unknown: return 0; } + +/* Generated from: + * db0472e0ad4f44bd0816cad799d63b60d1bbd7e11cef40ea15bf0d00f69669f6 regen/keywords.pl + * ex: set ro: */