Mercurial > hg > CbC > old > device

view test/code-gen.pl @ 200:d83291712bf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test routine
author kono
date Thu, 08 Apr 2004 22:18:27 +0900
parents
children 3ae7e188416f
line wrap: on
line source

#!/usr/bin/perl

print "#include \"code-gen.c\"\n";
print "main() {\n";

while(<>)
{
    if (/^\w+\(/) {
	print "\t$&",");\n";
    }
}
print "}\n";