build.bash

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