-sub trans_lines();
-
-my @xids=("WINDOW","VISUALTYPE","DRAWABLE","FONT","ATOM","COLORMAP","FONTABLE","GCONTEXT","PIXMAP","SCREEN");
-
-while(<>) {
-
- trans_lines() unless (/#[a-z]/ or /print/ or /\/\// or /\/\*/);
- print;
-}
-
-#################
-sub trans_lines()