6 my @xids=("WINDOW","VISUALTYPE","DRAWABLE","FONT","ATOM","COLORMAP","FONTABLE","GCONTEXT","PIXMAP","SCREEN");
10 trans_lines() unless (/#[a-z]/ or /print/ or /\/\// or /\/\*/);
19 foreach my $xid (@xids) {
20 if(/$xid/ and /xcb_/) {
24 my $xidsp = $lcxid . " ";
25 my $xidspun = $lcxid . "_t ";
35 #func without XID in it
37 s/[A-Z]/"_" . lc($&)/eg;
41 $_ = $` . "event" . "_t" . $';
49 s/s_c_r_e_e_n/screen/g;