Don't include date in autogeneration.
authorMichael Zucchi <michael@swordfish.com.au>
Tue, 23 Apr 2019 01:40:35 +0000 (11:10 +0930)
committerMichael Zucchi <michael@swordfish.com.au>
Tue, 23 Apr 2019 01:40:35 +0000 (11:10 +0930)
src/notzed.nativez/jni/nativez-gen

index ec47677..710ee4a 100755 (executable)
@@ -15,13 +15,13 @@ $java_name = "java";
 $func_name = "fn";
 $doJ = 0;
 $doLong = 0;
-$cproto = "";
+$cprotoArgs = "";
 
 while ($#ARGV > 0) {
     my $cmd = shift;
     if ($cmd eq "-b") {
        $basedir = shift;
-       $cproto .= " -I '${basedir}'";
+       $cprotoArgs .= " -I '${basedir}'";
     } elsif ($cmd eq "--func-name") {
        $func_name = shift;
     } elsif ($cmd eq "--java-name") {
@@ -31,13 +31,11 @@ while ($#ARGV > 0) {
     } elsif ($cmd eq "--java-long") {
        $doLong = 1;
     } else {
-       $cproto .= " '$cmd'";
+       $cprotoArgs .= " '$cmd'";
     }
 }
 $def = shift;
 
-die ("`$def': input file doesn't exist") if ! -f $def;
-
 $header = "";
 $librart = "";
 @functions = ();
@@ -46,7 +44,7 @@ $librart = "";
 $last_library = "";
 $mode = "";
 
-open IN,"<$def";
+open (IN,"<$def") || die ("opening $def");
 
 while (<IN>) {
     chop;
@@ -56,10 +54,9 @@ while (<IN>) {
        $header = $2;
        push @headers, $header;
 
-       -f "$basedir/$header" || die ("header $header not found");
-       
+       print STDERR "cproto -q -x ${cprotoArgs} $basedir/$header\n";
        %proto = ();
-       open PROTO, "cproto -q -x ${cproto} $basedir/$header|";
+       open (PROTO, "cproto -q -x ${cprotoArgs} $basedir/$header|") || die("cproto failed");
        
        while (<PROTO>) {
            chop;
@@ -101,9 +98,7 @@ while (<IN>) {
 }
 close IN;
 
-$date = `date`;
-chop $date;
-print "/* This file was autogenerated on $date: */\n";
+print "/* This file was autogenerated by: */\n";
 print "/* $args */\n";
 
 if ($#headers >= 0) {