Ensure api_conv.pl is idempotent on names of constants: XCB_[A-Z0-9_]+.
This commit is contained in:
parent
0bccf7d2ee
commit
d04e7777d3
|
@ -62,7 +62,7 @@ sub convert($$)
|
||||||
return "uint$1_t" if /^CARD(8|16|32)$/;
|
return "uint$1_t" if /^CARD(8|16|32)$/;
|
||||||
return "int$1_t" if /^INT(8|16|32)$/;
|
return "int$1_t" if /^INT(8|16|32)$/;
|
||||||
return "uint8_t" if $_ eq 'BOOL' or $_ eq 'BYTE';
|
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{$_};
|
my $const = defined $::const{$_};
|
||||||
$_ = $1;
|
$_ = $1;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue