From 34400347fc8b70ed7e1ae14334e62a33e4d82163 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kim=20Nguy=E1=BB=85n?= Date: Wed, 17 Apr 2013 08:09:31 +0200 Subject: [PATCH] Remove OCamlbuild related files. Youpi. --- _tags | 22 ------------------ build | 59 ------------------------------------------------ main.itarget | 4 ---- myocamlbuild.ml | 53 ------------------------------------------- src/xpath.mlpack | 5 ---- 5 files changed, 143 deletions(-) delete mode 100644 _tags delete mode 100755 build delete mode 100644 main.itarget delete mode 100644 myocamlbuild.ml delete mode 100644 src/xpath.mlpack diff --git a/_tags b/_tags deleted file mode 100644 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 -: for-pack(Xpath) -: include - -: include - -#Enable warning for all but generated files: -not : warning(@A-4-K) 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 diff --git a/main.itarget b/main.itarget deleted file mode 100644 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 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 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 -- 2.17.1