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