5 %::const = map { $_ => 1 } (
23 open(CONST, shift) or die "failed to open constants list: $!";
27 die "invalid constant name: \"$_\"" unless /^XCB[A-Za-z0-9_]*$/;
38 return "uint$1_t" if /^CARD(8|16|32)$/;
39 return "int$1_t" if /^INT(8|16|32)$/;
40 return "uint8_t" if $_ eq 'BOOL' or $_ eq 'BYTE';
41 return $_ if /^[A-Z]*_[A-Z_]*$/ or !/^XCB(.+)/;
42 my $const = defined $::const{$_};
45 s/^(GX|RandR|XFixes|XP|XvMC)(.)/uc($1) . "_" . $2/e;
53 s/([0-9]+|[A-Z](?:[A-Z]*|[a-z]*))_?(?=[0-9A-Z]|$)/"_" . ($abbr{$1} or lc($1))/eg;
55 $_ = "_family_decnet" if $_ eq "_family_de_cnet";
56 return "XCB" . uc($_) if $const;
58 $_ .= "_t" unless $fun or /_id$/;
63 s/([_A-Za-z][_A-Za-z0-9]*)([ \t]*\()?/convert($1, defined $2) . ($2 or "")/eg;