1 ;;; eggrc --- EGG Input Method Startup File
3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
5 ;; Author: KATAYAMA Yoshio <kate@pfu.co.jp>
7 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
9 ;; Keywords: mule, multilingual, input method
11 ;; This file is part of EGG.
13 ;; EGG is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation; either version 2, or (at your option)
18 ;; EGG is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; GNU General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;; Boston, MA 02111-1307, USA.
32 (defun wnn4-jserver-setup ()
33 (wnn-define-environment nil)
34 (wnn-set-fuzokugo "pubdic/full.fzk")
35 (wnn-add-dict "pubdic/kihon.dic" '("kihon.h") 5 nil t)
36 (wnn-add-dict "pubdic/setsuji.dic" '("setsuji.h") 5 nil t)
37 (wnn-add-dict "pubdic/koyuu.dic" '("koyuu.h") 1 nil t)
38 (wnn-add-dict "pubdic/chimei.dic" '("chimei.h") 1 nil t)
39 (wnn-add-dict "pubdic/jinmei.dic" '("jinmei.h") 1 nil t)
40 (wnn-add-dict "pubdic/special.dic" '("special.h") 5 nil t)
41 (wnn-add-dict "pubdic/computer.dic" '("computer.h") 5 nil t)
42 (wnn-add-dict "pubdic/symbol.dic" '("symbol.h") 1 nil t)
43 (wnn-add-dict "pubdic/tankan.dic" nil 1 nil nil)
44 (wnn-add-dict "pubdic/bio.dic" '("bio.h") 1 nil t)
45 (wnn-add-dict '("ud") nil 5 t t)
46 (wnn-add-dict "wnncons/tankan2.dic" nil 1 nil nil)
47 (wnn-add-dict "wnncons/tankan3.dic" nil 1 nil nil)
48 ; (wnn-add-dict "gerodic/g-jinmei.dic" '("g-jinmei.h") 1 nil t)
49 (wnn-set-param 2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200)
51 (wnn-define-environment t)
52 (wnn-set-fuzokugo "pubdic/full.fzk")
53 (wnn-add-dict "pubdic/kihon.dic" '("kihon.h") 5 nil t)
54 (wnn-add-dict "pubdic/setsuji.dic" '("setsuji.h") 5 nil t)
55 (wnn-add-dict "pubdic/koyuu.dic" '("koyuu.h") 1 nil t)
56 (wnn-add-dict "pubdic/chimei.dic" '("chimei.h") 1 nil t)
57 (wnn-add-dict "pubdic/jinmei.dic" '("jinmei.h") 1 nil t)
58 (wnn-add-dict "pubdic/special.dic" '("special.h") 5 nil t)
59 (wnn-add-dict "pubdic/computer.dic" '("computer.h") 5 nil t)
60 (wnn-add-dict "pubdic/symbol.dic" '("symbol.h") 1 nil t)
61 (wnn-add-dict "pubdic/tankan.dic" nil 1 nil nil)
62 (wnn-add-dict "pubdic/bio.dic" '("bio.h") 1 nil t)
63 (wnn-add-dict '("ud") nil 5 t t)
64 (wnn-add-dict "wnncons/tankan2.dic" nil 1 nil nil)
65 (wnn-add-dict "wnncons/tankan3.dic" nil 1 nil nil)
66 ; (wnn-add-dict "gerodic/g-jinmei.dic" '("g-jinmei.h") 1 nil t)
67 (wnn-set-param 2 10 2 45 100 200 5 1 40 -100 200 -100 200 80 200 200 200))
69 (defun wnn6-jserver-setup ()
70 (wnn-define-environment nil)
71 (wnn-set-fuzokugo "iwanami/kougo.fzk")
72 (wnn-add-fisys-dict "iwanami/fisd" '("fisd.h") t)
73 (wnn-add-fiusr-dict '("fiud") nil t nil)
74 (wnn-add-dict "iwanami/kihon.dic" '("kihon.h") 6 nil t)
75 (wnn-add-dict "iwanami/symbol.dic" '("symbol.h") 1 nil t)
76 (wnn-add-dict "iwanami/tankan.dic" nil 1 nil nil)
77 (wnn-add-dict "iwanami/tankan2.dic" nil 1 nil nil)
78 (wnn-add-dict "iwanami/tel.dic" nil 1 nil nil)
79 (wnn-add-dict "iwanami/zip.dic" nil 1 nil nil)
80 (wnn-add-dict '("ud") nil 15 t t)
81 ; (wnn-add-dict "wnncons/tankan2.dic" nil 1 nil nil)
82 ; (wnn-add-dict "wnncons/tankan3.dic" nil 1 nil nil)
83 (wnn-set-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200)
85 (wnn-add-notrans-dict '("katakana") 15 t)
86 (wnn-add-bmodify-dict '("bunsetsu") 15 t)
88 (wnn-set-last-is-first-mode t)
89 (wnn-set-complex-conv-mode nil)
90 ; (wnn-set-okuri-flag -1)
91 (wnn-set-prefix-flag 0)
93 (wnn-set-okuri-learn-mode t)
94 (wnn-set-prefix-learn-mode t)
95 (wnn-set-suffix-learn-mode t)
96 (wnn-set-common-learn-mode t)
97 (wnn-set-yuragi-mode nil)
99 (wnn-set-freq-func-mode 4)
101 ; (wnn-set-numeric-mode -12)
102 ; (wnn-set-alphabet-mode -30)
103 ; (wnn-set-symbol-mode -40)
105 (wnn-define-environment t)
106 (wnn-set-fuzokugo "iwanami/kougo.fzk")
107 (wnn-add-dict '("ud") "" 15 t t)
108 (wnn-set-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200))
111 ((eq egg-backend-type 'wnn)
113 ((eq wnn-server-type 'jserver)
116 (wnn4-jserver-setup)))
118 ((eq wnn-server-type 'cserver)
121 (wnn-define-environment nil "Q")
122 (wnn-set-fuzokugo "sys/full.con")
123 (wnn-add-dict "sys/QianMa.dic" nil 1 nil nil)
125 (wnn-define-environment nil "W")
126 (wnn-set-fuzokugo "sys/full.con")
127 (wnn-add-dict "sys/WuBi.dic" nil 1 nil nil)))
129 (wnn-define-environment nil "PZ")
130 (wnn-set-fuzokugo "sys/full.con")
131 (wnn-add-dict "sys/level_1.dic" '("level_1.h") 4 nil t)
132 (wnn-add-dict "sys/level_2.dic" '("level_2.h") 1 nil t)
133 (wnn-add-dict "sys/basic.dic" '("basic.h") 7 nil t)
134 (wnn-add-dict "sys/computer.dic" '("computer.h") 4 nil t)
135 (wnn-add-dict "sys/cwnn.dic" '("cwnn.h") 4 nil t)
136 (wnn-add-dict '("ud") nil 5 t t)
137 (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
141 (wnn-define-environment t "Q")
142 (wnn-set-fuzokugo "sys/full.conR")
143 (wnn-add-dict "sys/QianMa.dic" nil 1 nil nil)
145 (wnn-define-environment t "W")
146 (wnn-set-fuzokugo "sys/full.conR")
147 (wnn-add-dict "sys/WuBi.dic" nil 1 nil nil)))
149 (wnn-define-environment t "PZ")
150 (wnn-set-fuzokugo "sys/full.conR")
151 (wnn-add-dict "sys/level_1.dic" '("level_1.h") 4 nil t)
152 (wnn-add-dict "sys/level_2.dic" '("level_2.h") 1 nil t)
153 (wnn-add-dict "sys/basic.dic" '("basic.h") 7 nil t)
154 (wnn-add-dict "sys/computer.dic" '("computer.h") 4 nil t)
155 (wnn-add-dict "sys/cwnn.dic" '("cwnn.h") 4 nil t)
156 (wnn-add-dict '("ud") nil 5 t t)
157 (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0))
159 ((eq wnn-server-type 'tserver)
160 (wnn-define-environment nil "PZ")
161 (wnn-set-fuzokugo "sys/full.con")
162 (wnn-add-dict "sys/cns_ch.dic" '("cns_ch.h") 4 nil t)
163 (wnn-add-dict "sys/cns_wd.dic" '("cns_wd.h") 1 nil t)
164 (wnn-add-dict '("ud") nil 5 t t)
165 (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
167 (wnn-define-environment t "PZ")
168 (wnn-set-fuzokugo "sys/full.conR")
169 (wnn-add-dict "sys/cns_ch.dic" '("cns_ch.h") 4 nil t)
170 (wnn-add-dict "sys/cns_wd.dic" '("cns_wd.h") 1 nil t)
171 (wnn-add-dict '("ud") nil 5 t t)
172 (wnn-set-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0))
174 ((eq wnn-server-type 'kserver)
175 (wnn-define-environment nil)
176 (wnn-set-fuzokugo "sys/full.fzk")
177 (wnn-add-dict "sys/hword.dic" '("hword.h") 5 nil t)
178 (wnn-add-dict "sys/single.dic" '("single.h") 1 nil t)
179 (wnn-add-dict '("ud") nil 2 t t)
180 (wnn-set-param 2 5 2 45 200 80 5 1 40 0 400 -100 400 80 200 2 200)
182 (wnn-define-environment t)
183 (wnn-set-fuzokugo "sys/full.fzk")
184 (wnn-add-dict "sys/hword.dic" '("hword.h") 5 nil t)
185 (wnn-add-dict "sys/single.dic" '("single.h") 1 nil t)
186 (wnn-add-dict '("ud") nil 2 t t)
187 (wnn-set-param 2 5 2 45 200 80 5 1 40 0 400 -100 400 80 200 2 200))))
189 ((eq egg-backend-type 'sj3)
190 ; (sj3-set-default-sys-dic-directory "/usr/sony/dict/sj3")
191 ; (sj3-set-default-usr-dic-directory "/usr/sony/dict/sj3/user/$USER")
193 (sj3-setsysdic "sj3main.dic")
195 (sj3-setusrdic "private.dic")
196 (sj3-setusrstdy "study.dat")))