projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add a missing ';' and remove some dead code and outdated comments.
[tatoo.git]
/
build
diff --git
a/build
b/build
index
e1c442e
..
d5eb3a5
100755
(executable)
--- a/
build
+++ b/
build
@@
-1,15
+1,12
@@
#!/usr/bin/env ocaml
#!/usr/bin/env ocaml
-let target = ref
"main.otarget"
+let target = ref
[ "main.otarget" ]
let debug = ref false
let profile = ref false
let verbose = ref false
let dir = Sys.getcwd ()
let project_root = Filename.dirname Sys.argv.(0)
let debug = ref false
let profile = ref false
let verbose = ref false
let dir = Sys.getcwd ()
let project_root = Filename.dirname Sys.argv.(0)
-(* if Filename.is_relative build_path
- then Filename.concat dir build_path
- else build_path *)
let () =
for i = 1 to Array.length Sys.argv - 1 do
let () =
for i = 1 to Array.length Sys.argv - 1 do
@@
-17,12
+14,14
@@
let () =
| "-d" -> debug := true
| "-p" -> profile := true
| "-v" -> verbose := true
| "-d" -> debug := true
| "-p" -> profile := true
| "-v" -> verbose := true
- | x -> target := x
+ | x -> target := x
:: !target
done
let oprofile = if !profile then " -tag profile " else ""
let odebug = if !profile then " -tag debug " else ""
done
let oprofile = if !profile then " -tag profile " else ""
let odebug = if !profile then " -tag debug " else ""
-let otarget = if !target = "clean" then " -clean " else !target
+let otarget = List.fold_left (fun acc t ->
+ let t = if t = "clean" then "-clean" else t in
+ t ^ " " ^ acc) "" !target
let overbose = if !verbose then " -classic-display " else ""
let () =
Sys.chdir project_root;
let overbose = if !verbose then " -classic-display " else ""
let () =
Sys.chdir project_root;