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     (* Since we are using ocaml instead of gcc to compile this
  35        the dep scanning passs is not done, hence this cludge *)
  36     (StrSet.singleton (Filename.concat srcdir "glfont.c"))
  37   ;
  38 ;;
  39
  40 let ocaml1 prog flags1 flags2 mainoutput outputs inputs deps f =
  41   let flags = flags1 ^ " -o " ^ Filename.quote mainoutput in
  42   let build =
  43     let commands _ =
  44       let s = String.concat " " (map Filename.quote (f ())) in
  45       [Run (prog ^ " " ^ flags ^ " " ^ s ^ flags2)]
  46     in
  47     let cookie _ = prog ^ flags in
  48     let presentation _ = "OCAMLC " ^ mainoutput in
  49     { get_commands = commands
  50     ; get_cookie = cookie
  51     ; get_presentation = presentation
  52     }
  53   in
  54   let inputs = fold_right StrSet.add inputs StrSet.empty in
  55   let deps = StrSet.union inputs deps in
  56   StrSet.iter (fun output ->
  57     put_build_info output build;
  58     let deps = StrSet.remove output deps in
  59     add_target output inputs outputs deps
  60   ) outputs;
  61 ;;
  62
  63 let ocaml' prog flags1 flags2 mainoutput outputs inputs deps =
  64   ocaml1 prog flags1 flags2 mainoutput outputs inputs deps (fun () -> inputs)
  65 ;;
  66
  67 let bso name objs =
  68   let so = name ^ ".so" in
  69   let mupdf_libs =
  70     " -L" ^ mupdflibpath ^ " " ^ libs
  71   in
  72   let o = List.map (fun s -> s ^ ".o") objs in
  73   ocaml'
  74     cc
  75     ("-shared -lpthread -o " ^ so ^ mupdf_libs)
  76     (mupdf_libs)
  77     so
  78     (StrSet.singleton so)
  79     o
  80     (StrSet.add
  81         (Filename.concat mupdflibpath "libfitz.a")
  82         (StrSet.singleton (Filename.concat mupdflibpath "libmupdf.a")))
  83   ;
  84   so
  85 ;;
  86
  87 let () =
  88   boc "-g" "link";
  89   let _ =
  90     let mkhelp = Filename.concat srcdir "mkhelp.sh" in
  91     let keystoml = Filename.concat srcdir "keystoml.ml" in
  92     let keys = Filename.concat srcdir "KEYS" in
  93     let cmd = "sh " ^ mkhelp ^ " " ^ keystoml ^ " " ^ keys ^ "> help.ml" in
  94     let build =
  95       { get_commands = (fun _ -> [Run cmd])
  96       ; get_cookie = (fun _ ->
  97         get_cmd_output "git describe --tags --dirty || echo")
  98       ; get_presentation = (fun _ -> "KEYSTOML KEYS")
  99       }
 100     in
 101     put_build_info "help.ml" build;
 102     let sing s = StrSet.singleton s in
 103     add_target
 104       "help.ml"
 105       (sing "KEYS")
 106       (sing "help.ml")
 107       (StrSet.add keys (StrSet.add mkhelp (sing keystoml)))
 108   in
 109   let so = bso "link" ["link"] in
 110   let prog name cmos =
 111     ocaml
 112       "ocamlc.opt"
 113       ("-g -I +lablGL lablgl.cma lablglut.cma str.cma unix.cma -dllpath "
 114         ^ Sys.getcwd ())
 115       name
 116       (StrSet.singleton name)
 117       (State.dep_sort cmos)
 118       StrSet.empty
 119   in
 120   let mkcmo name =
 121     let dirname = if name = "help" then Sys.getcwd () else srcdir in
 122     cmopp ~flags:"-g -w Ale -I +lablGL -thread" ~dirname name;
 123     (name ^ ".cmo")
 124   in
 125   let cmos = so :: List.map mkcmo ["help"; "parser"; "main"] in
 126   prog "llpp" cmos;
 127 ;;
 128
 129 let () =
 130   run start jobs ["help.ml"] false dotarlist;
 131   run start jobs targets dodeplist dotarlist;
 132 ;;