build.bash

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