build.bash

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