X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=build;h=1be54afc032d7307cc80546d18c1d209f9c240b1;hp=d5eb3a558fe1345e9a71fdf47ef0488f7aebe69d;hb=20538a1c949f89745b73f89f9d0c146dc42454a2;hpb=93fe48302302aca5e7ff091e346d0e6dd75beb2d

diff --git a/build b/build
index d5eb3a5..1be54af 100755
--- a/build
+++ b/build
@@ -1,6 +1,22 @@
 #!/usr/bin/env ocaml
 
-let target = ref [ "main.otarget" ]
+let file_content =
+  let buffer = Buffer.create 128 in
+  begin fun f ->
+    Buffer.clear buffer;
+    try
+      let in_f = open_in f in
+      while true do
+        let line = input_line in_f in
+        Buffer.add_string buffer line;
+        Buffer.add_char buffer ' ';
+      done;
+      failwith "finished"
+    with
+      e -> let s = Buffer.contents buffer in s
+  end
+
+let target = ref [ ]
 let debug = ref false
 let profile = ref false
 let verbose = ref false
@@ -19,18 +35,25 @@ let () =
 
 let oprofile = if !profile then " -tag profile " else ""
 let odebug = if !profile then " -tag debug " else ""
+let clean_first = ref false
 let otarget = List.fold_left (fun acc t ->
-  let t = if t = "clean" then "-clean" else t in
-  t ^ " " ^ acc) "" !target
+  if t = "clean" || t = "-clean" then (clean_first := true; acc)
+  else
+    let t =
+      if Filename.check_suffix t ".otarget" then
+        file_content ((Filename.chop_suffix t ".otarget") ^ ".itarget")
+      else t
+    in
+    t ^ " " ^ acc) "" (if (!target == []) then [ "main.otarget" ] else !target)
 let overbose = if !verbose then " -classic-display " else ""
 let () =
   Sys.chdir project_root;
   Printf.printf "Entering directory `%s'\n%!" project_root
-
-let cmd = Printf.sprintf "ocamlbuild -use-ocamlfind %s %s %s %s"
-  overbose  oprofile  odebug otarget
-let i = Sys.command cmd
+let clean_cmd = if !clean_first then "ocamlbuild -clean;" else ""
+let build_cmd = if otarget = "" then "" else
+    Printf.sprintf "ocamlbuild -use-ocamlfind %s %s %s %s"
+      overbose  oprofile  odebug otarget
+let i = Sys.command  (clean_cmd ^ build_cmd)
 let () = Sys.chdir dir;
   Printf.printf "Leaving directory `%s'\n%!" project_root
 let _ = exit i
-