Mercurial > freewnn
comparison cWnn/cd/rk_p/2B_QianMa @ 0:bbc77ca4def5
initial import
author | Yoshiki Yazawa <yaz@cc.rim.or.jp> |
---|---|
date | Thu, 13 Dec 2007 04:30:14 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:bbc77ca4def5 |
---|---|
1 ; | |
2 ; $Id: ./2B_QianMa $ | |
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 (defvar str (list 0 1 2 3 4 5 6 7 8 9 [ ] ; ? \ | |
33 a b c d e f g h i j k l m n o p q r s t u v w x y z)) | |
34 | |
35 (if strk0)(str) (str) 'A' | |
36 'A' (off strk0)(on strk1) | |
37 (if strk1)(str) (str) 'B' | |
38 'B' (off strk1)(on strk2) | |
39 (if strk2)(str) (str) 'C' | |
40 'C' '\x9E' 'T' | |
41 'T' (off strk1)(off strk2)(on strk0) | |
42 | |
43 (if strk1)'R' '\x08''\x08' 'S' ; 'R': BS_key | |
44 (if strk2)'R' '\x08' 'S' | |
45 (if strk0)'R' '\x08' | |
46 (unless strk0)'\x20' '\x9E' 'T' ; 0x89: Transfer | |
47 ; 0x20: space key | |
48 '\x9f' '\x9f' 'T' ; 0x9f: Certification | |
49 | |
50 (if strk2)'S' (off strk2)(on strk1) | |
51 (if strk1)'S' (off strk1)(on strk0) |