This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow (pedantically correct) C pre-processor comments in the code
authorNicholas Clark <nick@ccl4.org>
Mon, 5 Nov 2007 12:51:39 +0000 (12:51 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 5 Nov 2007 12:51:39 +0000 (12:51 +0000)
snippets of typemap files.

p4raw-id: //depot/perl@32223

lib/ExtUtils/ParseXS.pm

index 4c519fc..221d5a4 100644 (file)
@@ -18,7 +18,7 @@ my(@XSStack); # Stack of conditionals and INCLUDEs
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
-$VERSION = '2.18_01';
+$VERSION = '2.18_02';
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
            $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
            $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
@@ -195,6 +195,13 @@ sub process_file {
 
   foreach my $value (values %input_expr) {
     $value =~ s/;*\s+\z//;
 
   foreach my $value (values %input_expr) {
     $value =~ s/;*\s+\z//;
+    # Move C pre-processor instructions to column 1 to be strictly ANSI
+    # conformant. Some pre-processors are fussy about this.
+    $value =~ s/^\s+#/#/mg;
+  }
+  foreach my $value (values %output_expr) {
+    # And again.
+    $value =~ s/^\s+#/#/mg;
   }
 
   my ($cast, $size);
   }
 
   my ($cast, $size);