Mercurial > hg > CbC > old > device
view test/code-gen.pl @ 449:c55363eff5e5
parallel assignment (modify not completed)
author | kono |
---|---|
date | Thu, 25 Nov 2004 16:56:26 +0900 (2004-11-25) |
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";