shaggy/jmake

   1 #!/usr/bin/perl
   2
   3 while( $file = <*.java> ) {
   4         $file =~ s/[\r\n]//g;
   5
   6         $dirty = 0;
   7
   8         $output = $file;
   9         $output =~ s/java$/class/;
  10
  11         if( -f $output ) {
  12                 @out = stat( $output );
  13                 @in = stat( $file );
  14                 if( $in[9] > $out[9] ) { $dirty = 1; }
  15                 }
  16         else { $dirty = 1; }
  17
  18         if( $dirty ) {
  19                 $objs .= " $file";
  20                 }
  21         }
  22
  23 if( $objs ) {
  24         print "javac $objs\n";
  25         system( "javac $objs" );
  26         }
  27 else {
  28         print "Nothing to make\n";
  29         }