map {process_one($_)} @ARGV;
sub process_one($) {
-
my $infile = shift;
my $outfile;
+ print "$progname: processing $infile...\n";
+
+ $infile =~ s|src/|| unless (-e $infile);
+
$outfile = $infile;
$outfile =~ s/\.c$/_unit.c/;
$outfile =~ s|.*/([^/]*)$|$1| if $outfile =~ m|/|;
my (@tests); # actual content
open IN, "$infile" || die "$progname: Cannot open input file '$infile': $!\n";
-
+
my $takeit=0;
my $line=0;
my $beginline=0;