|
0
|
1 /*
|
|
|
2 * $Id: key_bind.c,v 1.2 2001/06/14 18:16:16 ura Exp $
|
|
|
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 1991, 1992 by Massachusetts Institute of Technology
|
|
|
14 *
|
|
|
15 * Author: OMRON SOFTWARE Co., Ltd. <freewnn@rd.kyoto.omronsoft.co.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, or (at your option)
|
|
|
20 * 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
|
29 * Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
30 *
|
|
|
31 * Commentary:
|
|
|
32 *
|
|
|
33 * Change log:
|
|
|
34 *
|
|
|
35 * Last modified date: 8,Feb.1999
|
|
|
36 *
|
|
|
37 * Code:
|
|
|
38 *
|
|
|
39 */
|
|
|
40 /* Version 4.0
|
|
|
41 */
|
|
|
42 #include <stdio.h>
|
|
|
43 #include <pwd.h>
|
|
|
44 #include "commonhd.h"
|
|
|
45 #include "config.h"
|
|
|
46 #include "sdefine.h"
|
|
|
47 #ifdef XJUTIL
|
|
|
48 #include "xjutil.h"
|
|
|
49 #include "sxheader.h"
|
|
|
50 #include "xext.h"
|
|
|
51 #else /* XJUTIL */
|
|
|
52 #include "xim.h"
|
|
|
53 #include "sheader.h"
|
|
|
54 #include "ext.h"
|
|
|
55 #endif /* XJUTIL */
|
|
|
56
|
|
|
57 extern char *getenv ();
|
|
|
58 #ifdef XJUTIL
|
|
|
59 static struct kansuu kansuu_hyo[] = {
|
|
|
60 {"send_string", "send what is in the buffer to pty.", 0,
|
|
|
61 NULL, NULL, NULL, NULL, NULL,
|
|
|
62 NULL, NULL, NULL, NULL, NULL,
|
|
|
63 '\0'},
|
|
|
64 {"forward_char", "cursor wo hitotu maeni susumeru.", 1,
|
|
|
65 NULL, forward_char, NULL, NULL, NULL,
|
|
|
66 forward_char, forward_char, NULL, NULL, NULL,
|
|
|
67 '\0'},
|
|
|
68 {"backward_char", "cursor wo hitotu usironi susumeru.", 1,
|
|
|
69 NULL, backward_c, NULL, NULL, NULL,
|
|
|
70 backward_char, backward_char, NULL, NULL, NULL,
|
|
|
71 '\0'},
|
|
|
72 {"goto_top_of_line", "", 1,
|
|
|
73 NULL, c_top, NULL, NULL, NULL,
|
|
|
74 c_top, c_top, NULL, NULL, NULL,
|
|
|
75 '\0'},
|
|
|
76 {"goto_end_of_line", "", 1,
|
|
|
77 NULL, c_end, c_end_nobi, NULL, NULL,
|
|
|
78 c_end, c_end, NULL, NULL, NULL,
|
|
|
79 '\0'},
|
|
|
80 {"delete_char_at_cursor", "", 1,
|
|
|
81 NULL, delete_c, NULL, NULL, NULL,
|
|
|
82 t_delete_char, t_delete_char, NULL, NULL, NULL,
|
|
|
83 '\0'},
|
|
|
84 {"kaijo", "", 0,
|
|
|
85 NULL, NULL, NULL, NULL, NULL,
|
|
|
86 NULL, NULL, NULL, NULL, NULL,
|
|
|
87 '\0'},
|
|
|
88 {"henkan", "", 1,
|
|
|
89 NULL, NULL, NULL, NULL, NULL,
|
|
|
90 NULL, NULL, NULL, NULL, NULL,
|
|
|
91 '\0'},
|
|
|
92 {"tan_henkan", "", 1,
|
|
|
93 NULL, NULL, NULL, NULL, NULL,
|
|
|
94 NULL, NULL, NULL, NULL, NULL,
|
|
|
95 '\0'},
|
|
|
96 {"tan_henkan_dai", "", 1,
|
|
|
97 NULL, NULL, NULL, NULL, NULL,
|
|
|
98 NULL, NULL, NULL, NULL, NULL,
|
|
|
99 '\0'},
|
|
|
100 {"jikouho", "", 0,
|
|
|
101 NULL, NULL, NULL, NULL, NULL,
|
|
|
102 NULL, NULL, NULL, NULL, NULL,
|
|
|
103 '\0'},
|
|
|
104 {"zenkouho", "", 0,
|
|
|
105 NULL, NULL, NULL, NULL, NULL,
|
|
|
106 NULL, NULL, NULL, NULL, NULL,
|
|
|
107 '\0'},
|
|
|
108 {"jikouho_dai", "", 0,
|
|
|
109 NULL, NULL, NULL, NULL, NULL,
|
|
|
110 NULL, NULL, NULL, NULL, NULL,
|
|
|
111 '\0'},
|
|
|
112 {"zenkouho_dai", "", 0,
|
|
|
113 NULL, NULL, NULL, NULL, NULL,
|
|
|
114 NULL, NULL, NULL, NULL, NULL,
|
|
|
115 '\0'},
|
|
|
116 {"select_jikouho", "", 0,
|
|
|
117 NULL, NULL, NULL, NULL, NULL,
|
|
|
118 NULL, NULL, NULL, NULL, NULL,
|
|
|
119 '\0'},
|
|
|
120 {"select_jikouho_dai", "", 0,
|
|
|
121 NULL, NULL, NULL, NULL, NULL,
|
|
|
122 NULL, NULL, NULL, NULL, NULL,
|
|
|
123 '\0'},
|
|
|
124 {"kill", "", 1,
|
|
|
125 NULL, kill_c, NULL, NULL, NULL,
|
|
|
126 t_kill, t_kill, NULL, NULL, NULL,
|
|
|
127 '\0'},
|
|
|
128 {"yank", "", 1,
|
|
|
129 NULL, NULL, NULL, NULL, NULL,
|
|
|
130 NULL, NULL, NULL, NULL, NULL,
|
|
|
131 '\0'},
|
|
|
132 {"yank_e", "", 1,
|
|
|
133 NULL, NULL, NULL, NULL, NULL,
|
|
|
134 NULL, NULL, NULL, NULL, NULL,
|
|
|
135 '\0'},
|
|
|
136 {"bunsetu_nobasi", "", 0,
|
|
|
137 NULL, NULL, NULL, NULL, NULL,
|
|
|
138 NULL, NULL, NULL, NULL, NULL,
|
|
|
139 '\0'},
|
|
|
140 {"bunsetu_chijime", "", 0,
|
|
|
141 NULL, NULL, NULL, NULL, NULL,
|
|
|
142 NULL, NULL, NULL, NULL, NULL,
|
|
|
143 '\0'},
|
|
|
144 {"jisho_utility", "", 0,
|
|
|
145 NULL, NULL, NULL, NULL, NULL,
|
|
|
146 NULL, NULL, NULL, NULL, NULL,
|
|
|
147 '\0'},
|
|
|
148 {"jisho_utility_e", "", 0,
|
|
|
149 NULL, NULL, NULL, NULL, NULL,
|
|
|
150 NULL, NULL, NULL, NULL, NULL,
|
|
|
151 '\0'},
|
|
|
152 {"touroku", "", 1,
|
|
|
153 NULL, NULL, NULL, NULL, NULL,
|
|
|
154 NULL, NULL, NULL, NULL, NULL,
|
|
|
155 '\0'},
|
|
|
156 {"touroku_e", "", 1,
|
|
|
157 NULL, NULL, NULL, NULL, NULL,
|
|
|
158 NULL, NULL, NULL, NULL, NULL,
|
|
|
159 '\0'},
|
|
|
160 {"kakutei", "", 1,
|
|
|
161 NULL, NULL, NULL, NULL, NULL,
|
|
|
162 NULL, NULL, NULL, NULL, NULL,
|
|
|
163 '\0'},
|
|
|
164 {"sainyuuryoku", "", 1,
|
|
|
165 NULL, NULL, NULL, NULL, NULL,
|
|
|
166 NULL, NULL, NULL, NULL, NULL,
|
|
|
167 '\0'},
|
|
|
168 {"sainyuuryoku_e", "", 1,
|
|
|
169 NULL, NULL, NULL, NULL, NULL,
|
|
|
170 NULL, NULL, NULL, NULL, NULL,
|
|
|
171 '\0'},
|
|
|
172 {"kuten", "", 0,
|
|
|
173 NULL, kuten, NULL, NULL, NULL,
|
|
|
174 kuten, kuten, NULL, NULL, NULL,
|
|
|
175 '\0'},
|
|
|
176 {"kuten_e", "", 0,
|
|
|
177 NULL, kuten, NULL, kuten, NULL,
|
|
|
178 kuten, kuten, NULL, NULL, NULL,
|
|
|
179 '\0'},
|
|
|
180 {"jis", "", 0,
|
|
|
181 NULL, jis, NULL, NULL, NULL,
|
|
|
182 jis, jis, NULL, NULL, NULL,
|
|
|
183 '\0'},
|
|
|
184 {"jis_e", "", 0,
|
|
|
185 NULL, jis, NULL, jis, NULL,
|
|
|
186 jis, jis, NULL, NULL, NULL,
|
|
|
187 '\0'},
|
|
|
188 {"redraw_line", "", 1,
|
|
|
189 NULL, NULL, NULL, NULL, NULL,
|
|
|
190 NULL, NULL, NULL, NULL, NULL,
|
|
|
191 '\0'},
|
|
|
192 {"redraw_line_e", "", 1,
|
|
|
193 NULL, NULL, NULL, NULL, NULL,
|
|
|
194 NULL, NULL, NULL, NULL, NULL,
|
|
|
195 '\0'},
|
|
|
196 {"previous_history_e", "", 1,
|
|
|
197 NULL, NULL, NULL, NULL, NULL,
|
|
|
198 NULL, NULL, NULL, NULL, NULL,
|
|
|
199 '\0'},
|
|
|
200 {"previous_history", "", 1,
|
|
|
201 NULL, NULL, NULL, NULL, NULL,
|
|
|
202 NULL, NULL, NULL, NULL, NULL,
|
|
|
203 '\0'},
|
|
|
204 {"next_history_e", "", 1,
|
|
|
205 NULL, NULL, NULL, NULL, NULL,
|
|
|
206 NULL, NULL, NULL, NULL, NULL,
|
|
|
207 '\0'},
|
|
|
208 {"next_history", "", 1,
|
|
|
209 NULL, NULL, NULL, NULL, NULL,
|
|
|
210 NULL, NULL, NULL, NULL, NULL,
|
|
|
211 '\0'},
|
|
|
212 {"touroku_mark_set", "", 0,
|
|
|
213 NULL, NULL, NULL, NULL, NULL,
|
|
|
214 t_markset, NULL, NULL, NULL, NULL,
|
|
|
215 '\0'},
|
|
|
216 {"touroku_return", "", 0,
|
|
|
217 NULL, NULL, NULL, NULL, NULL,
|
|
|
218 NULL, t_ret, NULL, NULL, NULL,
|
|
|
219 '\0'},
|
|
|
220 {"quit", "", 0,
|
|
|
221 NULL, NULL, NULL, NULL, quit_select,
|
|
|
222 t_quit, t_quit, quit_select, quit_select, quit_select,
|
|
|
223 '\0'},
|
|
|
224 {"touroku_jump_forward", "", 0,
|
|
|
225 NULL, NULL, NULL, NULL, NULL,
|
|
|
226 NULL, t_jmp_forward, NULL, NULL, NULL,
|
|
|
227 '\0'},
|
|
|
228 {"touroku_jump_backward", "", 0,
|
|
|
229 NULL, NULL, NULL, NULL, NULL,
|
|
|
230 NULL, t_jmp_backward, NULL, NULL, NULL,
|
|
|
231 '\0'},
|
|
|
232 {"change_to_insert_mode", "", 0,
|
|
|
233 NULL, NULL, NULL, NULL, NULL,
|
|
|
234 NULL, NULL, NULL, NULL, NULL,
|
|
|
235 '\0'},
|
|
|
236 {"quote_e", "", 0,
|
|
|
237 NULL, quote, NULL, quote, NULL,
|
|
|
238 NULL, NULL, NULL, NULL, NULL,
|
|
|
239 '\0'},
|
|
|
240 {"quote", "", 0,
|
|
|
241 NULL, quote, NULL, NULL, NULL,
|
|
|
242 NULL, NULL, NULL, NULL, NULL,
|
|
|
243 '\0'},
|
|
|
244 {"send_ascii_char", "", 0,
|
|
|
245 NULL, NULL, NULL, NULL, NULL,
|
|
|
246 NULL, NULL, NULL, NULL, NULL,
|
|
|
247 '\0'},
|
|
|
248 {"toggle_send_ascii_char", "", 0,
|
|
|
249 NULL, NULL, NULL, NULL, NULL,
|
|
|
250 NULL, NULL, NULL, NULL, NULL,
|
|
|
251 '\0'},
|
|
|
252 {"not_send_ascii_char", "", 0,
|
|
|
253 NULL, NULL, NULL, NULL, NULL,
|
|
|
254 NULL, NULL, NULL, NULL, NULL,
|
|
|
255 '\0'},
|
|
|
256 {"pop_send_ascii_char", "", 0,
|
|
|
257 NULL, NULL, NULL, NULL, NULL,
|
|
|
258 NULL, NULL, NULL, NULL, NULL,
|
|
|
259 '\0'},
|
|
|
260 {"quote_send_ascii_char", "", 0,
|
|
|
261 NULL, NULL, NULL, NULL, NULL,
|
|
|
262 NULL, NULL, NULL, NULL, NULL,
|
|
|
263 '\0'},
|
|
|
264 {"select_select", "", 0,
|
|
|
265 NULL, NULL, NULL, NULL, select_select,
|
|
|
266 NULL, NULL, kworddel_op, select_select, select_select,
|
|
|
267 '\0'},
|
|
|
268 {"lineend_select", "", 0,
|
|
|
269 NULL, NULL, NULL, NULL, lineend_select,
|
|
|
270 NULL, NULL, NULL, NULL, NULL,
|
|
|
271 '\0'},
|
|
|
272 {"linestart_select", "", 0,
|
|
|
273 NULL, NULL, NULL, NULL, linestart_select,
|
|
|
274 NULL, NULL, NULL, NULL, NULL,
|
|
|
275 '\0'},
|
|
|
276 {"previous_select", "", 0,
|
|
|
277 NULL, NULL, NULL, NULL, xw_previous_select,
|
|
|
278 NULL, NULL, xw_previous_select, xw_previous_select,
|
|
|
279 xw_previous_message,
|
|
|
280 '\0'},
|
|
|
281 {"next_select", "", 0,
|
|
|
282 NULL, NULL, NULL, NULL, xw_next_select,
|
|
|
283 NULL, NULL, xw_next_select, xw_next_select, xw_next_message,
|
|
|
284 '\0'},
|
|
|
285 {"backward_select", "", 0,
|
|
|
286 NULL, NULL, NULL, NULL, backward_select,
|
|
|
287 NULL, NULL, NULL, NULL, NULL,
|
|
|
288 '\0'},
|
|
|
289 {"forward_select", "", 0,
|
|
|
290 NULL, NULL, NULL, NULL, forward_select,
|
|
|
291 NULL, NULL, NULL, NULL, NULL,
|
|
|
292 '\0'},
|
|
|
293 {"reconnect_jserver", "", 0,
|
|
|
294 reconnect_server, reconnect_server, reconnect_server, reconnect_server,
|
|
|
295 reconnect_server,
|
|
|
296 reconnect_server, reconnect_server, reconnect_server, reconnect_server,
|
|
|
297 reconnect_server,
|
|
|
298 '\0'},
|
|
|
299 {"henkan_on", "", 0,
|
|
|
300 NULL, NULL, NULL, NULL, NULL,
|
|
|
301 NULL, NULL, NULL, NULL, NULL,
|
|
|
302 '\0'},
|
|
|
303 {"inspect", "", 0,
|
|
|
304 NULL, NULL, NULL, NULL, NULL,
|
|
|
305 NULL, NULL, NULL, NULL, NULL,
|
|
|
306 '\0'},
|
|
|
307 {"sakujo_kouho", "", 0,
|
|
|
308 NULL, NULL, NULL, NULL, NULL,
|
|
|
309 NULL, NULL, NULL, NULL, NULL,
|
|
|
310 '\0'},
|
|
|
311 {"nobi_henkan_dai", "", 0,
|
|
|
312 NULL, NULL, NULL, NULL, NULL,
|
|
|
313 NULL, NULL, NULL, NULL, NULL,
|
|
|
314 '\0'},
|
|
|
315 {"nobi_henkan", "", 0,
|
|
|
316 NULL, NULL, NULL, NULL, NULL,
|
|
|
317 NULL, NULL, NULL, NULL, NULL,
|
|
|
318 '\0'},
|
|
|
319 {"del_entry", "", 0,
|
|
|
320 NULL, NULL, NULL, NULL, NULL,
|
|
|
321 NULL, NULL, kworddel, kdicdel, NULL,
|
|
|
322 '\0'},
|
|
|
323 {"use_entry", "", 0,
|
|
|
324 NULL, NULL, NULL, NULL, NULL,
|
|
|
325 NULL, NULL, kworduse, kdicuse, NULL,
|
|
|
326 '\0'},
|
|
|
327 {"com_entry", "", 0,
|
|
|
328 NULL, NULL, NULL, NULL, NULL,
|
|
|
329 NULL, NULL, kwordcom, kdiccom, NULL,
|
|
|
330 '\0'},
|
|
|
331 {"kana_henkan", "", 1,
|
|
|
332 NULL, NULL, NULL, NULL, NULL,
|
|
|
333 NULL, NULL, NULL, NULL, NULL,
|
|
|
334 '\0'},
|
|
|
335 {"hindo_set", "", 0,
|
|
|
336 NULL, NULL, NULL, NULL, NULL,
|
|
|
337 NULL, NULL, kwordhindo, NULL, NULL,
|
|
|
338 '\0'},
|
|
|
339 {"ima_bit", "", 0,
|
|
|
340 NULL, NULL, NULL, NULL, NULL,
|
|
|
341 NULL, NULL, kwordima, NULL, NULL,
|
|
|
342 '\0'},
|
|
|
343 {"change_locale", "", 0,
|
|
|
344 NULL, NULL, NULL, NULL, NULL,
|
|
|
345 NULL, NULL, NULL, NULL, NULL,
|
|
|
346 '\0'},
|
|
|
347 {"change_locale_ct", "", 0,
|
|
|
348 NULL, NULL, NULL, NULL, NULL,
|
|
|
349 NULL, NULL, NULL, NULL, NULL,
|
|
|
350 '\0'}
|
|
|
351 };
|
|
|
352 #else /* XJUTIL */
|
|
|
353 extern int lang_c ();
|
|
|
354 extern int lang_ct ();
|
|
|
355 static struct kansuu kansuu_hyo[] = {
|
|
|
356 {"send_string", "send what is in the buffer to pty.", 0,
|
|
|
357 send_string, send_string, send_string, NULL, NULL,
|
|
|
358 NULL, NULL, NULL, NULL, NULL,
|
|
|
359 '\0'},
|
|
|
360 {"forward_char", "cursor wo hitotu maeni susumeru.", 1,
|
|
|
361 forward_bunsetsu, forward_char, henkan_forward, NULL, NULL,
|
|
|
362 forward_char, forward_char, NULL, NULL, NULL,
|
|
|
363 '\0'},
|
|
|
364 {"backward_char", "cursor wo hitotu usironi susumeru.", 1,
|
|
|
365 backward_bunsetsu, backward_c, henkan_backward, NULL, NULL,
|
|
|
366 backward_char, backward_char, NULL, NULL, NULL,
|
|
|
367 '\0'},
|
|
|
368 {"goto_top_of_line", "", 1,
|
|
|
369 top_bunsetsu, c_top, jmptijime, NULL, NULL,
|
|
|
370 c_top, c_top, NULL, NULL, NULL,
|
|
|
371 '\0'},
|
|
|
372 {"goto_end_of_line", "", 1,
|
|
|
373 end_bunsetsu, c_end, c_end_nobi, NULL, NULL,
|
|
|
374 c_end, c_end, NULL, NULL, NULL,
|
|
|
375 '\0'},
|
|
|
376 {"delete_char_at_cursor", "", 1,
|
|
|
377 NULL, delete_c, NULL, NULL, NULL,
|
|
|
378 t_delete_char, t_delete_char, NULL, NULL, NULL,
|
|
|
379 '\0'},
|
|
|
380 {"kaijo", "", 0,
|
|
|
381 kaijo, NULL, kaijo, NULL, NULL,
|
|
|
382 NULL, NULL, NULL, NULL, NULL,
|
|
|
383 '\0'},
|
|
|
384 {"henkan", "", 1,
|
|
|
385 NULL, ren_henkan, NULL, NULL, NULL,
|
|
|
386 NULL, NULL, NULL, NULL, NULL,
|
|
|
387 '\0'},
|
|
|
388 {"tan_henkan", "", 1,
|
|
|
389 NULL, tan_henkan, NULL, NULL, NULL,
|
|
|
390 NULL, NULL, NULL, NULL, NULL,
|
|
|
391 '\0'},
|
|
|
392 {"tan_henkan_dai", "", 1,
|
|
|
393 NULL, tan_henkan_dai, NULL, NULL, NULL,
|
|
|
394 NULL, NULL, NULL, NULL, NULL,
|
|
|
395 '\0'},
|
|
|
396 {"jikouho", "", 0,
|
|
|
397 jikouho_c, NULL, NULL, NULL, NULL,
|
|
|
398 NULL, NULL, NULL, NULL, NULL,
|
|
|
399 '\0'},
|
|
|
400 {"zenkouho", "", 0,
|
|
|
401 zenkouho_c, NULL, NULL, NULL, NULL,
|
|
|
402 NULL, NULL, NULL, NULL, NULL,
|
|
|
403 '\0'},
|
|
|
404 {"jikouho_dai", "", 0,
|
|
|
405 jikouho_dai_c, NULL, NULL, NULL, NULL,
|
|
|
406 NULL, NULL, NULL, NULL, NULL,
|
|
|
407 '\0'},
|
|
|
408 {"zenkouho_dai", "", 0,
|
|
|
409 zenkouho_dai_c, NULL, NULL, NULL, NULL,
|
|
|
410 NULL, NULL, NULL, NULL, NULL,
|
|
|
411 '\0'},
|
|
|
412 {"select_jikouho", "", 0,
|
|
|
413 select_jikouho, NULL, NULL, NULL, NULL,
|
|
|
414 NULL, NULL, NULL, NULL, NULL,
|
|
|
415 '\0'},
|
|
|
416 {"select_jikouho_dai", "", 0,
|
|
|
417 select_jikouho_dai, NULL, NULL, NULL, NULL,
|
|
|
418 NULL, NULL, NULL, NULL, NULL,
|
|
|
419 '\0'},
|
|
|
420 {"kill", "", 1,
|
|
|
421 NULL, kill_c, NULL, NULL, NULL,
|
|
|
422 t_kill, t_kill, NULL, NULL, NULL,
|
|
|
423 '\0'},
|
|
|
424 {"yank", "", 1,
|
|
|
425 NULL, yank_c, NULL, NULL, NULL,
|
|
|
426 t_yank, t_yank, NULL, NULL, NULL,
|
|
|
427 '\0'},
|
|
|
428 {"yank_e", "", 1,
|
|
|
429 NULL, yank_c, NULL, yank_c, NULL,
|
|
|
430 t_yank, t_yank, NULL, NULL, NULL,
|
|
|
431 '\0'},
|
|
|
432 {"bunsetu_nobasi", "", 0,
|
|
|
433 enlarge_bunsetsu, NULL, forward, NULL, NULL,
|
|
|
434 NULL, NULL, NULL, NULL, NULL,
|
|
|
435 '\0'},
|
|
|
436 {"bunsetu_chijime", "", 0,
|
|
|
437 smallen_bunsetsu, NULL, tijime, NULL, NULL,
|
|
|
438 NULL, NULL, NULL, NULL, NULL,
|
|
|
439 '\0'},
|
|
|
440 {"jisho_utility", "", 0,
|
|
|
441 jutil_c, jutil_c, jutil_c, NULL, NULL,
|
|
|
442 NULL, NULL, NULL, NULL, NULL,
|
|
|
443 '\0'},
|
|
|
444 {"jisho_utility_e", "", 0,
|
|
|
445 jutil_c, jutil_c, jutil_c, jutil_c, NULL,
|
|
|
446 NULL, NULL, NULL, NULL, NULL,
|
|
|
447 '\0'},
|
|
|
448 {"touroku", "", 1,
|
|
|
449 touroku_c, touroku_c, touroku_c, NULL, NULL,
|
|
|
450 NULL, NULL, NULL, NULL, NULL,
|
|
|
451 '\0'},
|
|
|
452 {"touroku_e", "", 1,
|
|
|
453 touroku_c, touroku_c, touroku_c, touroku_c, NULL,
|
|
|
454 NULL, NULL, NULL, NULL, NULL,
|
|
|
455 '\0'},
|
|
|
456 {"kakutei", "", 1,
|
|
|
457 kakutei, kakutei, kakutei, NULL, NULL,
|
|
|
458 NULL, NULL, NULL, NULL, NULL,
|
|
|
459 '\0'},
|
|
|
460 {"sainyuuryoku", "", 1,
|
|
|
461 NULL, remember_me, NULL, NULL, NULL,
|
|
|
462 NULL, NULL, NULL, NULL, NULL,
|
|
|
463 '\0'},
|
|
|
464 {"sainyuuryoku_e", "", 1,
|
|
|
465 NULL, remember_me, NULL, remember_me, NULL,
|
|
|
466 NULL, NULL, NULL, NULL, NULL,
|
|
|
467 '\0'},
|
|
|
468 {"kuten", "", 0,
|
|
|
469 NULL, kuten, NULL, NULL, NULL,
|
|
|
470 kuten, kuten, NULL, NULL, NULL,
|
|
|
471 '\0'},
|
|
|
472 {"kuten_e", "", 0,
|
|
|
473 NULL, kuten, NULL, kuten, NULL,
|
|
|
474 kuten, kuten, NULL, NULL, NULL,
|
|
|
475 '\0'},
|
|
|
476 {"jis", "", 0,
|
|
|
477 NULL, jis, NULL, NULL, NULL,
|
|
|
478 jis, jis, NULL, NULL, NULL,
|
|
|
479 '\0'},
|
|
|
480 {"jis_e", "", 0,
|
|
|
481 NULL, jis, NULL, jis, NULL,
|
|
|
482 jis, jis, NULL, NULL, NULL,
|
|
|
483 '\0'},
|
|
|
484 {"redraw_line", "", 1,
|
|
|
485 reset_line, reset_line, reset_line, NULL, reset_line,
|
|
|
486 reset_line, reset_line, NULL, NULL, NULL,
|
|
|
487 '\0'},
|
|
|
488 {"redraw_line_e", "", 1,
|
|
|
489 reset_line, reset_line, reset_line, reset_line, reset_line,
|
|
|
490 reset_line, reset_line, NULL, NULL, NULL,
|
|
|
491 '\0'},
|
|
|
492 {"previous_history_e", "", 1,
|
|
|
493 NULL, previous_history, NULL, previous_history, NULL,
|
|
|
494 NULL, NULL, NULL, NULL, NULL,
|
|
|
495 '\0'},
|
|
|
496 {"previous_history", "", 1,
|
|
|
497 NULL, previous_history, NULL, NULL, NULL,
|
|
|
498 NULL, NULL, NULL, NULL, NULL,
|
|
|
499 '\0'},
|
|
|
500 {"next_history_e", "", 1,
|
|
|
501 NULL, next_history, NULL, next_history, NULL,
|
|
|
502 NULL, NULL, NULL, NULL, NULL,
|
|
|
503 '\0'},
|
|
|
504 {"next_history", "", 1,
|
|
|
505 NULL, next_history, NULL, NULL, NULL,
|
|
|
506 NULL, NULL, NULL, NULL, NULL,
|
|
|
507 '\0'},
|
|
|
508 /*{ "touroku_mark_set", "", 0,
|
|
|
509 NULL, NULL, NULL, NULL, NULL,
|
|
|
510 t_markset, NULL, NULL, NULL, NULL,
|
|
|
511 '\0'}, */
|
|
|
512 {"touroku_mark_set", "", 0,
|
|
|
513 NULL, NULL, NULL, NULL, NULL,
|
|
|
514 NULL, NULL, NULL, NULL, NULL,
|
|
|
515 '\0'},
|
|
|
516 {"touroku_return", "", 0,
|
|
|
517 NULL, NULL, NULL, NULL, NULL,
|
|
|
518 NULL, t_ret, NULL, NULL, NULL,
|
|
|
519 '\0'},
|
|
|
520 {"quit", "", 0,
|
|
|
521 NULL, NULL, NULL, NULL, quit_select,
|
|
|
522 t_quit, t_quit, NULL, NULL, quit_select,
|
|
|
523 '\0'},
|
|
|
524 {"touroku_jump_forward", "", 0,
|
|
|
525 NULL, NULL, NULL, NULL, NULL,
|
|
|
526 NULL, t_jmp_forward, NULL, NULL, NULL,
|
|
|
527 '\0'},
|
|
|
528 {"touroku_jump_backward", "", 0,
|
|
|
529 NULL, NULL, NULL, NULL, NULL,
|
|
|
530 NULL, t_jmp_backward, NULL, NULL, NULL,
|
|
|
531 '\0'},
|
|
|
532 {"change_to_insert_mode", "", 0,
|
|
|
533 insert_it_as_yomi, NULL, NULL, NULL, NULL,
|
|
|
534 NULL, NULL, NULL, NULL, NULL,
|
|
|
535 '\0'},
|
|
|
536 {"quote_e", "", 0,
|
|
|
537 NULL, quote, NULL, quote, NULL,
|
|
|
538 NULL, NULL, NULL, NULL, NULL,
|
|
|
539 '\0'},
|
|
|
540 {"quote", "", 0,
|
|
|
541 NULL, quote, NULL, NULL, NULL,
|
|
|
542 NULL, NULL, NULL, NULL, NULL,
|
|
|
543 '\0'},
|
|
|
544 {"send_ascii_char", "", 0,
|
|
|
545 send_ascii, send_ascii, send_ascii, send_ascii, send_ascii,
|
|
|
546 send_ascii, send_ascii, send_ascii, send_ascii, send_ascii,
|
|
|
547 '\0'},
|
|
|
548 {"toggle_send_ascii_char", "", 0,
|
|
|
549 toggle_send_ascii, toggle_send_ascii, toggle_send_ascii, toggle_send_ascii,
|
|
|
550 toggle_send_ascii,
|
|
|
551 toggle_send_ascii, toggle_send_ascii, toggle_send_ascii, toggle_send_ascii,
|
|
|
552 toggle_send_ascii,
|
|
|
553 '\0'},
|
|
|
554 {"not_send_ascii_char", "", 0,
|
|
|
555 not_send_ascii, not_send_ascii, not_send_ascii, not_send_ascii, not_send_ascii,
|
|
|
556 not_send_ascii, not_send_ascii, not_send_ascii, not_send_ascii, not_send_ascii,
|
|
|
557 '\0'},
|
|
|
558 {"pop_send_ascii_char", "", 0,
|
|
|
559 pop_send_ascii, pop_send_ascii, pop_send_ascii, pop_send_ascii, pop_send_ascii,
|
|
|
560 pop_send_ascii, pop_send_ascii, pop_send_ascii, pop_send_ascii, pop_send_ascii,
|
|
|
561 '\0'},
|
|
|
562 {"quote_send_ascii_char", "", 0,
|
|
|
563 NULL, NULL, NULL, quote_send_ascii_e, NULL,
|
|
|
564 NULL, NULL, NULL, NULL, NULL,
|
|
|
565 '\0'},
|
|
|
566 {"select_select", "", 0,
|
|
|
567 NULL, NULL, NULL, NULL, select_select,
|
|
|
568 NULL, NULL, NULL, NULL, select_select,
|
|
|
569 '\0'},
|
|
|
570 {"lineend_select", "", 0,
|
|
|
571 NULL, NULL, NULL, NULL, lineend_select,
|
|
|
572 NULL, NULL, NULL, NULL, NULL,
|
|
|
573 '\0'},
|
|
|
574 {"linestart_select", "", 0,
|
|
|
575 NULL, NULL, NULL, NULL, linestart_select,
|
|
|
576 NULL, NULL, NULL, NULL, NULL,
|
|
|
577 '\0'},
|
|
|
578 /*{ "previous_select", "", 0,
|
|
|
579 NULL, NULL, NULL, NULL, previous_select,
|
|
|
580 NULL, NULL, NULL, NULL, previous_select,
|
|
|
581 '\0'},*/
|
|
|
582 {"previous_select", "", 0,
|
|
|
583 NULL, NULL, NULL, NULL, previous_select,
|
|
|
584 NULL, NULL, NULL, NULL, xw_back_inspect,
|
|
|
585 '\0'},
|
|
|
586 /*{ "next_select", "", 0,
|
|
|
587 NULL, NULL, NULL, NULL, next_select,
|
|
|
588 NULL, NULL, NULL, NULL, NULL,
|
|
|
589 '\0'},*/
|
|
|
590 {"next_select", "", 0,
|
|
|
591 NULL, NULL, NULL, NULL, next_select,
|
|
|
592 NULL, NULL, NULL, NULL, xw_next_inspect,
|
|
|
593 '\0'},
|
|
|
594 {"backward_select", "", 0,
|
|
|
595 NULL, NULL, NULL, NULL, backward_select,
|
|
|
596 NULL, NULL, NULL, NULL, NULL,
|
|
|
597 '\0'},
|
|
|
598 {"forward_select", "", 0,
|
|
|
599 NULL, NULL, NULL, NULL, forward_select,
|
|
|
600 NULL, NULL, NULL, NULL, NULL,
|
|
|
601 '\0'},
|
|
|
602 {"reconnect_jserver", "", 0,
|
|
|
603 reconnect_server, reconnect_server, reconnect_server, reconnect_server,
|
|
|
604 reconnect_server,
|
|
|
605 reconnect_server, reconnect_server, reconnect_server, reconnect_server,
|
|
|
606 reconnect_server,
|
|
|
607 '\0'},
|
|
|
608 {"henkan_on", "", 0,
|
|
|
609 henkan_off, henkan_off, henkan_off, henkan_off, henkan_off,
|
|
|
610 henkan_off, henkan_off, henkan_off, henkan_off, henkan_off,
|
|
|
611 '\0'},
|
|
|
612 {"inspect", "", 0,
|
|
|
613 inspect_kouho, NULL, NULL, NULL, NULL,
|
|
|
614 NULL, NULL, NULL, NULL, NULL,
|
|
|
615 '\0'},
|
|
|
616 {"sakujo_kouho", "", 0,
|
|
|
617 sakujo_kouho, NULL, NULL, NULL, NULL,
|
|
|
618 NULL, NULL, NULL, NULL, NULL,
|
|
|
619 '\0'},
|
|
|
620 {"nobi_henkan_dai", "", 0,
|
|
|
621 NULL, NULL, nobi_henkan_dai, NULL, NULL,
|
|
|
622 NULL, NULL, NULL, NULL, NULL,
|
|
|
623 '\0'},
|
|
|
624 {"nobi_henkan", "", 0,
|
|
|
625 NULL, NULL, nobi_henkan, NULL, NULL,
|
|
|
626 NULL, NULL, NULL, NULL, NULL,
|
|
|
627 '\0'},
|
|
|
628 {"del_entry", "", 0,
|
|
|
629 NULL, NULL, NULL, NULL, NULL,
|
|
|
630 NULL, NULL, NULL, NULL, inspectdel,
|
|
|
631 '\0'},
|
|
|
632 {"use_entry", "", 0,
|
|
|
633 NULL, NULL, NULL, NULL, NULL,
|
|
|
634 NULL, NULL, NULL, NULL, inspectuse,
|
|
|
635 '\0'},
|
|
|
636 {"com_entry", "", 0,
|
|
|
637 NULL, NULL, NULL, NULL, NULL,
|
|
|
638 NULL, NULL, NULL, NULL, NULL,
|
|
|
639 '\0'},
|
|
|
640 {"kana_henkan", "", 1,
|
|
|
641 NULL, kankana_ren_henkan, NULL, NULL, NULL,
|
|
|
642 NULL, NULL, NULL, NULL, NULL,
|
|
|
643 '\0'},
|
|
|
644 {"hindo_set", "", 0,
|
|
|
645 NULL, NULL, NULL, NULL, NULL,
|
|
|
646 NULL, NULL, NULL, NULL, NULL,
|
|
|
647 '\0'},
|
|
|
648 {"ima_bit", "", 0,
|
|
|
649 NULL, NULL, NULL, NULL, NULL,
|
|
|
650 NULL, NULL, NULL, NULL, NULL,
|
|
|
651 '\0'},
|
|
|
652 {"change_locale", "", 0,
|
|
|
653 lang_c, lang_c, lang_c, lang_c, lang_c,
|
|
|
654 lang_c, lang_c, lang_c, lang_c, lang_c,
|
|
|
655 '\0'},
|
|
|
656 {"change_locale_ct", "", 0,
|
|
|
657 lang_ct, lang_ct, lang_ct, lang_ct, lang_ct,
|
|
|
658 lang_ct, lang_ct, lang_ct, lang_ct, lang_ct,
|
|
|
659 '\0'}
|
|
|
660 };
|
|
|
661 #endif /* XJUTIL */
|
|
|
662
|
|
|
663 int kansuu_hyo_entry_suu = sizeof (kansuu_hyo) / sizeof (struct kansuu);
|
|
|
664
|
|
|
665 /** argument expansion. */
|
|
|
666 static int
|
|
|
667 expand_argument (st)
|
|
|
668 char *st;
|
|
|
669 {
|
|
|
670 int num;
|
|
|
671
|
|
|
672 if (*st == '^')
|
|
|
673 {
|
|
|
674 num = (*(st + 1)) & 0x1f;
|
|
|
675 }
|
|
|
676 else if (*st == '0' || *st == '\\')
|
|
|
677 {
|
|
|
678 if (*(st + 1) == 'x' || *(st + 1) == 'X')
|
|
|
679 {
|
|
|
680 sscanf (st + 2, "%x", &num);
|
|
|
681 }
|
|
|
682 else
|
|
|
683 {
|
|
|
684 sscanf (st, "%o", &num);
|
|
|
685 }
|
|
|
686 }
|
|
|
687 else if (!('0' <= *st && *st <= '9'))
|
|
|
688 {
|
|
|
689 return (-1);
|
|
|
690 }
|
|
|
691 else
|
|
|
692 {
|
|
|
693 num = atoi (st);
|
|
|
694 }
|
|
|
695 if (num >= TBL_SIZE)
|
|
|
696 {
|
|
|
697 print_out1 ("In uumkey file, you can only bind a function to code less than %d.", (char *) TBL_SIZE);
|
|
|
698 return (-1);
|
|
|
699 }
|
|
|
700 return (num);
|
|
|
701 }
|
|
|
702
|
|
|
703 static void
|
|
|
704 remove_key_bind (p)
|
|
|
705 register struct kansuu *p;
|
|
|
706 {
|
|
|
707 register int tbl;
|
|
|
708 register int com;
|
|
|
709 #ifdef XJUTIL
|
|
|
710 #define MTABLE main_table
|
|
|
711 #else
|
|
|
712 #define MTABLE (m_table->m_table)
|
|
|
713 register MainTable *m_table;
|
|
|
714
|
|
|
715 m_table = c_c->m_table;
|
|
|
716 #endif
|
|
|
717
|
|
|
718 for (tbl = 0; tbl < TBL_CNT; tbl++)
|
|
|
719 {
|
|
|
720 if (p->func[tbl] != NULL)
|
|
|
721 {
|
|
|
722 for (com = 0; com < TBL_SIZE; com++)
|
|
|
723 {
|
|
|
724 if (MTABLE[tbl][com] == p->func[tbl])
|
|
|
725 {
|
|
|
726 MTABLE[tbl][com] = (int (*)()) 0;
|
|
|
727 MTABLE[tbl][com] = 0;
|
|
|
728 }
|
|
|
729 }
|
|
|
730 }
|
|
|
731 }
|
|
|
732 }
|
|
|
733
|
|
|
734 static struct kansuu *
|
|
|
735 find_entry (com_name, tbl)
|
|
|
736 char *com_name;
|
|
|
737 struct kansuu **tbl;
|
|
|
738 {
|
|
|
739 register int k;
|
|
|
740 register struct kansuu **p;
|
|
|
741
|
|
|
742 p = tbl + ((com_name[0] - 'a') * ONE_CHAR_TBL);
|
|
|
743 for (k = 0; k < ONE_CHAR_TBL && *p; k++, p++)
|
|
|
744 {
|
|
|
745 if (strcmp (com_name, (*p)->kansuumei) == 0)
|
|
|
746 {
|
|
|
747 if ((*p)->key_binded)
|
|
|
748 {
|
|
|
749 return (*p);
|
|
|
750 }
|
|
|
751 }
|
|
|
752 }
|
|
|
753 return (NULL);
|
|
|
754 }
|
|
|
755
|
|
|
756 int
|
|
|
757 expand_expr (s, lang)
|
|
|
758 char *s, *lang;
|
|
|
759 {
|
|
|
760 char tmp[EXPAND_PATH_LENGTH];
|
|
|
761 register char *p, *s1;
|
|
|
762 int noerr, expandsuc;
|
|
|
763 struct passwd *u;
|
|
|
764 extern struct passwd *getpwnam ();
|
|
|
765
|
|
|
766 if (*s != '~' && *s != '@')
|
|
|
767 {
|
|
|
768 strcpy (tmp, s);
|
|
|
769 *s = '\0';
|
|
|
770 noerr = 1;
|
|
|
771 }
|
|
|
772 else
|
|
|
773 {
|
|
|
774 if ((int) strlen (s) >= EXPAND_PATH_LENGTH)
|
|
|
775 return (-1);
|
|
|
776
|
|
|
777 s1 = s;
|
|
|
778 if (NULL != (p = index (++s1, '/')))
|
|
|
779 {
|
|
|
780 strcpy (tmp, p);
|
|
|
781 *p = '\0';
|
|
|
782 }
|
|
|
783 else
|
|
|
784 *tmp = '\0';
|
|
|
785 if (*s == '~')
|
|
|
786 {
|
|
|
787 if (*s1)
|
|
|
788 {
|
|
|
789 noerr = expandsuc = (NULL != (u = getpwnam (s1)) && (int) (strlen (p = u->pw_dir) + strlen (tmp)) < EXPAND_PATH_LENGTH);
|
|
|
790 }
|
|
|
791 else
|
|
|
792 {
|
|
|
793 noerr = expandsuc = (NULL != (p = getenv ("HOME")) && (int) (strlen (p) + strlen (tmp)) < EXPAND_PATH_LENGTH);
|
|
|
794 }
|
|
|
795 }
|
|
|
796 else
|
|
|
797 { /* then, *s must be '@' */
|
|
|
798 if (!strcmp (s1, "HOME"))
|
|
|
799 {
|
|
|
800 noerr = expandsuc = (NULL != (p = getenv ("HOME")) && (int) (strlen (p) + strlen (tmp)) < EXPAND_PATH_LENGTH);
|
|
|
801 }
|
|
|
802 else if (!strcmp (s1, "LIBDIR"))
|
|
|
803 {
|
|
|
804 noerr = expandsuc = ((int) (strlen (p = LIBDIR) + strlen (tmp)) < EXPAND_PATH_LENGTH);
|
|
|
805 }
|
|
|
806 else if (!strcmp (s1, "LANG"))
|
|
|
807 {
|
|
|
808 noerr = expandsuc = ((int) (strlen (p = lang) + strlen (tmp)) < EXPAND_PATH_LENGTH);
|
|
|
809 }
|
|
|
810 else
|
|
|
811 { /* @HOME, @LIBDIR igai ha kaenai */
|
|
|
812 noerr = 1;
|
|
|
813 expandsuc = 0;
|
|
|
814 }
|
|
|
815 }
|
|
|
816 if (expandsuc)
|
|
|
817 strcpy (s, p);
|
|
|
818 }
|
|
|
819
|
|
|
820 if (noerr)
|
|
|
821 {
|
|
|
822 int len = strlen ("@USR");
|
|
|
823 int len1 = strlen ("@LANG");
|
|
|
824 p = tmp;
|
|
|
825 for (; *p; p++)
|
|
|
826 {
|
|
|
827 if (!strncmp (p, "@USR", len))
|
|
|
828 {
|
|
|
829 if ((int) (strlen (username) + strlen (p) + strlen (s) - len) < EXPAND_PATH_LENGTH)
|
|
|
830 {
|
|
|
831 strcat (s, username);
|
|
|
832 p += len - 1;
|
|
|
833 }
|
|
|
834 else
|
|
|
835 {
|
|
|
836 return (-1);
|
|
|
837 }
|
|
|
838 }
|
|
|
839 else if (!strncmp (p, "@LANG", len1))
|
|
|
840 {
|
|
|
841 if ((int) (strlen (lang) + strlen (p) + strlen (s) - len) < EXPAND_PATH_LENGTH)
|
|
|
842 {
|
|
|
843 strcat (s, lang);
|
|
|
844 p += len1 - 1;
|
|
|
845 }
|
|
|
846 else
|
|
|
847 {
|
|
|
848 return (-1);
|
|
|
849 }
|
|
|
850 }
|
|
|
851 else
|
|
|
852 {
|
|
|
853 strncat (s, p, 1);
|
|
|
854 }
|
|
|
855 }
|
|
|
856 }
|
|
|
857 return (noerr ? 0 : -1);
|
|
|
858 }
|
|
|
859
|
|
|
860 static int
|
|
|
861 key_binding (file_name, lang)
|
|
|
862 char *file_name;
|
|
|
863 char *lang;
|
|
|
864 {
|
|
|
865 register int k, kk;
|
|
|
866 FILE *fp, *fopen ();
|
|
|
867 char func_name[64];
|
|
|
868 int com_cnt;
|
|
|
869 int com_num;
|
|
|
870 char buf[256];
|
|
|
871 char com_name[16][EXPAND_PATH_LENGTH];
|
|
|
872 int lc = 0;
|
|
|
873 int tbl;
|
|
|
874 register struct kansuu **one_char_tbl, **p, *pp;
|
|
|
875
|
|
|
876 if ((fp = fopen (file_name, "r")) == NULL)
|
|
|
877 {
|
|
|
878 print_out1 ("Key_binding file \"%s\" doesn't exist.", file_name);
|
|
|
879 return (-1);
|
|
|
880 }
|
|
|
881 if (!(p = (struct kansuu **) Calloc (ONE_CHAR_TBL * ('z' - 'a' + 1), sizeof (struct kansuu *))))
|
|
|
882 {
|
|
|
883 malloc_error ("allocation of work area for key binding");
|
|
|
884 fclose (fp);
|
|
|
885 return (-1);
|
|
|
886 }
|
|
|
887 one_char_tbl = p;
|
|
|
888 for (k = 0; k < kansuu_hyo_entry_suu; k++)
|
|
|
889 {
|
|
|
890 p = one_char_tbl + ((kansuu_hyo[k].kansuumei[0] - 'a') * ONE_CHAR_TBL);
|
|
|
891 for (kk = 0; *p && kk < ONE_CHAR_TBL; kk++, p++);
|
|
|
892 if (kk == ONE_CHAR_TBL)
|
|
|
893 {
|
|
|
894 print_out ("work area for key binding overflowed");
|
|
|
895 Free (one_char_tbl);
|
|
|
896 fclose (fp);
|
|
|
897 return (-1);
|
|
|
898 }
|
|
|
899 *p = &kansuu_hyo[k];
|
|
|
900 }
|
|
|
901
|
|
|
902 for (tbl = 0; tbl < TBL_CNT; tbl++)
|
|
|
903 {
|
|
|
904 romkan_clear_tbl[tbl][rubout_code] = 0;
|
|
|
905 }
|
|
|
906 main_table[1][rubout_code] = rubout_c;
|
|
|
907 main_table[5][rubout_code] = t_rubout;
|
|
|
908 main_table[6][rubout_code] = t_rubout;
|
|
|
909
|
|
|
910 lc = 0;
|
|
|
911 while (fgets (buf, 256, fp))
|
|
|
912 {
|
|
|
913 lc += 1;
|
|
|
914 if ((*buf == ';') || (*buf == ':') || (*buf == '\n'))
|
|
|
915 continue;
|
|
|
916 if ((com_cnt = sscanf (buf, "%s %s %s %s %s %s %s %s %s %s %s",
|
|
|
917 func_name, com_name[0], com_name[1], com_name[2], com_name[3], com_name[4], com_name[5], com_name[6], com_name[7], com_name[8], com_name[9])) < 2)
|
|
|
918 {
|
|
|
919 print_out2 ("In uumkey file \"%s\", Line %d is illegal.", file_name, (char *) lc);
|
|
|
920 continue; /* every command needs at least 1 argument. */
|
|
|
921 }
|
|
|
922
|
|
|
923 if (strcmp (func_name, "include") == 0)
|
|
|
924 {
|
|
|
925 if (0 != expand_expr (com_name[0], lang))
|
|
|
926 {
|
|
|
927 print_out3 ("In uumkey file \"%s\", %s %s.", file_name, com_name[0], msg_get (cd, 22, default_message[22], lang));
|
|
|
928 }
|
|
|
929 key_binding (com_name[0], lang);
|
|
|
930 }
|
|
|
931 else if (strcmp (func_name, "unset") == 0)
|
|
|
932 {
|
|
|
933 if ((pp = find_entry (com_name[0], one_char_tbl)) != NULL)
|
|
|
934 {
|
|
|
935 pp->key_binded = 0;
|
|
|
936 remove_key_bind (pp);
|
|
|
937 }
|
|
|
938 else if (strcmp (com_name[0], "quote_keyin") == 0)
|
|
|
939 {
|
|
|
940 #ifndef XJUTIL
|
|
|
941 quote_code = -1;
|
|
|
942 #endif /* !XJUTIL */
|
|
|
943 }
|
|
|
944 }
|
|
|
945 else if (strcmp (func_name, "quote_keyin") == 0)
|
|
|
946 {
|
|
|
947 #ifndef XJUTIL
|
|
|
948 if ((com_num = expand_argument (com_name[0])) < 0)
|
|
|
949 {
|
|
|
950 print_out3 ("In uumkey file \"%s\",%s is an inappropriate code for %s.", file_name, com_name[0], func_name);
|
|
|
951 fflush (stderr);
|
|
|
952 }
|
|
|
953 else
|
|
|
954 quote_code = com_num;
|
|
|
955 #endif /* !XJUTIL */
|
|
|
956 }
|
|
|
957 else
|
|
|
958 {
|
|
|
959 p = one_char_tbl + ((func_name[0] - 'a') * ONE_CHAR_TBL);
|
|
|
960 for (k = 0; k < ONE_CHAR_TBL && *p; k++, p++)
|
|
|
961 {
|
|
|
962 if (strcmp (func_name, (*p)->kansuumei) == 0)
|
|
|
963 { /*found! */
|
|
|
964 if ((*p)->key_binded)
|
|
|
965 remove_key_bind (*p);
|
|
|
966 (*p)->key_binded = (char) 1;
|
|
|
967 for (kk = 0; kk < com_cnt - 1; kk++)
|
|
|
968 {
|
|
|
969 com_num = expand_argument (com_name[kk]);
|
|
|
970 if (com_num < 0)
|
|
|
971 {
|
|
|
972 print_out3 ("In uumkey file \"%s\",%s is an inappropriate code for %s.", file_name, com_name[kk], func_name);
|
|
|
973 fflush (stderr);
|
|
|
974 }
|
|
|
975 else
|
|
|
976 {
|
|
|
977 for (tbl = 0; tbl < TBL_CNT; tbl++)
|
|
|
978 {
|
|
|
979 if ((main_table[tbl][com_num] != NULL) && ((*p)->func[tbl] != NULL))
|
|
|
980 {
|
|
|
981 print_out7 ("In uumkey file \"%s\", %s(0x%x)%s at line %d (%s)(table No. %d).",
|
|
|
982 file_name, (char *) com_name[kk], (char *) com_num, (char *) msg_get (cd, 23, default_message[23], lang), (char *) lc, (*p)->kansuumei, (char *) tbl);
|
|
|
983 main_table[tbl][com_num] = (*p)->func[tbl];
|
|
|
984 romkan_clear_tbl[tbl][com_num] = (*p)->romkan_flag;
|
|
|
985 }
|
|
|
986 else if ((*p)->func[tbl] != NULL)
|
|
|
987 {
|
|
|
988 main_table[tbl][com_num] = (*p)->func[tbl];
|
|
|
989 romkan_clear_tbl[tbl][com_num] = (*p)->romkan_flag;
|
|
|
990 }
|
|
|
991 }
|
|
|
992 }
|
|
|
993 }
|
|
|
994 break;
|
|
|
995 } /* end of routine when command is founded. */
|
|
|
996 } /* loop while command is founded */
|
|
|
997 if (k == ONE_CHAR_TBL || !*p)
|
|
|
998 {
|
|
|
999 print_out2 ("In uumkey file \"%s\", unknown entry name %s.", file_name, func_name);
|
|
|
1000 }
|
|
|
1001 }
|
|
|
1002 }
|
|
|
1003 fclose (fp);
|
|
|
1004 Free (one_char_tbl);
|
|
|
1005 return (0);
|
|
|
1006 }
|
|
|
1007
|
|
|
1008 int
|
|
|
1009 init_key_table (lang)
|
|
|
1010 char *lang;
|
|
|
1011 {
|
|
|
1012 FILE *fp = NULL, *fopen ();
|
|
|
1013 char file_name[PATHNAMELEN];
|
|
|
1014 int j, k;
|
|
|
1015 extern int fclose ();
|
|
|
1016
|
|
|
1017 #ifdef XJUTIL
|
|
|
1018 if (uumkey_name && *uumkey_name)
|
|
|
1019 strcpy (file_name, uumkey_name);
|
|
|
1020 if ((fp = fopen (file_name, "r")) != NULL)
|
|
|
1021 {
|
|
|
1022 fclose (fp);
|
|
|
1023 }
|
|
|
1024 else
|
|
|
1025 {
|
|
|
1026 print_out2 ("%s %s", msg_get (cd, 72, default_message[72], lang), CPFILE);
|
|
|
1027 return (-1);
|
|
|
1028 }
|
|
|
1029 #else /* XJUTIL */
|
|
|
1030 /* from uumrc */
|
|
|
1031 if (uumkeyname != NULL && uumkeyname[0] != '\0')
|
|
|
1032 {
|
|
|
1033 strcpy (file_name, uumkeyname);
|
|
|
1034 if (fp = fopen (file_name, "r"))
|
|
|
1035 fclose (fp);
|
|
|
1036 }
|
|
|
1037 if (!fp)
|
|
|
1038 {
|
|
|
1039 if (strcpy (file_name, LIBDIR), strcat (file_name, "/"), strcat (file_name, lang), strcat (file_name, CPFILE), (fp = fopen (file_name, "r")) != NULL)
|
|
|
1040 {
|
|
|
1041 /* default */
|
|
|
1042 if (!(uumkeyname = alloc_and_copy (file_name)))
|
|
|
1043 {
|
|
|
1044 return (-1);
|
|
|
1045 }
|
|
|
1046 fclose (fp);
|
|
|
1047 }
|
|
|
1048 }
|
|
|
1049 if (!fp)
|
|
|
1050 {
|
|
|
1051 print_out2 ("%s %s", msg_get (cd, 21, default_message[21], lang), CPFILE);
|
|
|
1052 return (-1);
|
|
|
1053 }
|
|
|
1054
|
|
|
1055 if (!(c_c->m_table = (MainTable *) Malloc (sizeof (MainTable))))
|
|
|
1056 {
|
|
|
1057 malloc_error ("allocation of buffer for key binding");
|
|
|
1058 return (-1);
|
|
|
1059 }
|
|
|
1060 c_c->m_table->re_count = 1;
|
|
|
1061 #endif /* XJUTIL */
|
|
|
1062 for (j = 0; j < TBL_CNT; j++)
|
|
|
1063 {
|
|
|
1064 for (k = 0; k < TBL_SIZE; k++)
|
|
|
1065 {
|
|
|
1066 main_table[j][k] = (int (*)()) 0;
|
|
|
1067 }
|
|
|
1068 if (j < 3)
|
|
|
1069 {
|
|
|
1070 main_table[j][NEWLINE] = (int (*)()) 0;
|
|
|
1071 main_table[j][CR] = (int (*)()) 0;
|
|
|
1072 }
|
|
|
1073 }
|
|
|
1074 if (key_binding (file_name, lang) == -1)
|
|
|
1075 return (-1);
|
|
|
1076 return (0);
|
|
|
1077 }
|
|
|
1078
|
|
|
1079 /*
|
|
|
1080 Local Variables:
|
|
|
1081 eval: (setq kanji-flag t)
|
|
|
1082 eval: (setq kanji-fileio-code 0)
|
|
|
1083 eval: (mode-line-kanji-code-update)
|
|
|
1084 End:
|
|
|
1085 */
|
