File: ccdef.tcode

package info (click to toggle)
t-code 2%3A2.3.1-11
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,812 kB
  • sloc: lisp: 10,356; perl: 748; sh: 384; makefile: 138
file content (141 lines) | stat: -rw-r--r-- 2,817 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
## 
##	ccdef for T-Code
##

## modified from ccdef.kinput2 of:
## ## $I-d: ccdef.kinput2,v 1.4 1991/08/24 02:15:12 ishisone Exp $


### 
### ccdef ե (Υե뤪ӥ󥯥롼ɤƤե)
### Ϥ٤ EUC ɤǤʤФʤޤ󡣵ĤƲ

# ⡼ɤ
defmode Ascii ZenkakuAscii Tcode JIS Kuten All Restricted

# ⡼ɤλ
initialmode Tcode

# ƥ⡼ɤФ롼ε

# T-Code
mode Tcode	"T-Code"	fallthrough All
    include '/home/ricoh/src/maeda/X/rule.tcode'
	""	Tab		""	goto Ascii
	""	'^Z'		""	goto Ascii
	""	shift-Tab	""	goto ZenkakuAscii
	""	' '		"/"	goto Tcode
endmode

# 
mode Ascii	"ABC"	fallthrough All
#	ä˥롼򵭽ҤɬפϤʤ
	""	Tab		""	goto ZenkakuAscii
	""	'^Z'		""	goto Tcode
	""	shift-Tab	""	goto Tcode
endmode

# ѥ
mode ZenkakuAscii	"£"	fallthrough All
    include 'rule.zascii'
	""	Tab		""	goto Tcode
	""	'^Z'		""	goto Tcode
	""	shift-Tab	""	goto Ascii
endmode

# JIS
mode JIS	"JIS"	fallthrough Restricted
	""	ENTERMODE	""	jiscode-begin
	""	EXITMODE	""	jiscode-end
	""	'0'		"0"
	""	'1'		"1"
	""	'2'		"2"
	""	'3'		"3"
	""	'4'		"4"
	""	'5'		"5"
	""	'6'		"6"
	""	'7'		"7"
	""	'8'		"8"
	""	'9'		"9"
	""	'a'		"A"
	""	'b'		"B"
	""	'c'		"C"
	""	'd'		"D"
	""	'e'		"E"
	""	'f'		"F"
	""	'A'		"A"
	""	'B'		"B"
	""	'C'		"C"
	""	'D'		"D"
	""	'E'		"E"
	""	'F'		"F"
endmode

# 
mode Kuten	""	fallthrough Restricted
	""	ENTERMODE	""	kutencode-begin
	""	EXITMODE	""	kutencode-end
	""	'0'		"0"
	""	'1'		"1"
	""	'2'		"2"
	""	'3'		"3"
	""	'4'		"4"
	""	'5'		"5"
	""	'6'		"6"
	""	'7'		"7"
	""	'8'		"8"
	""	'9'		"9"
endmode

# All -- 
mode All	"?"
	""	control-Kanji	""	end-conversion goto Tcode
	""	shift-space	""	end-conversion goto Tcode
	""	mod1-space	""	end-conversion goto Tcode
#	""	'^\\'		""	end-conversion goto Tcode
	""	F5		""	goto JIS
	""	mod1-5		""	goto JIS
	""	F6		""	goto Kuten
	""	mod1-6		""	goto Kuten

# function key bindings
	""	'^A'		""	move-top
	""	'^B'		""	backward
	""	'^C'		""	unconvert
	""	'^F'		""	delete
	""	'^E'		""	move-bottom
	""	'^L'		""	forward
	""	'^T'		""	next
	""	'^N'		""	previous
	""	'^G'		""	clear
	""	'^H'		""	backspace
#	""	'^K'		""	clear
	""	'^L'		""	forward
	""	'^M'		""	fix-or-cr
	""	'^X'		""	convert
	""	Right		""	forward
	""	Left		""	backward
	""	Delete		""	delete
	""	F1		""	to-katakana
	""	mod1-1		""	to-katakana
	""	F2		""	to-hiragana
	""	mod1-2		""	to-hiragana
	""	F3		""	to-hankaku
	""	mod1-3		""	to-hankaku
	""	F4		""	to-zenkaku
	""	mod1-4		""	to-zenkaku
	""	shift-Escape	""	symbol-input
	""	@keypad		"&"
	""	@printable	"&"

endmode

# Restricted -- JIS  / 
mode Restricted	"??"
	""	F5		""	goto PREV
	""	F6		""	goto PREV
	""	mod1-5		""	goto PREV
	""	mod1-6		""	goto PREV
	""	'^H'		""	backspace
	""	@ascii		""	beep
endmode