From e6faeef3e4205722d36bbbb86b3b3390ab6527be Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 28 Dec 2005 00:04:28 +0000 Subject: trunk git-svn-id: svn://tug.org/texlive/trunk@5 c570f23f-e606-0410-a88d-b1316a301751 --- Master/Tools/tpm-check | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100755 Master/Tools/tpm-check (limited to 'Master/Tools/tpm-check') diff --git a/Master/Tools/tpm-check b/Master/Tools/tpm-check new file mode 100755 index 00000000000..63b165f06b5 --- /dev/null +++ b/Master/Tools/tpm-check @@ -0,0 +1,36 @@ +#!/bin/sh +# $Id: //depot/Master/Tools/tpm-check#7 $ $Date: 2005/09/10 $ $Author: karl $ +# Public domain. Originally written 2004, Karl Berry. +# Do TPM sanity checks. + +mydir=`dirname $0` +master=`cd $mydir/.. && pwd` +tools=$master/Tools + +# if get an XML syntax error, set to --debug to see which .tpm it comes from. +verbose=${OVERRIDE_VERBOSE-} + +if test "x$1" = x--type; then + shift + type=$1 + shift +else + type=all +fi + +test $# -eq 0 && set - dep cov + +for check in "$@"; do # around 1300 dup's, so don't bother with that one + printf "\f\n" + echo "$0: checking $check..." + perl $tools/tpm-factory.pl $verbose \ + --master_dir=$master --ftp_dir=/tmp/ \ + --check=$check --arch=all --type=$type +done + +# Without --clean, buildPatternsPackage (for example) doesn't get called. +# With --clean, all tpm's need to be rw. +# Therefore, the procedure is: change code, +# run update-tpm TLCore (or whatever), +# run tpm-check cov (or whatever). +# Painful. -- cgit v1.2.3