This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make sure expand-macro.pl also works for macros in headers
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Sat, 11 Oct 2008 16:13:12 +0000 (16:13 +0000)
committerMarcus Holland-Moritz <mhx-perl@gmx.net>
Sat, 11 Oct 2008 16:13:12 +0000 (16:13 +0000)
that are not included by perl.h (like regcomp.h).

p4raw-id: //depot/perl@34473

Porting/expand-macro.pl

index 472b789..87f369f 100644 (file)
@@ -44,7 +44,7 @@ if (!@ARGV) {
 
 my $args = '';
 
-my $found_macro;
+my $header;
 while (<>) {
     next unless /^#\s*define\s+$macro\b/;
     my ($def_args) = /^#\s*define\s+$macro\(([^)]*)\)/;
@@ -54,17 +54,18 @@ while (<>) {
        my $argname = "A0";
        $args = '(' . join (', ', map {$argname++} 1..@args) . ')';
     }
-    $found_macro++;
+    $header = $ARGV;
     last;
 }
-die "$macro not found\n" unless $found_macro;
+die "$macro not found\n" unless defined $header;
 
 open my $out, '>', $trysource or die "Can't open $trysource: $!";
 
 print $out <<"EOF";
 #include "EXTERN.h"
 #include "perl.h"
-#line 3 "$sentinel"
+#include "$header"
+#line 4 "$sentinel"
 $macro$args
 EOF