#!/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