Diclookup version 2.3.3, now as a separate port (from dserver). Client

machines can install this one only.  It's also newer than what used
to be in the dserver port, benefitting some people with newer
dictionaries, such as Satoshi (that's me).

PR:		7471
Submitted by:	MITA Yoshio <Yoshio.Mita@isen.fr>

4 files changed, 226 insertions, 0 deletions

diff --git a/japanese/diclookup-emacs20/files/README.diclookup-setup.txt b/japanese/diclookup-emacs20/files/README.diclookup-setup.txt
new file mode 100644
index 000000000000..f1c653b36723
--- /dev/null
+++ b/japanese/diclookup-emacs20/files/README.diclookup-setup.txt
@@ -0,0 +1,140 @@
+		Configuration of diclookup-mule FreeBSD port
+							    7.Jun.1998
+					   MITA Yoshio <mita@jp.FreeBSD.org>
+		  Special thanks to MIHIRA Yoshiro <sanpei@yy.cs.keio.ac.jp>
+
+`Diclookup-mule' is a frontend interface for NDTP (Network Dictionary
+Transfer Protocol) server on mule.
+One of mule (ja-*mule-2.3 or mule-2.3) is necessary for this program.
+
+1. NDTP server installation.
+
+    An NDTP server must therfore be installed.
+    Two programs are known as NDTP server: dserver and ndtpd.
+
+    dserver:  Dictionary server.  NDTP has been a protocol for dserver.
+	      It supports EB/EBG/EBXA/EPWING CDROM dictionaries.
+	      FreeBSD port is ready for installation: ja-dserver-2.2.2
+	      Dserver packages includes `dictionary file compression tool'
+
+    ndtpd:    Dserver-compatible Network Dictionary server.  
+	      It also supports EB/EBG/EBXA/EPWING CDROM dictionaries.
+    Also refer documents to each packages for setup of server.
+
+1. Add startup code to site-start.el
+    Typing
+	% /usr/local/lib/dserver/setup-diclookup.sh
+    displays you `ja-diclookup setup dialog':
+     ------------------------ja-diclookup setup --------------------------
+     |                                                                   |
+     | You have to install appropreate startup code for diclookup-mule.  |
+     | This setup script automatically it to:                            |
+     | /usr/local/lib/mule/site-lisp/site-start.el.                      |
+     |                                                                   |
+     | Are you sure?                                                     |
+     |-------------------------------------------------------------------|
+     |                       [ Yes ]         No                          |
+     |-------------------------------------------------------------------|
+	By answering [ Yes ], startup code is automatically added to
+	/usr/local/lib/mule/site-lisp/site-start.el
+	(Deinstallation is possible by deinstall-diclookup.sh)
+
+2. Usage.
+    Typing `M-x diclookup-mule' launches a new window for dictionary looking up.
+	f`word for looking up'[Enter] : Lookup a word
+	C`dictionary name'[Enter]     : Change dictionary (TAB complition OK)
+	o			      : Switch to other window
+	n,p,[ENTER]		      : Move cursor in window.
+	Q		              : Quit and delete window.
+	q			      : Suspend
+
+
+                 Dserver FreeBSD portセットアップについて．
+
+                                                             3.Nov.1996
+						Revised	    20.Dec.1996
+						Revised	    31.Jan.1998
+                                         三田吉郎 <mita@jp.FreeBSD.org>
+
+
+	目次
+	0. diclookup-mule 使用の前に.
+	I. 起動の準備.
+	   I.1. setup.sh の具体的な作業
+	II. 削除(uninstall)
+
+diclookup-mule は, mule の上で, 電子辞書を引けるようにするための
+プログラムです. これ単体で電子辞書が引けるのではなく, 辞書サーバと
+辞書 CDROM (とmule)とを正しくインストールして, はじめて使えるように
+なります.  とはいえ, 全く難しくありませんので, 御安心を.
+
+0. diclookup-mule 使用の前に.
+    NDTP (Network 辞書転送プロトコル)サーバをインストールして, 動作するように
+    しておくことが必須です.
+    NDTP サーバとしては, 老舗の dserver や, SRA の笠原さんが開発なさっている 
+    ndtpd などが知られています. 
+    dserver は, ja-dserver-2.2.2 というパッケージになっています.
+    ndtp も近日 FreeBSD ports colleciton に取り込まれることでしょう.
+    
+    dserver または, ndtp の設定は, それぞれのパッケージに附属の
+    文書を参照してください.
+    
+I. 起動の準備.
+
+    ~/.emacs もしくは ${PREFIX}/lib/mule/site-lisp/site-start.el などの,
+    初期設定ファイルに, diclookup-mule 起動のためのエントリを追加します.
+    [${PREFIX}/lib/dserver/setup-diclookup.sh] を起動すると, 自動的に
+   設定をsite-start.el に追加してくれます．
+
+  ※ ${PREFIX}
+     ここで ${PREFIX} とは ports をコンパイル時の環境変数 PREFIX を
+     示します. packages では, [/usr/local] となります.  上記の場合,
+     [/usr/local/lib/dserver/setup-diclookup.sh] と適時読みかえてください. 
+
+II. site-start.el の再編集.
+
+   setup-diclookup.sh を起動すれば, 自動的に設定を追加してくれるのですが,
+   一点だけ修正するところがあります.
+   ${PREFIX}/lib/mule/site-lisp/site-start.el の次の行です.
+
+--------
+(setq od-dictfile-list '("od-chujiten" "od-kojien" "od-readers" "od-crown")) ; diclookup-mule
+--------
+
+   この行では, 使用する辞書 CDROM の中に埋め込まれている外字と, mule で表示
+   させるための文字の組み合わせとの対応表 (辞書依存ファイル)を読み込ま
+   せています.  上の例では,
+
+    od-chujiten       EBXA 版 研究社新英和・和英中辞典5・3版
+    od-kojien         EBXA 版 岩波書店広辞苑
+    od-readers        EBXA 版 研究社リーダーズ英和辞典
+    od-crown          EBXA 版 三省堂クラウン仏和・独和辞典
+
+   という, 私三田が持っている 8cm CDROM 辞書の辞書依存ファイルを読み込ま
+   せています.
+
+   diclookup-mule-2.3.3 には他にも, 次のような辞書依存ファイルが揃って
+   いますので, 適宜追加削除します.
+
+    od-chujiten64     EBXA 版 研究社新英和・和英中辞典6・4版
+    od-chujiten64-epw EPWING 版 研究社新英和・和英中辞典6・4版
+    od-oxford         Oxford コンサイス英英辞典, シソーラス
+    od-italian        日外アソシエーツ 現代イタリア語表現辞典
+
+   特に, EPWING 版 研究社新英和・和英中辞典6・4版 は, パシフィック
+   ハイテックhttp://www.pht.co.jp/ さんから出ている, 
+   FreeBSD Pro 2.2.6J にバンドルされているなど, 
+   標準的に売られている辞書なので, この辞書をお持ちの方が増えてくると
+   思いますので注意が必要です.
+   (蛇足ながら, xanim をインストールして, EPWING 版の新英和中辞典を
+    使えば, 音声データを聞くことができます. これで発音もばっちり.)
+
+III. 削除(uninstall)
+
+    削除は，インストールの逆を行えばよいわけですが，自動的に削除を
+  行うためのシェルスクリプト，[${PREFIX}/lib/dserver/deinstall.sh] を
+  用意しておきました．
+
+    その後で，pkg_deleteを行えばOKのはずです．
+
+質問，不平不満など御座いましたらmita@jp.FreeBSD.orgにどうぞ．
diff --git a/japanese/diclookup-emacs20/files/deinstall-diclookup.sh b/japanese/diclookup-emacs20/files/deinstall-diclookup.sh
new file mode 100644
index 000000000000..add03bf16586
--- /dev/null
+++ b/japanese/diclookup-emacs20/files/deinstall-diclookup.sh
@@ -0,0 +1,14 @@
+#!/bin/sh
+/usr/bin/dialog --title "ja-diclookup-mule deinstallation script" --clear \
+	--yesno "\n\
+Removing diclookup-mule initialization code from site-start.el \n\
+Are you sure?" -1 -1
+RETVAL=$?
+
+if [ "X${RETVAL}" = "X0" ] ; then # answer is `Yes'. hack diclookup-mule.
+cp PREFIX_DIR/lib/mule/site-lisp/site-start.el PREFIX_DIR/lib/mule/site-lisp/site-start.el.bak
+grep -v diclookup-mule PREFIX_DIR/lib/mule/site-lisp/site-start.el.bak > PREFIX_DIR/lib/mule/site-lisp/site-start.el
+
+/usr/bin/dialog --title "Message" --clear \
+	--msgbox "Thank you for using diclookup-mule.  A bientot." -1 -1
+fi
diff --git a/japanese/diclookup-emacs20/files/patch-aa b/japanese/diclookup-emacs20/files/patch-aa
new file mode 100644
index 000000000000..8fe67e3198b0
--- /dev/null
+++ b/japanese/diclookup-emacs20/files/patch-aa
@@ -0,0 +1,11 @@
+--- diclookup-mule.el.orig	Sun Aug  2 15:52:36 1998
++++ diclookup-mule.el	Sun Aug  2 15:52:47 1998
+@@ -2562,7 +2562,7 @@
+ 	    (set-process-coding-system
+ 	     process od-no-conversion od-no-conversion)
+ 	    (message "transferring sound data...")
+-	    (setq rate (* rate 100))
++	    (setq rate (* rate 1000))
+ 	    (process-send-string
+ 	     process
+ 	     (concat "RIFF"
diff --git a/japanese/diclookup-emacs20/files/setup-diclookup.sh b/japanese/diclookup-emacs20/files/setup-diclookup.sh
new file mode 100644
index 000000000000..e0d033b901d6
--- /dev/null
+++ b/japanese/diclookup-emacs20/files/setup-diclookup.sh
@@ -0,0 +1,61 @@
+#!/bin/sh
+/usr/bin/dialog --title "ja-diclookup setup" --clear \
+	--yesno "\n\
+You have to install appropreate startup code for diclookup-mule. \n\
+This setup script automatically it to: \n\
+PREFIX_DIR/lib/mule/site-lisp/site-start.el. \n\n\
+Are you sure?" -1 -1
+RETVAL=$?
+# RETVAL=0 for yes, 1 for no, 255 for ESC.
+
+if [ "X${RETVAL}" = "X0" ] ; then # answer is `Yes'. hack diclookup-mule.
+
+# Hack PREFIX_DIR/lib/mule/site-lisp/site-start.el
+rm -f /tmp/hack-site-start.el
+echo "(defun hack-site-start ()" >> /tmp/hack-site-start.el
+echo "  (interactive)" >> /tmp/hack-site-start.el
+echo "  (message \"Updating site-start.el.  \")" >> /tmp/hack-site-start.el
+echo "  (let* ((args command-line-args-left)" >> /tmp/hack-site-start.el
+echo "	 (fname (expand-file-name (nth 0 args)))" >> /tmp/hack-site-start.el
+echo "	 (dir (nth 1 args)))" >> /tmp/hack-site-start.el
+echo "    (setq command-line-args-left (cdr (cdr command-line-args-left)))" >> /tmp/hack-site-start.el
+echo "    (set-buffer (get-buffer-create \" *x*\"))" >> /tmp/hack-site-start.el
+echo "    (erase-buffer)" >> /tmp/hack-site-start.el
+echo "    (if (file-exists-p fname)" >> /tmp/hack-site-start.el
+echo "	(insert-file-contents fname))" >> /tmp/hack-site-start.el
+echo "    (goto-char (point-min))" >> /tmp/hack-site-start.el
+echo "    (if (search-forward \";;; diclookup-mule: Online dictionary\" nil t)" >> /tmp/hack-site-start.el
+echo "	(message \"No changes made.\")" >> /tmp/hack-site-start.el
+echo "      (goto-char (point-max))" >> /tmp/hack-site-start.el
+echo "      (insert \"\n;;; diclookup-mule: Online dictionary\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(autoload 'online-dictionary \\\"diclookup-mule\\\" \")" >> /tmp/hack-site-start.el
+echo "      (insert \"\\\"Online dictionary.\\\" t nil)\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(autoload 'od:lookup-pattern-edit \\\"diclookup-mule\\\" \")" >> /tmp/hack-site-start.el
+echo "      (insert \"\\\"Look up a word.\\\" t nil)\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(setq od-chujiten-flag t)	; diclookup-mule\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(setq od-dictfile-list '(\\\"od-chujiten\\\" \\\"od-kojien\\\" \\\"od-readers\\\" \\\"od-crown\\\")) \")" >> /tmp/hack-site-start.el
+echo "      (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(setq dserver-server-list '(\\\"localhost\\\")) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(setq od-frame-geometry \\\"+0-0\\\" od-hide-frame \")" >> /tmp/hack-site-start.el
+echo "      (insert \"'make-invisible) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(add-hook 'od-really-quit-hook 'od-delete-frame) \")" >> /tmp/hack-site-start.el
+echo "      (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"(define-key-after menu-bar-file-menu [dictionary] \")" >> /tmp/hack-site-start.el
+echo "      (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
+echo "      (insert \"	'(\\\"Online Dictionary\\\" . online-dictionary) 'calendar) \")" >> /tmp/hack-site-start.el
+echo "      (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
+echo "      (write-file fname))))" >> /tmp/hack-site-start.el
+
+mule -batch -q -l /tmp/hack-site-start.el -f hack-site-start \
+		PREFIX_DIR/lib/mule/site-lisp/site-start.el ;
+rm -f /tmp/hack-site-start.el
+
+/usr/bin/dialog --title "ja-diclookup setup" --clear \
+	--msgbox "\n\
+original file is saved in PREFIX_DIR/lib/mule/site-lisp/site-start.el.bak" -1 -1
+
+else
+/usr/bin/dialog --title "ja-diclookup setup" --clear \
+	--msgbox "\n\
+For setup, documents under PREFIX_DIR/lib/dserver will be helpful." -1 -1
+fi