diff cWnn/cd/rk_p/2B_WuBi @ 0:bbc77ca4def5

initial import
author Yoshiki Yazawa <yaz@cc.rim.or.jp>
date Thu, 13 Dec 2007 04:30:14 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cWnn/cd/rk_p/2B_WuBi	Thu Dec 13 04:30:14 2007 +0900
@@ -0,0 +1,55 @@
+;
+;   $Id: ./2B_WuBi $
+;
+
+;
+; FreeWnn is a network-extensible Kana-to-Kanji conversion system.
+; This file is part of FreeWnn.
+; 
+; Copyright Kyoto University Research Institute for Mathematical Sciences
+;                 1987, 1988, 1989, 1990, 1991, 1992
+; Copyright OMRON Corporation. 1987, 1988, 1989, 1990, 1991, 1992, 1999
+; Copyright ASTEC, Inc. 1987, 1988, 1989, 1990, 1991, 1992
+; Copyright FreeWnn Project 1999, 2000
+; 
+; Maintainer:  FreeWnn Project   <freewnn@tomo.gr.jp>
+; 
+; This program is free software; you can redistribute it and/or modify
+; it under the terms of the GNU General Public License as published by
+; the Free Software Foundation; either version 2 of the License, or
+; (at your option) any later version.
+; 
+; This program is distributed in the hope that it will be useful,
+; but WITHOUT ANY WARRANTY; without even the implied warranty of
+; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+; GNU General Public License for more details.
+; 
+; You should have received a copy of the GNU General Public License
+; along with this program; if not, write to the Free Software
+; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+;
+
+(defvar str (list 	0 1 2 3 4 5 6 7 8 9 ? \
+		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))
+
+(if strk0)(str)  (str)	'A'	
+'A'	(off strk0)(on strk1)
+(if strk1)(str)  (str)	'B'
+'B' 	(off strk1)(on strk2)
+(if strk2)(str)  (str)	'C'
+'C'	(off strk2)(on strk3)
+(if strk3)(str)  (str)	'D'
+'D'		'\x9E'	'T'
+'T'	(off strk1)(off strk2)(off strk3)(on strk0)
+
+(if strk1)'R'  '\x08''\x08'	  	'S'	; 'R': back_space
+(if strk2)'R'  '\x08'			'S'	; 
+(if strk3)'R'  '\x08'			'S'	;
+(if strk0)'R'  '\x08'
+(if strk3)'S'	(off strk3)(on strk2)
+(if strk2)'S'	(off strk2)(on strk1)
+(if strk1)'S'	(off strk1)(on strk0)
+
+(unless  strk0)'\x20'	'\x9E'	'T'	; 0x89: Tan Transfer
+						; 0x20: space key
+'\x9f'	'\x9f'		'T'			; 0x9f: Certification