Mercurial > hg > CbC > old > device

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Thu, 29 Apr 2004 23:33:02 +0900
parents 3ae7e188416f
children 8a72b0afccfc
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 }
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
14 print "return 1; }\n";