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
  24 let boc flags src =
  25   let o = src ^ ".o" in
  26   let c = src ^ ".c" in
  27   ocaml
  28     "ocamlc.opt"
  29     ("-cc '" ^ cc ^ "' -ccopt '" ^ flags ^ " " ^ ccopt ^ " -o " ^ o ^ "'")
  30     o
  31     (StrSet.singleton o)
  32     [Filename.concat srcdir c]
  33     (StrSet.empty)
  34   ;
  35 ;;
  36
  37 let ocaml1 prog flags1 flags2 mainoutput outputs inputs deps f =
  38   let flags = flags1 ^ " -o " ^ Filename.quote mainoutput in
  39   let build =
  40     let commands _ =
  41       let s = String.concat " " (map Filename.quote (f ())) in
  42       [Run (prog ^ " " ^ flags ^ " " ^ s ^ flags2)]
  43     in
  44     let cookie _ = prog ^ flags in
  45     let presentation _ = "OCAMLC " ^ mainoutput in
  46     { get_commands = commands
  47     ; get_cookie = cookie
  48     ; get_presentation = presentation
  49     }
  50   in
  51   let inputs = fold_right StrSet.add inputs StrSet.empty in
  52   let deps = StrSet.union inputs deps in
  53   StrSet.iter (fun output ->
  54     put_build_info output build;
  55     let deps = StrSet.remove output deps in
  56     add_target output inputs outputs deps
  57   ) outputs;
  58 ;;
  59
  60 let ocaml' prog flags1 flags2 mainoutput outputs inputs deps =
  61   ocaml1 prog flags1 flags2 mainoutput outputs inputs deps (fun () -> inputs)
  62 ;;
  63
  64 let bso name objs =
  65   let so = name ^ ".so" in
  66   let mupdf_libs =
  67     " -L" ^ mupdflibpath ^
  68       " -lmupdf -lopenjpeg -ljbig2dec -ljpeg -lz -lfreetype"
  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.empty
  79   ;
  80   so
  81 ;;
  82
  83 let () =
  84   boc "-g" "link";
  85   let so = bso "link" ["link"] in
  86   let prog name cmos =
  87     ocaml
  88       "ocamlc.opt"
  89       ("-g -I +lablGL lablgl.cma lablglut.cma str.cma unix.cma -dllpath "
  90         ^ Sys.getcwd ())
  91       name
  92       (StrSet.singleton name)
  93       (State.dep_sort cmos)
  94       StrSet.empty
  95   in
  96   let main =
  97     cmopp ~flags:"-g -w y -I +lablGL -thread" ~dirname:srcdir "main";
  98     "main.cmo"
  99   in
 100   prog "llpp" [so; main];
 101 ;;
 102
 103 let () =
 104   let objs =
 105     c cc "-c -Wall -Werror -Wextra -g" srcdir "test";
 106     ["test.o"]
 107   in
 108   let objsgl =
 109     c cc "-c -Wall -Werror -Wextra -g" srcdir "testgl";
 110     ["testgl.o"]
 111   in
 112   let prog name objs =
 113     gcc
 114       ~cc
 115       ~doscan:false
 116       ~flags1:""
 117       ~flags2:"-lX11 -lXext"
 118       ~output:name
 119       objs
 120   in
 121   let proggl name objs =
 122     gcc
 123       ~cc
 124       ~doscan:false
 125       ~flags1:""
 126       ~flags2:"-lX11 -lXext -lGL"
 127       ~output:name
 128       objs
 129   in
 130   prog "test" objs;
 131   proggl "testgl" objsgl;
 132 ;;
 133
 134 let () =
 135   run start jobs targets dodeplist dotarlist;
 136 ;;