view test/code-gen.pl @ 307:fda28752d301 stdarg-support

stdarg (varargs done... PowerPC, IA32 checked)
author kono
date Wed, 09 Jun 2004 23:01:18 +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";