6 vecho
() { ${vecho-:} "$*"; }
7 digest
() { cksum 2>/dev
/null $
* | cut
-d ' ' -f 1; }
10 test $?
-eq 0 && msg
="ok" || msg
="ko"
11 echo "$msg $(($(now)-tstart)) sec"
27 mjobs
=$
(getconf _NPROCESSORS_ONLN ||
echo 1)
29 Linux
) mjobs
=$
(getconf _NPROCESSORS_ONLN ||
echo 1);;
30 OpenBSD
) mjobs
=$
(getconf NPROCESSORS_ONLN ||
echo 1);;
31 *) die $
(uname
) is not supported
;;
34 test -n "${1-}" || die
"usage: $0 build-directory"
39 muinc
="-I $mudir/include -I $mudir/thirdparty/freetype/include"
45 isfresh
() { .
2>/dev
/null
"$1.past" && test "$k" = "$2"; }
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"
56 main.cmo|utils.cmo|config.cmo|parser.cmo|
$wsi/wsi.cmo
)
57 f
="-g -strict-sequence -strict-formats -warn-error @A";;
66 f
="-g -std=c99 -O2 $muinc -Wall -Werror -pedantic-errors"
68 $darwin && echo "$f -D__COCOA__" ||
echo $f;;
69 */keysym2ucs.o
) echo "-O2 -include inttypes.h -DKeySym=uint32_t";;
70 */ml_
*.o
) echo "-g -Wno-pointer-sign -O2";;
75 mflags
() { echo "-I $(ocamlc -where) -g -O2"; }
77 incs
="-I $srcd/lablGL -I $srcd/$wsi -I $srcd"
78 incs
="$incs -I $outd/lablGL -I $outd/$wsi -I $outd"
80 overs
="$(ocamlc --version 2>/dev/null)" || overs
="0.0.0"
81 oversnum
="$(echo $overs | { IFS=. read a b _; echo $a$b; })"
83 test $oversnum -ge 407 ||
{
84 url
=https
://github.com
/ocaml
/ocaml
/archive
/4.07.
zip
85 zip=$outd/$
(basename $url)
86 isfresh
$zip $url ||
{
87 executable_p
() { command -v "$1" >/dev
/null
2>&1; }
88 if executable_p wget
; then dl
() { wget
-q "$1" -O "$2"; }
89 elif executable_p curl
; then dl
() { curl
-L "$1" -o "$2"; }
90 else die
"no program to fetch remote urls found"
93 echo "k=$url" >$zip.past
94 } && vecho
"fresh $zip"
95 absprefix
=$
(cd $outd &>/dev
/null
; pwd -P)
96 export PATH
=$absprefix/bin
:$PATH
97 isfresh
$absprefix/bin
/ocamlc
"$url" ||
(
98 unzip -o -u -d $outd $zip
100 cd $outd/ocaml-
${bn%.zip}
101 .
/configure
-prefix $absprefix \
102 -no-graph -no-debugger -no-ocamldoc -no-native-compiler
105 echo "k='$url'" >$absprefix/bin
/ocamlc.past
106 ) && vecho
"fresh ocamlc"
107 overs
=$
(ocamlc
--version 2>/dev
/null
) || overs
="0.0.0"
108 oversnum
=$
(echo $overs |
{ IFS
=.
read a b _
; echo $a$b; })
118 local cmd
="ocamlc -depend -bytecode -one-line $incs $s"
119 local keycmd
="digest $o $s"
120 isfresh
"$o.depl" "$overs$cmd$(eval $keycmd)" ||
{
126 test "$O" = "$D" ||
{
130 *) dd=$outd/${d#$srcd/};;
132 printf "$dd " >>"$o.depl"
135 } || die
"$cmd failed"
136 echo "k='$overs$cmd$(eval $keycmd)'" >"$o.depl.past"
138 vecho
"fresh $o.depl"
139 for d
in $
(< $o.depl
); do
140 test $d = "$outd/help.cmo" && dd=$d ||
dd=${d#$outd/}
145 cmd
="ocamlc $(oflags $o) -c -o $o $s"
146 keycmd
="digest $o $s $(< $o.depl)"
147 grep -q "$o" $outd/ordered ||
{
148 echo "$o" >>"$outd/ordered"
149 isfresh
"$o" "$overs$cmd$(eval $keycmd)" ||
{
150 printf "%*.s%s -> %s\n" $n '' "${s#$srcd/}" "${o#$outd/}"
151 eval "$cmd || die '$cmd failed'"
152 echo "k='$overs$cmd$(eval $keycmd)'" >"$o.past"
153 } && vecho
"fresh '$o'"
160 local wocmi
="${o%.cmi}"
162 case ${wocmi#$outd/} in
168 s
=$outd/confstruct.ml
169 o
=$outd/confstruct.cmo
172 test "$o" = "$wocmi" && s
=$srcd/${o%.cmo}.ml || s
=$srcd/$wocmi.mli
178 wsi
) s
="$srcd/$wsi/wsi.ml";;
179 */glMisc
) s
="$srcd/lablGL/glMisc.ml";;
180 */glTex
) s
="$srcd/lablGL/glTex.ml";;
184 bocaml1
$n "$s" "$outd/${s1%.ml}.cmo" "${o#$outd/}"
190 local s
=$srcd/${1%.o}.c
191 local cmd
="ocamlc -ccopt \"$(cflags $o) -MMD -MF $o.dep -MT_ -o $o\" $s"
192 test -r $o.dep
&& read _ d
<$o.dep || d
=
193 local keycmd
='digest $o $d'
194 isfresh
"$o" "$cmd$(eval $keycmd)" ||
{
195 printf "%s -> %s\n" "${s#$srcd/}" "${o#$outd/}"
196 eval "$cmd || die '$cmd failed'"
198 echo "k='$cmd$(eval $keycmd)'" >"$o.past"
199 } && vecho
"fresh $o"
204 local s
=$srcd/${1%.o}.m
205 local cmd
="$mcomp $(mflags $o) -MMD -MF $o.dep -MT_ -c -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'"
212 echo "k='$cmd$(eval $keycmd)'" >"$o.past"
213 } && vecho
"fresh $o"
217 ocaml str.cma
-stdin $srcd/KEYS
<<EOF
218 let fixup = let open Str in
219 let dash = regexp {|\([^ ]*\) +- +\(.*\)|}
220 and head = regexp {|-----\(.*\)-----|} in fun s ->
221 String.escaped s |> global_replace dash {|\1\t\2|}
222 |> global_replace head {|\xc2\xb7\1|};;
223 let rec iter ic = match input_line ic with
224 | s -> Printf.printf "\"%s\";\\n" @@ fixup s; iter ic
225 | exception End_of_file -> ();;
226 Printf.printf "let keys = [\\n";
227 iter @@ open_in Sys.argv.(1);;
228 Printf.printf "] and version = \"$ver\";;"
232 ver
=$
(cd $srcd && git describe
--tags --dirty) || ver
=unknown
233 cmd
="mkhelp >$outd/help.ml # $ver"
234 keycmd
="digest $outd/help.ml $srcd/KEYS # $ver"
235 isfresh
"$outd/help.ml" "$cmd$(eval $keycmd)" ||
{
237 eval "$cmd || die mkhelp failed"
238 echo "k='$cmd$(eval $keycmd)'" >"$outd/help.ml.past"
239 } && vecho
"fresh $outd/help.ml"
241 cmd
="zsh $srcd/genconfstr.sh >$outd/confstruct.ml"
242 keycmd
="digest $srcd/genconfstr.sh $outd/confstruct.ml"
243 isfresh
"$outd/confstruct.ml" "$cmd$(eval $keycmd)" ||
{
245 eval "$cmd || die genconfstr.sh failed"
246 echo "k='$cmd$(eval $keycmd)'" > "$outd/confstruct.ml.past"
247 } && vecho
"fresh $outd/confstruct.ml"
259 *) die
"unknown doc type";;
261 for m
in llpp llppac llpphtml
; do
262 src
=$srcd/adoc
/$m.adoc
264 conf
="$srcd/man/asciidoc.conf"
265 keycmd
="digest $out $src $conf"
266 cmd
="a2x -D $md -d manpage -f $doct $src"
267 isfresh
"$out" "$cmd$(eval $keycmd)" ||
{
269 eval "$cmd || die '$cmd failed'"
270 echo "k='$cmd$(eval $keycmd)'" >"$out.past"
271 } && vecho
"fresh manual pages"
274 completions
) die
"not yet";;
276 *) die
"no clue - '$target'";;
282 cobjs
="$outd/link.o $outd/cutils.o"
286 libs
="str.cma unix.cma"
287 clibs
="-L$mudir/build/native -lmupdf -lmupdf-third -lpthread"
289 mcomp
=$
(ocamlc
-config |
grep bytecomp_c_co |
{ read _ c
; echo $c; })
290 clibs
="$clibs -framework Cocoa -framework OpenGL"
291 bobjc wsi
/osx
/wsicocoa.o
292 cobjs
="$cobjs $outd/wsi/osx/wsicocoa.o"
294 clibs
="$clibs -lGL -lX11"
295 cobjs
="$cobjs $outd/wsi/x11/keysym2ucs.o"
296 bocamlc wsi
/x11
/keysym2ucs.o
300 for f
in ml_gl ml_glarray ml_raw
; do
302 globjs
="$globjs $outd/lablGL/$f.o"
305 ord
=$
(grep -v \.cmi
$outd/ordered
)
306 cmd
="ocamlc -custom $libs -o $outd/llpp $cobjs $ord"
307 cmd
=$
(echo $cmd $globjs -cclib \"$clibs\")
308 keycmd
="digest $outd/llpp $cobjs $ord $mulibs"
309 isfresh
"$outd/llpp" "$cmd$(eval $keycmd)" ||
{
310 echo linking
$outd/llpp
311 eval "$cmd || die $cmd failed"
312 echo "k='$cmd$(eval $keycmd)'" >"$outd/llpp.past"
313 } && vecho
"fresh llpp"
316 out
="$outd/llpp.app/Contents/Info.plist"
317 keycmd
="digest $out $srcd/genplist.sh"
318 isfresh
$out "$(eval $keycmd)" ||
{
319 shortver
=$
(echo $ver |
{ IFS
='-' read s _
; echo ${s#v}; })
322 .
$srcd/genplist.sh
>"$out"
323 echo "k=$(eval $keycmd)" >"$out.past"
324 } && vecho
"fresh plist"
326 out
=$outd/llpp.app
/Contents
/MacOS
/llpp
327 keycmd
="digest $out $outd/llpp"
328 isfresh
$out "$(eval $keycmd)" ||
{
329 mkdir
-p "$(dirname $out)"
331 echo "k=$(eval $keycmd)" >"$out.past"
332 } && vecho
"fresh bundle"