build.ml

   1 let start = Unix.gettimeofday ();;
   2 open List;;
   3 open Typs;;
   4 open Utils;;
   5 open State;;
   6 open Helpers;;
   7
   8 let jobs, targets, dodeplist, dotarlist = getopt ();;
   9
  10 let srcdir =
  11   match getval "src" with
  12   | None -> failwith "no source dir"
  13   | Some s -> s
  14 ;;
  15
  16 let boc flags src =
  17   let o = src ^ ".o" in
  18   let c = src ^ ".c" in
  19   ocaml
  20     "ocamlc.opt"
  21     ("-ccopt '-Wall -Wno-unused -g " ^ flags ^ " -o " ^ o ^ "'")
  22     o
  23     (StrSet.singleton o)
  24     [Filename.concat srcdir c]
  25     (
  26       if src = "skin"
  27       then StrSet.singleton (Filename.concat srcdir "vec.c")
  28       else StrSet.empty
  29     )
  30   ;
  31 ;;
  32
  33 let bso src =
  34   let so = src ^ ".so" in
  35   let so = Filename.concat (Sys.getcwd ()) so in
  36   let o = src ^ ".o" in
  37   ocaml
  38     "gcc"
  39     ("-shared -o " ^ so)
  40     so
  41     (StrSet.singleton so)
  42     [o]
  43     StrSet.empty
  44   ;
  45   so
  46 ;;
  47
  48 let _ =
  49   List.iter (fun src ->
  50     cmopp ~flags:"-g -I +lablGL -thread" ~dirname:srcdir src)
  51     ["xff"; "nto"; "nmo"; "slice"; "rend"; "vec"; "skb"; "qtr"; "anb"; "skin"]
  52   ;
  53   boc "-g -O" "swizzle";
  54   boc "-g -O" "skin";
  55   let so = bso "swizzle" in
  56   let so1 = bso "skin" in
  57   let prog name cmos =
  58     ocaml
  59       "ocamlc.opt"
  60       ("-g -I +lablGL lablgl.cma lablglut.cma unix.cma")
  61       name
  62       (StrSet.singleton name)
  63       (State.dep_sort cmos)
  64       StrSet.empty
  65   in
  66   prog "dormin" ["slice.cmo"; "xff.cmo"; "nto.cmo"; "rend.cmo";
  67                  "vec.cmo"; "anb.cmo"; "skb.cmo"; "skin.cmo";
  68                  "nmo.cmo"; "qtr.cmo";
  69                  so; so1];
  70   ()
  71 ;;
  72
  73 let () =
  74   Helpers.run start jobs targets dodeplist dotarlist
  75 ;;