From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 12 Jan 2006 23:11:16 +0000 (+0000)
Subject: Make h2ph recognize (and skip) const and __const__ in C function
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=90851df92fb26217b0f1c0286baca234cc285e52;p=p5sagit%2Fp5-mst-13.2.git

Make h2ph recognize (and skip) const and __const__ in C function
prototypes. This makes it produce better files on linux-sparc64.

p4raw-id: //depot/perl@26812
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index e46ac20..78e10a4 100644
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -354,6 +354,7 @@ while (defined (my $file = next_file())) {
 		use re "eval";
 		my $typelist = join '|', keys %isatype;
 		$new =~ s['
+		  (?:(?:__)?const(?:__)?\s+)?
 		  (?:(?:un)?signed\s+)?
 		  (?:long\s+)?
 		  (?:$typelist)\s+
@@ -362,6 +363,7 @@ while (defined (my $file = next_file())) {
 		  ']
 		 [my \$$1]gx;
 		$new =~ s['
+		  (?:(?:__)?const(?:__)?\s+)?
 		  (?:(?:un)?signed\s+)?
 		  (?:long\s+)?
 		  (?:$typelist)\s+