X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=build;fp=build;h=0000000000000000000000000000000000000000;hp=75781b010f50abbc502ae0e05e13ee122ece4a7a;hb=34400347fc8b70ed7e1ae14334e62a33e4d82163;hpb=8af68de11421dacc2f77a8398dcb48c75a5ff3b1

diff --git a/build b/build
deleted file mode 100755
index 75781b0..0000000
--- a/build
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/env ocaml
-
-let read_lines f =
-  let lines = ref [] in
-  let in_f = open_in f in
-  try
-    while true do
-      let line = input_line in_f in
-      if String.length line != 0 then lines := line :: !lines
-    done;
-    []
-  with
-    End_of_file -> close_in in_f; List.rev !lines
-;;
-
-let target = ref [ ]
-let debug = ref false
-let profile = ref false
-let verbose = ref false
-let trace = ref false
-
-let dir = Sys.getcwd ()
-let project_root = Filename.dirname Sys.argv.(0)
-
-let () =
-  for i = 1 to Array.length Sys.argv - 1 do
-    match Sys.argv.(i) with
-    | "-d" -> debug := true
-    | "-p" -> profile := true
-    | "-v" -> verbose := true
-    | "-t" -> trace := true
-    | x -> target := x :: !target
-  done
-let otrace = if !trace then " -tag htmltrace " else ""
-let oprofile = if !profile then " -tag profile " else ""
-let odebug = if !debug then " -tag debug " else ""
-let clean_first = ref false
-let () =
-  Sys.chdir project_root;
-  Printf.printf "Entering directory `%s'\n%!" project_root
-
-let otarget = List.fold_left (fun acc t ->
-  if t = "clean" || t = "-clean" then (clean_first := true; acc)
-  else
-    let t =
-      if Filename.check_suffix t ".otarget" then
-        String.concat " " (read_lines ((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 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 %s"
-      overbose otrace 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