diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-05-14 22:13:56 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-05-19 10:18:16 +0100 |
commit | 56fd1190657e040f5b17c8a00628205a045093e3 (patch) | |
tree | b4eabddbd8b331a7d6b7db150961c17dde7d93cc /regen/reentr.pl | |
parent | cc49830d6031e8e74c0426f77e2b3589e5774765 (diff) | |
download | perl-56fd1190657e040f5b17c8a00628205a045093e3.tar.gz |
Add a 'quote' argument to read_only_top(), to pass in an optional Tolkien.
Use this in embed.pl for perlapi.c, and reentr.pl for reentr.c.
Diffstat (limited to 'regen/reentr.pl')
-rw-r--r-- | regen/reentr.pl | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/regen/reentr.pl b/regen/reentr.pl index dabbe346c3..4eedee26a4 100644 --- a/regen/reentr.pl +++ b/regen/reentr.pl @@ -782,15 +782,14 @@ read_only_bottom_close_and_rename($h); # Prepare to write the reentr.c. -my $c = open_new('reentr.c'); -my $top = read_only_top(lang => 'C', by => 'regen/reentr.pl', - from => 'data in regen/reentr.pl', - file => 'reentr.c', style => '*', - copyright => [2002, 2003, 2005 .. 2007]); - -$top =~ s! \*/\n! * +my $c = open_new('reentr.c', '>', + {by => 'regen/reentr.pl', from => 'data in regen/reentr.pl', + file => 'reentr.c', style => '*', + copyright => [2002, 2003, 2005 .. 2007], + quote => <<'EOQ'}); + * * "Saruman," I said, standing away from him, "only one hand at a time can - * wield the One, and you know that well, so do not trouble to say we\!" + * wield the One, and you know that well, so do not trouble to say we!" * * This file contains a collection of automatically created wrappers * (created by running reentr.pl) for reentrant (thread-safe) versions of @@ -799,9 +798,9 @@ $top =~ s! \*/\n! * * care about the differences between various platforms' idiosyncrasies * regarding these reentrant interfaces. */ -!s; +EOQ -print $c $top, <<"EOF"; +print $c <<"EOF"; #include "EXTERN.h" #define PERL_IN_REENTR_C #include "perl.h" |