1 let start = Unix.gettimeofday
();;
8 let jobs, targets
, dodeplist
, dotarlist
= getopt
();;
11 match getval key
with | None
-> failwith msg
| Some s
-> s
15 match getval key
with | None
-> def
| Some s
-> s
18 let srcdir = get "src" "no source dir";;
19 let cc = getdef "cc" "cc";;
20 let ccopt = getdef "ccopt" "";;
27 ("-cc '" ^
cc ^
"' -ccopt '" ^ flags ^
" " ^
ccopt ^
" -o " ^
o ^
"'")
30 [Filename.concat
srcdir c]
32 if src
= "skin" || src
= "skinvp"
34 (StrSet.add
(Filename.concat
srcdir "pgl.h")
35 (StrSet.singleton
(Filename.concat
srcdir "vec.c")))
42 let so = name ^
".so" in
43 (* let so = Filename.concat (Sys.getcwd ()) so in *)
44 let o = List.map
(fun s
-> s ^
".o") objs
in
58 cmopp ~flags
:"-g -I +lablGL -thread" ~dirname
:srcdir src
)
59 ["xff"; "nto"; "nmo"; "slice"; "rend"; "vec"; "skb"; "qtr"; "anb"
65 let so = bso "swizzle" ["swizzle"] in
66 let so1 = bso "skin" ["skin"; "skinvp"] in
70 ("-g -I +lablGL lablgl.cma lablglut.cma unix.cma -dllpath " ^
Sys.getcwd
())
72 (StrSet.singleton name
)
76 prog "dormin" ["slice.cmo"; "xff.cmo"; "nto.cmo"; "skin.cmo"; "rend.cmo";
77 "vec.cmo"; "anb.cmo"; "skb.cmo"; "nmo.cmo"; "qtr.cmo";
79 prog "imgv" ["slice.cmo"; "xff.cmo"; "nto.cmo"; "imgv.cmo"; so; so1];
84 Helpers.run
start jobs targets dodeplist dotarlist