From c46cd43491e2f371ad919380950f383cf25f0a76 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Wed, 8 Aug 2012 14:43:05 +0000 Subject: Move remaining tetex/ scripts to texlive/linked_scripts/ git-svn-id: svn://tug.org/texlive/trunk@27343 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/tetex/tcfmgr | 386 ----------------------------------------- 1 file changed, 386 deletions(-) delete mode 100755 Build/source/texk/tetex/tcfmgr (limited to 'Build/source/texk/tetex/tcfmgr') diff --git a/Build/source/texk/tetex/tcfmgr b/Build/source/texk/tetex/tcfmgr deleted file mode 100755 index e79be96f873..00000000000 --- a/Build/source/texk/tetex/tcfmgr +++ /dev/null @@ -1,386 +0,0 @@ -#!/bin/sh -# $Id$ - -# invoke the right shell: - -test -f /bin/ksh && test -z "$RUNNING_KSH" \ - && { UNAMES=`uname -s`; test "x$UNAMES" = xULTRIX; } 2>/dev/null \ - && { RUNNING_KSH=true; export RUNNING_KSH; exec /bin/ksh $0 ${1+"$@"}; } -unset RUNNING_KSH - -test -f /bin/bsh && test -z "$RUNNING_BSH" \ - && { UNAMES=`uname -s`; test "x$UNAMES" = xAIX; } 2>/dev/null \ - && { RUNNING_BSH=true; export RUNNING_BSH; exec /bin/bsh $0 ${1+"$@"}; } -unset RUNNING_BSH - -export PATH - -# hack around a bug in zsh: -test -n "${ZSH_VERSION+set}" && alias -g '${1+"$@"}'='"$@"' - -progname=tcfmgr - -abort() -{ - echo "$progname: $@." >&2 - (exit 1); exit 1 -} - -mktexupd() -{ - setupMktexupd - "$TFC_MKTEXUPD" "$@" >&2 -} - -# call mktexdir script, disable all features (to prevent sticky directories) -mktexdir() -{ - setupMktexDir - MT_FEATURES=none "$TFC_MKTEXDIR" "$@" >&2 -} - -setupMap() -{ - case $setupMapOK in - "") : ;; - *) (exit 0); return 0;; - esac - - case $TFC_MAP in - "") TFC_MAP=`(kpsewhich -progname=texconfig -format='other text files' tcfmgr.map) 2>/dev/null`;; - esac - - case $TFC_MAP in - "") abort "config file \`tcfmgr.map' (usually in \$TEXMFMAIN/texconfig) not found (ls-R missing?)";; - esac - - if test ! -f "$TFC_MAP"; then - abort "config file \`TFC_MAP' does not exist" - fi - setupMapOK=true -} - -setupTemp() -{ - case $setupTempOK in - "") : ;; - *) (exit 0); return 0;; - esac - - case $TFC_TEMP in - "") TFC_TEMP=${TEMPDIR-/tmp};; - esac - - if test ! -d "$TFC_TEMP"; then - abort "temp directory \`$TFC_TEMP' does not exist" - fi - - if test ! -w "$TFC_TEMP"; then - abort "temp directory \`$TFC_TEMP' is not writable" - fi - setupTempOK=true -} - -setupTexmfConfig() -{ - case $TFC_TEXMFCONFIG in - "") TFC_TEXMFCONFIG=`(kpsewhich -var-value=TEXMFCONFIG) 2>/dev/null`;; - *) (exit 0); return 0;; - esac - case $TFC_TEXMFCONFIG in - "") abort "variable \$TEXMFCONFIG is not defined in texmf.cnf";; - esac -} - -setupMktexDir() -{ - case $TFC_MKTEXDIR in - "") TFC_MKTEXDIR=`(kpsewhich --format='web2c files' mktexdir) 2>/dev/null`;; - esac - - case $TFC_MKTEXDIR in - "") abort "program mktexdir (usually in \$TEXMFMAIN/web2c) not found";; - esac -} - -setupMktexupd() -{ - case $TFC_MKTEXUPD in - "") TFC_MKTEXUPD=`(kpsewhich --format='web2c files' mktexupd) 2>/dev/null`;; - esac - - case $TFC_MKTEXUPD in - "") abort "program mktexupd (usually in \$TEXMFMAIN/web2c) not found";; - esac -} - -writableCheck() -{ - setupTexmfConfig - if test ! -d "$TFC_TEXMFCONFIG"; then - mktexdir "$TFC_TEXMFCONFIG" >/dev/null 2>&1 - if test ! -d "$TFC_TEXMFCONFIG"; then - msg="Directory TEXMFCONFIG=\`$TFC_TEXMFCONFIG' does not exist" - (exit 1); return 1 - fi - fi - - case "$relDir" in - "") get_info;; - esac - if test -f "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" \ - && test -w "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" - then - (exit 0); return 0 - fi - - if test -d "$TFC_TEXMFCONFIG/$relDir"; then - if test -w "$TFC_TEXMFCONFIG/$relDir"; then - (exit 0); return 0 - else - msg="Directory \`$TFC_TEXMFCONFIG/$relDir' is not writable" - (exit 1); return 1 - fi - else - # we assume that a "mkdir -p" would work if the top-level - # $TFC_TEXMFCONFIG is writable - if test -w "$TFC_TEXMFCONFIG"; then - (exit 0); return 0 - else - msg="Directory \`$TFC_TEXMFCONFIG' is not writable" - (exit 1); return 1 - fi - fi -} - -get_info() -{ - case "$TFC_FILE" in - "") abort "missing --file option or empty argument";; - esac - setupMap - # prepare + get info - IFS=$TAB - # set -- x `(awk '$1 == file' file=$TFC_FILE <$TFC_MAP) 2>/dev/null`; shift - set -- x `(grep "^$TFC_FILE[ ]" $TFC_MAP) 2>/dev/null`; shift - IFS=$STD_IFS - - # assign results - file="$1" - relDir="$2" - kpseFormat="$3" - kpseProgArg="$4" - - # sanity checks - case $file in - "") abort "no info for file \`$TFC_FILE' in map \`$TFC_MAP'";; - esac - - case $relDir in - -) abort "no known standard location for file \`$TFC_FILE' in map \`$TFC_MAP'";; - esac - - case $kpseProgArg in - -) kpseProgArg=kpsewhich;; - esac -} - -check_out() -{ - if $createEmptyFile; then - : - else - case "$orig" in - "") - get_info - orig=`(kpsewhich -format="$kpseFormat" -progname="$kpseProgArg" "$TFC_FILE") 2>/dev/null` - ;; - *) - test -f "$orig" || orig= - esac - - case $orig in - "") abort "file \`$TFC_FILE' not found";; - esac - fi - - # writableCheck needs to get a valid relDir, so it calls get_info if necessary - if writableCheck; then - : ok - else - cat >&2 < "$TFC_TEMP/$TFC_ID/in/$TFC_FILE" - > "$TFC_TEMP/$TFC_ID/out/$TFC_FILE") - else - cp "$orig" "$TFC_TEMP/$TFC_ID/in/$TFC_FILE" \ - || abort "copy \`$orig' -> \`$TFC_TEMP/$TFC_ID/in/$TFC_FILE' failed" - - cp "$orig" "$TFC_TEMP/$TFC_ID/out/$TFC_FILE" \ - || abort "copy \`$orig' -> \`$TFC_TEMP/$TFC_ID/out/$TFC_FILE' failed" - - chmod u+w "$TFC_TEMP/$TFC_ID/out/$TFC_FILE" - fi - - cat >"$TFC_TEMP/$TFC_ID/relDir" < "$TFC_TEMP/$TFC_ID/file" </dev/null`;; - esac - - for f in "$TFC_TEMP/$TFC_ID/relDir" "$TFC_TEMP/$TFC_ID/file" "$TFC_TEMP/$TFC_ID/in/$TFC_FILE" "$TFC_TEMP/$TFC_ID/out/$TFC_FILE"; do - if test ! -f "$f"; then - abort "Oops! file \`$f' does not exist" - fi - done - - if (cmp "$TFC_TEMP/$TFC_ID/in/$TFC_FILE" "$TFC_TEMP/$TFC_ID/out/$TFC_FILE") >/dev/null 2>&1; then - (exit 0); return 0 - fi - - setupTexmfConfig - relDir=`cat "$TFC_TEMP/$TFC_ID/relDir"` - if test ! -d "$TFC_TEXMFCONFIG/$relDir"; then - setupMktexDir - mktexdir "$TFC_TEXMFCONFIG/$relDir" || abort "could not create directory \`$TFC_TEXMFCONFIG/$relDir'" - fi - - if test -f "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE"; then - needsLSRUpdate=false - test -w "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" || rm -f "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" - else - needsLSRUpdate=true - fi - - if test -f "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE"; then - cat <"$TFC_TEMP/$TFC_ID/out/$TFC_FILE" >"$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" || - abort "failed to write new file \`$TFC_TEXMFCONFIG/$relDir/$TFC_FILE'" - else - cp "$TFC_TEMP/$TFC_ID/out/$TFC_FILE" "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" || - abort "failed to copy \`$TFC_TEMP/$TFC_ID/out/$TFC_FILE' to \`$TFC_TEXMFCONFIG/$relDir/$TFC_FILE'" - chmod 644 "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" 2>/dev/null - fi - if $needsLSRUpdate; then - mktexupd "$TFC_TEXMFCONFIG/$relDir" "$TFC_FILE" - fi - echo "$TFC_TEXMFCONFIG/$relDir/$TFC_FILE" - (exit 0); return 0 -} - -find_file() -{ - get_info - kpsewhich -format="$kpseFormat" -progname="$kpseProgArg" "$TFC_FILE" -} - -help() -{ - cat <