view Wnn/jd/rk.vi/mode @ 3:ed4bb01eb317

- suppress warnings. - partially fixed comparison between pointer and 0.

;
;   $Id: ./mode $
;

;
; 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
;

(search @LIBDIR/@LANG/rk.vi @LIBDIR/@LANG/rk)
(defmode romkan)
(defmode katakana)
(defmode zenkaku)
(defmode romzen)
(defmode keisen)
(defmode KEISEN1)
(defmode esc)
(defmode quote on)
; For vi
(defmode vimode off)
(defmode vimove on)
(defmode vijump off)
(defmode viex off)
(defmode vid off)
(defmode vic off)
(defmode vistr off)
(defmode viquote off)
(defmode VIquote off)
(defmode vithrow off)
(defmode VIzenkaku off)
(defmode vish off)
(defmode vimzrc off)
; For C source mode
(defmode cSrcMode off)
(defmode comment off)

2A_CTRL
(if (and cSrcMode (not comment)) "[SRC]")
(if (and vimode vijump) 2C_VI "[$$$]")
(if (and vimode vimove) 2C_VI "[vi ]")
(if (and vimode viex) 2C_VIEX "[ex ]")
(if (and vimode vish) 2C_VISH "[!!!]")
(when (and vimode vistr) 2C_VIEX)

;(if (and (not vimode) esc) "[ESC]")
(if (and (not vimode) quote)
	(if zenkaku 3B_ZENKAKU "[ Q ]")
	"[ q ]")

(if (and (or vistr viquote) (and vimode VIquote)) 
	(if zenkaku 3B_ZENKAKU "[viQ]")
	(if VIzenkaku  2_VITHROW "[viQ]")
	"[viq]")
(if (and (and vimode vithrow) (or romzen (not romkan)))  2_VITHROW
	(if romzen "[１R]")
	(if VIzenkaku
		(if (not katakana) "[あ ]")
		"[ア ]")
	(if (not VIzenkaku)
		(if (not katakana) "[Aあ]")
		"[ｱｲA]"))

(if keisen 2B_KEISEN "[ksn]")
(if KEISEN1 2C_KEISEN1 "[KSN]")
	
(if romzen
	1B_newTOUPPER
	2B_ROMKANA 2B_JIS 2B_DAKUTEN
	3B_ZENASC (if vimode "[１R]")
	"[１r]")

(if romkan
	1B_newTOUPPER
	2B_ROMKANA 2B_JIS
	(if (not katakana) 2B_DAKUTEN (if vimode "[あR]")
	"[あr]")
	(if zenkaku 3B_KATAKANA (if vimode "[アR]")
	"[アr]")
	3B_HANKATA (if vimode "[ｱｲR]")
	"[ｱｲr]")

2B_DAKUTEN
(if (not katakana) 1B_ZENHIRA
	(if zenkaku 3B_ZENKAKU "[あ ]")
	"[Aあ]")

(if zenkaku 1B_ZENKATA 3B_ZENKAKU "[ア ]")
"[ｱｲA]"