Mercurial > hg > CbC > old > device

view test/code-gen.pl @ 308:e1d17d6adfcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
struct field init (first try, no compile error)
author kono
date Thu, 10 Jun 2004 16:24:15 +0900
parents 8a72b0afccfc
children 9ff5cd7afe2f
line wrap: on
line source

#!/usr/bin/perl

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

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