|
0
|
1 ;
|
|
|
2 ; $Id: ./mode $
|
|
|
3 ;
|
|
|
4
|
|
|
5 ;
|
|
|
6 ; FreeWnn is a network-extensible Kana-to-Kanji conversion system.
|
|
|
7 ; This file is part of FreeWnn.
|
|
|
8 ;
|
|
|
9 ; Copyright Kyoto University Research Institute for Mathematical Sciences
|
|
|
10 ; 1987, 1988, 1989, 1990, 1991, 1992
|
|
|
11 ; Copyright OMRON Corporation. 1987, 1988, 1989, 1990, 1991, 1992, 1999
|
|
|
12 ; Copyright ASTEC, Inc. 1987, 1988, 1989, 1990, 1991, 1992
|
|
|
13 ; Copyright FreeWnn Project 1999, 2000
|
|
|
14 ;
|
|
|
15 ; Maintainer: FreeWnn Project <freewnn@tomo.gr.jp>
|
|
|
16 ;
|
|
|
17 ; This program is free software; you can redistribute it and/or modify
|
|
|
18 ; it under the terms of the GNU General Public License as published by
|
|
|
19 ; the Free Software Foundation; either version 2 of the License, or
|
|
|
20 ; (at your option) any later version.
|
|
|
21 ;
|
|
|
22 ; This program is distributed in the hope that it will be useful,
|
|
|
23 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
24 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
25 ; GNU General Public License for more details.
|
|
|
26 ;
|
|
|
27 ; You should have received a copy of the GNU General Public License
|
|
|
28 ; along with this program; if not, write to the Free Software
|
|
|
29 ; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
30 ;
|
|
|
31
|
|
|
32 (search @LIBDIR/@LANG/rk.vi @LIBDIR/@LANG/rk)
|
|
|
33 (defmode romkan)
|
|
|
34 (defmode katakana)
|
|
|
35 (defmode zenkaku)
|
|
|
36 (defmode romzen)
|
|
|
37 (defmode keisen)
|
|
|
38 (defmode KEISEN1)
|
|
|
39 (defmode esc)
|
|
|
40 (defmode quote on)
|
|
|
41 ; For vi
|
|
|
42 (defmode vimode off)
|
|
|
43 (defmode vimove on)
|
|
|
44 (defmode vijump off)
|
|
|
45 (defmode viex off)
|
|
|
46 (defmode vid off)
|
|
|
47 (defmode vic off)
|
|
|
48 (defmode vistr off)
|
|
|
49 (defmode viquote off)
|
|
|
50 (defmode VIquote off)
|
|
|
51 (defmode vithrow off)
|
|
|
52 (defmode VIzenkaku off)
|
|
|
53 (defmode vish off)
|
|
|
54 (defmode vimzrc off)
|
|
|
55 ; For C source mode
|
|
|
56 (defmode cSrcMode off)
|
|
|
57 (defmode comment off)
|
|
|
58
|
|
|
59 2A_CTRL
|
|
|
60 (if (and cSrcMode (not comment)) "[SRC]")
|
|
|
61 (if (and vimode vijump) 2C_VI "[$$$]")
|
|
|
62 (if (and vimode vimove) 2C_VI "[vi ]")
|
|
|
63 (if (and vimode viex) 2C_VIEX "[ex ]")
|
|
|
64 (if (and vimode vish) 2C_VISH "[!!!]")
|
|
|
65 (when (and vimode vistr) 2C_VIEX)
|
|
|
66
|
|
|
67 ;(if (and (not vimode) esc) "[ESC]")
|
|
|
68 (if (and (not vimode) quote)
|
|
|
69 (if zenkaku 3B_ZENKAKU "[ Q ]")
|
|
|
70 "[ q ]")
|
|
|
71
|
|
|
72 (if (and (or vistr viquote) (and vimode VIquote))
|
|
|
73 (if zenkaku 3B_ZENKAKU "[viQ]")
|
|
|
74 (if VIzenkaku 2_VITHROW "[viQ]")
|
|
|
75 "[viq]")
|
|
|
76 (if (and (and vimode vithrow) (or romzen (not romkan))) 2_VITHROW
|
|
|
77 (if romzen "[１R]")
|
|
|
78 (if VIzenkaku
|
|
|
79 (if (not katakana) "[あ ]")
|
|
|
80 "[ア ]")
|
|
|
81 (if (not VIzenkaku)
|
|
|
82 (if (not katakana) "[Aあ]")
|
|
|
83 "[ｱｲA]"))
|
|
|
84
|
|
|
85 (if keisen 2B_KEISEN "[ksn]")
|
|
|
86 (if KEISEN1 2C_KEISEN1 "[KSN]")
|
|
|
87
|
|
|
88 (if romzen
|
|
|
89 1B_newTOUPPER
|
|
|
90 2B_ROMKANA 2B_JIS 2B_DAKUTEN
|
|
|
91 3B_ZENASC (if vimode "[１R]")
|
|
|
92 "[１r]")
|
|
|
93
|
|
|
94 (if romkan
|
|
|
95 1B_newTOUPPER
|
|
|
96 2B_ROMKANA 2B_JIS
|
|
|
97 (if (not katakana) 2B_DAKUTEN (if vimode "[あR]")
|
|
|
98 "[あr]")
|
|
|
99 (if zenkaku 3B_KATAKANA (if vimode "[アR]")
|
|
|
100 "[アr]")
|
|
|
101 3B_HANKATA (if vimode "[ｱｲR]")
|
|
|
102 "[ｱｲr]")
|
|
|
103
|
|
|
104 2B_DAKUTEN
|
|
|
105 (if (not katakana) 1B_ZENHIRA
|
|
|
106 (if zenkaku 3B_ZENKAKU "[あ ]")
|
|
|
107 "[Aあ]")
|
|
|
108
|
|
|
109 (if zenkaku 1B_ZENKATA 3B_ZENKAKU "[ア ]")
|
|
|
110 "[ｱｲA]"
|
