closepath=/data/data16/vmII_data/
raumpath=/data/data17/vmII_raum/
telepath=/data/data13/vmII_tele/

transdir=trans/

# Actually do the argument parsing here

while [ $# -gt 0 ]; do
        case "$1" in
        *=*)    key=`expr "$1" : '\(.*\)=.*'`
                val=`expr "$1" : '.*=\(.*\)'`
                eval "$key"=\'"$val"\'
                unset key val
                shift ;;
        *)      break;;
        esac
done

body=`echo $1 | sed 's/^\(.....\).*$/\1/'`
dlg=`echo $body | sed 's/^.\(...\)./a\1/'`

refsig=`echo $closepath$dlg/${body}c?1.16`
raumsig=`echo $raumpath$dlg/${body}r?1.16`
alsig1=`echo $telepath$dlg/${body}t?1.al`
alsig2=`echo $telepath$dlg/${body}t?2.al`
ssig=`echo $body?1.al`



if [ -e $refsig ] 
  then
  echo found $refsig. good.
else
  echo missing $refsig.
  exit
fi

if [ -e $raumsig ] 
  then
  echo found $raumsig. good.
else
  echo missing $raumsig.
  exit
fi

if [ -e $alsig1 ] 
  then
  echo found $alsig1. good.
else
  echo missing $alsig1.
  exit
fi

if [ -e $alsig2 ] 
  then
  echo found $alsig2. good.
else
  echo missing $alsig2.
  exit
fi

#Konstruiere mar-files${body}c
refmar=$closepath$dlg/trans/${body}c.mar
raumar=$raumpath$dlg/trans/${body}r.mar
telemar=$telepath$dlg/trans/${body}t.mar

if [ -e $refmar ] 
  then
  echo found $refmar. good.
else
  echo missing $refmar.
  exit
fi

if [ -e $raumar ] 
  then
  echo found $raumar. good.
else
  echo missing $raumar.
  exit
fi

if [ -e $telemar ] 
  then
  echo found $telemar. good.
else
  echo missing telemar.
  exit
fi

refslap=`gawk 'BEGIN {s=-1} 
               /slap/ { s=( $1 + $2)/2 } 
               END{ 
                 if( s > 0 )
                   printf("%d",s)
                 else
                   print "(error)"
               }' $refmar`
refslap=`expr $refslap / 16`
echo refslap : $refslap

raumslap=`gawk 'BEGIN {s=-1} 
               /slap/ { s=( $1 + $2)/2 } 
               END{ 
                 if( s > 0 )
                   printf("%d",s)
                 else
                   print "(error)"
               }' $raumar`

raumslap=`expr $raumslap / 16`
echo raumslap : $raumslap

teleslap=`gawk 'BEGIN {s=-1} 
               /slap/ { s=( $1 + $2)/2 } 
               END{ 
                 if( s > 0 )
                   printf("%d",s)
                 else
                   print "(error)"
               }' $telemar`

teleslap=`expr $teleslap / 8`
echo teleslap : $teleslap

padbytes=`/homes/kip/projekte/synctel/syncsig\
               --refsig $alsig1 --str $teleslap \
                 $alsig2 $teleslap | gawk '{ printf("%d",$2 * 8)}'`
echo padbytes $padbytes

if [ $padbytes -gt 0 ]
  then
    echo padding $padbytes in $alsig2
    mv $alsig2 $alsig2.si
    /homes/kip/projekte/synctel/1000hz $padbytes > $alsig2
    cat $alsig2.si >> $alsig2
    sik=$alsig2.si
elif [ $padbytes -lt 0 ]
  then
    echo padding $padbytes bytes in $alsig1
    mv $alsig1 $alsig1.si
    /homes/kip/projekte/synctel/1000hz `expr -1 \* $padbytes` > $alsig1
    cat $alsig1.si >> $alsig1
    sik=$alsig1.si
    teleslap=`expr $teleslap - $padbytes`
fi

/homes/kip/projekte/synctel/syncsig\
               --refsig $refsig --str $refslap --mar $refmar\
                 $alsig1 $teleslap $raumsig $raumslap

mv $raumar $raumar.si
mv ${body}r.mar $raumar

mv $telemar $telemar.si
mv ${body}t.mar $telemar

chmod g+w $telemar $raumar

echo REMOVE $sik AFTER CHECK...
