X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/7231d76fbf4ae0b501af648e1216b88714aa7353..154af5b3783df5a53759b700db95b88a1e9365ab:/src/generate_treefuncs.pl diff --git a/src/generate_treefuncs.pl b/src/generate_treefuncs.pl index 31d9151..377fe43 100755 --- a/src/generate_treefuncs.pl +++ b/src/generate_treefuncs.pl @@ -1,6 +1,8 @@ #!/usr/bin/perl -w -open (FILE, "treefuncs.def") || die ("Can't open treefuncs.def"); +my $srcfile = $ARGV[0] || "treefuncs.def"; + +open (FILE, "$srcfile") || die ("Can't open $srcfile"); open (OUTC, ">treefuncs.c") || die ("Can't open treefuncs.c"); open (OUTH, ">treefuncs.h") || die ("Can't open treefuncs.h"); @@ -285,6 +287,7 @@ print OUTH "\n#endif /* TREEFUNCS_H */\n"; close (OUTH); +print OUTC "#include \n"; print OUTC "#include \n"; print OUTC "#include \n"; print OUTC "#include \"treefuncs.h\"\n\n";