This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In regen_lib.pl, when opening, first unlink a previous file of that name.
[perl5.git] / regen / reentr.pl
index b432296..963dd96 100644 (file)
@@ -51,23 +51,14 @@ my %map = (
 # Example #3: S_CBI   means type func_r(const char*, char*, int)
 
 
-# safer_unlink 'reentr.h';
 my $h = safer_open("reentr.h-new");
 select $h;
-print <<EOF;
-/* -*- buffer-read-only: t -*-
- *
- *    reentr.h
- *
- *    Copyright (C) 2002, 2003, 2005, 2006, 2007 by Larry Wall and others
- *
- *    You may distribute under the terms of either the GNU General Public
- *    License or the Artistic License, as specified in the README file.
- *
- *  !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
- *  This file is built by reentr.pl from data in reentr.pl.
- */
+print read_only_top(lang => 'C', by => 'regen/reentr.pl',
+                   from => 'data in regen/reentr.pl',
+                   file => 'reentr.h', style => '*',
+                   copyright => [2002, 2003, 2005 .. 2007]);
 
+print <<EOF;
 #ifndef REENTR_H
 #define REENTR_H
 
@@ -800,24 +791,16 @@ rename_if_different('reentr.h-new', 'reentr.h');
 
 # Prepare to write the reentr.c.
 
-# safer_unlink 'reentr.c';
 my $c = safer_open("reentr.c-new");
 select $c;
-print <<EOF;
-/* -*- buffer-read-only: t -*-
- *
- *    reentr.c
- *
- *    Copyright (C) 2002, 2003, 2005, 2006, 2007 by Larry Wall and others
- *
- *    You may distribute under the terms of either the GNU General Public
- *    License or the Artistic License, as specified in the README file.
- *
- *  !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
- *  This file is built by reentr.pl from data in reentr.pl.
- *
+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! *
  * "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
@@ -826,7 +809,9 @@ print <<EOF;
  * care about the differences between various platforms' idiosyncrasies
  * regarding these reentrant interfaces.  
  */
+!s;
 
+print $top, <<EOF;
 #include "EXTERN.h"
 #define PERL_IN_REENTR_C
 #include "perl.h"