diff Wnn/jd/rk/2A_CTRL @ 0:bbc77ca4def5

initial import

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Wnn/jd/rk/2A_CTRL	Thu Dec 13 04:30:14 2007 +0900
@@ -0,0 +1,46 @@
+;
+;   $Id: ./rk/2A_CTRL $
+;
+
+;
+; 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   <[e-mail]>
+; 
+; 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 esc (list '\033' '^X'))
+(defvar char (all))
+(defvar cont (list '^g'))
+
+(unless esc)'\x81'	(switch katakana)
+(unless esc)'\x82'	(switch zenkaku)
+(unless esc)'\x83'	(switch romkan)
+;(unless esc)'\x85'	(switch tcode)
+
+(if romkan)(unless quote)(esc)		(on esc)(off romkan)(esc)
+(if esc)(char)				(off esc)(on romkan)(char)
+
+(if romkan)q		(on quote)(off romkan)(off zenkaku)
+(if romkan)Q		(on quote)(off romkan)(on zenkaku)
+(if quote)(cont)	(off quote)(on romkan)