diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-24 10:30:51 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-24 10:30:51 +0000 |
| commit | 26ea9e123d12cb8db56e9e161eaec98bd295b821 (patch) | |
| tree | 4324a860211114b3044a6c0e0ec81d40e1b2be2b /perl.h | |
| parent | 858e1d20cc10250fd3c36107b4f5fff9b80332aa (diff) | |
| download | perl-26ea9e123d12cb8db56e9e161eaec98bd295b821.tar.gz | |
Break out the generated function Perl_keywords() into keywords.c, a new file.
As it and Perl_yylex() both need FEATURE_IS_ENABLED, feature_is_enabled() is
no longer static, and the two macro definitions move from toke.c to perl.h
Previously, one had to cut and paste the output of perl_keywords.pl into the
middle of toke.c, and it was not clear that it was generated code.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -6142,6 +6142,14 @@ extern void moncontrol(int); #define PERL_PV_PRETTY_DUMP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE #define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE|PERL_PV_ESCAPE_NONASCII +#ifdef PERL_CORE +# define FEATURE_IS_ENABLED(name) \ + ((0 != (PL_hints & HINT_LOCALIZE_HH)) \ + && Perl_feature_is_enabled(aTHX_ STR_WITH_LEN(name))) +/* The longest string we pass in. */ +# define MAX_FEATURE_LEN (sizeof("unicode_strings")-1) +#endif + /* (KEEP THIS LAST IN perl.h!) |