7 if [ -z $JPP_DIR ]; then
8 echo "Variable JPP_DIR undefined."
12 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
14 set_variable: DEBUG QAQC_DEBUG 0
17 usage "$script <QA/QC file> [(parameter)]"
20 if (( $# == 0 )); then
21 fatal "Wrong number of arguments."
24 set_variable INPUT_FILE $argv[1]
25 set_array PARAMETERS $argv[2,-1]
27 HEADER=(`head -1 $INPUT_FILE`)
29 if [[ "$PARAMETERS[1]" == "?" ]]; then
36 for PARAMETER in $PARAMETERS[*]; do
38 INDEX=${HEADER[(ie)$PARAMETER]}
40 if (( $INDEX > ${#HEADER} )); then
41 fatal "Invalid parameter $PARAMETER."
47 if (( ${#INDICES} == 0 )); then
48 INDICES=({1..${#HEADER}})
53 ARRAY=(`echo $BUFFER`)
55 if [[ ${(pj:\0:)HEADER} != ${(pj:\0:)ARRAY} ]]; then
57 for i in $INDICES[*]; do
58 printf "%-24s %-32s\n" $HEADER[$i] $ARRAY[$i]