#!/bin/sh
# This script converts *.mono files into two *.abi files
echo "Processing $1"

fileroot=`echo $1 | sed 's@\.mono@@g'`
rfile=${fileroot}r.abi
lfile=${fileroot}l.abi

parmstart=`grep -nw PARAMS $1 | awk -F: '{print $1}'`

sed -n -e "1,${parmstart}p" $1 | sed 's@mono@abi@g' > $rfile
grep "mono\.Range" $1 | sed "s/mono/abi/g" >> $rfile
grep "mono\.Stim" $1 | sed "s/mono/abi/g" >> $rfile
echo "abi.itd=0" >> $rfile
echo "abi.iid=0" >> $rfile
cp $rfile $lfile

echo "abi.mono=R" >> $rfile
echo "abi.mono=L" >> $lfile
echo "depvar=abi (dB)" >> $rfile
echo "depvar=abi (dB)" >> $lfile

stdparms=`grep -nw StandardParams $1 | awk -F: '{print $1}'`
endparms=`grep -nw RASTERDATA $1 | awk -F: '{print $1}'`
sed -n -e "${stdparms},${endparms}p" $1 | sed "s@$1@$rfile@g" >> $rfile
sed -n -e "${stdparms},${endparms}p" $1 | sed "s@$1@$lfile@g" >> $lfile

# Now for the data

side=`grep "mono\.Side" $1 | awk -F= '{print $2}'`
reps=`grep "Reps" $1 | awk -F= '{print $2}'`


nrast=`grep nrasters $1 | awk -F'=' '{print $2}'`
nrast2=`expr \( $nrast - $reps \) / 2 + $reps`

echo "nrasters=$nrast2" >> $rfile
echo "nrasters=$nrast2" >> $lfile

endparms=`expr $endparms + 2`
sed -n -e "$endparms,\$p" $1 > .rasterlines
sortevents .rasterlines $rfile $lfile

echo "END_RASTERDATA" >> $rfile
echo "END_RASTERDATA" >> $lfile

if test $side; then
	if test $side = L; then
		rm $rfile
	fi
	if test $side = R; then
		rm $lfile
	fi
fi

rm .rasterlines
