#/bin/tcsh

cd /homes/schiel/MAUS/TOOL

set err_code = 0 

foreach P ( PARAM.???-?? )
  echo "PARAM: $P"
  set F = KANINVENTAR
  grep -q '^<p>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<p>'"
  grep -q '^<p:>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<p:>'"
  grep -q '^<nib>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<nib>'"
  grep -q '^<usb>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<usb>'"
  grep -q '^P$' $P/$F; set ec = $status; if ( $ec == 0 ) @ err_code ++
  if ( $ec == 0 ) echo "File $F : must not contain 'P'"
  grep -q '^<$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<'"
  grep -q '^>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '>'"

  set F = GRAPHINVENTAR
  grep -q '^<p>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<p>'"
  grep -q '^<p:>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<p:>'"
  grep -q '^<$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<'"
  grep -q '^>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '>'"
  grep -q '^<nib>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<nib>'"
  grep -q '^<usb>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<usb>'"
  grep -q '^#$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '#'"
  grep -q '^P$' $P/$F; set ec = $status; if ( $ec == 0 ) @ err_code ++
  if ( $ec == 0 ) echo "File $F : must not contain 'P'"
  grep -q '^[0-9]' $P/$F; set ec = $status; if ( $ec == 0 ) @ err_code ++
  if ( $ec == 0 ) echo "File $F : must not contain numeric label without masking by 'P'"
  grep -q '\\' $P/$F; set ec = $status; if ( $ec == 0 ) @ err_code ++
  if ( $ec == 0 ) echo "File $F : must not contain label with \\"
  
  set F = DICT
  grep -q '^<[ 	]#' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing t-model mapping '< #'"
  grep -q '^>[ 	]#' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing t-model mapping '> #'"
  grep -q '^#[ 	]#' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing t-model mapping of '# #...' (maybe used a different HMM name?)"
  grep -q '^<p:>[ 	]#' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing t-model mapping of '<p:> #...' (maybe used a different HMM name?)"
  grep -q '^<p>[ 	]<' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing non-t-model mapping of '<p> <...' (maybe used a different HMM name?)"
  grep -q '^<usb>' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<usb>'"
  grep -q '^<nib>' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing '<nib>'"
  grep -q '^P$' $P/$F; set ec = $status; if ( $ec == 0 ) @ err_code ++
  if ( $ec == 0 ) echo "File $F : must not contain 'P'"
  grep -q '^[0-9]' $P/$F; set ec = $status; if ( $ec == 0 ) @ err_code ++
  if ( $ec == 0 ) echo "File $F : must not contain numeric label without masking by 'P'"
  grep -q '\\' $P/$F; set ec = $status; if ( $ec == 0 ) @ err_code ++
  if ( $ec == 0 ) echo "File $F : must not contain label with \\"
  
  set F = HMMINVENTAR
  egrep -q '^<$|^<\..*$|^<p>\..*$|^<p>$' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing non-t-model '<' or '<....' or '<p>' or '<p>...."
  grep -q '^#' $P/$F; set ec = $status; @ err_code += $ec
  if ( $ec != 0 ) echo "File $F : missing some t-model '#...'"
end
 
exit $err_code
