From: Jamey Sharp <jamey@minilop.net>
Date: Mon, 25 Sep 2006 11:14:26 +0000 (-0700)
Subject: Ensure api_conv.pl is idempotent on names of constants: XCB_[A-Z0-9_]+.
X-Git-Url: http://git.demorecorder.com/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d04e7777d3547de2cece0734c0b9be49d3ddb88c;hp=0bccf7d2eed45ba15a012d090b9b950075e75803;p=free-sw%2Fxcb%2Flibxcb

Ensure api_conv.pl is idempotent on names of constants: XCB_[A-Z0-9_]+.
---

diff --git a/tools/api_conv.pl b/tools/api_conv.pl
index 7e26145..003a893 100755
--- a/tools/api_conv.pl
+++ b/tools/api_conv.pl
@@ -62,7 +62,7 @@ sub convert($$)
 	return "uint$1_t" if /^CARD(8|16|32)$/;
 	return "int$1_t" if /^INT(8|16|32)$/;
 	return "uint8_t" if $_ eq 'BOOL' or $_ eq 'BYTE';
-	return $_ if /^[A-Z]*_[A-Z_]*$/ or !/^XCB(.+)/;
+	return $_ if /^[A-Z0-9]*_[A-Z0-9_]*$/ or !/^XCB(.+)/;
 	my $const = defined $::const{$_};
 	$_ = $1;