cgit.sxemacs.org Git - packages/blob - mule-packages/egg-its/eggrc-wnn

   1 ;;      -*-Emacs-Lisp-*-
   2 ;; Standard Start Up File for EGG
   3 ;; Copyright (C) 1992 Free Software Foundation, Inc.
   4 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
   5
   6 ;; Mule is free software distributed in the form of patches to GNU Emacs.
   7 ;; You can redistribute it and/or modify
   8 ;; it under the terms of the GNU General Public License as published by
   9 ;; the Free Software Foundation; either version 1, or (at your option)
  10 ;; any later version.
  11
  12 ;; Mule is distributed in the hope that it will be useful,
  13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;; GNU General Public License for more details.
  16
  17 ;; You should have received a copy of the GNU General Public License
  18 ;; along with GNU Emacs; see the file COPYING.  If not, write to
  19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20
  21 ;;;      Version 1.0
  22 ;;;      Written by Satoru.Tomura@etl.jp 1988
  23 ;;;      modified for LUNA'default  ryuji@nfa.ncl.omron.junet
  24 ;;;
  25 ;;;      modified for Wnn V4 - Use compatible library of Wnn v3
  26 ;;;      Copyright 1989 OMRON Tateisi Electronics, Co.
  27 ;;;      1989 7/12 by H.Kuribayashi kuri@frf.omron.junet
  28
  29 ;;; 92.5.19  modified for Wnn V4 by T.Shingu <shingu@cpr.canon.co.jp>
  30 ;;;     Use non compatible library.
  31 ;;; 93.1.8   file names of frequency and private dictionary ware adjusted
  32 ;;;     to Wnn version 4.1.
  33 ;;; 93.4.2   dictianary, frequency files are set up on normal/reverse
  34 ;;;     environment individually.
  35 ;;; 93.6.30  specifying default user directory to make customize easily
  36 ;;;     suggested by K.Sakai <ksakai@mtl.t.u-tokyo.ac.jp>
  37
  38 ;(defvar wnn-usr-dic-dir "usr/$USER")
  39 (defvar wnn-usr-dic-dir (concat "usr/" (user-login-name)))
  40
  41 (defun wnn6-jserver-setup ()
  42        (set-wnn-reverse nil)
  43        (set-wnn-fuzokugo "iwanami/kougo.fzk")
  44        (add-wnn-fisys-dict "iwanami/fisd"
  45                            (concat wnn-usr-dic-dir "/fisd.h") t)
  46        (add-wnn-fiusr-dict (concat wnn-usr-dic-dir "/fiud") "" t nil)
  47        (add-wnn-dict "iwanami/kihon.dic"
  48                      (concat wnn-usr-dic-dir "/kihon.h") 6 nil t)
  49        (add-wnn-dict "iwanami/symbol.dic"
  50                      (concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
  51        (add-wnn-dict "iwanami/tankan.dic" "" 1 nil nil)
  52        (add-wnn-dict "iwanami/tankan2.dic" "" 1 nil nil)
  53        (add-wnn-dict "iwanami/tel.dic"
  54                      (concat wnn-usr-dic-dir "/tel.h") 1 nil t)
  55        (add-wnn-dict "iwanami/zip.dic"
  56                      (concat wnn-usr-dic-dir "/zip.h") 1 nil t)
  57        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
  58 ;       (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
  59 ;       (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
  60        (wnn-server-set-param '(wnn_n 5
  61                         wnn_nsho 10
  62                         wnn_hindo 2
  63                         wnn_len 45
  64                         wnn_jiri 0
  65                         wnn_flag 80
  66                         wnn_jisho 5
  67                         wnn_sbn 1
  68                         wnn_dbn_len 20
  69                         wnn_sbn_cnt 0
  70                         wnn_suuji 400
  71                         wnn_kana -100
  72                         wnn_eisuu 400
  73                         wnn_kigou 80
  74                         wnn_toji_kakko 200
  75                         wnn_fuzokogo 2
  76                         wnn_kaikakko 200))
  77 ;       (set-wnn-param  5 10 2 45 0  80 5 1 20  0 400 -100 400   80 200 2 200)
  78
  79        (add-wnn-notrans-dict (concat wnn-usr-dic-dir "/muhenkan") 15 t)
  80        (add-wnn-bmodify-dict (concat wnn-usr-dic-dir "/bunsetsu") 15 t)
  81
  82        (set-last-is-first-mode t)
  83        (set-complex-conv-mode nil)
  84 ;       (set-okuri-flag -1)
  85        (set-prefix-flag 0)
  86
  87        (set-okuri-learn-mode t)
  88        (set-prefix-learn-mode t)
  89        (set-suffix-learn-mode t)
  90        (set-common-learn-mode t)
  91        (set-yuragi-mode nil)
  92
  93        (set-freq-func-mode 4)
  94
  95 ;       (set-numeric-mode -12)
  96 ;       (set-alphabet-mode -30)
  97 ;       (set-symbol-mode -40)
  98
  99        (set-wnn-reverse t)
 100        (set-wnn-fuzokugo "iwanami/kougo.fzk")
 101        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 15 t t)
 102        (wnn-server-set-param '(wnn_n 2
 103                         wnn_nsho 10
 104                         wnn_hindo 2
 105                         wnn_len 45
 106                         wnn_jiri 1
 107                         wnn_flag 80
 108                         wnn_jisho 5
 109                         wnn_sbn 1
 110                         wnn_dbn_len 50
 111                         wnn_sbn_cnt -20
 112                         wnn_suuji 400
 113                         wnn_kana -10
 114                         wnn_eisuu 100
 115                         wnn_kigou -100
 116                         wnn_toji_kakko 200
 117                         wnn_fuzokogo 2
 118                         wnn_kaikakko 200))
 119 ;       (set-wnn-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200)
 120
 121        )
 122
 123
 124 (defun wnn4-jserver-setup ()
 125        (set-wnn-reverse nil)
 126        (set-wnn-fuzokugo "pubdic/full.fzk")
 127        (add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t)
 128        (add-wnn-dict "pubdic/setsuji.dic" (concat wnn-usr-dic-dir "/setsuji.h") 5 nil t)
 129        (add-wnn-dict "pubdic/koyuu.dic" (concat wnn-usr-dic-dir "/koyuu.h") 1 nil t)
 130        (add-wnn-dict "pubdic/chimei.dic" (concat wnn-usr-dic-dir "/chimei.h") 1 nil t)
 131        (add-wnn-dict "pubdic/jinmei.dic" (concat wnn-usr-dic-dir "/jinmei.h") 1 nil t)
 132        (add-wnn-dict "pubdic/special.dic" (concat wnn-usr-dic-dir "/special.h") 5 nil t)
 133        (add-wnn-dict "pubdic/computer.dic" (concat wnn-usr-dic-dir "/computer.h") 5 nil t)
 134        (add-wnn-dict "pubdic/symbol.dic" (concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
 135        (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil)
 136        (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t)
 137        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 138 ;       (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
 139 ;       (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
 140 ; New Parameter
 141        (wnn-server-set-param '(wnn_n 2
 142                         wnn_nsho 10
 143                         wnn_hindo 2
 144                         wnn_len 45
 145                         wnn_jiri 100
 146                         wnn_flag 200
 147                         wnn_jisho 5
 148                         wnn_sbn 1
 149                         wnn_dbn_len 40
 150                         wnn_sbn_cnt -100
 151                         wnn_suuji 200
 152                         wnn_kana -100
 153                         wnn_eisuu 200
 154                         wnn_kigou 80
 155                         wnn_toji_kakko 200
 156                         wnn_fuzokogo 200
 157                         wnn_kaikakko 200))
 158 ;       (set-wnn-param  2 10 2 45 5  80 5 1 40  0 400 -100 400   80 200 2 200)
 159        (set-wnn-reverse t)
 160        (set-wnn-fuzokugo "pubdic/full.fzk")
 161        (add-wnn-dict "pubdic/kihon.dic" (concat wnn-usr-dic-dir "/kihon.h") 5 nil t)
 162        (add-wnn-dict "pubdic/setsuji.dic" (concat wnn-usr-dic-dir "/setsuji.h") 5 nil t)
 163        (add-wnn-dict "pubdic/koyuu.dic" (concat wnn-usr-dic-dir "/koyuu.h") 1 nil t)
 164        (add-wnn-dict "pubdic/chimei.dic" (concat wnn-usr-dic-dir "/chimei.h") 1 nil t)
 165        (add-wnn-dict "pubdic/jinmei.dic" (concat wnn-usr-dic-dir "/jinmei.h") 1 nil t)
 166        (add-wnn-dict "pubdic/special.dic" (concat wnn-usr-dic-dir "/special.h") 5 nil t)
 167        (add-wnn-dict "pubdic/computer.dic" (concat wnn-usr-dic-dir "/computer.h") 5 nil t)
 168 ;       (add-wnn-dict "pubdic/symbol.dic" (concat wnn-usr-dic-dir "/symbol.h") 1 nil t)
 169        (add-wnn-dict "pubdic/tankan.dic" "" 1 nil nil)
 170        (add-wnn-dict "pubdic/bio.dic" (concat wnn-usr-dic-dir "/bio.h") 1 nil t)
 171        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 172 ;       (add-wnn-dict "wnncons/tankan2.dic" "" 1 nil nil)
 173 ;       (add-wnn-dict "wnncons/tankan3.dic" "" 1 nil nil)
 174        (wnn-server-set-param '(wnn_n 2
 175                         wnn_nsho 10
 176                         wnn_hindo 2
 177                         wnn_len 45
 178                         wnn_jiri 1
 179                         wnn_flag 80
 180                         wnn_jisho 5
 181                         wnn_sbn 1
 182                         wnn_dbn_len 50
 183                         wnn_sbn_cnt -20
 184                         wnn_suuji 400
 185                         wnn_kana -10
 186                         wnn_eisuu 100
 187                         wnn_kigou -100
 188                         wnn_toji_kakko 200
 189                         wnn_fuzokogo 2
 190                         wnn_kaikakko 200))
 191 ;       (set-wnn-param  2 10 2 45 1 80 5 1 50 -20 400 -10  100  -100 200 0 200)
 192
 193 )
 194
 195 (cond ((eq wnn-server-type 'jserver)
 196        (if (is-wnn6-server)
 197            (wnn6-jserver-setup)
 198          (wnn4-jserver-setup)))
 199       ((eq wnn-server-type 'cserver)
 200        (set-wnn-reverse nil)
 201        (set-wnn-fuzokugo "sys/full.con")
 202        (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t)
 203        (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t)
 204        (add-wnn-dict "sys/basic.dic"    (concat wnn-usr-dic-dir "/basic.h") 7 nil t)
 205        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 206        (wnn-server-set-param '(wnn_n 1
 207                         wnn_nsho 5
 208                         wnn_hindo 2
 209                         wnn_len 750
 210                         wnn_jiri 10
 211                         wnn_flag 80
 212                         wnn_jisho 10
 213                         wnn_sbn 5
 214                         wnn_dbn_len 1000
 215                         wnn_sbn_cnt 50
 216                         wnn_suuji 0
 217                         wnn_kana -200
 218                         wnn_eisuu 0
 219                         wnn_kigou 0
 220                         wnn_toji_kakko 0
 221                         wnn_fuzokogo 16
 222                         wnn_kaikakko 0))
 223 ;       (set-wnn-param 1 5  2 750 10 80 10 5 1000 50  0  -200  0  0  0  16  0)
 224        (set-wnn-reverse t)
 225        (set-wnn-fuzokugo "sys/full.con")
 226        (add-wnn-dict "sys/level_1.dic" (concat wnn-usr-dic-dir "/level_1.h") 4 nil t)
 227        (add-wnn-dict "sys/level_2.dic" (concat wnn-usr-dic-dir "/level_2.h") 1 nil t)
 228        (add-wnn-dict "sys/basic.dic"    (concat wnn-usr-dic-dir "/basic.h") 7 nil t)
 229        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 230        (wnn-server-set-param '(wnn_n 1
 231                         wnn_nsho 5
 232                         wnn_hindo 2
 233                         wnn_len 750
 234                         wnn_jiri 10
 235                         wnn_flag 80
 236                         wnn_jisho 10
 237                         wnn_sbn 5
 238                         wnn_dbn_len 1000
 239                         wnn_sbn_cnt 50
 240                         wnn_suuji 0
 241                         wnn_kana -200
 242                         wnn_eisuu 0
 243                         wnn_kigou 0
 244                         wnn_toji_kakko 0
 245                         wnn_fuzokogo 16
 246                         wnn_kaikakko 0))
 247 ;       (set-wnn-param 1 5  2 750 10 80 10 5 1000 50  0  -200  0  0  0  16  0)
 248        )
 249       ((eq wnn-server-type 'tserver)
 250        (set-wnn-reverse nil)
 251        (set-wnn-fuzokugo "sys/full.con")
 252        (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t)
 253        (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t)
 254        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 255        (wnn-server-set-param '(wnn_n 1
 256                         wnn_nsho 5
 257                         wnn_hindo 2
 258                         wnn_len 750
 259                         wnn_jiri 10
 260                         wnn_flag 80
 261                         wnn_jisho 10
 262                         wnn_sbn 5
 263                         wnn_dbn_len 1000
 264                         wnn_sbn_cnt 50
 265                         wnn_suuji 0
 266                         wnn_kana -200
 267                         wnn_eisuu 0
 268                         wnn_kigou 0
 269                         wnn_toji_kakko 0
 270                         wnn_fuzokogo 16
 271                         wnn_kaikakko 0))
 272 ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
 273        (set-wnn-reverse t)
 274        (set-wnn-fuzokugo "sys/full.con")
 275        (add-wnn-dict "sys/cns_ch.dic" (concat wnn-usr-dic-dir "/cns_ch.h") 4 nil t)
 276        (add-wnn-dict "sys/cns_wd.dic" (concat wnn-usr-dic-dir "/cns_wd.h") 1 nil t)
 277        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 278        (wnn-server-set-param '(wnn_n 1
 279                         wnn_nsho 5
 280                         wnn_hindo 2
 281                         wnn_len 750
 282                         wnn_jiri 10
 283                         wnn_flag 80
 284                         wnn_jisho 10
 285                         wnn_sbn 5
 286                         wnn_dbn_len 1000
 287                         wnn_sbn_cnt 50
 288                         wnn_suuji 0
 289                         wnn_kana -200
 290                         wnn_eisuu 0
 291                         wnn_kigou 0
 292                         wnn_toji_kakko 0
 293                         wnn_fuzokogo 16
 294                         wnn_kaikakko 0))
 295 ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
 296        )
 297       ((eq wnn-server-type 'kserver)
 298        (set-wnn-reverse nil)
 299        (set-wnn-fuzokugo "sys/full.fzk")
 300                                         ;       (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
 301        (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
 302        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 303                                         ;       (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
 304                                         ;       (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t)
 305        (wnn-server-set-param '(wnn_n 1
 306                         wnn_nsho 5
 307                         wnn_hindo 2
 308                         wnn_len 750
 309                         wnn_jiri 10
 310                         wnn_flag 80
 311                         wnn_jisho 10
 312                         wnn_sbn 5
 313                         wnn_dbn_len 1000
 314                         wnn_sbn_cnt 50
 315                         wnn_suuji 0
 316                         wnn_kana -200
 317                         wnn_eisuu 0
 318                         wnn_kigou 0
 319                         wnn_toji_kakko 0
 320                         wnn_fuzokogo 16
 321                         wnn_kaikakko 0))
 322 ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
 323        (set-wnn-reverse t)
 324        (set-wnn-fuzokugo "sys/full.fzk")
 325                                         ;       (add-wnn-dict "sys/hword.dic" (concat wnn-usr-dic-dir "/hword.h") 4 nil t)
 326        (add-wnn-dict "sys/single.dic" (concat wnn-usr-dic-dir "/single.h") 1 nil t)
 327        (add-wnn-dict (concat wnn-usr-dic-dir "/ud") "" 5 t t)
 328                                         ;       (add-wnn-dict (concat wnn-usr-dic-dir "/hangul") "" 5 t t)
 329                                         ;       (add-wnn-dict (concat wnn-usr-dic-dir "/fuzokugo") "" 5 t t)
 330        (wnn-server-set-param '(wnn_n 1
 331                         wnn_nsho 5
 332                         wnn_hindo 2
 333                         wnn_len 750
 334                         wnn_jiri 10
 335                         wnn_flag 80
 336                         wnn_jisho 10
 337                         wnn_sbn 5
 338                         wnn_dbn_len 1000
 339                         wnn_sbn_cnt 50
 340                         wnn_suuji 0
 341                         wnn_kana -200
 342                         wnn_eisuu 0
 343                         wnn_kigou 0
 344                         wnn_toji_kakko 0
 345                         wnn_fuzokogo 16
 346                         wnn_kaikakko 0))
 347 ;       (set-wnn-param 1 5 2 750 10 80 10 5 1000 50  0 -200 0 0 0 16 0)
 348        )
 349       )
 350
 351 ;;       N nsho hindo len jiri flag jisho sbn dbn_len sbn_cnt suuji kana eisuu kigou toji_kakko fuzokogo kaikakko
 352