#!/bin/sh

# OM, 4 nov 2003
# Converts SEG-B files to SU Seismic Unix format
# Strips off .DAT extension in SEG-B files, adds .su to Seismic Unix files
# Also strips leading zeros in output filenames 
# Seismic Unix files placed in new sub-directory, called SU
# Raw file directory is given as command line argument
#


if [ $# -eq 0 ] ; then
   echo "Error: Raw file directory missing."
   exit
fi

cd $1
mkdir SU
for FILENAME in $(ls); do
    case $FILENAME in *.DAT) 
         echo $FILENAME
	 OF=`echo $FILENAME | sed "s/^0*//" | sed "s/DAT/su/"`   # strips off leading zeros, replace DAT with su
	 echo Outputfile=$OF
	 ../segb2su < $FILENAME > SU/$OF
	 #../segb2su < $FILENAME > SU/${OF%.*}.su   # also strip off .DAT suffix
	 ;;
    esac;
done