diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-05 00:32:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-05 00:32:51 +0000 |
| commit | e0e392b4f0557a1b5169360029c8df574cd47ff2 (patch) | |
| tree | 3d931250cf296ed84f5388ca2aed2ead909446bf /config_h.SH | |
| parent | 358a0a8409596a66da8fe9aba200efab9dbfb8ee (diff) | |
| parent | d5448623582779336009dd8bafd91e2a4ca7c599 (diff) | |
| download | perl-e0e392b4f0557a1b5169360029c8df574cd47ff2.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@5530
Diffstat (limited to 'config_h.SH')
| -rw-r--r-- | config_h.SH | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/config_h.SH b/config_h.SH index d452aa9fa1..40b5b84413 100644 --- a/config_h.SH +++ b/config_h.SH @@ -1204,15 +1204,19 @@ sed <<!GROK!THIS! >config.h -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un- * This macro surrounds its token with double quotes. */ #if $cpp_stuff == 1 -#define CAT2(a,b)a/**/b -#define STRINGIFY(a)"a" +# define CAT2(a,b) a/**/b +# define STRINGIFY(a) "a" /* If you can get stringification with catify, tell me how! */ #endif #if $cpp_stuff == 42 -#define CAT2(a,b)a ## b -#define StGiFy(a)# a -#define STRINGIFY(a)StGiFy(a) +# define PeRl_CaTiFy(a,b) a ## b +# define PeRl_StGiFy(a) #a + /* the additional level of indirection enables these macros to be + * used as arguments to other macros. See K&R 2nd ed., page 231. */ +# define CAT2(a,b) PeRl_CaTiFy(a,b) +# define STRINGIFY(a) PeRl_StGiFy(a) #endif + #if $cpp_stuff != 1 && $cpp_stuff != 42 #include "Bletch: How does this C preprocessor catenate tokens?" #endif |