#!/usr/local/bin/perl
#
# modifying one line in lex.yy.c and enalbe lex.yy.c
# can use lexResult[] variables to use in our program.
#
# create : 95.5.30 (Tue), bgjang@csone
# modify :
#
# 

while(<STDIN>) {
    #
    # change "yylex(){" statement to the other statement
    #
    if(/yylex\(\)\{/) {
        print "\#include \"lex.h\"\n";
        print "yylex(){\n";
        print "int r;\n"
    }
    # command out the followings if you want to see lex regular
    # expression matching steps. And more, please specify
    # -DLEXDEBUG in Makefile.
    #
    # elsif(/debug = 0;/) {
    #     print "debug = 1;\n";
    # }
    else {
        print "$_";
    }
}
