1 let start = Unix.gettimeofday
();;
8 let jobs, targets
, dodeplist
, dotarlist
= getopt
();;
11 match getval
"src" with
12 | None
-> failwith
"no source dir"
17 match getval
"cc" with
27 ("-cc " ^
cc ^
" -ccopt '-Wall -Wno-unused " ^ flags ^
" -o " ^
o ^
"'")
30 [Filename.concat
srcdir c]
33 then StrSet.singleton
(Filename.concat
srcdir "vec.c")
40 let so = src ^
".so" in
41 let so = Filename.concat
(Sys.getcwd
()) so in
56 cmopp ~flags
:"-g -I +lablGL -thread" ~dirname
:srcdir src
)
57 ["xff"; "nto"; "nmo"; "slice"; "rend"; "vec"; "skb"; "qtr"; "anb"; "skin"]
59 boc "-g -O" "swizzle";
61 let so = bso "swizzle" in
62 let so1 = bso "skin" in
66 ("-g -I +lablGL lablgl.cma lablglut.cma unix.cma")
68 (StrSet.singleton name
)
72 prog "dormin" ["slice.cmo"; "xff.cmo"; "nto.cmo"; "rend.cmo";
73 "vec.cmo"; "anb.cmo"; "skb.cmo"; "skin.cmo";
80 Helpers.run
start jobs targets dodeplist dotarlist