0
|
1 ;
|
|
2 ; $Id: ./2C_VI $
|
|
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 ; vi move-mode
|
|
33 (defvar char (all))
|
|
34 (defvar esc (list '\033'))
|
|
35 (defvar susup (list '^Z'))
|
|
36 (defvar jumpc (list F f T t))
|
|
37 (defvar termc (list B b E e W w H h j k L l ' '))
|
|
38 (defvar inpc (list A a I i O o S s C R))
|
|
39 (defvar mzrc (list m z r '\'' '\`' @))
|
|
40 (defvar find (list / ?))
|
|
41
|
|
42 (if vijump)(char) (off vijump)(char)
|
|
43
|
|
44 (if vic)c (off vic)(off vimove)c
|
|
45 (if vic)(jumpc) (off vic)(off vimove)(on vijump)(jumpc)
|
|
46 (if vic)(if zenkaku)(termc) (off vic)(off vimove)(on viquote)(on vithrow)(off zenkaku)(on VIzenkaku)(termc)
|
|
47 (if vic)(termc) (off vic)(off vimove)(on viquote)(termc)
|
|
48 (if vic)(char) (off vic)(char)
|
|
49
|
|
50 (if vid)d (off vid)d
|
|
51 (if vid)(jumpc) (off vid)(on vijump)(jumpc)
|
|
52 (if vid)(termc) (off vid)(termc)
|
|
53 (if vid)(char) (off vid)(char)
|
|
54
|
|
55 (if vimzrc)(char) (off vimzrc)(char)
|
|
56
|
|
57 c (on vic)c
|
|
58 d (on vid)d
|
|
59 (jumpc) (on vijump)(jumpc)
|
|
60 (mzrc) (on vimzrc)(mzrc)
|
|
61 (if romkan)(inpc) (off vimove)(on viquote)(inpc)
|
|
62 (if zenkaku)(inpc) (off vimove)(on vithrow)(on viquote)(off zenkaku)(on VIzenkaku)(inpc)
|
|
63 (unless zenkaku)(inpc) (off vimove)(on viquote)(inpc)
|
|
64 ;(mzrc)(char) (mzrc)(char)'^L'
|
|
65
|
|
66 ZZ ZZ'^L'(on quote)(off romkan)(off zenkaku)(off vimode)(on vimove)
|
|
67 (susup) (susup)(on quote)(off romkan)(off zenkaku)(off vimode)(on vimove)
|
|
68
|
|
69 !! (off vimove)(on vish)!!'^L'
|
|
70 : (off vimove)(on viex):
|
|
71 (if romzen)(find) (off vimove)(on vithrow)(find)(on vistr)
|
|
72 (if romkan)(find) (off vimove)(on vistr)(find)
|
|
73 (if zenkaku)(find) (off vimove)(on vithrow)(off zenkaku)(on VIzenkaku)(find)(on vistr)
|
|
74 (unless zenkaku)(find) (off vimove)(on vistr)(find)
|
|
75
|
|
76 ;'^I' '^E'
|
|
77 ;'\x9f' '^Y'
|
|
78 (char) (char)
|