#! /bin/sh

DB=$1
DBH=/home/onyx/database/$1

cd $DBH

shift

for x
do
	if [ ! -f /home/ingres/tmp/$x.unload ]
	then
	    echo "Unloading $DB%gawk:$x"
	    echo

	    tr '\366\326\325\344\304\374\334\313\337' \
	       '\174\044\173\173\133\175\135\176\176' <$x~ |
		sed -e 's/\.0	/	/' >/home/ingres/tmp/$x.unload

	    echo "done."
	fi

	echo "Loading Ingres $x"
	echo

	(	echo "destroy $x"
		echo '\p\g'

		echo "create $x ("
		sed 's/^[^_]*_//' < $x@ |
		gawk "-F	" '
		{	t="c";
			if ($3 == "int") {
				t="i";
				$2=4;
				}
			if ($3 == "calc") {
				t="f";
				$2=8;
				}
			if (NR != 1) printf ",\n";
			printf "\t%s is %s%s",$1,t,$2;
			} '
		echo
		echo "	)"
		echo
		echo '\p\g'
	
		echo "copy $x ("
		sed 's/^[^_]*_//' < $x@ |
		gawk "-F	" '
		{	if (NR != 1) printf "tab,\n";
			printf "\t%s is c0",$1;
			} ' 
		echo "nl"
		echo "	)"
		echo "from \"/home/ingres/tmp/$x.unload\""
		echo
		echo '\p\g'

		echo -n "modify $x to isam "
		sed 's/^[^_]*_//' < $x@ |
		gawk "-F	" '
		$4 == "p" {	if (HH != 1) printf "on ";
				else	printf ", ";
				HH = 1;
				printf "%s",$1;
				} ' 
		echo
		echo '\p\g'

		sed 's/^[^_]*_//' < $x@ |
		gawk "-F	" "
		\$4 == \"s\" {	printf \"index on $x is %s %s\\n\",\$5,\$1;
				} " 
		echo
		echo '\p\g'

		echo 
		echo "define permit all on $x to all"
		echo '\p\g'
		) | ingres -s $DB

	echo "done."
done
