build.sh

   1 #!/bin/sh
   2 set -e
   3
   4 date --version | grep -q "GNU" && dfmt="%s.%N" || dfmt="%s"
   5 now() { date +$dfmt; }
   6
   7 tstart=$(now)
   8 vecho=${vecho-:}
   9 command -v shasum >/dev/null && alias sum=shasum
  10
  11 partmsg() {
  12     test $? -eq 0 && msg="ok" || msg="ko"
  13     echo "$msg $(echo "scale=3; ($(now) - $tstart)/1" | bc -l) sec"
  14 }
  15
  16 die() {
  17     echo "$*" >&2
  18     exit 111
  19 }
  20
  21 trap 'partmsg' EXIT
  22
  23 test -n "$1" || die "usage: $0 build-directory"
  24
  25 outd=$1
  26 srcd=$PWD
  27
  28 isfresh() {
  29     test -e "$1" && test -r "$1.past" && {
  30             . "$1.past"
  31             eval 'test "$k"="$2"'
  32         }
  33 }
  34
  35 bocaml1() {
  36     eval ocamlc -depend -bytecode -one-line $incs $s | {
  37         read _ _ depl
  38         test -z "$depl" || {
  39             for d in $(eval echo $depl); do
  40                 d=${d#$srcd/}
  41                 bocaml $d $((n+1))
  42             done
  43         }
  44     }
  45     cmd="ocamlc $incs -c -o $o $s"
  46     keycmd="sum $o $s"
  47     grep -q "$o" $outd/ordered || {
  48         echo "$o" >>$outd/ordered
  49         isfresh "$o" '$cmd$keymd' || {
  50             printf "%*.s%s -> %s\n" $n '' "${s#$srcd/}" "$o"
  51             eval "$cmd"
  52             echo "k='$cmd$(eval $keycmd)'" >$o.past
  53         } && $vecho "fresh '$o'"
  54     }
  55 }
  56
  57 bocaml() (
  58     o="$1"
  59     n="$2"
  60     wocmi="${o%.cmi}"
  61     test ${wocmi%help.cmo} !=  $wocmi && {
  62         s=$outd/help.ml
  63         o=$outd/help.cmo
  64     } || {
  65         test "$o" = "$wocmi" && s=${o%.cmo}.ml || s=$wocmi.mli
  66         s=$srcd/$s
  67         o=$outd/$o
  68     }
  69     incs="-I lablGL -I $outd/lablGL -I wsi/x11 -I $outd/wsi/x11 -I $outd"
  70     bocaml1 "$s" "$o"
  71 )
  72
  73 bocamlc() {
  74     o=$outd/$1
  75     s=$srcd/${1%.o}.c
  76     mudir=$srcd/mupdf
  77     muinc="-I $mudir/include -I $mudir/thirdparty/freetype/include"
  78     cmd="ocamlc -ccopt \"-O2 $muinc -o $o\" $s"
  79     keycmd="sum $o $s 2>/dev/null"
  80     isfresh "$o" '$cmd$keycmd' || {
  81         printf "%s -> %s\n" "${s#$srcd/}" "$o"
  82         eval "$cmd"
  83         echo "k='$cmd$(eval $keycmd)'" >$o.past
  84     }
  85 }
  86
  87 mkdir -p $outd/wsi/x11
  88 mkdir -p $outd/lablGL
  89 :>$outd/ordered
  90
  91 mkhelp() {
  92     ocaml str.cma -stdin $srcd/KEYS <<EOF
  93 let fixup = let open Str in
  94   let dash = regexp {|\([^ ]*\) +- +\(.*\)|}
  95   and head = regexp {|-----\(.*\)-----|} in fun s ->
  96   String.escaped s |> global_replace dash {|\1\t\2|}
  97                    |> global_replace head {|\xc2\xb7\1|};;
  98 let rec iter ic = match input_line ic with
  99 | s -> Printf.printf "\"%s\";\\n" @@ fixup s; iter ic
 100 | exception End_of_file -> ();;
 101 Printf.printf "let keys = [\\n";
 102 iter @@ open_in Sys.argv.(1);;
 103 Printf.printf "] and version = \"$ver\";;"
 104 EOF
 105 }
 106
 107 ver=$(cd $srcd && git describe --tags) || echo unknown
 108 cmd="mkhelp >$outd/help.ml"
 109 keycmd="sum $srcd/KEYS; echo $ver"
 110 isfresh "$outd/help.ml" '$cmd$keycmd$ver' || {
 111     eval $cmd
 112     echo "k='$cmd$(eval $keycmd)'" >$outd/help.ml.past
 113 }
 114
 115 for m in lablGL/glMisc.cmo lablGL/glTex.cmo wsi/x11/wsi.cmo main.cmo; do
 116     bocaml $m 0
 117 done
 118 bocamlc link.o
 119
 120 libs="str.cma unix.cma"
 121 clibs="-lGL -lX11 -L$mudir/build/native -lmupdf -lmupdfthird -lpthread"
 122 globjs=
 123 for f in ml_gl ml_glarray ml_raw; do
 124     bocamlc lablGL/$f.o
 125     globjs="$globjs $outd/lablGL/$f.o"
 126 done
 127
 128 ord=$(echo $(eval grep -v \.cmi $outd/ordered))
 129 cmd="ocamlc -custom $libs -o $outd/llpp $ord"
 130 cmd="$cmd $globjs $outd/link.o -cclib \"$clibs\""
 131 keycmd='sum $outd/llpp $ord'
 132 isfresh "$outd/llpp" '$cmd$keycmd' || {
 133         echo linking $outd/llpp
 134         eval $cmd
 135         echo "k='$cmd$(eval $keycmd)'" >$outd/llpp.past
 136     }