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() { . 2>/dev/null "$1.past" && test "$k" = "$2"; }
  46
  47 mulibs="$mudir/build/native/libmupdf.a" # $mudir/build/native/libmupdf-third.a
  48 keycmd="(cd $mudir && git describe --tags --dirty); digest $mulibs"
  49 isfresh "$mulibs" "$(eval $keycmd)" || (
  50     make -C "$mudir" build=native -j $mjobs libs
  51     echo "k=\"$(eval $keycmd)\"" >$mudir/build/native/libmupdf.a.past
  52 ) && vecho "fresh mupdf"
  53
  54 oflags() {
  55     case "${1#$outd/}" in
  56         config.cmo                              \
  57         | glutils.cmo                           \
  58         | help.cmo                              \
  59         | keys.cmo                              \
  60         | listview.cmo                          \
  61         | main.cmo                              \
  62         | parser.cmo                            \
  63         | unisyms.cmo                           \
  64         | utils.cmo                             \
  65         | $wsi/wsi.cmo)         # XXX confstruct?
  66             f="-g -strict-sequence -strict-formats -warn-error @A";;
  67         *) f="-g";;
  68     esac
  69     echo "$incs $f"
  70 }
  71
  72 cflags() {
  73     f="-g -std=c99 -O2 $muinc -Wall -Werror -Wextra -pedantic-errors"
  74     case "${1#$outd/}" in
  75         cutils.o) echo "$f";;
  76         version.o) echo '-DLLPP_VERSION="'$ver'"';;
  77         link.o) $darwin && echo "$f -D__COCOA__" || echo "$f -D_GNU_SOURCE";;
  78         */keysym2ucs.o) echo "-O2 -include inttypes.h -DKeySym=uint32_t";;
  79         */ml_*.o) echo "-g -Wno-pointer-sign -O2";;
  80         *) echo "-g -O2";;
  81     esac
  82 }
  83
  84 mflags() { echo "-I $(ocamlc -where) -g -O2"; }
  85
  86 incs="-I $srcd/lablGL -I $srcd/$wsi -I $srcd"
  87 incs="$incs -I $outd/lablGL -I $outd/$wsi -I $outd"
  88
  89 overs="$(ocamlc --version 2>/dev/null)" || overs="0.0.0"
  90 oversnum="$(echo $overs | { IFS=. read a b _; echo $a$b; })"
  91
  92 test $oversnum -ge 407 || {
  93     url=https://github.com/ocaml/ocaml/archive/4.07.zip
  94     zip=$outd/$(basename $url)
  95     isfresh $zip $url || {
  96         executable_p() { command -v "$1" >/dev/null 2>&1; }
  97         if executable_p wget; then dl() { wget -q "$1" -O "$2"; }
  98         elif executable_p curl; then dl() { curl -L "$1" -o "$2"; }
  99         else die "no program to fetch remote urls found"
 100         fi
 101         dl $url $zip
 102         echo "k=$url" >$zip.past
 103     } && vecho "fresh $zip"
 104     absprefix=$(cd $outd &>/dev/null; pwd -P)
 105     export PATH=$absprefix/bin:$PATH
 106     isfresh $absprefix/bin/ocamlc "$url" || (
 107         unzip -o -u -d $outd $zip
 108         bn=$(basename $url)
 109         cd $outd/ocaml-${bn%.zip}
 110         ./configure -prefix $absprefix                                      \
 111                     -no-graph -no-debugger -no-ocamldoc -no-native-compiler
 112         make -j $mjobs world
 113         make install
 114         echo "k='$url'" >$absprefix/bin/ocamlc.past
 115     ) && vecho "fresh ocamlc"
 116     overs=$(ocamlc --version 2>/dev/null) || overs="0.0.0"
 117     oversnum=$(echo $overs | { IFS=. read a b _; echo $a$b; })
 118 }
 119
 120 bocaml1() {
 121     local n=$1
 122     local s="$2"
 123     local o="$3"
 124     local O=${4-}
 125     local dd
 126
 127     local cmd="ocamlc -depend -bytecode -one-line $incs $s"
 128     local keycmd="digest $o $s"
 129     isfresh "$o.depl" "$overs$cmd$(eval $keycmd)" || {
 130         eval "$cmd" | {
 131             read _ _ depl
 132             :>"$o.depl"
 133             for d in $depl; do
 134                 local D=${d#$srcd/}
 135                 test "$O" = "$D" || {
 136                     bocaml "$D" $((n+1))
 137                     case $d in
 138                         $outd/*) dd=$d;;
 139                         *) dd=$outd/${d#$srcd/};;
 140                     esac
 141                     printf "$dd " >>"$o.depl"
 142                 }
 143             done
 144         } || die "$cmd failed"
 145         echo "k='$overs$cmd$(eval $keycmd)'" >"$o.depl.past"
 146     } && {
 147         vecho "fresh $o.depl"
 148         for d in $(< $o.depl); do
 149             bocaml ${d#$outd/} $((n+1))
 150         done
 151     }
 152
 153     cmd="ocamlc $(oflags $o) -c -o $o $s"
 154     keycmd="digest $o $s $(< $o.depl)"
 155     grep -q "$o" $outd/ordered || {
 156         echo "$o" >>"$outd/ordered"
 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
 165 bocaml() (
 166     local o="$1"
 167     local n="$2"
 168     local wocmi="${o%.cmi}"
 169     local s
 170     case ${wocmi#$outd/} in
 171         confstruct.cmo)
 172             s=$outd/confstruct.ml
 173             o=$outd/confstruct.cmo
 174             ;;
 175         *)
 176             test "$o" = "$wocmi" && s=$srcd/${o%.cmo}.ml || s=$srcd/$wocmi.mli
 177             o=$outd/$o
 178             ;;
 179     esac
 180     bocaml1 $n "$s" "$o"
 181     case $wocmi in
 182         wsi) s="$srcd/$wsi/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 )
 192
 193 bocamlc() {
 194     local o=$outd/$1
 195     local s=$srcd/${1%.o}.c
 196     local cmd="ocamlc -ccopt \"$(cflags $o) -MMD -MF $o.dep -MT_ -o $o\" $s"
 197     test -r $o.dep && read _ d <$o.dep || d=
 198     local keycmd='digest $o $d'
 199     isfresh "$o" "$cmd$(eval $keycmd)" || {
 200         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 201         eval "$cmd || die '$cmd failed'"
 202         read _ d <$o.dep
 203         echo "k='$cmd$(eval $keycmd)'" >"$o.past"
 204     } && vecho "fresh $o"
 205 }
 206
 207 bobjc() {
 208     local o=$outd/$1
 209     local s=$srcd/${1%.o}.m
 210     local cmd="$mcomp $(mflags $o) -MMD -MF $o.dep -MT_ -c -o $o $s"
 211     test -r $o.dep && read _ d <$o.dep || d=
 212     local keycmd='digest $o $d'
 213     isfresh "$o" "$cmd$(eval $keycmd)" || {
 214         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 215         eval "$cmd || die '$cmd failed'"
 216         read _ d <$o.dep
 217         echo "k='$cmd$(eval $keycmd)'" >"$o.past"
 218     } && vecho "fresh $o"
 219 }
 220
 221 ver=$(cd $srcd && git describe --tags --dirty) || ver=unknown
 222
 223 cmd="zsh $srcd/genconfstr.sh >$outd/confstruct.ml"
 224 keycmd="digest $srcd/genconfstr.sh $outd/confstruct.ml"
 225 isfresh "$outd/confstruct.ml" "$cmd$(eval $keycmd)" || {
 226     echo genconfstr
 227     eval "$cmd || die genconfstr.sh failed"
 228     echo "k='$cmd$(eval $keycmd)'" > "$outd/confstruct.ml.past"
 229 } && vecho "fresh $outd/confstruct.ml"
 230
 231 shift 1
 232 for target; do
 233     case "$target" in
 234         doc)
 235             doct=${doct-manpage}
 236             md=$outd/doc
 237             mkdir -p $md
 238             case $doct in
 239                 epub) suf=.epub;;
 240                 manpage) suf=.1;;
 241                 *) die "unknown doc type";;
 242             esac
 243             for m in llpp llppac llpphtml; do
 244                 src=$srcd/adoc/$m.adoc
 245                 out=$md/$m$suf
 246                 conf="$srcd/man/asciidoc.conf"
 247                 keycmd="digest $out $src $conf"
 248                 cmd="a2x -D $md -d manpage -f $doct $src"
 249                 isfresh "$out" "$cmd$(eval $keycmd)" || {
 250                     echo "$src -> $out"
 251                     eval "$cmd || die '$cmd failed'"
 252                     echo "k='$cmd$(eval $keycmd)'" >"$out.past"
 253                 } && vecho "fresh manual pages"
 254             done;;
 255
 256         completions) die "not yet";;
 257
 258         *) die "no clue - '$target'";;
 259     esac
 260 done
 261
 262 bocaml main.cmo 0
 263
 264 cobjs=
 265 for m in link cutils version; do
 266     bocamlc $m.o
 267     cobjs="$cobjs $outd/$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 globjs=
 284 for f in ml_gl ml_glarray ml_raw; do
 285     bocamlc lablGL/$f.o
 286     globjs="$globjs $outd/lablGL/$f.o"
 287 done
 288
 289 ord=$(grep -v \.cmi $outd/ordered)
 290 cmd="ocamlc -custom $libs -o $outd/llpp $cobjs $ord"
 291 cmd=$(echo $cmd $globjs -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/osx/genplist.sh"
 302     isfresh $out "$(eval $keycmd)" || {
 303         shortver=$(echo $ver | { IFS='-' read s _; echo ${s#v}; })
 304         d=$(dirname $out)
 305         mkdir -p "$d"
 306         . $srcd/wsi/osx/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         mkdir -p "$(dirname $out)"
 314         cp $outd/llpp $out
 315         echo "k='$(eval $keycmd)'" >"$out.past"
 316     } && vecho "fresh bundle"
 317 fi