#!/bin/sh

wish=''
kvpath=''

cat << 'EOM'
-----------------------------------------------------------
                --- kwicview setup ---

ΥץȤϡkwicview򥻥åȥåפΤǤ
mkary, array ѥ뤵Ƥɬפޤ
-----------------------------------------------------------
EOM
echo -n "åȥåפޤ [n]: "
read ans
case "$ans" in
y*)
	echo "ǤϼǤ ..."
	;;
*)
	echo "Ȥޤ ..."
	kill $$
	;;
esac

cat << 'EOM'
-----------------------------------------------------------
wish (Tcl/Tk)ɬפǤɤ˥󥹥ȡ뤵Ƥ
ޤ եѥ̾Ʋ
-----------------------------------------------------------
EOM
while test "$wish" = "" ; do
	echo -n "? [/usr/local/bin/wish]: "
	read ans
	case "$ans" in
	'')
		echo "ok."
		wish=/usr/local/bin/wish
		;;
	*)
		if test -r "$ans"; then
			echo "λ"
			wish=$ans
		else
			echo "դޤ " $wish
		fi
		;;
	esac
done


echo -----------------------------------------------------------
echo "wish(Tcl/Tk) = $wish"
echo -----------------------------------------------------------

echo -n "ǤǤ [y]: "
read ans
case "$ans" in
	n*)
		echo 
		exit
		;;
esac


cat << 'EOM'
-----------------------------------------------------------
SUFARYΥǥ쥯ȥեѥǻꤷޤ
-----------------------------------------------------------
EOM
here=`pwd | sed 's/\/kwicview$//'`
while test "$kvpath" = "" ; do
	echo -n "? [" $here "]: "
	read ans
	case "$ans" in
	'')
		echo "ok."
		kvpath=$here
		;;
	*)
		if test -r "$ans"; then
			echo "λ"
			kvpath=$ans
		else
			echo "դޤ " $kvpath
		fi
		;;
	esac
done


echo -----------------------------------------------------------
echo "dir = $kvpath"
echo -----------------------------------------------------------

echo -n "ǤǤ [y]: "
read ans
case "$ans" in
	n*)
		echo 
		exit
		;;
esac




echo "---------------------------------"
echo "  kwicview 񤭴Ƥޤ  "
echo "---------------------------------"


cp kwicview kwicview.old

sed 's%^#\!.*$%#\!'$wish'%' kwicview.old | sed 's%^set sufary_path.*%set sufary_path '$kvpath'%' > kwicview

echo λޤ
echo
