frederik
/
libxcb
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Match only XCB-namespaced XID generators when converting to xcb_generate_id. 

Thanks to Vincent Torri for pointing out that I screwed up. :-)
This commit is contained in:
Jamey Sharp 2006-10-15 12:34:30 -07:00
parent 5ec55dc9c0
commit 9d619d14e3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/api_conv.pl
View File

@ -59,6 +59,7 @@ sub convert($$)
local $_ = shift; local $_ = shift;
my ($fun) = @_; my ($fun) = @_;
return "xcb_generate_id" if /^xcb_[a-z0-9_]+_new$/ or /^XCB[A-Z0-9]+New$/;
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';
@ -95,4 +96,3 @@ sub convert($$)
s/^(\s*#\s*include\s*<)X11\/XCB\//$1xcb\//; s/^(\s*#\s*include\s*<)X11\/XCB\//$1xcb\//;
s/([_A-Za-z][_A-Za-z0-9]*)([ \t]*\()?/convert($1, defined $2) . ($2 or "")/eg; s/([_A-Za-z][_A-Za-z0-9]*)([ \t]*\()?/convert($1, defined $2) . ($2 or "")/eg;
s/xcb_[a-z0-9_]*_new/xcb_generate_id/g;