diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-16 18:33:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-16 18:33:05 +0000 |
| commit | d51482e4a79f5afa7771fe5e33778150840d40ab (patch) | |
| tree | 7fe7165ebfbadcf14496f64a669ecbc4db7abfef | |
| parent | a0a44e237c19cc2b7cf3da120d308da4cb9f777e (diff) | |
| download | perl-d51482e4a79f5afa7771fe5e33778150840d40ab.tar.gz | |
NO_SHORT_NAMES is better than HIDE_SHORT_NAMES.
p4raw-id: //depot/perl@18729
| -rw-r--r-- | embed.h | 10 | ||||
| -rwxr-xr-x | embed.pl | 10 | ||||
| -rw-r--r-- | pod/perlembed.pod | 2 |
3 files changed, 15 insertions, 7 deletions
@@ -16,7 +16,11 @@ /* (Doing namespace management portably in C is really gross.) */ -#ifndef PERL_HIDE_SHORT_NAMES +/* By defining PERL_NO_SHORT_NAMES (not done by default) the short forms + * (like warn instead of Perl_warn) for the API are not defined. + * Not defining the short forms is a good thing for cleaner embedding. */ + +#ifndef PERL_NO_SHORT_NAMES /* Hide global symbols */ @@ -4954,7 +4958,7 @@ #endif /* PERL_IMPLICIT_CONTEXT */ -#endif /* #ifndef PERL_HIDE_SHORT_NAMES */ +#endif /* #ifndef PERL_NO_SHORT_NAMES */ /* Compatibility stubs. Compile extensions with -DPERL_NOCOMPAT to @@ -4997,7 +5001,7 @@ an extra argument but grab the context pointer using the macro dTHX. */ -#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_HIDE_SHORT_NAMES) +#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_SHORT_NAMES) # define croak Perl_croak_nocontext # define deb Perl_deb_nocontext # define die Perl_die_nocontext @@ -316,7 +316,11 @@ print EM do_not_edit ("embed.h"), <<'END'; /* (Doing namespace management portably in C is really gross.) */ -#ifndef PERL_HIDE_SHORT_NAMES +/* By defining PERL_NO_SHORT_NAMES (not done by default) the short forms + * (like warn instead of Perl_warn) for the API are not defined. + * Not defining the short forms is a good thing for cleaner embedding. */ + +#ifndef PERL_NO_SHORT_NAMES /* Hide global symbols */ @@ -428,7 +432,7 @@ print EM <<'END'; #endif /* PERL_IMPLICIT_CONTEXT */ -#endif /* #ifndef PERL_HIDE_SHORT_NAMES */ +#endif /* #ifndef PERL_NO_SHORT_NAMES */ END @@ -474,7 +478,7 @@ print EM <<'END'; an extra argument but grab the context pointer using the macro dTHX. */ -#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_HIDE_SHORT_NAMES) +#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_SHORT_NAMES) # define croak Perl_croak_nocontext # define deb Perl_deb_nocontext # define die Perl_die_nocontext diff --git a/pod/perlembed.pod b/pod/perlembed.pod index 24385dd354..484884ea06 100644 --- a/pod/perlembed.pod +++ b/pod/perlembed.pod @@ -1041,7 +1041,7 @@ Finally, select Build -> Build interp.exe and you're ready to go. =head1 Hiding Perl_ If you completely hide the short forms forms of the Perl public API, -add -DPERL_HIDE_SHORT_NAMES to the compilation flags. This means that +add -DPERL_NO_SHORT_NAMES to the compilation flags. This means that for example instead of writing warn("%d bottles of beer on the wall", bottlecount); |