Change 23899 by [EMAIL PROTECTED] on 2005/01/30 14:50:15
Subject: h2hp: 2 fix
From: Olivier Thauvin <[EMAIL PROTECTED]>
Date: Fri, 28 Jan 2005 16:53:11 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/utils/h2ph.PL#50 edit
Differences ...
==== //depot/perl/utils/h2ph.PL#50 (text) ====
Index: perl/utils/h2ph.PL
--- perl/utils/h2ph.PL#49~23628~ Wed Dec 8 08:50:30 2004
+++ perl/utils/h2ph.PL Sun Jan 30 06:50:15 2005
@@ -276,6 +276,8 @@
chomp $next;
# drop "#define FOO FOO" in enums
$next =~ s/^\s*#\s*define\s+(\w+)\s+\1\s*$//;
+ # #defines in enums (aliases)
+ $next =~ s/^\s*#\s*define\s+(\w+)\s+(\w+)\s*$/$1 = $2,/;
$_ .= $next;
print OUT "# $next\n" if $opt_D;
}
@@ -288,6 +290,7 @@
my $enum_val = -1;
foreach my $enum (@enum_subs) {
my ($enum_name, $enum_value) = $enum =~
/^([a-zA-Z_]\w*)(=.+)?$/;
+ $enum_name or next;
$enum_value =~ s/^=//;
$enum_val = (length($enum_value) ? $enum_value : $enum_val + 1);
if ($opt_h) {
End of Patch.
