Handle names of constants during API conversion.

[free-sw/xcb/libxcb] / tools / api_conv.pl

diff --git a/tools/api_conv.pl b/tools/api_conv.pl
index 98402bf..2e6a1d0 100755 (executable)
--- a/tools/api_conv.pl
+++ b/tools/api_conv.pl
@@ -1,6 +1,25 @@
 #!/usr/bin/perl -plw
 use strict;
 
+BEGIN {
+       %::const = map { $_ => 1 } (
+               "XCBNone",
+               "XCBCopyFromParent",
+               "XCBCurrentTime",
+               "XCBNoSymbol",
+               "XCBError",
+               "XCBReply",
+       );
+       open(CONST, shift) or die "failed to open constants list: $!";
+       while(<CONST>)
+       {
+               chomp;
+               die "invalid constant name: \"$_\"" unless /^XCB[A-Za-z0-9_]*$/;
+               $::const{$_} = 1;
+       }
+       close(CONST);
+}
+
 sub convert($$)
 {
        local $_ = shift;
@@ -10,6 +29,7 @@ sub convert($$)
        return "int$1_t" if /^INT(8|16|32)$/;
        return "uint8_t" if $_ eq 'BOOL' or $_ eq 'BYTE';
        return $_ if /_/ or !/^XCB(.+)/;
+       my $const = defined $::const{$_};
        $_ = $1;
 
        my %abbr = (
@@ -19,6 +39,9 @@ sub convert($$)
        );
 
        s/[A-Z](?:[A-Z0-9]*|[a-z0-9]*)(?=[A-Z]|$)/"_" . ($abbr{$&} or lc($&))/eg;
+
+       return "XCB" . uc($_) if $const;
+
        $_ .= "_t" unless $fun;
 
        return "xcb" . $_;