summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tangle-sh.in
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
committerKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
commitad547a6b5986815fda458221149728d9d9ab1d87 (patch)
tree16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/web2c/tangle-sh.in
parent947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff)
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tangle-sh.in')
-rw-r--r--Build/source/texk/web2c/tangle-sh.in77
1 files changed, 77 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/tangle-sh.in b/Build/source/texk/web2c/tangle-sh.in
new file mode 100644
index 00000000000..6af8991f042
--- /dev/null
+++ b/Build/source/texk/web2c/tangle-sh.in
@@ -0,0 +1,77 @@
+#! @SHELL@
+# tangle-sh: shell script to invoke tangle (or ctangle, etc).
+#
+# Copyright (C) 2009, 2012 Peter Breitenlohner <tex-live@tug.org>
+#
+# This file is free software; the copyright holder
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+#
+# Tangle may create several files, e.g., tex.p and tex.pool from tex.web
+# and tex.ch. The naive rule
+# tex.p tex.pool: tex.web tex.ch tangle$(EXEEXT)
+# $(tangle) tex tex
+# could run 'tangle tex tex' twice in parallel and fail. To avoid this
+# and yet recover from removal of tex.p and/or tex.pool, we use an
+# auxiliary stamp file tex-tangle and the two rules
+# tex.p tex.pool: tex-tangle
+# WEBINPUTS=.:$(srcdir) $(SHELL) ./tangle-sh $@ $(TANGLE) tex tex
+# tex-tangle: tex.web tex.ch tangle$(EXEEXT) tangle-sh
+# WEBINPUTS=.:$(srcdir) $(SHELL) ./tangle-sh $@ $(TANGLE) tex tex
+# Compare Automake manual (info Automake) 27.9: Multiple Outputs
+#
+TEXMFCNF=@srcdir@/../kpathsea; export TEXMFCNF
+
+env="TEXMFCNF=$TEXMFCNF"
+test "x$WEBINPUTS" = x || env="WEBINPUTS=$WEBINPUTS $env"
+test "x$CWEBINPUTS" = x || env="CWEBINPUTS=$CWEBINPUTS $env"
+
+target=$1; shift
+tangle=$1; shift
+base=$1
+
+do_tangle () {
+ echo timestamp >$stamp.tmp
+ if $AM_V_P; then
+ echo "$env $tangle $@"
+ $tangle "$@" || exit 1
+ else
+ case $base in
+ aleph | xetex) echo " OTANGLE " $base;;
+ *tex | mf*) echo " TANGLE " $base;;
+ *) echo " CTANGLE " $base;;
+ esac
+ $tangle "$@" >$base.out 2>&1; rc=$?
+ test $rc -eq 0 || { cat $base.out; exit $rc; }
+ rm -f $base.out
+ fi
+ mv -f $stamp.tmp $stamp
+}
+
+stamp=$base-tangle
+case $target in
+ $stamp)
+ # Normal build.
+ rm -f $stamp.tmp
+ do_tangle "$@"
+ ;;
+ *)
+ # Recover from removal of $target
+ test -f $target && exit 0
+ trap "rm -rf $stamp $stamp.lock" 1 2 13 15
+ if mkdir $stamp.lock 2>/dev/null; then
+ # Code executed by the first process.
+ rm -f $stamp $stamp.tmp
+ do_tangle "$@"
+ rmdir $stamp.lock
+ else
+ # Code executed by the follower processes.
+ # Wait until the first process is done.
+ while test -d $stamp.lock; do sleep 1; done
+ # Succeed if and only if the first process succeeded.
+ test -f $stamp; exit $?
+ fi
+ ;;
+esac
+
+exit 0