Mercurial > hg > CbC > old > device

annotate test/code-gen.pl @ 503:3c95c69aa80e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Fri, 23 Dec 2005 19:44:26 +0900
parents 8a72b0afccfc
children 9ff5cd7afe2f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
200
d83291712bf7 test routine
kono
parents:
diff changeset
1 #!/usr/bin/perl
d83291712bf7 test routine
kono
parents:
diff changeset
2
d83291712bf7 test routine
kono
parents:
diff changeset
3 print "#include \"code-gen.c\"\n";
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
4 print "int main() {\n";
200
d83291712bf7 test routine
kono
parents:
diff changeset
5
d83291712bf7 test routine
kono
parents:
diff changeset
6 while(<>)
d83291712bf7 test routine
kono
parents:
diff changeset
7 {
d83291712bf7 test routine
kono
parents:
diff changeset
8 if (/^\w+\(/) {
d83291712bf7 test routine
kono
parents:
diff changeset
9 print "\t$&",");\n";
235
c575422d8b6e *** empty log message ***
kono
parents: 201
diff changeset
10 } elsif (/^#/) {
c575422d8b6e *** empty log message ***
kono
parents: 201
diff changeset
11 print;
200
d83291712bf7 test routine
kono
parents:
diff changeset
12 }
d83291712bf7 test routine
kono
parents:
diff changeset
13 }
245
8a72b0afccfc *** empty log message ***
kono
parents: 235
diff changeset
14 print "return 0; }\n";