Mercurial > hg > CbC > old > device
view test/code-gen.pl @ 928:96c53f76b360
fix
author | kono |
---|---|
date | Sun, 13 Apr 2014 10:21:40 +0900 |
parents | df60b120675d |
children |
line wrap: on
line source
#!/usr/bin/perl my $inline; my $call; open(INLINE,">test/code-gen-inline.c") if ($inline); print "#include \"code-gen.c\"\n"; $call .= "int main() {\n"; while(<>) { if (/^(\w+)(\(.*)/) { $call .= "\t$1(".");\n"; print INLINE "inline $1$2" if ($inline); } elsif (/^#/) { $call .= $_; print INLINE if ($inline); } else { print INLINE if ($inline); } } $call .= "return 0; }\n"; print $call; print INLINE $call if ($inline); # end