build.ml

   1 open List;;
   2 open Typs;;
   3 open Utils;;
   4 open State;;
   5 open Helpers;;
   6
   7 let jobs, targets, dodeplist, dotarlist = getopt ();;
   8
   9 let srcdir =
  10   match getval "src" with
  11   | None -> failwith "no source dir"
  12   | Some s -> s
  13 ;;
  14
  15 let _ =
  16   cmopp ~flags:"-g -I +lablGL -thread" ~dirname:srcdir "apc";
  17   ocaml
  18     "ocamlc.opt"
  19     "-ccopt '-Wall -o ml_apc.o'"
  20     "ml_apc.o"
  21     (StrSet.singleton "ml_apc.o")
  22     [Filename.concat srcdir "ml_apc.c"]
  23     StrSet.empty
  24   ;
  25   let prog base =
  26     gcc "gcc" true
  27       "-Wall -Werror -g -c" ""
  28       (base ^ ".o")
  29       [Filename.concat srcdir (base ^ ".c")]
  30     ;
  31     gcc "gcc" false
  32       "" ""
  33       base
  34       [base ^ ".o"]
  35     ;
  36   in
  37   prog "hog";
  38   prog "idlestat";
  39   ocaml
  40     "ocamlc.opt"
  41     "-custom -thread -g -I +lablGL lablgl.cma lablglut.cma unix.cma threads.cma"
  42     "apc"
  43     (StrSet.singleton "apc")
  44     ["ml_apc.o"; "apc.cmo"]
  45     StrSet.empty
  46   ;
  47   let _ =
  48     let moddir = Filename.concat srcdir "mod" in
  49     let modconts = Sys.readdir moddir in
  50     let deps = Array.fold_left (fun deps s ->
  51       if String.length s > 0 && s.[0] != '.'
  52       then
  53         let src = Filename.concat moddir s in
  54         add_target s (StrSet.singleton src) (StrSet.singleton s) (StrSet.singleton src);
  55         let build =
  56           let commands _ =
  57             [Run ("cp " ^ Filename.quote src ^ " " ^ Filename.quote s)]
  58           and cookie _ = "cp"
  59           and presentation _ =
  60             "COPY"
  61           in
  62           { get_commands = commands
  63           ; get_cookie = cookie
  64           ; get_presentation = presentation
  65           }
  66         in
  67         State.put_build_info s build;
  68         StrSet.add s deps
  69       else
  70         deps
  71     ) StrSet.empty modconts
  72     in
  73     let build =
  74       let commands _ =  [Run ("make")]
  75       and cookie _ = "make"
  76       and presentation _ = "KBUILD" in
  77       { get_commands = commands
  78       ; get_cookie = cookie
  79       ; get_presentation = presentation
  80       }
  81     in
  82     add_phony "mod" deps "";
  83     State.put_build_info "mod" build;
  84   in
  85   ()
  86 ;;
  87
  88 let () =
  89   let start = Unix.gettimeofday () in
  90   (* Scan.all targets; *)
  91   if dodeplist
  92   then
  93     List.iter State.print_deps targets
  94   else
  95     begin
  96       let build path =
  97         let built = Unix.handle_unix_error Build.path path in
  98         if not !Config.silent
  99         then
 100           if built
 101           then print_endline (path ^ " has been built")
 102           else print_endline ("nothing to be done for " ^ path)
 103         ;
 104       in
 105       if jobs = 1
 106       then
 107         iter build targets
 108       else
 109         let rec loop i tids = if i = jobs then tids else
 110             let tid = Thread.create (fun () -> iter build targets) () in
 111             loop (succ i) (tid :: tids)
 112         in
 113         let tids = loop 0 [] in
 114         iter Thread.join tids
 115     end
 116   ;
 117   Cache.save !State.Config.cache;
 118   let stop = Unix.gettimeofday () in
 119   Format.eprintf "build took %f seconds@." (stop -. start);
 120 ;;