case $# in
1) ;;
*) echo "Usage: S DBCONVERT data_directory"; exit 1;;
esac
if test ! -d $1; then echo "$1 is not a data directory"; exit 1; fi
if test ! -d .Data; then mkdir .Data; fi
count=`ls $1|wc -l`
if test $count = 0
then
	echo No datasets to convert in directory $1
else
	/bin/ls $1 |sed "s:.*:& <- gtds(\"$1/&\"):" | S NEW
	echo "Datasets in directory $1 converted"
fi
