diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-15 17:28:28 -0600 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2010-07-17 21:50:48 -0400 |
| commit | f0a2b745ce6c03aec6412d79ce0b782f20eddce4 (patch) | |
| tree | d1786b1a4a80f6b848dca1ab4eba6e3ffd5dc5d1 /embed.h | |
| parent | 8e4698ef1ed0da722532bfcc769ba22fe85c4b47 (diff) | |
| download | perl-f0a2b745ce6c03aec6412d79ce0b782f20eddce4.tar.gz | |
Add \o{} escape
This commit adds the new construct \o{} to express a character constant
by its octal ordinal value, along with ancillary tests and
documentation.
A function to handle this is added to util.c, and it is called from the
3 parsing places it could occur. The function is a candidate for
in-lining, though I doubt that it will ever be used frequently.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -463,6 +463,7 @@ #define grok_bin Perl_grok_bin #if defined(PERL_CORE) || defined(PERL_EXT) #define grok_bslash_c Perl_grok_bslash_c +#define grok_bslash_o Perl_grok_bslash_o #endif #define grok_hex Perl_grok_hex #define grok_number Perl_grok_number @@ -2909,6 +2910,7 @@ #define grok_bin(a,b,c,d) Perl_grok_bin(aTHX_ a,b,c,d) #if defined(PERL_CORE) || defined(PERL_EXT) #define grok_bslash_c(a,b) Perl_grok_bslash_c(aTHX_ a,b) +#define grok_bslash_o(a,b,c,d) Perl_grok_bslash_o(aTHX_ a,b,c,d) #endif #define grok_hex(a,b,c,d) Perl_grok_hex(aTHX_ a,b,c,d) #define grok_number(a,b,c) Perl_grok_number(aTHX_ a,b,c) |