build.bash

   1 #!/bin/bash
   2 set -eu
   3
   4 now() { date +%s; }
   5 tstart=$(now)
   6 vecho() { ${vecho-:} "$*"; }
   7 digest() { sum 2>/dev/null $* | while read d _; do printf $d; done; }
   8
   9 test "$(uname)" = Darwin && {
  10     darwin=true
  11     wsi="wsi/osx"
  12 } || {
  13     darwin=false
  14     wsi="wsi/x11"
  15 }
  16
  17 partmsg() {
  18     test $? -eq 0 && msg="ok" || msg="ko"
  19     echo "$msg $(($(now)-tstart)) sec"
  20 }
  21
  22 die() {
  23     echo "$*" >&2
  24     exit 111
  25 }
  26
  27 trap 'partmsg' EXIT
  28
  29 test -n "${1-}" || die "usage: $0 build-directory"
  30
  31 outd="$1"
  32 srcd="$(dirname $0)"
  33 mudir=$srcd/mupdf
  34 muinc="-I $mudir/include -I $mudir/thirdparty/freetype/include"
  35
  36 mkdir -p $outd/$wsi
  37 mkdir -p $outd/lablGL
  38 :>$outd/ordered
  39
  40 isfresh() {
  41     test -e "$1" && test -r "$1.past" && {
  42             . "$1.past"
  43             test "$k" = "$2"
  44         }
  45 }
  46
  47 test "${USER-}" = "malc" && {
  48     keycmd="cd $mudir && git describe --tags --dirty"
  49     isfresh "$outd/mupdf" "$(eval $keycmd)" || (
  50         mkdir -p $outd
  51         make -C "$mudir" CC='ccache gcc' build=native -j4 libs && :>$outd/mupdf
  52         echo "k=$(eval $keycmd)" >$outd/mupdf.past
  53     ) && vecho "fresh mupdf"
  54 }
  55
  56 oflags() {
  57     case "${1#$outd/}" in
  58         main.cmo|utils.cmo|config.cmo|parser.cmo|$wsi/wsi.cmo)
  59             f="-g -strict-sequence -strict-formats -warn-error a";;
  60         *) f="-g";;
  61     esac
  62     echo "$incs $f"
  63 }
  64
  65 cflags() {
  66     case "${1#$outd/}" in
  67         link.o)
  68             f="-g -std=c99 -O2 $muinc -Wall -Werror -pedantic-errors"
  69             f="$f -D_GNU_SOURCE"
  70             $darwin && echo "$f -D__COCOA__" || echo $f;;
  71         */keysym2ucs.o) echo "-DKeySym=long";;
  72         */ml_gl.o) echo "-g -Wno-pointer-sign -O2";;
  73         *) echo "-g -O2";;
  74     esac
  75 }
  76
  77 mflags() { echo "-I $(ocamlc -where) -g -O2"; }
  78
  79 incs="-I $srcd/lablGL -I $srcd/$wsi -I $srcd"
  80 incs="$incs -I $outd/lablGL -I $outd/$wsi -I $outd"
  81
  82 overs="$(ocamlc --version 2>/dev/null)" || overs="0.0.0"
  83 oversnum="$(echo $overs | { IFS=. read a b _; echo $a$b; })"
  84
  85 test $oversnum -ge 407 || {
  86     uri=https://caml.inria.fr/pub/distrib/ocaml-4.07/ocaml-4.07.0+beta2.tar.xz
  87     tar=$outd/$(basename $uri)
  88     isfresh $tar $uri || {
  89         executable_p() { command -v "$1" >/dev/null 2>&1; }
  90         if executable_p wget; then dl() { wget -q $1 -O $2; }
  91         elif executable_p curl; then dl() { curl $1 -o $2; }
  92         else die "no program to fetch remote urls found"
  93         fi
  94         dl $uri $tar
  95         echo "k=$uri" >$tar.past
  96     }
  97     absprefix=$(cd $outd &>/dev/null; pwd -P)
  98     export PATH=$absprefix/bin:$PATH
  99     isfresh $absprefix/bin/ocamlc "$uri" || (
 100         d=$(pwd)
 101         tar xf $tar -C $outd
 102         bn=$(basename $uri)
 103         cd $outd/${bn%.tar.xz}
 104         ./configure -prefix $absprefix
 105         make -s -j4 world
 106         make -s install
 107         echo "k='$uri'" >$d/$outd/bin/ocamlc.past
 108     )
 109     overs=$(ocamlc --version 2>/dev/null) || overs="0.0.0"
 110     oversnum=$(echo $overs | { IFS=. read a b _; echo $a$b; })
 111 }
 112
 113 bocaml1() {
 114     local n=$1
 115     local s="$2"
 116     local o="$3"
 117     local O=${4-}
 118     local dd
 119
 120     local cmd="ocamlc -depend -bytecode -one-line $incs $s"
 121     local keycmd="digest $s"
 122     isfresh "$o.depl" "$overs$cmd$(eval $keycmd)" || {
 123         :>"$o.depl"
 124         eval "$cmd" | {
 125             read _ _ depl
 126             for d in $depl; do
 127                 local D=${d#$srcd/}
 128                 test "$O" = "$D" || {
 129                     bocaml "$D" $((n+1))
 130                     test $d = "$outd/help.cmo" && dd=$d || dd=$outd/${d#$srcd/}
 131                     printf "$dd " >>"$o.depl"
 132                 }
 133             done
 134         } || die "$cmd failed"
 135         echo "k='$overs$cmd$(eval $keycmd)'" >"$o.depl.past"
 136     } && {
 137         for d in $(< $o.depl); do
 138             test $d = "$outd/help.cmo" && dd=$d || dd=${d#$outd/}
 139             bocaml $dd $((n+1))
 140         done
 141     }
 142
 143     cmd="ocamlc $(oflags $o) -c -o $o $s"
 144     keycmd="digest $s $(cat $o.depl)"
 145     grep -q "$o" $outd/ordered || {
 146         echo "$o" >>"$outd/ordered"
 147         isfresh "$o" "$overs$cmd$(eval $keycmd)" || {
 148             printf "%*.s%s -> %s\n" $n '' "${s#$srcd/}" "${o#$outd/}"
 149             eval "$cmd" || die "$cmd failed"
 150             echo "k='$overs$cmd$(eval $keycmd)'" >"$o.past"
 151         } && vecho "fresh '$o'"
 152     }
 153 }
 154
 155 bocaml() (
 156     local o="$1"
 157     local n="$2"
 158     local wocmi="${o%.cmi}"
 159     local s
 160     test ${wocmi%help.cmo} !=  $wocmi && {
 161         s=$outd/help.ml
 162         o=$outd/help.cmo
 163     } || {
 164         test "$o" = "$wocmi" && s=$srcd/${o%.cmo}.ml || s=$srcd/$wocmi.mli
 165         o=$outd/$o
 166     }
 167     bocaml1 $n "$s" "$o"
 168     case $wocmi in
 169         wsi) s="$srcd/$wsi/wsi.ml";;
 170         */glMisc) s="$srcd/lablGL/glMisc.ml";;
 171         */glTex) s="$srcd/lablGL/glTex.ml";;
 172         *) false;;
 173     esac && {
 174         local s1=${s#$srcd/}
 175         bocaml1 $n "$s" "$outd/${s1%.ml}.cmo" "${o#$outd/}"
 176     } || true
 177 )
 178
 179 bocamlc() {
 180     local o=$outd/$1
 181     local s=$srcd/${1%.o}.c
 182     local cmd="ocamlc -ccopt \"$(cflags $o) -MMD -MF $o.dep -MT_ -o $o\" $s"
 183     test -r $o.dep && read _ d <$o.dep || d=
 184     local keycmd='digest $o $d'
 185     isfresh "$o" "$cmd$(eval $keycmd)" || {
 186         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 187         eval "$cmd" || die "$cmd failed"
 188         read _ d <$o.dep
 189         echo "k='$cmd$(eval $keycmd)'" >"$o.past"
 190     } && vecho "fresh $o"
 191 }
 192
 193 bobjc() {
 194     local o=$outd/$1
 195     local s=$srcd/${1%.o}.m
 196     local cmd="$mcomp $(mflags $o) -MMD -MF $o.dep -MT_ -c -o $o $s"
 197     test -r $o.dep && read _ d <$o.dep || d=
 198     local keycmd='digest $o $d'
 199     isfresh "$o" "$cmd$(eval $keycmd)" || {
 200         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 201         eval "$cmd"
 202         read _ d <$o.dep
 203         echo "k='$cmd$(eval $keycmd)'" >"$o.past"
 204     } && vecho "fresh $o"
 205 }
 206
 207 mkhelp() {
 208     ocaml str.cma -stdin $srcd/KEYS <<EOF
 209 let fixup = let open Str in
 210   let dash = regexp {|\([^ ]*\) +- +\(.*\)|}
 211   and head = regexp {|-----\(.*\)-----|} in fun s ->
 212   String.escaped s |> global_replace dash {|\1\t\2|}
 213                    |> global_replace head {|\xc2\xb7\1|};;
 214 let rec iter ic = match input_line ic with
 215 | s -> Printf.printf "\"%s\";\\n" @@ fixup s; iter ic
 216 | exception End_of_file -> ();;
 217 Printf.printf "let keys = [\\n";
 218 iter @@ open_in Sys.argv.(1);;
 219 Printf.printf "] and version = \"$ver\";;"
 220 EOF
 221 }
 222
 223 ver=$(cd $srcd && git describe --tags --dirty) || ver=unknown
 224 cmd="mkhelp >$outd/help.ml # $ver"
 225 keycmd="digest $srcd/KEYS # $ver"
 226 isfresh "$outd/help.ml" "$cmd$(eval $keycmd)" || {
 227     eval $cmd
 228     echo "k='$cmd$(eval $keycmd)'" >"$outd/help.ml.past"
 229 } && vecho "fresh $outd/help.ml"
 230
 231 case "${2-}" in
 232     man)
 233         md=$outd/man
 234         mkdir -p $md
 235         for m in llpp llppac llpphtml; do
 236             man=$srcd/man/$m.man
 237             xml=$md/$m.xml
 238             out=$md/$m.1
 239             keycmd="digest $xml $man"
 240             conf="$srcd/man/asciidoc.conf"
 241             cmd="asciidoc -d manpage -b docbook -f $conf -o '$xml' '$man'"
 242             isfresh "$xml" "$cmd$(eval $keycmd)" || {
 243                 eval $cmd
 244                 echo "k='$cmd$(eval $keycmd)'" >"$md/$m.past"
 245             } && vecho "fresh manual xmls"
 246             keycmd="digest $out $xml"
 247             cmd="xmlto man -o $md $xml"
 248             isfresh "$out" "$cmd$(eval $keycmd)" || {
 249                 eval $cmd
 250                 echo "k='$cmd$(eval $keycmd)'" >"$out.past"
 251             } && vecho "fresh manual pages"
 252         done
 253         shift;;
 254     *) ;;
 255 esac
 256
 257 bocaml main.cmo 0
 258
 259 cobjs=$outd/link.o
 260 bocamlc link.o
 261
 262 libs="str.cma unix.cma"
 263 clibs="-L$mudir/build/native -lmupdf -lmupdf-third -lpthread"
 264 if $darwin; then
 265     mcomp=$(ocamlc -config | grep bytecomp_c_co | { read _ c; echo $c; })
 266     clibs="$clibs -framework Cocoa -framework OpenGL"
 267     bobjc wsi/osx/wsicocoa.o
 268     cobjs="$cobjs $outd/wsi/osx/wsicocoa.o"
 269 else
 270     clibs="$clibs -lGL -lX11"
 271     cobjs="$cobjs $outd/wsi/x11/keysym2ucs.o"
 272     bocamlc wsi/x11/keysym2ucs.o
 273 fi
 274
 275 globjs=
 276 for f in ml_gl ml_glarray ml_raw; do
 277     bocamlc lablGL/$f.o
 278     globjs="$globjs $outd/lablGL/$f.o"
 279 done
 280
 281 ord=$(grep -v \.cmi $outd/ordered)
 282 cmd="ocamlc -custom $libs -o $outd/llpp $cobjs $ord"
 283 cmd="$cmd $globjs -cclib \"$clibs\""
 284 keycmd="digest $outd/llpp $cobjs $ord"
 285 isfresh "$outd/llpp" "$cmd$(eval $keycmd)" || {
 286         echo linking $outd/llpp
 287         eval $cmd || die "$cmd failed"
 288         echo "k='$cmd$(eval $keycmd)'" >"$outd/llpp.past"
 289     } && vecho "fresh llpp"
 290
 291 if $darwin; then
 292     out="$outd/llpp.app/Contents/Info.plist"
 293     keycmd="digest $out $srcd/misc/Info.plist.sh"
 294     isfresh $out "$(eval $keycmd)" || {
 295         shortver=$(echo $ver | { IFS='-' read s _; echo ${s#v}; })
 296         d=$(dirname $out)
 297         test -d "$d" || mkdir -p "$d"
 298         . $srcd/misc/Info.plist.sh >"$out"
 299         echo "k=$(eval $keycmd)" >"$out.past"
 300     } && vecho "fresh plist"
 301
 302     out=$outd/llpp.app/Contents/MacOS/llpp
 303     keycmd="digest $out $outd/llpp"
 304     isfresh $out "$(eval $keycmd)" || {
 305         d=$(dirname $out)
 306         mkdir -p "$d"
 307         cp $outd/llpp $out
 308         echo "k=$(eval $keycmd)" >"$out.past"
 309     } && vecho "fresh bundle"
 310 fi