General make script for java code

diff --git a/shaggy/jmake b/shaggy/jmake
new file mode 100755 (executable)
index 0000000..e334183
--- /dev/null
+++ b/shaggy/jmake
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+while( $file = <*.java> ) {
+       $file =~ s/[\r\n]//g;
+
+       $dirty = 0;
+
+       $output = $file;
+       $output =~ s/java$/class/;
+
+       if( -f $output ) {
+               @out = stat( $output );
+               @in = stat( $file );
+               if( $in[9] > $out[9] ) { $dirty = 1; }
+               }
+       else { $dirty = 1; }
+
+       if( $dirty ) {
+               $objs .= " $file";
+               }
+       }
+
+if( $objs ) {
+       print "javac $objs\n";
+       system( "javac $objs" );
+       }
+else {
+       print "Nothing to make\n";
+       }