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"; "skin"]
64 let so = bso "swizzle" ["swizzle"] in
65 let so1 = bso "skin" ["skin"; "skinvp"] in
69 ("-g -I +lablGL lablgl.cma lablglut.cma unix.cma")
71 (StrSet.singleton name
)
75 prog "dormin" ["slice.cmo"; "xff.cmo"; "nto.cmo"; "skin.cmo"; "rend.cmo";
76 "vec.cmo"; "anb.cmo"; "skb.cmo"; "nmo.cmo"; "qtr.cmo";
82 Helpers.run
start jobs targets dodeplist dotarlist