build.bash

   1 #!/bin/bash
   2 set -eu
   3
   4 now() { date +%s; }
   5 S=$(now)
   6 vecho() { ${vecho-:} "$*"; }
   7 digest() { cksum $* | while read d _; do printf $d; done; } 2>/dev/null
   8 die() { echo "$*" >&2; exit 111; }
   9 partmsg() { echo "$(test $? -eq 0 || echo "fail ")$(($(now) - $S)) sec"; }
  10
  11 trap 'partmsg' EXIT
  12
  13 darwin=false
  14 wsid="wsi/x11"
  15 case "$(uname)" in
  16     Darwin)
  17         darwin=true
  18         wsid="wsi/cocoa"
  19         mjobs=$(getconf _NPROCESSORS_ONLN || echo 1);;
  20     Linux) mjobs=$(getconf _NPROCESSORS_ONLN || echo 1);;
  21     OpenBSD) mjobs=$(getconf NPROCESSORS_ONLN || echo 1);;
  22     *) die $(uname) is not supported;;
  23 esac
  24
  25 test -n "${1-}" || die "usage: $0 build-directory"
  26
  27 outd="$1"
  28 srcd="$(dirname $0)"
  29 mudir=$outd/mupdf
  30 muinc="-I $mudir/include -I $mudir/thirdparty/freetype/include"
  31
  32 test -d "$mudir" || die muPDF not found, consult $(dirname $0)/BUILDING
  33
  34 mkdir -p $outd/{$wsid,lablGL}
  35 :>$outd/ordered
  36
  37 isfresh() { test -r $1.past && test "$(<$1.past)" = "$2"; }
  38
  39 mbt=${mbt:-native}
  40 mulibs="$mudir/build/$mbt/libmupdf.a" # $mudir/build/$mbt/libmupdf-third.a
  41
  42 keycmd="(cd $mudir && make -q build=$mbt libs && echo); digest $mulibs"
  43 isfresh "$mulibs" "$(eval $keycmd)" || (
  44     make -C "$mudir" build=$mbt -j $mjobs libs
  45     eval $keycmd >$mudir/build/$mbt/libmupdf.a.past
  46 ) && vecho "fresh mupdf"
  47
  48 oincs() {
  49     local i=
  50     local incs1=
  51     local incs=
  52     case "${1#$outd/}" in
  53         lablGL/*) incs1="$incs1 lablGL";;
  54         main.cmo) incs1="$incs1 $wsid lablGL";;
  55         glutils.cmo|listview.cmo) incs1="$incs1 lablGL";;
  56         *) ;;
  57     esac
  58     for i in $incs1; do
  59         incs="$incs -I $srcd/$i -I $outd/$i"
  60     done
  61     echo "-I $srcd -I $outd $incs"
  62 }
  63
  64 oflags() {
  65     case "${1#$outd/}" in
  66         lablGL/*) f="-g";;
  67         *) f="-g -strict-sequence -strict-formats -warn-error @A";;
  68     esac
  69     echo "$(oincs $1) $f"
  70 }
  71
  72 cflags() {
  73     case "${1#$outd/}" in
  74         version.o) f=-DLLPP_VERSION=$ver;;
  75         link.o)
  76             f="-g -std=c99 -O2 $muinc -Wall -Werror -Wextra -pedantic"
  77             f="$f -DCACHE_PAGEREFS"
  78             $darwin && f="$f -DCIDER -D_GNU_SOURCE" \
  79                     || f="$f -D_POSIX_C_SOURCE" # needed for fdopen
  80             ;;
  81
  82         */ml_*.o)
  83             f="-g -Wno-pointer-sign -O2"
  84             expr &>/dev/null "${LLPP_CC-}" : "clang" && {
  85                 f+=" -fno-strict-aliasing"
  86                 f+=" -Wno-incompatible-pointer-types-discards-qualifiers"
  87             } || f+=" -Wno-discarded-qualifiers"
  88             ;;
  89
  90         *) f="-g -O2";;
  91     esac
  92     ! $darwin || f="$f -DGL_SILENCE_DEPRECATION"
  93     echo $f
  94 }
  95
  96 mflags() {
  97     echo "-I $(ocamlc -where) -g -Wall -Werror -O2 -DGL_SILENCE_DEPRECATION"
  98 }
  99
 100 overs="$(ocamlc -vnum 2>/dev/null)" || overs=""
 101 test "$overs" = "4.10.0" || {
 102     url=https://caml.inria.fr/pub/distrib/ocaml-4.10/ocaml-4.10.0.tar.xz
 103     txz=$outd/$(basename $url)
 104     keycmd="printf $url; digest $txz;"
 105     isfresh $txz "$(eval $keycmd)" || {
 106         executable_p() { command -v "$1" >/dev/null 2>&1; }
 107         if executable_p wget; then dl() { wget -q "$1" -O "$2"; }
 108         elif executable_p curl; then dl() { curl -L "$1" -o "$2"; }
 109         else die "no program to fetch remote urls found"
 110         fi
 111         dl $url $txz
 112         eval $keycmd >$txz.past
 113     } && vecho "fresh $txz"
 114     absprefix=$(cd $outd &>/dev/null; pwd -P)
 115     export PATH=$absprefix/bin:$PATH
 116     ocamlc=$absprefix/bin/ocamlc
 117     keycmd="printf $url; digest $ocamlc;"
 118     isfresh $ocamlc "$(eval $keycmd)" || (
 119         tar xf $txz -C $outd
 120         bn=$(basename $url)
 121         cd $outd/${bn%.tar.xz}
 122         ./configure --disable-ocamldoc --enable-debugger=no --prefix=$absprefix
 123         make -j $mjobs world
 124         make install
 125         eval $keycmd >$absprefix/bin/ocamlc.past
 126     ) && vecho "fresh ocamlc"
 127     overs=$(ocamlc -vnum 2>/dev/null)
 128 }
 129
 130 ccomp=${LLPP_CC-$(ocamlc -config | grep "^c_compiler: " | \
 131                       { read _ c; echo $c; })}
 132 cvers="$($ccomp --version | { read a; echo $a; } )"
 133
 134 bocaml1() {
 135     grep -q "$3" $outd/ordered || {
 136         bocaml2 $*
 137         echo "$3" >>"$outd/ordered"
 138     }
 139 }
 140
 141 bocaml2() {
 142     local n=$1
 143     local s="$2"
 144     local o="$3"
 145     local O=${4-}
 146     local dd
 147
 148     local cmd="ocamlc -depend -bytecode -one-line $(oincs $o) $s"
 149     local keycmd="digest $o $s $o.depl"
 150     isfresh "$o.depl" "$overs$cmd$(eval $keycmd)" || {
 151         eval "$cmd || die '$cmd' failed" | {
 152             read _ _ depl
 153             :>"$o.depl"
 154             for d in $depl; do
 155                 local D=${d#$srcd/}
 156                 test "$O" = "$D" || {
 157                     bocaml "$D" $((n+1))
 158                     case $d in
 159                         $outd/*) dd=$d;;
 160                         *) dd=$outd/${d#$srcd/};;
 161                     esac
 162                     printf "$dd " >>"$o.depl"
 163                 }
 164             done
 165         } || die "$cmd failed"
 166         echo "$overs$cmd$(eval $keycmd)" >"$o.depl.past"
 167     } && {
 168         vecho "fresh $o.depl"
 169         for d in $(< $o.depl); do
 170             bocaml ${d#$outd/} $((n+1))
 171         done
 172     }
 173
 174     cmd="ocamlc $(oflags $o) -c -o $o $s"
 175     keycmd="digest $o $s $(< $o.depl)"
 176     isfresh "$o" "$overs$cmd$(eval $keycmd)" || {
 177         printf "%*.s%s -> %s\n" $n '' "${s#$srcd/}" "${o#$outd/}"
 178         eval "$cmd || die '$cmd failed'"
 179         echo "$overs$cmd$(eval $keycmd)" >"$o.past"
 180     } && vecho "fresh '$o'"
 181 }
 182
 183 cycle=
 184 bocaml() (
 185     local o="$1"
 186     local n="$2"
 187     local wocmi="${o%.cmi}"
 188     local s
 189     local cycle1=$cycle
 190     case ${wocmi#$outd/} in
 191         confstruct.cmo)
 192             s=$outd/confstruct.ml
 193             o=$outd/confstruct.cmo;;
 194         *)
 195             test "$o" = "$wocmi" && s=$srcd/${o%.cmo}.ml || s=$srcd/$wocmi.mli
 196             o=$outd/$o;;
 197     esac
 198     expr >/dev/null "$cycle" : ".*$o" && die cycle $o || cycle="$cycle$o"
 199     bocaml1 $n "$s" "$o"
 200     case $wocmi in
 201         wsi) s="$srcd/$wsid/wsi.ml";;
 202         help) s="$srcd/help.ml";;
 203         */glMisc) s="$srcd/lablGL/glMisc.ml";;
 204         */glTex) s="$srcd/lablGL/glTex.ml";;
 205         *) false;;
 206     esac && {
 207         local s1=${s#$srcd/}
 208         bocaml1 $n "$s" "$outd/${s1%.ml}.cmo" "${o#$outd/}"
 209     } || true
 210     cycle=$cycle1
 211 )
 212
 213 bocamlc() {
 214     local o=$outd/$1
 215     local s=$srcd/${1%.o}.c
 216     local cc=${LLPP_CC:+-cc $LLPP_CC }
 217     local cmd="ocamlc $cc-ccopt \"$(cflags $o) -MMD -MF $o.dep -MT_ -o $o\" $s"
 218     test -r $o.dep && read _ d <$o.dep || d=
 219     local keycmd='digest $o $d'
 220     isfresh "$o" "$cvers$cmd$(eval $keycmd)" || {
 221         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 222         eval "$cmd || die '$cmd failed'"
 223         read _ d <$o.dep
 224         echo "$cvers$cmd$(eval $keycmd)" >"$o.past"
 225     } && vecho "fresh $o"
 226 }
 227
 228 bobjc() {
 229     local o=$outd/$1
 230     local s=$srcd/${1%.o}.m
 231     local cmd="$mcomp $(mflags $o) -MD -MF $o.dep -MT_ -c -o $o $s"
 232     test -r $o.dep && read _ d <$o.dep || d=
 233     local keycmd='digest $o $d'
 234     isfresh "$o" "$cmd$(eval $keycmd)" || {
 235         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 236         eval "$cmd || die '$cmd failed'"
 237         read _ d <$o.dep
 238         echo "$cmd$(eval $keycmd)" >"$o.past"
 239     } && vecho "fresh $o"
 240 }
 241
 242 ver=$(cd $srcd && git describe --tags --dirty) || ver=unknown
 243
 244 cmd="(. $srcd/genconfstr.sh >$outd/confstruct.ml)"
 245 keycmd="digest $srcd/genconfstr.sh $outd/confstruct.ml"
 246 isfresh "$outd/confstruct.ml" "$cmd$(eval $keycmd)" || {
 247     echo "generating $outd/confstruct.ml"
 248     eval "$cmd || die genconfstr.sh failed"
 249     echo "$cmd$(eval $keycmd)" > "$outd/confstruct.ml.past"
 250 } && vecho "fresh $outd/confstruct.ml"
 251
 252 shift 1
 253 for target; do
 254     case "$target" in
 255         doc)
 256             md=$outd/doc
 257             mkdir -p $md
 258             for m in llpp llppac llpphtml; do
 259                 src=$srcd/adoc/$m.adoc
 260                 out=$md/$m.1
 261                 conf="$srcd/man/asciidoc.conf"
 262                 keycmd="digest $out $src $conf"
 263                 cmd="asciidoctor -b manpage -o $out $src"
 264                 isfresh "$out" "$cmd$(eval $keycmd)" || {
 265                     echo "$src -> $out"
 266                     eval "$cmd || die '$cmd failed'"
 267                     echo "$cmd$(eval $keycmd)" >"$out.past"
 268                 } && vecho "fresh $out"
 269             done;;
 270
 271         completions) die "not yet";;
 272
 273         *) die "no clue - '$target'";;
 274     esac
 275 done
 276
 277 bocaml main.cmo 0
 278
 279 cobjs=
 280 for m in link cutils version; do
 281     bocamlc $m.o
 282     cobjs="$cobjs $outd/$m.o"
 283 done
 284 for m in ml_gl ml_glarray ml_raw; do
 285     bocamlc lablGL/$m.o
 286     cobjs="$cobjs $outd/lablGL/$m.o"
 287 done
 288
 289 libs="str.cma unix.cma"
 290 clibs="-L$mudir/build/$mbt -lmupdf -lmupdf-third -lpthread"
 291 if $darwin; then
 292     mcomp=$(ocamlc -config | grep bytecomp_c_co | { read _ c; echo $c; })
 293     clibs="$clibs -framework Cocoa -framework OpenGL"
 294     cobjs="$cobjs $outd/wsi/cocoa/cocoa.o"
 295     bobjc wsi/cocoa/cocoa.o
 296 else
 297     clibs="$clibs -lGL -lX11"
 298     cobjs="$cobjs $outd/wsi/x11/keysym2ucs.o $outd/wsi/x11/xlib.o"
 299     bocamlc wsi/x11/keysym2ucs.o
 300     bocamlc wsi/x11/xlib.o
 301 fi
 302
 303 ord=$(grep -v \.cmi $outd/ordered)
 304 cmd="ocamlc -custom $libs -o $outd/llpp $cobjs $(echo $ord) -cclib \"$clibs\""
 305 keycmd="digest $outd/llpp $cobjs $ord $mulibs"
 306 isfresh "$outd/llpp" "$cmd$(eval $keycmd)" || {
 307     echo linking $outd/llpp
 308     eval "$cmd || die '$cmd failed'"
 309     echo "$cmd$(eval $keycmd)" >"$outd/llpp.past"
 310 } && vecho "fresh llpp"
 311
 312 if $darwin; then
 313     out="$outd/llpp.app/Contents/Info.plist"
 314     keycmd="digest $out $srcd/wsi/cocoa/genplist.sh; echo $ver"
 315     isfresh $out "$(eval $keycmd)" || {
 316         d=$(dirname $out)
 317         mkdir -p "$d"
 318         echo "generating $out"
 319         (. $srcd/wsi/cocoa/genplist.sh) >"$out"
 320         eval $keycmd>"$out.past"
 321     } && vecho "fresh plist"
 322
 323     out=$outd/llpp.app/Contents/MacOS/llpp
 324     keycmd="digest $out $outd/llpp"
 325     isfresh $out "$(eval $keycmd)" || {
 326         echo "bundling $out"
 327         mkdir -p "$(dirname $out)"
 328         cp $outd/llpp $out
 329         eval $keycmd>"$out.past"
 330     } && vecho "fresh bundle"
 331 fi