#!/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");