// -*- ASCII:EDT -*-
// Gets the Project Tree,
// checks which file need compiling,
// and compiles these.
// (schlicht 20010312)
/////////////////////////////////

ChDir("%p");
GetTree(0);
LetRegNum(2,0);
Loop(!`FindInString("%!0","""*""",1,2,1001,%!2);>
   IfOK(!"FindInString('%!0','.java',3,4,1000,%!1);>
      ExtractByIndex(9,'%!0',%!1+1,%!3-1);>
      IfFileExists('%!9.class',>
         !'IfFileOlder(''%!9.java'',''%!9.class'','''',>
            !''Open(|%!9.java|); Wait(999);>
               Run(|%B\bin\javac.bat ""%n.java""|);'');',>
         !'Open(''%!9.java''); Wait(999);>
           Run(''%B\bin\javac.bat ""%n.java""'');');>
      LetRegNum(2,%!2+1);",>
   "Stop;");>
`);
End;

/////////////////////////////////////////
// This macro presumes two things:
// -- That a java project Tree is built
//     (I did this by defining an
//      Include Directive "//include ?"
//      (in Options | Preferences | Input)
//      and put this in the java files.)
//    and the Main File is set.
// -- The file %B\bin\javac.bat calls
//    the java compiler with
//       javac [OPTIONS] %1
//
//    (My file javac.bat looks like this:
//        errout javac -g -verbose %1 > %2
//     because it uses errout.exe to redirect
//     compile errors to a log file.
//     Using this, the lines that call the compiler
//     should be:
//        Run(''%B\bin\javac.bat ""%n.java"" ""%n.log""'');
//
// R Schlicht   w.m.l@gmx.net
//////////////////////////////////////////
$Id: compilePrj.edt,v 1.1 2001-11-13 19:01:44+01 standard Exp standard $