eggrc

   1 ;;; eggrc --- EGG Input Method Startup File
   2
   3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
   4
   5 ;; Author: KATAYAMA Yoshio <kate@pfu.co.jp>
   6
   7 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
   8
   9 ;; Keywords: mule, multilingual, input method
  10
  11 ;; This file is part of EGG.
  12
  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)
  16 ;; any later version.
  17
  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.
  22
  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.
  27
  28 ;;; Commentary:
  29
  30 ;;; Code:
  31
  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)
  50
  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))
  68
  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)
  84
  85   (wnn-add-notrans-dict '("katakana") 15 t)
  86   (wnn-add-bmodify-dict '("bunsetsu") 15 t)
  87
  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)
  92
  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)
  98
  99   (wnn-set-freq-func-mode 4)
 100
 101 ;  (wnn-set-numeric-mode -12)
 102 ;  (wnn-set-alphabet-mode -30)
 103 ;  (wnn-set-symbol-mode -40)
 104
 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))
 109
 110 (cond
 111  ((eq egg-backend-type 'wnn)
 112   (cond
 113    ((eq wnn-server-type 'jserver)
 114     (if wnn-wnn6-server
 115         (wnn6-jserver-setup)
 116       (wnn4-jserver-setup)))
 117
 118    ((eq wnn-server-type 'cserver)
 119     (if wnn-use-bixing
 120         (progn
 121           (wnn-define-environment nil "Q")
 122           (wnn-set-fuzokugo "sys/full.con")
 123           (wnn-add-dict "sys/QianMa.dic"     nil         1 nil nil)
 124
 125           (wnn-define-environment nil "W")
 126           (wnn-set-fuzokugo "sys/full.con")
 127           (wnn-add-dict "sys/WuBi.dic"       nil         1 nil nil)))
 128
 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)
 138
 139     (if wnn-use-bixing
 140         (progn
 141           (wnn-define-environment t "Q")
 142           (wnn-set-fuzokugo "sys/full.conR")
 143           (wnn-add-dict "sys/QianMa.dic"     nil         1 nil nil)
 144
 145           (wnn-define-environment t "W")
 146           (wnn-set-fuzokugo "sys/full.conR")
 147           (wnn-add-dict "sys/WuBi.dic"       nil         1 nil nil)))
 148
 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))
 158
 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)
 166
 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))
 173
 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)
 181
 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))))
 188
 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")
 192
 193   (sj3-setsysdic "sj3main.dic")
 194
 195   (sj3-setusrdic "private.dic")
 196   (sj3-setusrstdy "study.dat")))