summaryrefslogtreecommitdiff
path: root/Master/Tools/tpm-check
blob: f008cc26cf7ff7bf0a6a2298b218a055b43e2715 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/bin/sh
# $Id$
# 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.