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