#!/usr/bin/perl

# #define NAME 257
# #define VAR 258
# #define STRUCT 259

while(<>) {
    if (/#define\s*(.*)/) {
	my ($name,$value) = split(/ /,$1);
	print "else if (token==$value)\n",
            "\t\tprintf(\"%d $name\\n\",lineno,token);\n";
    }
}