Remove OCamlbuild related files. Youpi.

diff --git a/_tags b/_tags
deleted file mode 100644 (file)
index 13fd014..0000000
--- a/_tags
+++ /dev/null
@@ -1,22 +0,0 @@
-#camlp4 packages and syntax tags
-
-true:    package(ulex),          \
-         package(unix),          \
-         package(expat),         \
-         package(camlp4.macro),  \
-         syntax(camlp4o),        \
-         macro_include(include)
-
-#compilation options
-
-true:    inline(1000), unsafe(true)
-
-
-#project source tree
-<src/xpath/*.cmx>:  for-pack(Xpath)
-<src/xpath>:        include
-
-<src>: include
-
-#Enable warning for all but generated files:
-not <src/xpath/ulexer.*>: warning(@A-4-K)

diff --git a/build b/build
deleted file mode 100755 (executable)
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

diff --git a/main.itarget b/main.itarget
deleted file mode 100644 (file)
index 6c7372b..0000000
--- a/main.itarget
+++ /dev/null
@@ -1,4 +0,0 @@
-src/tatoo.native
-tools/xml_diff.native
-tools/XPathEval.class
-

diff --git a/myocamlbuild.ml b/myocamlbuild.ml
deleted file mode 100644 (file)
index 5ce02af..0000000
--- a/myocamlbuild.ml
+++ /dev/null
@@ -1,53 +0,0 @@
-open Ocamlbuild_plugin
-open Command
-
-let includes = ref StringSet.empty
-
-let register_include dir =
-  if not (StringSet.mem dir !includes) then begin
-    includes := StringSet.add dir !includes;
-    dep [ "extension:ml" ]
-      (List.map (fun s -> dir ^ "/" ^ s )
-         (Array.to_list (Pathname.readdir dir)))
-  end
-
-let set_flags tag_list action_list =
-  List.iter (fun s ->
-    List.iter (fun (fl, fu) ->
-      pflag s fl fu)
-      action_list
-  ) tag_list
-
-let macro_flags = [
-  "macro_include",
-  (fun s -> register_include s; S [A"-ppopt"; A "-I"; A"-ppopt"; A s]);
-  "macro_define", (fun s -> S [A"-ppopt"; A ("-D"^s)]);
-]
-
-let () = dispatch begin
-  function
-    | Before_rules -> ()
-    | After_rules ->
-        set_flags [["ocaml";"compile"]; ["ocaml"; "ocamldep"] ] macro_flags;
-        pflag [ "ocaml"; "compile" ] "warning"   (fun s -> (S[ A"-w"; A s]));
-        flag [ "ocaml"; "compile"; "debug" ] (S[ A"-g"; A"-ppopt"; A"-DDEBUG"]);
-        flag [ "ocaml"; "compile"; "htmltrace" ] (S[ A"-ppopt"; A"-DHTMLTRACE"]);
-        flag [ "ocaml"; "ocamldep"; "htmltrace" ] (S[ A"-ppopt"; A"-DHTMLTRACE"]);
-        flag [ "ocaml"; "link"; "debug" ] (A"-g");
-        flag [ "ocaml"; "compile"; "profile"] (S[A"-ppopt"; A"-DPROFILE"]);
-        flag [ "ocaml"; "compile"; "profile"; "native"] (A"-p");
-        flag [ "ocaml"; "link"; "profile"; "native"] (A"-p");
-        pflag [ "ocaml"; "compile"; "native" ] "inline" (fun i -> (S[ A"-inline"; A i ]));
-        pflag [ "ocaml"; "compile" ] "unsafe" (fun s -> (if s = "true" then S[A"-ppopt";A "-unsafe"] else N));
-
-
-         rule "Java compilation"
-        ~prod:"%.class"
-        ~dep:"%.java"
-        begin fun env _build ->
-          let java = env "%.java" in
-          let tags = tags_of_pathname java ++ "compile" in
-          Cmd( S[ A"javac" ; P java; T tags ])
-        end
-    | _ -> ()
-end

diff --git a/src/xpath.mlpack b/src/xpath.mlpack
deleted file mode 100644 (file)
index a4ae491..0000000
--- a/src/xpath.mlpack
+++ /dev/null
@@ -1,5 +0,0 @@
-xpath/Ast
-xpath/Compile
-xpath/Parser
-xpath/Ulexer
-xpath/Xpath_internal_parser