File: 1.2.canna

package info (click to toggle)
canna 3.5b2-14
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 7,116 kB
  • ctags: 25,066
  • sloc: ansic: 79,093; makefile: 23,873; yacc: 403; lex: 379; cpp: 369; sh: 87; awk: 7
file content (76 lines) | stat: -rw-r--r-- 3,308 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
;; Copyright 1992 NEC Corporation, Tokyo, Japan.
;;
;; Permission to use, copy, modify, distribute and sell this software
;; and its documentation for any purpose is hereby granted without
;; fee, provided that the above copyright notice appear in all copies
;; and that both that copyright notice and this permission notice
;; appear in supporting documentation, and that the name of NEC
;; Corporation not be used in advertising or publicity pertaining to
;; distribution of the software without specific, written prior
;; permission.  NEC Corporation makes no representations about the
;; suitability of this software for any purpose.  It is provided "as
;; is" without express or implied warranty.
;;
;; NEC CORPORATION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
;; INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN 
;; NO EVENT SHALL NEC CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
;; CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF 
;; USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR 
;; OTHER TORTUOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR 
;; PERFORMANCE OF THIS SOFTWARE. 

;;  $Id: 1.2.canna,v 1.6 1996/10/25 05:22:50 kon Exp $

;;  default binding for romaji-kana translation table and dictionaries.

(setq romkana-table "default.cbp")

(use-dictionary
 "iroha"
 "fuzokugo"
 "hojomwd"
 "hojoswd"
 :bushu "bushu"
 :user  "user"
 )

;;  setting for compatibility with Canna version 1.2

(let ((mode 'yomi-mode))
  (set-key mode "\C-i" 'base-rotate-forward)
  (set-key mode "\C-o" 'base-rotate-backward)
  )

(set-mode-display 'alpha-mode             "")
(set-mode-display 'empty-mode             "  []")
(set-mode-display 'hex-mode               "  [16]")
(set-mode-display 'bushu-mode             "  []")
(set-mode-display 'henkan-nyuuryoku-mode  "  []")
(set-mode-display 'zen-hira-kakutei-mode  "[]")
(set-mode-display 'zen-kata-kakutei-mode  "[]")
(set-mode-display 'han-kata-kakutei-mode  "[]")
(set-mode-display 'zen-alpha-kakutei-mode "[]")
(set-mode-display 'han-alpha-kakutei-mode "[a]")
(set-mode-display 'kigou-mode             "  []")

(set-mode-display 'yes-no-mode            "  []")
(set-mode-display 'extend-mode            "  [ĥ]")
(set-mode-display 'russian-mode           "  []")
(set-mode-display 'greek-mode             "  []")
(set-mode-display 'line-mode              "  []")
(set-mode-display 'changing-server-mode   "  [ѹ]")
(set-mode-display 'henkan-method-mode     "  [Ѵ]")
(set-mode-display 'delete-dic-mode        "  []")
(set-mode-display 'touroku-mode           "  [Ͽ]")
(set-mode-display 'touroku-hinshi-mode    "  [ʻ]")
(set-mode-display 'touroku-dic-mode       "  []")
(set-mode-display 'quoted-insert-mode     "  []")
(set-mode-display 'bubun-muhenkan-mode    "  [Խ]")
(set-mode-display 'zen-kata-henkan-mode   "  []")
(set-mode-display 'han-kata-henkan-mode   "  []")
(set-mode-display 'zen-alpha-henkan-mode  "  []")
(set-mode-display 'han-alpha-henkan-mode  "  [a]")
(set-mode-display 'mount-dic-mode         "  []")
(set-mode-display 'mojishu-mode           "  []")
(set-mode-display 'tankouho-mode          "  []")
(set-mode-display 'ichiran-mode           "  []")