#!/bin/ksh

#: Inhalt von Catia-Export-Dateien anzeigen
#: usage: multicl <Export-Datei-Name[n]>
#: (speziell für Model-Export; nicht sinnvoll bei Prj-Export)
##
## 14.03.03 EBZ td

function catlisttd
{
datei=$name
#datei=$PWD/$datei  # geht anscheinend auch ohne pdw
#case "$name" in
#*"/"* ) echo "ACHTUNG: funktioniert nur im aktuellen Verzeichnis"
#        exit;;
#esac

if [ "$datei" = "" ]
then :
elif [ -d $datei ]
then echo "\nERROR! $datei ist ein Verzeichnis, keine Datei!\n"
elif [ `echo "$datei" | wc -m` -gt 45 ]
then echo "\n:      $datei\nERROR! Name > 44 Zeichen! (Das kann CATIA nicht.)"
     echo "(-> Namen kürzen, z.B. mit umbenennen.kurz)\n"
else
  echo "*REA $datei STORAGE_DEVICE\n*SOR NUM\n*LIS" > catlist.in
  catutil -l catdata -x catlist.in > /dev/null
  pg catdata.out |
  grep "^        [ 1-9][ 0-9][0-9]  " | cut -c 14-83 |
  grep -v "^.CATIA PROJECT TO PROJECT EXPORTATION REPORT" |
  grep -v "^.ATTRIBUT" |
  grep -v "^.MATERIAL" |
  grep -v "^PATTERN : " |
  grep -v "^.TEXCOT : " |
  grep -v "^.COMPATIBILITE" |
  grep -v "^.PIPE-END-TYPE" |
  sort > ~/CATLISTTD.out
  anzahl=`cat ~/CATLISTTD.out | wc -l`
  echo "Number of CATIA-models in $datei: $anzahl"
  echo "<---+----1----+----2----+----3- MODEL -4----+----5----+----6----+----7>"
  cat ~/CATLISTTD.out
  echo

  rm catlist.in catdata.out
  rm fort* > /dev/null 2> /dev/null
  rm ~/CATLISTTD.out

fi
}

###########################################################################
case "$1" in
"" | "-h"* | "-?"* ) 
  grep "^#:" $0
  exit;;
esac

for name in $*
do catlisttd 
done