#!/bin/bash
# setime                  by Jun Nishii <jun@vinelinux.org>
#                    Time-stamp: <2008-03-08 18:44:29 munepi>
#
#     atok entry is by Takeshi Isobe <isobe@ps.namco.co.jp>

. /usr/share/vine/functions

##########  Messages #############################

ShowUsage_C() {
cat <<EOF
setime: Select your prefered Japanese input mothod.

Usage:  setime {ibus|scim|wnn8le|wnn8scim|wnn7xwnmo|wnn6xwnmo|atokx|atokx2|atokx3|vje|uim|none|status}

     ibus:      set IBus as prefered input method and start ibus-daemon
     scim:      set SCIM as prefered input method and start scim
                 (scim-bridge-{gtk,qt} and scim is automarically selected)
     wnn8le:    set Wnn8 as prefered input method and start wnn8le
     wnn8scim:  set Wnn8 as prefered input method and start scim
     wnn7xwnmo: set Wnn7 as prefered input method and start xwnmo
     wnn6xwnmo: set Wnn6 as prefered input method and start xwnmo
     atokx:     set Atok X as prefered input method
     atokx2:    set "ATOK for Linux" as prefered input method
     atokx3:    set "ATOK X3 for Linux" as prefered input method
     vje:       set VJE-Delta as prefered input method and start vje
     skk:       set SKK as prefered input method and start skkinput
     uim:       set UIM as prefered input method and start uim-xim
     default:   reset to default input method (ibus-daemon)
     none:      do not use input method
     status:    get information about current environment for Kanji input methods

EOF
}

ShowUsage_ja() {
cat <<EOF
setime: 漢字変換システムの設定

使用法:  setime {ibus|scim|wnn8le|wnn8scim|wnn7xwnmo|wnn6xwnmo|atokx|atokx2|atokx3|vje|uim|none|status}

     ibus:      IBus を選択し、ibus-daemon を起動します
     scim:      SCIM を選択し、scim を起動します
                 (scim-bridge-{gtk,qt} と scim は自動選択されます)
     wnn8le:    Wnn8 を選択し、wnn8le を起動します
     wnn8scim:  Wnn8 を選択し、scim を起動します
     wnn7xwnmo: Wnn7 を選択し、xwnmo を起動します
     wnn6xwnmo: Wnn6 を選択し、xwnmo を起動します
     atokx:     Atok X を選択します
     atokx2:    "ATOK for Linux" を選択します
     atokx3:    "ATOK X3 for Linux" を選択します
     vje:       VJE-Delta を選択し、vje を起動します
     skk:       SKK を選択し、skkinput を起動します
     uim:       UIM を選択し、uim-xim を起動します
     default:   デフォルトの漢字変換システムにリセットします(ibus-daemon を起動)
     none:      漢字変換システムは用いない
     status:    現在のシステムにおける、漢字入力方法に関する情報を表示します

EOF
}

IMEMsg_ja(){
cat <<EOF
環境変数は ~/.vine/system/ime もしくは /etc/sysconfig/ime で設定されています.
EOF
}

IMEMsg_C(){
cat <<EOF
The Environment Variables are set in ~/.vine/system/ime or /etc/sysconfig/ime.
EOF
}

CurIMEMsg_ja(){
echo "[現在の漢字入力システム]"
}

CurIMEMsg_C(){
echo "[Current IME]"
}

PackageStatMsg_ja(){
echo "[パッケージのインストール状況]"
}

PackageStatMsg_C(){
echo "[Package status]"
}

EnvVarMsg_ja(){
echo "[環境変数]"
}

EnvVarMsg_C(){
echo "[Environment Variables]"
}

SettingIMMsg_ja(){
echo "$1 の設定を行います"
}

SettingIMMsg_C(){
    echo "setting up $1..."
}

WnnNotAliveMsg_ja(){
cat <<EOF
    Wnn サーバが走ってません!
    Wnn サーバを起動して再挑戦してください!
    終了します...
EOF
}

WnnNotAliveMsg_C(){
cat <<EOF
    Wnn server is NOT running!
    Start Wnn server and try again!
    Aborted...
EOF
}

AtokxNotAliveMsg_ja(){
cat <<EOF
    Atokx サーバが走ってません!
    Atokx サーバを起動して再挑戦してください!
    終了します...
EOF
}

AtokxNotAliveMsg_C(){
cat <<EOF
    Atokx server is NOT running!
    Start Atokx server and try again!
    Aborted...
EOF
}

AtokX2NotAliveMsg_ja(){
cat <<EOF
    Atok X2 サーバが走ってません!
    Atok X2 サーバを起動して再挑戦してください!
    終了します...
EOF
}

AtokX2NotAliveMsg_C(){
cat <<EOF
    Atok X2 server is NOT running!
    Start Atok X2 server and try again!
    Aborted...
EOF
}

VjeNotAliveMsg_ja(){
cat <<EOF
    VJE サーバが走っていません!
    VJE サーバを起動して再挑戦してください!
    終了します...
EOF
}

VjeNotAliveMsg_C(){
cat <<EOF
    VJE server is NOT running!
    Start VJE server and try again!
    Aborted...
EOF
}

NoIMMsg_ja(){
cat <<EOF
    $1 が見つかりません...
    設定を終了します.
EOF
}

NoIMMsg_C(){
cat <<EOF
    not found $1...
    exit set up.
EOF
}

ExitMsg_ja(){
echo "設定が完了しました."
echo "設定は、新しく開くシェルから有効になります。"
isXRunning && (echo "設定を全てのシェルで有効にするには、X window を再起動する必要があります.")
}

ExitMsg_C(){
echo "Configuration finished."
echo "A new configuration is effective on new shells."
isXRunning && (echo "To effect this configuration to all applications, You should restart X Window System.")
}

xwnmoWarning_ja(){
    echo "[Warning!] xwnmo をデフォルトのインプットメソッドにすると,"
    echo "[Warning!] X window がフリーズする場合があります．フリーズ"
    echo "[Warning!] したときには Ctrl-Alt-BackSpace で X window を"
    echo "[Warning!] 終了できます．"
    echo "[Warning!] xwnmo を使いたいときには， X window の起動後に"
    echo "[Warning!] xwnmo の起動を行う方がトラブルが少ないようです"
}

xwnmoWarning_C(){
    echo "[Warning!] Setting xwnmo as default xim is harmful."
    echo "[Warning!] I recommend to use kinput2 for default input methods."
}

Wnn8scimCreateDic_ja(){
    echo "辞書を生成しますので，しばらくお待ち下さい......"
}

Wnn8scimCreateDic_C(){
    echo "Now generating your dictionaries. Please wait for a little......"
}

########## end of Messages #############################3

setLocale(){
case $LANG in
    ja*)LOCALE=ja ;;
    *) LOCALE=C ;;
esac
#isXRunning || LOCALE=C
if [ ${TERM} = "linux" ]; then
    LOCALE=C
fi
}

CheckOption() {
if [ $# != 1 ] ; then
    eval ShowUsage_$LOCALE ${0##*/}
    return 1
fi
return 0
}

CheckXIMStatus() {
case "$XIM_PROG" in
	atokx3* | Atokx3*)
		STATUS=atokx3
		;;
	atokx2* | Atokx2*)
		STATUS=atokx2
		;;
	atokx* | Atokx*)
		STATUS=atokx
		;;
	vje*|VJE*)
		STATUS=vje
		;;
	skk*|SKK*)
		STATUS=skk
		;;
	uim*|UIM*|anthy*)
		STATUS=uim
		;;
	scim*|SCIM*)
		STATUS=scim
		;;
	ibus*|IBUS*)
		STATUS=ibus
		;;
	No_IM)
		STATUS=No_IM
		;;
	*)
		STATUS=unknown
		return 1
		;;
esac
return 0
}

ShowIMEStatus() {

WNN8RPM_S=wnn8-server
WNN8RPM_C=wnn8-le
WNN7RPM_S=wnn7-server
WNN7RPM_C=wnn7-xclients
WNN6RPM=wnn6
ATOKXRPM=atokx
ATOKX2RPM=atokx
ATOKX3RPM=atokx
VJERPM=vje-delta
ANTHYRPM=anthy
UIMXIMRPM=uim-xim
UIMRPM=uim
SCIMRPM=scim
SCIMBRIDGERPM=scim-bridge
SCIMANTHYRPM=scim-anthy
SCIMWNNRPM=scim-wnn
IBUSRPM=ibus

eval IMEMsg_$LOCALE
cat<<EOF
-----------------------------------------
`eval CurIMEMsg_${LOCALE}`
${STATUS}
-----------------------------------------
`eval PackageStatMsg_${LOCALE}`
[SCIM]  `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${SCIMRPM} 2>&1`
[SCIM-Bridge]  `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${SCIMBRIDGERPM} 2>&1`
[SCIM-Anthy]  `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${SCIMANTHYRPM} 2>&1`
[SCIM-Wnn]  `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${SCIMWNNRPM} 2>&1`
[Anthy]  `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${ANTHYRPM} 2>&1`
[UIM]  `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${UIMRPM} 2>&1`
[IBUS] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${IBUSRPM} 2>&1`
[Wnn8 server] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${WNN8RPM_S} 2>&1`
[Wnn8 client] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${WNN8RPM_C} 2>&1`
[Wnn7 server] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${WNN7RPM_S} 2>&1`
[Wnn7 client] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${WNN7RPM_C} 2>&1`
[Wnn6]  `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${WNN6RPM} 2>&1`
[Atokx] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${ATOKXRPM} 2>&1`
[AtokX2] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${ATOKX2RPM} 2>&1`
[AtokX3] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${ATOKX3RPM} 2>&1`
[VJE-Delta] `LANG=${LOCALE} LC_ALL=${LOCALE} rpm -q ${VJERPM} 2>&1`
-----------------------------------------
`eval EnvVarMsg_${LOCALE}`
EMACS_IME=${EMACS_IME}
XIM_PROG=${XIM_PROG}
CANNA_SERVER=${CANNA_SERVER}
JSERVER=${JSERVER}
WNN8_FRONT_END=${WNN8_FRONT_END}
WNN7_FRONT_END=${WNN7_FRONT_END}
WNN8_SERVER=${WNN8_SERVER}
WNN7_SERVER=${WNN7_SERVER}
WNN6_FRONT_END=${WNN6_FRONT_END}
WNN6_SERVER=${WNN6_SERVER}
GTK_IM_MODULE=${GTK_IM_MODULE}
QT_IM_MODULE=${QT_IM_MODULE}
-----------------------------------------
EOF
}

isWnnAlive(){
if [ -n "`wnnstat 2>/dev/null| grep wnnstat`" ]; then
    eval WnnNotAliveMsg_$LOCALE
    return 1
fi
return 0
}

isAtokxAlive(){
if ! (/sbin/pidof -s atokmngdaemon >& /dev/null); then
    eval AtokxNotAliveMsg_$LOCALE
    return 1
fi
return 0
}

isAtokX2Alive(){
if ! (/sbin/pidof -s atokx2mngdaemon >& /dev/null); then
    eval AtokX2NotAliveMsg_$LOCALE
    return 1
fi
return 0
}

isVjeAlive(){
if ! (/sbin/pidof -s vjed >& /dev/null) ; then
    eval VjeNotAliveMsg_$LOCALE
    return 1
fi
return 0
}

Wnn8Exists(){

if [ -f /usr/lib/wnn8/ja_JP/wnnenvrc ] \
&& [ -x /usr/sbin/jserver ]; then
    return 0
else
    return 1
fi
}

Wnn7Exists(){

if [ -f /usr/lib/wnn7/ja_JP/wnnenvrc ] \
&& [ -x /usr/sbin/jserver ]; then
    return 0
else
    return 1
fi
}

Wnn6Exists(){

#if [ -n "`rpm -q wnn6 2>/dev/null`" ]; then
if [ -f /etc/wnn6/ja_JP/wnnenvrc -o -f /usr/local/lib/wnn6/ja_JP/wnnenvrc ] \
&& [ -x /usr/sbin/jserver -o -x /usr/local/bin/jserver \
                          -o -x /usr/local/bin/Wnn6/jserver ]; then
    return 0
else
    return 1
fi
}

AtokX3Exists(){
if [ -f "/opt/atokx3/lib/client/atokx3auxd" ] ; then
    return 0
else
    return 1
fi
}

AtokX2Exists(){
if [ -f "/opt/atokx2/sbin/atokx2mngdaemon" ] ; then
    return 0
else
    return 1
fi
}

AtokxExists(){
if [ -f "/usr/lib/locale/ja/atokserver/atokmngdaemon" ] ; then
    return 0
else
    return 1
fi
}

startUimXim(){
    if [ -z "`pidofmyproc uim-xim`" ] ; then
      uim-xim >& /dev/null &
    fi
    TK_KCPROTO=xim
}

startScim(){
    if [ -z "`pidofmyproc scim-launcher`" ] ; then
      scim -d >& /dev/null
    fi
    TK_KCPROTO=xim
}

startIbus(){
    if [ -z "`pidofmyproc ibus-daemon`" ] ; then
      ibus-daemon -d -x >& /dev/null
    fi
    TK_KCPROTO=xim
}

setSKK(){
    XMODIFIERS="@im=skkinput"
    TK_KCPROTO=kinput2
    checkStart skkinput
    return 0
}

setUIM(){
    startUimXim
    XMODIFIERS="@im=uim"
    GTK_IM_MODULE=uim
    QT_IM_MODULE=uim
    rpm -q --quiet uim-qt-immodule || QT_IM_MODULE=xim
    checkStart uim-xim
    return 0
}

setSCIM() {
    XMODIFIERS="@im=SCIM"
    GTK_IM_MODULE=scim
    QT_IM_MODULE=xim
    rpm -q --quiet scim-bridge-gtk && GTK_IM_MODULE=scim-bridge
    rpm -q --quiet scim-qtimm && QT_IM_MODULE=scim
    rpm -q --quiet scim-bridge-qt && QT_IM_MODULE=scim-bridge
    rpm -q --quiet scim-bridge-qt4 && QT_IM_MODULE=scim-bridge
    export XMODIFIERS GTK_IM_MODULE QT_IM_MODULE
    startScim
    return 0
}

setIBUS() {
    XMODIFIERS="@im=ibus"
    GTK_IM_MODULE=ibus
    QT_IM_MODULE=xim
    rpm -q --quiet ibus-el && EMACS_IME=ibus-el
    rpm -q --quiet ibus-qt && QT_IM_MODULE=ibus
    export XMODIFIERS GTK_IM_MODULE QT_IM_MODULE EMACS_IME
    startIbus
    return 0
}

killXwnmo(){
    if [ ! -z `pidofmyproc xwnmo` ]; then
        if [ -x /usr/local/bin/Wnn6/killxwnmo ] ; then
            /usr/local/bin/Wnn6/killxwnmo
        else
            killall xwnmo
        fi
    fi
}

killWnn8le(){
	killall WnnPaletteAux >/dev/null 2>&1
	killall httx >/dev/null 2>&1
	killall WnnMsgDspAux >/dev/null 2>&1
}

setWnn8(){
isWnnAlive || return 1
echo "WNN8_FRONT_END: " $WNN8_FRONT_END
case "$WNN8_FRONT_END" in
    le)
	isXRunning && \
   	(if [ -f ${HOME}/.Xdefaults ]; then
      		xrdb -merge ${HOME}/.Xdefaults
   	elif [ -f ${HOME}/.Xresources ]; then
      		xrdb -merge ${HOME}/.Xresources
    	fi) \
	&& \
	export XMODIFIERS=@im=htt; export HTT_DISABLE_STATUS_WINDOW=t; \
	/usr/lib/im/httx -if Wnn8LE -lc_basiclocale ja_JP -xim htt_xbe &
        XMODIFIERS="@im=htt"
	HTT_DISABLE_STATUS_WINDOW=t
	GTK_IM_MODULE=xim
	QT_IM_MODULE=xim
        TK_KCPROTO=htt
	;;
    scim)
	# ## check scim-wnn package
	# if ! [ -f "/usr/share/scim/icons/scim-wnn.png" ]; then
	# fi

	## kill other frontends
        killXwnmo && killWnn8le

	## start SCIM
	setSCIM

	## generate basic user dictionaries for the first time
	## Note: need wnn8-le
	if test ! -d /var/lib/wnn8/dic/usr/`whoami`/; then
	    Wnn8scimCreateDic_$LOCALE
	    /usr/lib/im/httx -if Wnn8LE -lc_basiclocale ja_JP -xim htt_xbe &
	    while test ! -d /var/lib/wnn8/dic/usr/`whoami`/;
	    do 
		sleep 3
	    done
	    killWnn8le
	fi
	;;
esac
return 0
}

setWnn7(){
isWnnAlive || return 1
echo "WNN7_FRONT_END: " $WNN7_FRONT_END
case "$WNN7_FRONT_END" in
    xwnmo)
	XWNMO_PROG=/usr/X11R6/bin/xwnmo
	XWNMO_RPM=`rpm -q wnn7-xclients`
	case "$XWNMO_RPM" in
	    wnn7-xclients-1.01-*)
		# 1.00 doesn't have --gtk_expose_patch option
		# 1.01 needs --gtk_expose_patch option for Vine's gtk+
		# after 1.02 doesn't need --gtk_expose_patch option
		XWNMO_OPT=--gtk_expose_patch
		;;
	    wnn7-xclients-1.03-*)
		# 1.03 needs -map option for nautilus on Gnome2
		# after 1.03(1.04 or 1.1?), unknown this requirements.
		XWNMO_OPT=-map
		;;
	esac
	XWNMO_GEOM=1x1-0-48
	isXRunning && (checkStart $XWNMO_PROG $XWNMO_OPT -D ${WNN7_SERVER:=localhost} -g $XWNMO_GEOM) && sleep 2
        XMODIFIERS="@im=_XWNMO"
	GTK_IM_MODULE=xim
	QT_IM_MODULE=xim
        TK_KCPROTO=xim
	;;
esac
return 0
}

setWnn6(){
isWnnAlive || return 1
echo "WNN6_FRONT_END: " $WNN6_FRONT_END
case "$WNN6_FRONT_END" in
    xwnmo)
	isXRunning || eval xwnmoWarning_$LOCALE

	if [ -x /usr/local/bin/Wnn6/xwnmo ] ; then
		XWNMO_PROG=/usr/local/bin/Wnn6/xwnmo
	else
		XWNMO_PROG=xwnmo
	fi
	isXRunning && (checkStart $XWNMO_PROG -D ${WNN6_SERVER:=localhost} &)
	XMODIFIERS="@im=_XWNMO"
#	XMODIFIERS="@im=kinput2" # needed for emacs
	GTK_IM_MODULE=xim
	QT_IM_MODULE=xim
	TK_KCPROTO=xim
	;;
esac
return 0
}

setAtokx(){
isAtokxAlive || return 1
export XMODIFIERS="@im=htt"
export TK_KCPROTO=htt
export HTT_DISABLE_STATUS_WINDOW=t
export HTT_GENERATES_KANAKEY=t
export HTT_USES_LINUX_XKEYSYM=t

if [ -z "`ps xc | grep httx`" -a -n "$DISPLAY" ]; then

   if [ -f ${HOME}/.Xdefaults ]; then
      xrdb -merge ${HOME}/.Xdefaults
    fi
    if [ -f "/usr/lib/im/locale/ja/atokserver/shift_space" ]; then
        echo "*conversionOnKeys: Kanji Zenkaku_Hankaku <Shift>space" | /usr/X11R6/bin/xrdb -m
    else
        echo "*conversionOnKeys: Kanji Zenkaku_Hankaku <Ctrl>space" | /usr/X11R6/bin/xrdb -m
    fi
    LD_PRELOAD=/usr/X11R6/lib/libXi.so.6 /usr/lib/im/httx -if atok12 -lc_basiclocale ja_JP -xim htt_xbe &

    times=0

    while :
    do
     if [ -n "`ps xc | grep LookupAux`" ]; then
#         sleep 1
         break
     fi
     usleep 100000
     times=$[$times+1]
     if [ $times -ge "30" ]; then
         break
     fi
    done

fi

return 0
}

setAtokX2(){
isAtokX2Alive || return 1
export XMODIFIERS="@im=htt"
export TK_KCPROTO=htt
export HTT_DISABLE_STATUS_WINDOW=t
export HTT_GENERATES_KANAKEY=t
export HTT_USES_LINUX_XKEYSYM=t
export GTK_IM_MODULE=iiim
export QT_IM_MODULE=xim

if [ -z "`ps xc | grep httx`" -a -n "$DISPLAY" ]; then

   if [ -f ${HOME}/.Xdefaults ]; then
      xrdb -merge ${HOME}/.Xdefaults
    fi
    /usr/lib/im/httx -if atokx2 -xim htt_xbe &

fi

return 0
}

setAtokX3(){
export XMODIFIERS="@im=iiimx"
export HTT_DISABLE_STATUS_WINDOW=t
export HTT_GENERATES_KANAKEY=t
export HTT_USES_LINUX_XKEYSYM=t
export HTT_IGNORES_LOCK_MASK=t
export JS_FEEDBACK_CONVERT=t
export GTK_IM_MODULE=iiim
export QT_IM_MODULE=xim

if [ -z "`ps xc | grep iiimx`" -a -n "$DISPLAY" ]; then

   if [ -f ${HOME}/.Xdefaults ]; then
      xrdb -merge ${HOME}/.Xdefaults
    fi
    /usr/bin/iiimx -iiimd

fi

return 0
}

setVje(){
isVjeAlive || return 1
    XMODIFIERS="@im=vje"
    GTK_IM_MODULE=xim
    QAT_IM_MODULE=xim
    echo "Emacs*useXim: true" | /usr/X11R6/bin/xrdb -m
    echo "Emacs*useXIM: true" | /usr/X11R6/bin/xrdb -m
    times=0
    ( while :
      do
        if [ $(ps xc | grep nautilus | wc -l) -ge "2" ]; then
	  sleep 2
	  break
	fi
        sleep 1
	times=$[$times+1]
	if [ $times -ge "10" ]; then
	  break
	fi
      done && PATH=$PATH:/usr/sbin vje ) &
    return 0
}

setNone(){
    return 0
}

setIME(){

SYSIME=/etc/sysconfig/ime
USERIMEDIR=$HOME/.vine/system/
USERIME=${USERIMEDIR}/ime

source ${SYSIME}
[ -f ${USERIME} ] && source ${USERIME}

#echo ${XIM_PROG}
if [ "$1" = "default" ]; then
    TARGET=${XIM_PROG:-ibus}
    FE=${WNN6_FRONT_END}
else
    TARGET=$1
fi

case "$TARGET" in
	wnn8)
		eval SettingIMMsg_$LOCALE wnn8
		WNNTAG=wnn8
		EMACS_IME=wnn8
		XIM_PROG=wnn8
		WNN8_FRONT_END=${FE:=le}
	    setWnn8 ;;
	wnn7)
		eval SettingIMMsg_$LOCALE wnn7
		WNNTAG=wnn7
		EMACS_IME=wnn7
		XIM_PROG=wnn7
		WNN7_FRONT_END=${FE:=xwnmo}
	    setWnn7 ;;
	wnn6)
		eval SettingIMMsg_$LOCALE wnn6
		WNNTAG=wnn6
		EMACS_IME=wnn6
		XIM_PROG=wnn6
		WNN6_FRONT_END=${FE:=kinput2}
	    setWnn6 ;;
	wnn)
	    XIM_PROG=wnn
	    WNN6_FRONT_END=kinput2
            WNN7_FRONT_END=xwnmo
            WNN8_FRONT_END=le
            if Wnn8Exists ; then
                eval SettingIMMsg_$LOCALE wnn8
                WNNTAG=wnn8
		EMACS_IME=wnn8
            elif Wnn7Exists ; then
                eval SettingIMMsg_$LOCALE wnn7
                WNNTAG=wnn7
		EMACS_IME=wnn7
            elif Wnn6Exists ; then
		eval SettingIMMsg_$LOCALE wnn6
		WNNTAG=wnn6
		EMACS_IME=wnn6
	    else
		eval NoIMMsg_$LOCALE wnn
		return 1
	    fi
	    case "$WNNTAG" in
		wnn8) setWnn8 ;;
		wnn7) setWnn7 ;;
		wnn6) setWnn6 ;;
	    esac
	    ;;
	atokx)
		eval SettingIMMsg_$LOCALE atokx
		EMACS_IME=atokx
		XIM_PROG=atokx
	    setAtokx
	    ;;
	atokx2)
		eval SettingIMMsg_$LOCALE atokx2
		EMACS_IME=atokx2
		XIM_PROG=atokx2
	    setAtokX2
	    ;;
	atokx3)
		eval SettingIMMsg_$LOCALE atokx3
		EMACS_IME=atokx3
		XIM_PROG=atokx3
	    setAtokX3
	    ;;
	vje)
	    eval SettingIMMsg_$LOCALE vje
	    EMACS_IME=vje
	    XIM_PROG=vje
	    setVje
	    ;;
	uim)
	    eval SettingIMMsg_$LOCALE uim
	    EMACS_IME=uim
	    XIM_PROG=uim
	    setUIM
	    ;;
	scim)
	    eval SettingIMMsg_$LOCALE scim
	    EMACS_IME=scim
	    XIM_PROG=scim
	    setSCIM
	    ;;
	ibus)
	    eval SettingIMMsg_$LOCALE ibus
	    EMACS_IME=ibus-el
	    XIM_PROG=ibus
	    setIBUS
	    ;;
	skk)
	    eval SettingIMMsg_$LOCALE skk
	    EMACS_IME=skk
	    XIM_PROG=skk
	    setSKK
	    ;;
	none|No_IM)
	    eval SettingIMMsg_$LOCALE No_IM
	    EMACS_IME=No_IM
	    XIM_PROG=No_IM
	    setNone
	    ;;
esac

[ -d ${USERIMEDIR} ] || mkdir -p ${USERIMEDIR}

CANNA_SERVER=${CANNA_SERVER:=unix}

cat <<EOF >${USERIME}
EMACS_IME=${EMACS_IME}
XIM_PROG=${XIM_PROG}
JSERVER=${JSERVER:=localhost}
WNN8_FRONT_END=${FE:=le}
WNN7_FRONT_END=${FE:=xwnmo}
WNN6_FRONT_END=${FE:=kinput2}
WNN8_SERVER=${WNN8_SERVER:=localhost}
WNN7_SERVER=${WNN7_SERVER:=localhost}
WNN6_SERVER=${WNN6_SERVER:=localhost}
CANNA_SERVER=${CANNA_SERVER/localhost/unix}
GTK_IM_MODULE=${GTK_IM_MODULE}
QT_IM_MODULE=${QT_IM_MODULE}
XMODIFIERS=${XMODIFIERS}
EOF
return 0
}

unsetImeFuncs(){
unset -f ShowUsage_C ShowUsage_ja IMEMsg_C IMEMsg_ja
unset -f CurIMEMsg_ja CurIMEMsg_C PackageStatMsg_ja PackageStatMsg_C
unset -f EnvVarMsg_ja EnvVarMsg_C SettingIMMsg_ja SettingIMMsg_C
unset -f WnnNotAliveMsg_ja WnnNotAliveMsg_C
unset -f AtokxNotAliveMsg_ja AtokxNotAliveMsg_C
unset -f AtokX2NotAliveMsg_ja AtokX2NotAliveMsg_C
unset -f VjeNotAliveMsg_ja VjeNotAliveMsg_C
unset -f NoIMMsg_ja NoIMMsg_C ExitMsg_ja ExitMsg_C xwnmoWarning_ja xwnmoWarning_C
unset -f Wnn8scimCreateDic_C Wnn8scimCreateDic_ja
unset -f setLocale CheckOption CheckXIMStatus ShowIMEStatus isWnnAlive
unset -f isAtokxAlive AtokxExists setAtokx
unset -f isAtokX2Alive AtokX2Exists setAtokX2
unset -f AtokX3Exists setAtokX3
unset -f isVjeAlive setVje
unset -f Wnn8Exists Wnn7Exists Wnn6Exists killXwnmo
unset -f setWnn8 setWnn7 setWnn6 setFreeWnn setIME setNone unsetImeFuncs
unset -f setSKK
unset -f setUIM startUimXim
unset -f setSCIM startScim
unset -f setIBUS startIbus
}