#!/bin/sh
#
# 顼ࡼ󼭽 Ver.6 ʼϿץ
#   1994/11/17  ʤ ( Mailing List)
#
# ɬפʥޥ: wtoc, mkdic, cut, sed

#----  Ͽ뼭̾  ----
dics="s_char1 s_char2 s_other s_staff s_title s_waza"

#----  եΰ ----
srcdir=../..

#----  ʥġθǥ쥯ȥ  ----
cannabin="/usr/local/canna/bin /usr/local/bin /usr/necbin"


####  ¹ԥե򸡺륵֥롼  ####

# input: $1 ޥ̾
# output: $ret ޥɤΥѥ̾

Where()
{
    ret=`type $1 |cut -d' ' -f2,2`
    if [ "$ret" = "is" ]; then
	ret=$1
	echo ϣˡ $1  PATH ˤߤ 
    else

	for d in $cannabin n_found
	do
	    if [ -x $d/$1 ]; then
		ret=$d/$1
    		break
	    fi
	done

	if [ $d = n_found ]; then
	    echo 餡 $1 ߤĤʤ
            echo $1 ޥɤΥեѥ̾򶵤ơ
    	    ret=""
    	    read ret

            while [ -t ]
    	    do
    	    	if [ "$ret" = "" ]; then
    	    	    echo $1 ʤƤϼΥ󥹥ȡ뤬ʤ
    	    	    echo Ǥϡ褦
    	    	    exit 1
    	    	fi
    		if [ -x $ret ]; then
    	    	    break
		fi
    	    	echo $ret ʤƤߤĤʤ
            	echo ⤦ $1 ޥɤΥեѥ̾ϤƤ͡
    	    	read ret
	    done
	fi
        echo  ϣˡ $ret Ȥ 
    fi
}


####    ####
echo ˤϡ 䡢쥤Ǥ
echo 줫饻顼ࡼ󼭽򤫤ʼѴϿ 

####  wtoc λ  ####

echo ޤ Wnn򤫤ʼѴ륳ޥɡwtoc õ͡

Where wtoc
wtoc=$ret
echo

####  mkdic λ  ####

echo ˼Ͽ\(åץ\)򤹤륳ޥɡmkdic õ͡

Where mkdic
mkdic=$ret
echo

####  ѴϿ  ####

for f in $dics
do
    echo $f 򼭽ѴƤޡ

    if [ -f $srcdir/$f.euc ]; then
#  ʤ󤫡ָͭ̾(#KK)פäƤΤϵΤ
# ̾(#T35)פѴ㤪
#  $wtoc  $srcdir/$f.euc |sed -e 's/\\040\\/\\ /g' -e 's/#KK/#T35/' > $f.t
        $wtoc  $srcdir/$f.euc | sed -e 's/\\040\\/\\ /g' > $f.t
	echo $f 򼭽Ͽ衣
	$mkdic -l $f.t $f
    else
    	餡 $srcdir/$f.euc ʤ
    fi
done

echo
echo Ͽä衣
echo

####  $HOME/.canna   ####

echo  $HOME/.canna 衪
echo

for d in $dics
do
    grep $d $HOME/.canna > /dev/null
    if [ $? != 0 ]; then
    	echo "(use-dictionary :user \"$d\") ;; s-dic Ver.6" 
    	echo $HOME/.canna ɲä㤦ɡ顩 \(Y/else\)
    	read yn
    	if [ "$yn" = "Y" -o "$yn" = "y" ]; then
    	    echo "(use-dictionary :user \"$d\") ;; s-dic Ver.6" >> $HOME/.canna

    	fi
    else
    	echo $d Ϥ⤦ $HOME/.canna ϿƤ͡
    fi
done
echo
echo ϣˡ $HOME/.canna Ͻä 
echo
echo 㤢ޤ 

