build.ml

   1 let start = Unix.gettimeofday ();;
   2
   3 open List;;
   4 open Typs;;
   5 open Utils;;
   6 open State;;
   7 open Helpers;;
   8
   9 let jobs, targets, dodeplist, dotarlist = getopt ();;
  10
  11 let get key msg =
  12   match getval key with | None -> failwith msg | Some s -> s
  13 ;;
  14
  15 let getdef key def =
  16   match getval key with | None -> def | Some s -> s
  17 ;;
  18
  19 let srcdir = get "src" "no source dir";;
  20 let cc = getdef "cc" "cc";;
  21 let ccopt = getdef "ccopt" "";;
  22 let mupdflibpath = get "mupdflibpath" "no mupdf libpath";;
  23 let libs = getdef "libs" "";;
  24
  25 let boc flags src =
  26   let o = src ^ ".o" in
  27   let c = src ^ ".c" in
  28   ocaml
  29     "ocamlc.opt"
  30     ("-cc '" ^ cc ^ "' -ccopt '" ^ flags ^ " " ^ ccopt ^ " -o " ^ o ^ "'")
  31     o
  32     (StrSet.singleton o)
  33     [Filename.concat srcdir c]
  34     StrSet.empty
  35   ;
  36 ;;
  37
  38 let ocaml1 prog flags1 flags2 mainoutput outputs inputs deps f =
  39   let flags = flags1 ^ " -o " ^ Filename.quote mainoutput in
  40   let build =
  41     let commands _ =
  42       let s = String.concat " " (map Filename.quote (f ())) in
  43       [Run (prog ^ " " ^ flags ^ " " ^ s ^ flags2)]
  44     in
  45     let cookie _ = prog ^ flags in
  46     let presentation _ = "OCAMLC " ^ mainoutput in
  47     { get_commands = commands
  48     ; get_cookie = cookie
  49     ; get_presentation = presentation
  50     }
  51   in
  52   let inputs = fold_right StrSet.add inputs StrSet.empty in
  53   let deps = StrSet.union inputs deps in
  54   StrSet.iter (fun output ->
  55     put_build_info output build;
  56     let deps = StrSet.remove output deps in
  57     add_target output inputs outputs deps
  58   ) outputs;
  59 ;;
  60
  61 let ocaml' prog flags1 flags2 mainoutput outputs inputs deps =
  62   ocaml1 prog flags1 flags2 mainoutput outputs inputs deps (fun () -> inputs)
  63 ;;
  64
  65 let bso name objs =
  66   let so = name ^ ".so" in
  67   let mupdf_libs =
  68     " -L" ^ mupdflibpath ^ " " ^ libs
  69   in
  70   let o = List.map (fun s -> s ^ ".o") objs in
  71   ocaml'
  72     cc
  73     ("-shared -lpthread -o " ^ so ^ mupdf_libs)
  74     (mupdf_libs)
  75     so
  76     (StrSet.singleton so)
  77     o
  78     (StrSet.add
  79         (Filename.concat mupdflibpath "libfitz.a")
  80         (StrSet.singleton (Filename.concat mupdflibpath "libmupdf.a")))
  81   ;
  82   so
  83 ;;
  84
  85 let () =
  86   boc "-g" "link";
  87   let so = bso "link" ["link"] in
  88   let prog name cmos =
  89     ocaml
  90       "ocamlc.opt"
  91       ("-g -I +lablGL lablgl.cma lablglut.cma str.cma unix.cma -dllpath "
  92         ^ Sys.getcwd ())
  93       name
  94       (StrSet.singleton name)
  95       (State.dep_sort cmos)
  96       StrSet.empty
  97   in
  98   let mkcmo name =
  99     cmopp ~flags:"-g -w y -I +lablGL -thread" ~dirname:srcdir name;
 100     (name ^ ".cmo")
 101   in
 102   let cmos = so :: List.map mkcmo ["parser"; "main"] in
 103   prog "llpp" cmos;
 104 ;;
 105
 106 let () =
 107   run start jobs targets dodeplist dotarlist;
 108 ;;