Anubis / Anubis

Commit aaafdd5b0b8d78536b5e689883ea3572d48ca2f7

Authored by Alain Prouté
1 parent 84fde849

updated library/tools/autocompile.anubis

Showing 1 changed file with 11 additions and 8 deletions   Show diff stats
Inline Side-by-side
anubis_dev/library/tools/autocompile.anubis
  Show/Hide comments   View file @aaafdd5
... ... @@ -22,25 +22,28 @@ define One
22 22 Var(Int) last_date_v,
23 23 String filename,
24 24 String cmdh,
25   - List(String) cmdt
  25 + List(String) cmdt,
26 26 ) =
27   - sleep(1000);
  27 + //print("."); forget(flush(stdout));
  28 + sleep(500);
28 29 if get_file_times(filename) is
29 30 {
30 31 failure then print("autocompile: cannot find file '"+filename+"'.\n"),
31 32 success(tms) then if tms is times(lmod,_) then
32   - if *last_date_v < to_Int(lmod)
33   - then (forget((Maybe(Word8))execute(failure,cmdh,cmdt+[filename]));
34   - last_date_v <- to_Int(lmod))
35   - else unique
36   - }; loop(last_date_v,filename,cmdh,cmdt).
  33 + (if *last_date_v < to_Int(lmod)
  34 + then (forget((Maybe(Word8))execute(failure,cmdh,cmdt+[filename]));
  35 + //print("%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n"); forget(flush(stdout));
  36 + last_date_v <- to_Int(lmod))
  37 + else unique);
  38 + loop(last_date_v,filename,cmdh,cmdt)
  39 + }.
37 40  
38 41  
39 42 define One
40 43 usage
41 44 =
42 45 print("Usage: anbexec autocompile <file name> <command> ... &\n"+
43   - "where <command> can be made of several arguments.\n").
  46 + " where <command> can be made of several arguments.\n").
44 47  
45 48  
46 49 global define One
... ...