Mercurial > hg > xemacs-beta

comparison lisp/egg/eggrc-wnn @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
53 (add-wnn-dict "iwanami/tel.dic" "" 1 nil nil) 53 (add-wnn-dict "iwanami/tel.dic" "" 1 nil nil)
54 (add-wnn-dict "iwanami/zip.dic" "" 1 nil nil) 54 (add-wnn-dict "iwanami/zip.dic" "" 1 nil nil)
55 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t) 55 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
56 ; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil) 56 ; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
57 ; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil) 57 ; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
58 (set-wnn-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200) 58 (wnn-server-set-param '(wnn_n 5
59 wnn_nsho 10
60 wnn_hindo 2
61 wnn_len 45
62 wnn_jiri 0
63 wnn_flag 80
64 wnn_jisho 5
65 wnn_sbn 1
66 wnn_dbn_len 20
67 wnn_sbn_cnt 0
68 wnn_suuji 400
69 wnn_kana -100
70 wnn_eisuu 400
71 wnn_kigou 80
72 wnn_toji_kakko 200
73 wnn_fuzokogo 2
74 wnn_kaikakko 200))
75 ; (set-wnn-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200)
59 76
60 (add-wnn-notrans-dict "usr/$USER/katakana" 15 t) 77 (add-wnn-notrans-dict "usr/$USER/katakana" 15 t)
61 (add-wnn-bmodify-dict "usr/$USER/bunsetsu" 15 t) 78 (add-wnn-bmodify-dict "usr/$USER/bunsetsu" 15 t)
62 79
63 (set-last-is-first-mode t) 80 (set-last-is-first-mode t)
78 ; (set-symbol-mode -40) 95 ; (set-symbol-mode -40)
79 96
80 (set-wnn-reverse t) 97 (set-wnn-reverse t)
81 (set-wnn-fuzokugo "iwanami/kougo.fzk") 98 (set-wnn-fuzokugo "iwanami/kougo.fzk")
82 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t) 99 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
83 (set-wnn-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200) 100 (wnn-server-set-param '(wnn_n 2
101 wnn_nsho 10
102 wnn_hindo 2
103 wnn_len 45
104 wnn_jiri 1
105 wnn_flag 80
106 wnn_jisho 5
107 wnn_sbn 1
108 wnn_dbn_len 50
109 wnn_sbn_cnt -20
110 wnn_suuji 400
111 wnn_kana -10
112 wnn_eisuu 100
113 wnn_kigou -100
114 wnn_toji_kakko 200
115 wnn_fuzokogo 2
116 wnn_kaikakko 200))
117 ; (set-wnn-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200)
84 118
85 ) 119 )
86 120
87 121
88 (defun wnn4-jserver-setup () 122 (defun wnn4-jserver-setup ()
99 (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil) 133 (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil)
100 (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t) 134 (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t)
101 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 135 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
102 ; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil) 136 ; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
103 ; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil) 137 ; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
104 (set-wnn-param 2 10 2 45 5 80 5 1 40 0 400 -100 400 80 200 2 200) 138 (wnn-server-set-param '(wnn_n 2
139 wnn_nsho 10
140 wnn_hindo 2
141 wnn_len 45
142 wnn_jiri 5
143 wnn_flag 80
144 wnn_jisho 5
145 wnn_sbn 1
146 wnn_dbn_len 40
147 wnn_sbn_cnt 0
148 wnn_suuji 400
149 wnn_kana -100
150 wnn_eisuu 400
151 wnn_kigou 80
152 wnn_toji_kakko 200
153 wnn_fuzokogo 2
154 wnn_kaikakko 200))
155 ; (set-wnn-param 2 10 2 45 5 80 5 1 40 0 400 -100 400 80 200 2 200)
105 (set-wnn-reverse t) 156 (set-wnn-reverse t)
106 (set-wnn-fuzokugo "pubdic/full.fzk") 157 (set-wnn-fuzokugo "pubdic/full.fzk")
107 (add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t) 158 (add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t)
108 (add-wnn-dict "pubdic/setsuji.dic" (concat wnn-usr-dic-dir "/setsuji.h") 5 nil t) 159 (add-wnn-dict "pubdic/setsuji.dic" (concat wnn-usr-dic-dir "/setsuji.h") 5 nil t)
109 (add-wnn-dict "pubdic/koyuu.dic" (concat wnn-usr-dic-dir "/koyuu.h") 1 nil t) 160 (add-wnn-dict "pubdic/koyuu.dic" (concat wnn-usr-dic-dir "/koyuu.h") 1 nil t)
115 (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil) 166 (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil)
116 (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t) 167 (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t)
117 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 168 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
118 ; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil) 169 ; (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
119 ; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil) 170 ; (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
120 (set-wnn-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200) 171 (wnn-server-set-param '(wnn_n 2
172 wnn_nsho 10
173 wnn_hindo 2
174 wnn_len 45
175 wnn_jiri 1
176 wnn_flag 80
177 wnn_jisho 5
178 wnn_sbn 1
179 wnn_dbn_len 50
180 wnn_sbn_cnt -20
181 wnn_suuji 400
182 wnn_kana -10
183 wnn_eisuu 100
184 wnn_kigou -100
185 wnn_toji_kakko 200
186 wnn_fuzokogo 2
187 wnn_kaikakko 200))
188 ; (set-wnn-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200)
121 189
122 ) 190 )
123 191
124 (cond ((eq wnn-server-type 'jserver) 192 (cond ((eq wnn-server-type 'jserver)
125 (if (is-wnn6-server) 193 (if (is-wnn6-server)
130 (set-wnn-fuzokugo "sys/full.con") 198 (set-wnn-fuzokugo "sys/full.con")
131 (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t) 199 (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t)
132 (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t) 200 (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t)
133 (add-wnn-dict "sys/basic.dic" (concat wnn-usr-dic-dir "/basic.h") 7 nil t) 201 (add-wnn-dict "sys/basic.dic" (concat wnn-usr-dic-dir "/basic.h") 7 nil t)
134 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 202 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
135 (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) 203 (wnn-server-set-param '(wnn_n 1
204 wnn_nsho 5
205 wnn_hindo 2
206 wnn_len 750
207 wnn_jiri 10
208 wnn_flag 80
209 wnn_jisho 10
210 wnn_sbn 5
211 wnn_dbn_len 1000
212 wnn_sbn_cnt 50
213 wnn_suuji 0
214 wnn_kana -200
215 wnn_eisuu 0
216 wnn_kigou 0
217 wnn_toji_kakko 0
218 wnn_fuzokogo 16
219 wnn_kaikakko 0))
220 ; (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
136 (set-wnn-reverse t) 221 (set-wnn-reverse t)
137 (set-wnn-fuzokugo "sys/full.con") 222 (set-wnn-fuzokugo "sys/full.con")
138 (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t) 223 (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t)
139 (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t) 224 (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t)
140 (add-wnn-dict "sys/basic.dic" (concat wnn-usr-dic-dir "/basic.h") 7 nil t) 225 (add-wnn-dict "sys/basic.dic" (concat wnn-usr-dic-dir "/basic.h") 7 nil t)
141 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 226 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
142 (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) 227 (wnn-server-set-param '(wnn_n 1
228 wnn_nsho 5
229 wnn_hindo 2
230 wnn_len 750
231 wnn_jiri 10
232 wnn_flag 80
233 wnn_jisho 10
234 wnn_sbn 5
235 wnn_dbn_len 1000
236 wnn_sbn_cnt 50
237 wnn_suuji 0
238 wnn_kana -200
239 wnn_eisuu 0
240 wnn_kigou 0
241 wnn_toji_kakko 0
242 wnn_fuzokogo 16
243 wnn_kaikakko 0))
244 ; (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
143 ) 245 )
144 ((eq wnn-server-type 'tserver) 246 ((eq wnn-server-type 'tserver)
145 (set-wnn-reverse nil) 247 (set-wnn-reverse nil)
146 (set-wnn-fuzokugo "sys/full.con") 248 (set-wnn-fuzokugo "sys/full.con")
147 (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t) 249 (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t)
148 (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t) 250 (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t)
149 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 251 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
150 (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) 252 (wnn-server-set-param '(wnn_n 1
253 wnn_nsho 5
254 wnn_hindo 2
255 wnn_len 750
256 wnn_jiri 10
257 wnn_flag 80
258 wnn_jisho 10
259 wnn_sbn 5
260 wnn_dbn_len 1000
261 wnn_sbn_cnt 50
262 wnn_suuji 0
263 wnn_kana -200
264 wnn_eisuu 0
265 wnn_kigou 0
266 wnn_toji_kakko 0
267 wnn_fuzokogo 16
268 wnn_kaikakko 0))
269 ; (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
151 (set-wnn-reverse t) 270 (set-wnn-reverse t)
152 (set-wnn-fuzokugo "sys/full.con") 271 (set-wnn-fuzokugo "sys/full.con")
153 (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t) 272 (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t)
154 (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t) 273 (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t)
155 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 274 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
156 (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) 275 (wnn-server-set-param '(wnn_n 1
276 wnn_nsho 5
277 wnn_hindo 2
278 wnn_len 750
279 wnn_jiri 10
280 wnn_flag 80
281 wnn_jisho 10
282 wnn_sbn 5
283 wnn_dbn_len 1000
284 wnn_sbn_cnt 50
285 wnn_suuji 0
286 wnn_kana -200
287 wnn_eisuu 0
288 wnn_kigou 0
289 wnn_toji_kakko 0
290 wnn_fuzokogo 16
291 wnn_kaikakko 0))
292 ; (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
157 ) 293 )
158 ((eq wnn-server-type 'kserver) 294 ((eq wnn-server-type 'kserver)
159 (set-wnn-reverse nil) 295 (set-wnn-reverse nil)
160 (set-wnn-fuzokugo "sys/full.fzk") 296 (set-wnn-fuzokugo "sys/full.fzk")
161 ; (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t) 297 ; (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
162 (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t) 298 (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
163 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 299 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
164 ; (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t) 300 ; (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
165 ; (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t) 301 ; (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t)
166 (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) 302 (wnn-server-set-param '(wnn_n 1
303 wnn_nsho 5
304 wnn_hindo 2
305 wnn_len 750
306 wnn_jiri 10
307 wnn_flag 80
308 wnn_jisho 10
309 wnn_sbn 5
310 wnn_dbn_len 1000
311 wnn_sbn_cnt 50
312 wnn_suuji 0
313 wnn_kana -200
314 wnn_eisuu 0
315 wnn_kigou 0
316 wnn_toji_kakko 0
317 wnn_fuzokogo 16
318 wnn_kaikakko 0))
319 ; (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
167 (set-wnn-reverse t) 320 (set-wnn-reverse t)
168 (set-wnn-fuzokugo "sys/full.fzk") 321 (set-wnn-fuzokugo "sys/full.fzk")
169 ; (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t) 322 ; (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
170 (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t) 323 (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
171 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t) 324 (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
172 ; (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t) 325 ; (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
173 ; (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t) 326 ; (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t)
174 (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0) 327 (wnn-server-set-param '(wnn_n 1
328 wnn_nsho 5
329 wnn_hindo 2
330 wnn_len 750
331 wnn_jiri 10
332 wnn_flag 80
333 wnn_jisho 10
334 wnn_sbn 5
335 wnn_dbn_len 1000
336 wnn_sbn_cnt 50
337 wnn_suuji 0
338 wnn_kana -200
339 wnn_eisuu 0
340 wnn_kigou 0
341 wnn_toji_kakko 0
342 wnn_fuzokogo 16
343 wnn_kaikakko 0))
344 ; (set-wnn-param 1 5 2 750 10 80 10 5 1000 50 0 -200 0 0 0 16 0)
175 ) 345 )
176 ) 346 )
177 347
178 ;; N nsho hindo len jiri flag jisho sbn dbn_len sbn_cnt suuji kana eisuu kigou toji_kakko fuzokogo kaikakko 348 ;; N nsho hindo len jiri flag jisho sbn dbn_len sbn_cnt suuji kana eisuu kigou toji_kakko fuzokogo kaikakko
179 349