comparison test/code-gen.pl @ 235:c575422d8b6e

*** empty log message ***
author kono
date Thu, 29 Apr 2004 23:33:02 +0900
parents 3ae7e188416f
children 8a72b0afccfc
comparison
equal deleted inserted replaced
234:eccea7c904ee 235:c575422d8b6e
5 5
6 while(<>) 6 while(<>)
7 { 7 {
8 if (/^\w+\(/) { 8 if (/^\w+\(/) {
9 print "\t$&",");\n"; 9 print "\t$&",");\n";
10 } elsif (/^#/) {
11 print;
10 } 12 }
11 } 13 }
12 print "return 1; }\n"; 14 print "return 1; }\n";