1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-24 00:45:52 +00:00

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>
This commit is contained in:
Satoshi Asami 1998-08-03 00:15:02 +00:00
parent be10e3a77d
commit f53a04c335
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=12257
20 changed files with 600 additions and 0 deletions

View File

@ -0,0 +1,37 @@
# New ports collection makefile for: diclookup-mule
# Version required: 2.3.1beta2
# Date created: 31 Jan 1998
# Whom: Mita Yoshio <mita@jp.FreeBSD.org>
#
# $Id$
#
DISTNAME= diclookup-mule-2.3.3
PKGNAME= ja-diclookup-mule-2.3.3
CATEGORIES= japanese
MASTER_SITES= ftp://ftp.math.s.chiba-u.ac.jp/tools/diclookup-mule/
PATCH_SITES= ${MASTER_SITES}
PATCHFILES= diclookup-mule-2.3.3-wave-patch.gz
MAINTAINER= mita@jp.FreeBSD.org
RUN_DEPENDS= ${X11BASE}/lib/X11/fonts/non-cjk/fonts.dir:${PORTSDIR}/x11/etlfonts
BUILD_DEPENDS= mule:${PORTSDIR}/japanese/mule-wnn4
post-install:
${MKDIR} ${PREFIX}/lib/dserver/doc
@${SED} s!PREFIX_DIR!${PREFIX}!g ${FILESDIR}/setup-diclookup.sh \
> ${PREFIX}/lib/dserver/setup-diclookup.sh
@${SED} s!PREFIX_DIR!${PREFIX}!g ${FILESDIR}/deinstall-diclookup.sh \
> ${PREFIX}/lib/dserver/deinstall-diclookup.sh
${INSTALL_DATA} ${FILESDIR}/README.diclookup-setup.txt \
${PREFIX}/lib/dserver/doc
${INSTALL_DATA} ${WRKSRC}/README \
${PREFIX}/lib/dserver/doc/README.diclookup-mule
${INSTALL_DATA} ${WRKSRC}/README.sirup \
${PREFIX}/lib/dserver/doc/
${INSTALL_DATA} ${WRKSRC}/lib/README \
${PREFIX}/lib/dserver/doc/README.diclookup-mule.lib
.include <bsd.port.mk>

View File

@ -0,0 +1,2 @@
MD5 (diclookup-mule-2.3.3.tar.gz) = 76f01fc26b7fc5fcf2064584bf672549
MD5 (diclookup-mule-2.3.3-wave-patch.gz) = bad55b2e3aba2a69338a96c95bb70df5

View File

@ -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にどうぞ

View File

@ -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

View File

@ -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"

View File

@ -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

View File

@ -0,0 +1 @@
CDROM dictionary client for mule

View File

@ -0,0 +1,7 @@
diclookup-mule is a CDROM dictionary client for mule.
This package requires mule and ndtp server.
Either dserver (japanese/dserver) or ndtpd (japanese/ndtpd) must be set up.
WOW! This version supports `sound' of EPWING V2 format. Let's install xanim.
(Sound in the other format like EB,EBG,EBXA are not supported.)

View File

@ -0,0 +1,8 @@
To use these Emacs Lisp, startup code is needed.
Consider to use ${PREFIX}/lib/dserver/setup-diclookup.sh
(Also note deinstallation is deinstall-diclookup.sh)
Also (or to begin with), Network Dictionary Transfer Protocol
server is mandatory. You can use either:
dserver: ports/japanese/dserver, ja-dserver-2.2.2
ndtpd: Will be soon come to ports collection.

View File

@ -0,0 +1,19 @@
lib/dserver/doc/README.diclookup-setup.txt
lib/dserver/doc/README.diclookup-mule
lib/dserver/doc/README.sirup
lib/dserver/doc/README.diclookup-mule.lib
lib/dserver/setup-diclookup.sh
lib/dserver/deinstall-diclookup.sh
lib/mule/site-lisp/od-eiwa.elc
lib/mule/site-lisp/od-oxford.elc
lib/mule/site-lisp/od-italian.elc
lib/mule/site-lisp/od-crown.elc
lib/mule/site-lisp/od-kojien.elc
lib/mule/site-lisp/od-chujiten64-epw.elc
lib/mule/site-lisp/od-chujiten64.elc
lib/mule/site-lisp/od-chujiten.elc
lib/mule/site-lisp/od-readers.elc
lib/mule/site-lisp/diclookup-mule.elc
lib/mule/site-lisp/sirup-doc.elc
lib/mule/site-lisp/sirup.elc
lib/mule/site-lisp/ndtp.elc

View File

@ -0,0 +1,37 @@
# New ports collection makefile for: diclookup-mule
# Version required: 2.3.1beta2
# Date created: 31 Jan 1998
# Whom: Mita Yoshio <mita@jp.FreeBSD.org>
#
# $Id$
#
DISTNAME= diclookup-mule-2.3.3
PKGNAME= ja-diclookup-mule-2.3.3
CATEGORIES= japanese
MASTER_SITES= ftp://ftp.math.s.chiba-u.ac.jp/tools/diclookup-mule/
PATCH_SITES= ${MASTER_SITES}
PATCHFILES= diclookup-mule-2.3.3-wave-patch.gz
MAINTAINER= mita@jp.FreeBSD.org
RUN_DEPENDS= ${X11BASE}/lib/X11/fonts/non-cjk/fonts.dir:${PORTSDIR}/x11/etlfonts
BUILD_DEPENDS= mule:${PORTSDIR}/japanese/mule-wnn4
post-install:
${MKDIR} ${PREFIX}/lib/dserver/doc
@${SED} s!PREFIX_DIR!${PREFIX}!g ${FILESDIR}/setup-diclookup.sh \
> ${PREFIX}/lib/dserver/setup-diclookup.sh
@${SED} s!PREFIX_DIR!${PREFIX}!g ${FILESDIR}/deinstall-diclookup.sh \
> ${PREFIX}/lib/dserver/deinstall-diclookup.sh
${INSTALL_DATA} ${FILESDIR}/README.diclookup-setup.txt \
${PREFIX}/lib/dserver/doc
${INSTALL_DATA} ${WRKSRC}/README \
${PREFIX}/lib/dserver/doc/README.diclookup-mule
${INSTALL_DATA} ${WRKSRC}/README.sirup \
${PREFIX}/lib/dserver/doc/
${INSTALL_DATA} ${WRKSRC}/lib/README \
${PREFIX}/lib/dserver/doc/README.diclookup-mule.lib
.include <bsd.port.mk>

View File

@ -0,0 +1,2 @@
MD5 (diclookup-mule-2.3.3.tar.gz) = 76f01fc26b7fc5fcf2064584bf672549
MD5 (diclookup-mule-2.3.3-wave-patch.gz) = bad55b2e3aba2a69338a96c95bb70df5

View File

@ -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にどうぞ

View File

@ -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

View File

@ -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"

View File

@ -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

View File

@ -0,0 +1 @@
CDROM dictionary client for mule

View File

@ -0,0 +1,7 @@
diclookup-mule is a CDROM dictionary client for mule.
This package requires mule and ndtp server.
Either dserver (japanese/dserver) or ndtpd (japanese/ndtpd) must be set up.
WOW! This version supports `sound' of EPWING V2 format. Let's install xanim.
(Sound in the other format like EB,EBG,EBXA are not supported.)

View File

@ -0,0 +1,8 @@
To use these Emacs Lisp, startup code is needed.
Consider to use ${PREFIX}/lib/dserver/setup-diclookup.sh
(Also note deinstallation is deinstall-diclookup.sh)
Also (or to begin with), Network Dictionary Transfer Protocol
server is mandatory. You can use either:
dserver: ports/japanese/dserver, ja-dserver-2.2.2
ndtpd: Will be soon come to ports collection.

View File

@ -0,0 +1,19 @@
lib/dserver/doc/README.diclookup-setup.txt
lib/dserver/doc/README.diclookup-mule
lib/dserver/doc/README.sirup
lib/dserver/doc/README.diclookup-mule.lib
lib/dserver/setup-diclookup.sh
lib/dserver/deinstall-diclookup.sh
lib/mule/site-lisp/od-eiwa.elc
lib/mule/site-lisp/od-oxford.elc
lib/mule/site-lisp/od-italian.elc
lib/mule/site-lisp/od-crown.elc
lib/mule/site-lisp/od-kojien.elc
lib/mule/site-lisp/od-chujiten64-epw.elc
lib/mule/site-lisp/od-chujiten64.elc
lib/mule/site-lisp/od-chujiten.elc
lib/mule/site-lisp/od-readers.elc
lib/mule/site-lisp/diclookup-mule.elc
lib/mule/site-lisp/sirup-doc.elc
lib/mule/site-lisp/sirup.elc
lib/mule/site-lisp/ndtp.elc