diff options
| author | Jamey Sharp <jamey@minilop.net> | 2006-09-25 04:14:26 -0700 |
|---|---|---|
| committer | Jamey Sharp <jamey@minilop.net> | 2006-09-25 04:19:25 -0700 |
| commit | d04e7777d3547de2cece0734c0b9be49d3ddb88c (patch) | |
| tree | 7b88fb22d2ff08d28e5429ff09fe9be589991d1b | |
| parent | 0bccf7d2eed45ba15a012d090b9b950075e75803 (diff) | |
Ensure api_conv.pl is idempotent on names of constants: XCB_[A-Z0-9_]+.
| -rwxr-xr-x | tools/api_conv.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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; |