build.sh

   1 #!/bin/sh
   2 set -eu
   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 md5sum >/dev/null && alias sum='md5sum 2>/dev/null'
  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 mudir=$srcd/mupdf
  28 muinc="-I $mudir/include -I $mudir/thirdparty/freetype/include"
  29
  30 isfresh() {
  31     test -e "$1" && test -r "$1.past" && {
  32             . "$1.past"
  33             test "$k" = "$2"
  34         }
  35 }
  36
  37 oflags() {
  38     case "${1#$outd/}" in
  39         main.cmo|utils.cmo|config.cmo|parser.cmo|wsi.cmi|wsi/x11/wsi.cmo)
  40             f="-g -strict-sequence -strict-formats -warn-error a";;
  41         *) f="-g";;
  42     esac
  43     echo "-I lablGL -I $outd/lablGL -I wsi/x11 -I $outd/wsi/x11 -I $outd $f"
  44 }
  45
  46 cflags() {
  47     case "${1#$outd/}" in
  48         link.o) echo "-g -O2 $muinc -Wall -Werror -Wextra -pedantic-errors";;
  49         *) :;;
  50     esac
  51 }
  52
  53 bocaml1() {
  54     eval ocamlc -depend -bytecode -one-line $incs $s | {
  55         read _ _ depl
  56         for d in $(eval echo $depl); do
  57             bocaml ${d#$srcd/} $((n+1))
  58         done
  59     }
  60     cmd="ocamlc $(oflags $o) -c -o $o $s"
  61     keycmd="sum $o $s"
  62     grep -q "$o" $outd/ordered || {
  63         echo "$o" >>$outd/ordered
  64         isfresh "$o" "$cmd$(eval $keycmd)" || {
  65             printf "%*.s%s -> %s\n" $n '' "${s#$srcd/}" "$o"
  66             eval "$cmd"
  67             echo "k='$cmd$(eval $keycmd)'" >$o.past
  68         } && $vecho "fresh '$o'"
  69     }
  70 }
  71
  72 bocaml() (
  73     o="$1"
  74     n="$2"
  75     wocmi="${o%.cmi}"
  76     test ${wocmi%help.cmo} !=  $wocmi && {
  77         s=$outd/help.ml
  78         o=$outd/help.cmo
  79     } || {
  80         test "$o" = "$wocmi" && s=$srcd/${o%.cmo}.ml || s=$srcd/$wocmi.mli
  81         o=$outd/$o
  82     }
  83     incs="-I lablGL -I $outd/lablGL -I wsi/x11 -I $outd/wsi/x11 -I $outd"
  84     bocaml1 "$s" "$o"
  85 )
  86
  87 bocamlc() {
  88     o=$outd/$1
  89     s=$srcd/${1%.o}.c
  90     cmd="ocamlc -ccopt \"$(cflags $o) -MMD -MF $o.dep -MT_ -o $o\" $s"
  91     test -r $o.dep && read _ d <$o.dep || d=
  92     keycmd='sum $o $d'
  93     isfresh "$o" "$cmd$(eval $keycmd)" || {
  94         printf "%s -> %s\n" "${s#$srcd/}" "$o"
  95         eval "$cmd"
  96         read _ d <$o.dep
  97         echo "k='$cmd$(eval $keycmd)'" >$o.past
  98     }
  99 }
 100
 101 mkdir -p $outd/wsi/x11
 102 mkdir -p $outd/lablGL
 103 :>$outd/ordered
 104
 105 mkhelp() {
 106     ocaml str.cma -stdin $srcd/KEYS <<EOF
 107 let fixup = let open Str in
 108   let dash = regexp {|\([^ ]*\) +- +\(.*\)|}
 109   and head = regexp {|-----\(.*\)-----|} in fun s ->
 110   String.escaped s |> global_replace dash {|\1\t\2|}
 111                    |> global_replace head {|\xc2\xb7\1|};;
 112 let rec iter ic = match input_line ic with
 113 | s -> Printf.printf "\"%s\";\\n" @@ fixup s; iter ic
 114 | exception End_of_file -> ();;
 115 Printf.printf "let keys = [\\n";
 116 iter @@ open_in Sys.argv.(1);;
 117 Printf.printf "] and version = \"$ver\";;"
 118 EOF
 119 }
 120
 121 ver=$(cd $srcd && git describe --tags) || echo unknown
 122 cmd="mkhelp >$outd/help.ml"
 123 keycmd="sum $srcd/KEYS; echo $ver"
 124 isfresh "$outd/help.ml" '$cmd$(eval keycmd)$ver' || {
 125     eval $cmd
 126     echo "k='$cmd$(eval $keycmd)$ver'" >$outd/help.ml.past
 127 }
 128
 129 for m in lablGL/glMisc.cmo lablGL/glTex.cmo wsi/x11/wsi.cmo main.cmo; do
 130     bocaml $m 0
 131 done
 132 bocamlc link.o
 133
 134 libs="str.cma unix.cma"
 135 clibs="-lGL -lX11 -L$mudir/build/native -lmupdf -lmupdfthird -lpthread"
 136 globjs=
 137 for f in ml_gl ml_glarray ml_raw; do
 138     bocamlc lablGL/$f.o
 139     globjs="$globjs $outd/lablGL/$f.o"
 140 done
 141
 142 ord=$(echo $(eval grep -v \.cmi $outd/ordered))
 143 cmd="ocamlc -custom $libs -o $outd/llpp $ord"
 144 cmd="$cmd $globjs $outd/link.o -cclib \"$clibs\""
 145 keycmd="sum $outd/llpp $ord"
 146 isfresh "$outd/llpp" "$cmd$(eval $keycmd)" || {
 147         echo linking $outd/llpp
 148         eval $cmd
 149         echo "k='$cmd$(eval $keycmd)'" >$outd/llpp.past
 150     }