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 $* | cut -d ' ' -f 1; }
   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() {
  46     test -r "$1.past" && . 2>/dev/null "$1.past" && test "$k" = "$2";
  47 }
  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         main.cmo|utils.cmo|config.cmo|parser.cmo|$wsi/wsi.cmo)
  59             f="-g -strict-sequence -strict-formats -warn-error @A";;
  60         *) f="-g";;
  61     esac
  62     echo "$incs $f"
  63 }
  64
  65 cflags() {
  66     case "${1#$outd/}" in
  67         link.o|cutils.o)
  68             f="-g -std=c99 -O2 $muinc -Wall -Werror -pedantic-errors"
  69             f="$f -D_GNU_SOURCE"
  70             $darwin && echo "$f -D__COCOA__" || echo $f;;
  71         */keysym2ucs.o) echo "-O2 -include inttypes.h -DKeySym=uint32_t";;
  72         */ml_*.o) echo "-g -Wno-pointer-sign -O2";;
  73         *) echo "-g -O2";;
  74     esac
  75 }
  76
  77 mflags() { echo "-I $(ocamlc -where) -g -O2"; }
  78
  79 incs="-I $srcd/lablGL -I $srcd/$wsi -I $srcd"
  80 incs="$incs -I $outd/lablGL -I $outd/$wsi -I $outd"
  81
  82 overs="$(ocamlc --version 2>/dev/null)" || overs="0.0.0"
  83 oversnum="$(echo $overs | { IFS=. read a b _; echo $a$b; })"
  84
  85 test $oversnum -ge 407 || {
  86     url=https://github.com/ocaml/ocaml/archive/4.07.zip
  87     zip=$outd/$(basename $url)
  88     isfresh $zip $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 $zip
  95         echo "k=$url" >$zip.past
  96     } && vecho "fresh $zip"
  97     absprefix=$(cd $outd &>/dev/null; pwd -P)
  98     export PATH=$absprefix/bin:$PATH
  99     isfresh $absprefix/bin/ocamlc "$url" || (
 100         unzip -o -u -d $outd $zip
 101         bn=$(basename $url)
 102         cd $outd/ocaml-${bn%.zip}
 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 --version 2>/dev/null) || overs="0.0.0"
 110     oversnum=$(echo $overs | { IFS=. read a b _; echo $a$b; })
 111 }
 112
 113 bocaml1() {
 114     local n=$1
 115     local s="$2"
 116     local o="$3"
 117     local O=${4-}
 118     local dd
 119
 120     local cmd="ocamlc -depend -bytecode -one-line $incs $s"
 121     local keycmd="digest $o $s"
 122     isfresh "$o.depl" "$overs$cmd$(eval $keycmd)" || {
 123         eval "$cmd" | {
 124             read _ _ depl
 125             :>"$o.depl"
 126             for d in $depl; do
 127                 local D=${d#$srcd/}
 128                 test "$O" = "$D" || {
 129                     bocaml "$D" $((n+1))
 130                     case $d in
 131                         $outd/*) dd=$d;;
 132                         *) dd=$outd/${d#$srcd/};;
 133                     esac
 134                     printf "$dd " >>"$o.depl"
 135                 }
 136             done
 137         } || die "$cmd failed"
 138         echo "k='$overs$cmd$(eval $keycmd)'" >"$o.depl.past"
 139     } && {
 140         vecho "fresh $o.depl"
 141         for d in $(< $o.depl); do
 142             test $d = "$outd/help.cmo" && dd=$d || dd=${d#$outd/}
 143             bocaml $dd $((n+1))
 144         done
 145     }
 146
 147     cmd="ocamlc $(oflags $o) -c -o $o $s"
 148     keycmd="digest $o $s $(< $o.depl)"
 149     grep -q "$o" $outd/ordered || {
 150         echo "$o" >>"$outd/ordered"
 151         isfresh "$o" "$overs$cmd$(eval $keycmd)" || {
 152             printf "%*.s%s -> %s\n" $n '' "${s#$srcd/}" "${o#$outd/}"
 153             eval "$cmd || die '$cmd failed'"
 154             echo "k='$overs$cmd$(eval $keycmd)'" >"$o.past"
 155         } && vecho "fresh '$o'"
 156     }
 157 }
 158
 159 bocaml() (
 160     local o="$1"
 161     local n="$2"
 162     local wocmi="${o%.cmi}"
 163     local s
 164     case ${wocmi#$outd/} in
 165         help.cmo)
 166             s=$outd/help.ml
 167             o=$outd/help.cmo
 168             ;;
 169         confstruct.cmo)
 170             s=$outd/confstruct.ml
 171             o=$outd/confstruct.cmo
 172             ;;
 173         *)
 174             test "$o" = "$wocmi" && s=$srcd/${o%.cmo}.ml || s=$srcd/$wocmi.mli
 175             o=$outd/$o
 176             ;;
 177     esac
 178     bocaml1 $n "$s" "$o"
 179     case $wocmi in
 180         wsi) s="$srcd/$wsi/wsi.ml";;
 181         */glMisc) s="$srcd/lablGL/glMisc.ml";;
 182         */glTex) s="$srcd/lablGL/glTex.ml";;
 183         *) false;;
 184     esac && {
 185         local s1=${s#$srcd/}
 186         bocaml1 $n "$s" "$outd/${s1%.ml}.cmo" "${o#$outd/}"
 187     } || true
 188 )
 189
 190 bocamlc() {
 191     local o=$outd/$1
 192     local s=$srcd/${1%.o}.c
 193     local cmd="ocamlc -ccopt \"$(cflags $o) -MMD -MF $o.dep -MT_ -o $o\" $s"
 194     test -r $o.dep && read _ d <$o.dep || d=
 195     local keycmd='digest $o $d'
 196     isfresh "$o" "$cmd$(eval $keycmd)" || {
 197         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 198         eval "$cmd || die '$cmd failed'"
 199         read _ d <$o.dep
 200         echo "k='$cmd$(eval $keycmd)'" >"$o.past"
 201     } && vecho "fresh $o"
 202 }
 203
 204 bobjc() {
 205     local o=$outd/$1
 206     local s=$srcd/${1%.o}.m
 207     local cmd="$mcomp $(mflags $o) -MMD -MF $o.dep -MT_ -c -o $o $s"
 208     test -r $o.dep && read _ d <$o.dep || d=
 209     local keycmd='digest $o $d'
 210     isfresh "$o" "$cmd$(eval $keycmd)" || {
 211         printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
 212         eval "$cmd || die '$cmd failed'"
 213         read _ d <$o.dep
 214         echo "k='$cmd$(eval $keycmd)'" >"$o.past"
 215     } && vecho "fresh $o"
 216 }
 217
 218 mkhelp() {
 219     ocaml str.cma -stdin $srcd/KEYS <<EOF
 220 let fixup = let open Str in
 221   let dash = regexp {|\([^ ]*\) +- +\(.*\)|}
 222   and head = regexp {|-----\(.*\)-----|} in fun s ->
 223   String.escaped s |> global_replace dash {|\1\t\2|}
 224                    |> global_replace head {|\xc2\xb7\1|};;
 225 let rec iter ic = match input_line ic with
 226 | s -> Printf.printf "\"%s\";\\n" @@ fixup s; iter ic
 227 | exception End_of_file -> ();;
 228 Printf.printf "let keys = [\\n";
 229 iter @@ open_in Sys.argv.(1);;
 230 Printf.printf "] and version = \"$ver\";;"
 231 EOF
 232 }
 233
 234 ver=$(cd $srcd && git describe --tags --dirty) || ver=unknown
 235 cmd="mkhelp >$outd/help.ml # $ver"
 236 keycmd="digest $outd/help.ml $srcd/KEYS # $ver"
 237 isfresh "$outd/help.ml" "$cmd$(eval $keycmd)" || {
 238     vecho mkhelp
 239     eval "$cmd || die mkhelp failed"
 240     echo "k='$cmd$(eval $keycmd)'" >"$outd/help.ml.past"
 241 } && vecho "fresh $outd/help.ml"
 242
 243 cmd="zsh $srcd/genconfstr.sh >$outd/confstruct.ml"
 244 keycmd="digest $srcd/genconfstr.sh $outd/confstruct.ml"
 245 isfresh "$outd/confstruct.ml" "$cmd$(eval $keycmd)" || {
 246     vecho genconfstr
 247     eval "$cmd || die genconfstr.sh failed"
 248     echo "k='$cmd$(eval $keycmd)'" > "$outd/confstruct.ml.past"
 249 } && vecho "fresh $outd/confstruct.ml"
 250
 251 shift 1
 252 for target; do
 253     case "$target" in
 254         doc)
 255             doct=${doct-manpage}
 256             md=$outd/doc
 257             mkdir -p $md
 258             case $doct in
 259                 epub) suf=.epub;;
 260                 manpage) suf=.1;;
 261                 *) die "unknown doc type";;
 262             esac
 263             for m in llpp llppac llpphtml; do
 264                 src=$srcd/adoc/$m.adoc
 265                 out=$md/$m$suf
 266                 conf="$srcd/man/asciidoc.conf"
 267                 keycmd="digest $out $src $conf"
 268                 cmd="a2x -D $md -d manpage -f $doct $src"
 269                 isfresh "$out" "$cmd$(eval $keycmd)" || {
 270                     echo "$src -> $out"
 271                     eval "$cmd || die '$cmd failed'"
 272                     echo "k='$cmd$(eval $keycmd)'" >"$out.past"
 273                 } && vecho "fresh manual pages"
 274             done;;
 275
 276         completions) die "not yet";;
 277
 278         *) die "no clue - '$target'";;
 279     esac
 280 done
 281
 282 bocaml main.cmo 0
 283
 284 cobjs="$outd/link.o $outd/cutils.o"
 285 bocamlc link.o
 286 bocamlc cutils.o
 287
 288 libs="str.cma unix.cma"
 289 clibs="-L$mudir/build/native -lmupdf -lmupdf-third -lpthread"
 290 if $darwin; then
 291     mcomp=$(ocamlc -config | grep bytecomp_c_co | { read _ c; echo $c; })
 292     clibs="$clibs -framework Cocoa -framework OpenGL"
 293     bobjc wsi/osx/wsicocoa.o
 294     cobjs="$cobjs $outd/wsi/osx/wsicocoa.o"
 295 else
 296     clibs="$clibs -lGL -lX11"
 297     cobjs="$cobjs $outd/wsi/x11/keysym2ucs.o"
 298     bocamlc wsi/x11/keysym2ucs.o
 299 fi
 300
 301 globjs=
 302 for f in ml_gl ml_glarray ml_raw; do
 303     bocamlc lablGL/$f.o
 304     globjs="$globjs $outd/lablGL/$f.o"
 305 done
 306
 307 ord=$(grep -v \.cmi $outd/ordered)
 308 cmd="ocamlc -custom $libs -o $outd/llpp $cobjs $ord"
 309 cmd=$(echo $cmd $globjs -cclib \"$clibs\")
 310 keycmd="digest $outd/llpp $cobjs $ord $mulibs"
 311 isfresh "$outd/llpp" "$cmd$(eval $keycmd)" || {
 312     echo linking $outd/llpp
 313     eval "$cmd || die $cmd failed"
 314     echo "k='$cmd$(eval $keycmd)'" >"$outd/llpp.past"
 315 } && vecho "fresh llpp"
 316
 317 if $darwin; then
 318     out="$outd/llpp.app/Contents/Info.plist"
 319     keycmd="digest $out $srcd/wsi/osx/genplist.sh"
 320     isfresh $out "$(eval $keycmd)" || {
 321         shortver=$(echo $ver | { IFS='-' read s _; echo ${s#v}; })
 322         d=$(dirname $out)
 323         mkdir -p "$d"
 324         . $srcd/wsi/osx/genplist.sh >"$out"
 325         echo "k=$(eval $keycmd)" >"$out.past"
 326     } && vecho "fresh plist"
 327
 328     out=$outd/llpp.app/Contents/MacOS/llpp
 329     keycmd="digest $out $outd/llpp"
 330     isfresh $out "$(eval $keycmd)" || {
 331         mkdir -p "$(dirname $out)"
 332         cp $outd/llpp $out
 333         echo "k=$(eval $keycmd)" >"$out.past"
 334     } && vecho "fresh bundle"
 335 fi