?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Fix incomplete stack traces by gdb.
[dragonfly.git] / contrib / texinfo-4 / info / infomap.c
blobc7dc2f4aea9faad7e0bdbeac2fedc44876c8bb93
1 /* infomap.c -- keymaps for Info.
2 $Id: infomap.c,v 1.10 2004/07/30 20:43:40 karl Exp $
3
4 Copyright (C) 1993, 1997, 1998, 1999, 2001, 2002, 2003, 2004 Free Software
5 Foundation, Inc.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
10 any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20
21 Written by Brian Fox (bfox@ai.mit.edu). */
22
23 #include "info.h"
24 #include "infomap.h"
25 #include "funs.h"
26 #include "terminal.h"
27
28 #if defined(INFOKEY)
29 #include "infokey.h"
30 #include "variables.h"
31 #endif /* INFOKEY */
32
33 static int keymap_bind_keyseq (Keymap map, const char *keyseq,
34 KEYMAP_ENTRY *keyentry);
35
36 /* Return a new keymap which has all the uppercase letters mapped to run
37 the function info_do_lowercase_version (). */
38 Keymap
39 keymap_make_keymap (void)
40 {
41 int i;
42 Keymap keymap;
43
44 keymap = (Keymap)xmalloc (256 * sizeof (KEYMAP_ENTRY));
45
46 for (i = 0; i < 256; i++)
47 {
48 keymap[i].type = ISFUNC;
49 keymap[i].function = (InfoCommand *)NULL;
50 }
51
52 for (i = 'A'; i < ('Z' + 1); i++)
53 {
54 keymap[i].type = ISFUNC;
55 #if defined(INFOKEY)
56 keymap[Meta(i)].type = ISFUNC;
57 keymap[Meta(i)].function =
58 #endif /* INFOKEY */
59 keymap[i].function = InfoCmd(info_do_lowercase_version);
60 }
61
62 return (keymap);
63 }
64
65 #if defined(INFOKEY)
66 static FUNCTION_KEYSEQ *
67 find_function_keyseq (Keymap map, int c, Keymap rootmap)
68 {
69 FUNCTION_KEYSEQ *k;
70
71 if (map[c].type != ISFUNC)
72 abort();
73 if (map[c].function == NULL)
74 return NULL;
75 for (k = map[c].function->keys; k; k = k->next)
76 {
77 const unsigned char *p;
78 Keymap m = rootmap;
79 if (k->map != rootmap)
80 continue;
81 for (p = (unsigned char *) k->keyseq; *p && m[*p].type == ISKMAP; p++)
82 m = (Keymap)m[*p].function;
83 if (*p != c || p[1])
84 continue;
85 if (m[*p].type != ISFUNC)
86 abort ();
87 break;
88 }
89 return k;
90 }
91
92 static void
93 add_function_keyseq (InfoCommand *function,
94 const char *keyseq, Keymap rootmap)
95 {
96 FUNCTION_KEYSEQ *ks;
97
98 if (function == NULL ||
99 function == InfoCmd(info_do_lowercase_version) ||
100 function == InfoCmd(ea_insert))
101 return;
102 ks = (FUNCTION_KEYSEQ *)xmalloc (sizeof(FUNCTION_KEYSEQ));
103 ks->next = function->keys;
104 ks->map = rootmap;
105 ks->keyseq = xstrdup(keyseq);
106 function->keys = ks;
107 }
108
109 static void
110 remove_function_keyseq (InfoCommand *function,
111 const char *keyseq, Keymap rootmap)
112 {
113
114 FUNCTION_KEYSEQ *k, *kp;
115
116 if (function == NULL ||
117 function == InfoCmd(info_do_lowercase_version) ||
118 function == InfoCmd(ea_insert))
119 return;
120 for (kp = NULL, k = function->keys; k; kp = k, k = k->next)
121 if (k->map == rootmap && strcmp(k->keyseq, keyseq) == 0)
122 break;
123 if (!k)
124 abort ();
125 if (kp)
126 kp->next = k->next;
127 else
128 function->keys = k->next;
129 }
130 #endif /* INFOKEY */
131
132 /* Return a new keymap which is a copy of MAP. */
133 Keymap
134 keymap_copy_keymap (Keymap map, Keymap rootmap, Keymap newroot)
135 {
136 int i;
137 Keymap keymap;
138 #if defined(INFOKEY)
139 FUNCTION_KEYSEQ *ks;
140 #endif /* INFOKEY */
141
142 keymap = keymap_make_keymap ();
143 if (!newroot)
144 newroot = keymap;
145
146 for (i = 0; i < 256; i++)
147 {
148 keymap[i].type = map[i].type;
149 switch (map[i].type)
150 {
151 case ISFUNC:
152 keymap[i].function = map[i].function;
153 #if defined(INFOKEY)
154 ks = find_function_keyseq (map, i, rootmap);
155 if (ks)
156 add_function_keyseq(map[i].function, ks->keyseq, newroot);
157 #endif /* INFOKEY */
158 break;
159 case ISKMAP:
160 keymap[i].function = (InfoCommand *)keymap_copy_keymap
161 ((Keymap)map[i].function, rootmap, NULL);
162 break;
163 }
164 }
165 return (keymap);
166 }
167
168 /* Free the keymap and its descendants. */
169 void
170 keymap_discard_keymap (Keymap map, Keymap rootmap)
171 {
172 int i;
173
174 if (!map)
175 return;
176 if (!rootmap)
177 rootmap = map;
178
179 for (i = 0; i < 256; i++)
180 {
181 #if defined(INFOKEY)
182 FUNCTION_KEYSEQ *ks;
183 #endif /* INFOKEY */
184 switch (map[i].type)
185 {
186 case ISFUNC:
187 #if defined(INFOKEY)
188 ks = find_function_keyseq(map, i, rootmap);
189 if (ks)
190 remove_function_keyseq (map[i].function, ks->keyseq, rootmap);
191 #endif /* INFOKEY */
192 break;
193
194 case ISKMAP:
195 keymap_discard_keymap ((Keymap)map[i].function, rootmap);
196 break;
197
198 }
199 }
200 free(map);
201 }
202
203 /* Conditionally bind key sequence. */
204 static int
205 keymap_bind_keyseq (Keymap map,
206 const char *keyseq, KEYMAP_ENTRY *keyentry)
207 {
208 Keymap m = map;
209 const unsigned char *s = (unsigned char *) keyseq;
210 int c;
211
212 if (s == NULL || *s == '\0') return 0;
213
214 while ((c = *s++) != '\0')
215 {
216 #if defined(INFOKEY)
217 FUNCTION_KEYSEQ *ks;
218 #endif /* INFOKEY */
219 switch (m[c].type)
220 {
221 case ISFUNC:
222 #if defined(INFOKEY)
223 ks = find_function_keyseq(m, c, map);
224 if (ks)
225 remove_function_keyseq (m[c].function, ks->keyseq, map);
226 #else /* !INFOKEY */
227 if (!(m[c].function == NULL || (
228 m != map &&
229 m[c].function == InfoCmd(info_do_lowercase_version))
230 ))
231 return 0;
232 #endif /* !INFOKEY */
233
234 if (*s != '\0')
235 {
236 m[c].type = ISKMAP;
237 /* Here we are casting the Keymap pointer returned from
238 keymap_make_keymap to an InfoCommand pointer. Ugh.
239 This makes the `function' structure garbage
240 if it's actually interpreted as an InfoCommand.
241 Should really be using a union, and taking steps to
242 avoid the possible error. */
243 m[c].function = (InfoCommand *)keymap_make_keymap ();
244 }
245 break;
246
247 case ISKMAP:
248 #if defined(INFOKEY)
249 if (*s == '\0')
250 keymap_discard_keymap ((Keymap)m[c].function, map);
251 #else /* !INFOKEY */
252 if (*s == '\0')
253 return 0;
254 #endif
255 break;
256 }
257 if (*s != '\0')
258 {
259 m = (Keymap)m[c].function;
260 }
261 else
262 {
263 #if defined(INFOKEY)
264 add_function_keyseq (keyentry->function, keyseq, map);
265 #endif /* INFOKEY */
266 m[c] = *keyentry;
267 }
268 }
269
270 return 1;
271 }
272
273 /* Initialize the standard info keymaps. */
274
275 Keymap info_keymap = NULL;
276 Keymap echo_area_keymap = NULL;
277
278 #if !defined(INFOKEY)
279
280 static void
281 initialize_emacs_like_keymaps ()
282 {
283 int i;
284 Keymap map;
285
286 if (!info_keymap)
287 {
288 info_keymap = keymap_make_keymap ();
289 echo_area_keymap = keymap_make_keymap ();
290 }
291
292 info_keymap[ESC].type = ISKMAP;
293 info_keymap[ESC].function = (InfoCommand *)keymap_make_keymap ();
294 info_keymap[Control ('x')].type = ISKMAP;
295 info_keymap[Control ('x')].function = (InfoCommand *)keymap_make_keymap ();
296
297 /* Bind the echo area insert routines. Let's make all characters
298 insertable by default, regardless of which character set we might
299 be using. */
300 for (i = 0; i < 256; i++)
301 echo_area_keymap[i].function = ea_insert;
302
303 echo_area_keymap[ESC].type = ISKMAP;
304 echo_area_keymap[ESC].function = (InfoCommand *) keymap_make_keymap ();
305 echo_area_keymap[Control ('x')].type = ISKMAP;
306 echo_area_keymap[Control ('x')].function
307 = (InfoCommand *) keymap_make_keymap ();
308
309 /* Bind numeric arg functions for both echo area and info window maps. */
310 for (i = '0'; i < '9' + 1; i++)
311 {
312 ((Keymap) info_keymap[ESC].function)[i].function
313 = ((Keymap) echo_area_keymap[ESC].function)[i].function
314 = info_add_digit_to_numeric_arg;
315 }
316 ((Keymap) info_keymap[ESC].function)['-'].function =
317 ((Keymap) echo_area_keymap[ESC].function)['-'].function =
318 info_add_digit_to_numeric_arg;
319
320 info_keymap['-'].function = info_add_digit_to_numeric_arg;
321
322 /* Bind the echo area routines. */
323 map = echo_area_keymap;
324
325 map[Control ('a')].function = ea_beg_of_line;
326 map[Control ('b')].function = ea_backward;
327 map[Control ('d')].function = ea_delete;
328 map[Control ('e')].function = ea_end_of_line;
329 map[Control ('f')].function = ea_forward;
330 map[Control ('g')].function = ea_abort;
331 map[Control ('h')].function = ea_rubout;
332 map[Control ('k')].function = ea_kill_line;
333 map[Control ('l')].function = info_redraw_display;
334 map[Control ('q')].function = ea_quoted_insert;
335 map[Control ('t')].function = ea_transpose_chars;
336 map[Control ('u')].function = info_universal_argument;
337 map[Control ('y')].function = ea_yank;
338
339 map[LFD].function = ea_newline;
340 map[RET].function = ea_newline;
341 map[SPC].function = ea_complete;
342 map[TAB].function = ea_complete;
343 map['?'].function = ea_possible_completions;
344 #ifdef __MSDOS__
345 /* PC users will lynch me if I don't give them their usual DEL effect... */
346 map[DEL].function = ea_delete;
347 #else
348 map[DEL].function = ea_rubout;
349 #endif
350
351 /* Bind the echo area ESC keymap. */
352 map = (Keymap)echo_area_keymap[ESC].function;
353
354 map[Control ('g')].function = ea_abort;
355 map[Control ('v')].function = ea_scroll_completions_window;
356 map['b'].function = ea_backward_word;
357 map['d'].function = ea_kill_word;
358 map['f'].function = ea_forward_word;
359 #if defined (NAMED_FUNCTIONS)
360 /* map['x'].function = info_execute_command; */
361 #endif /* NAMED_FUNCTIONS */
362 map['y'].function = ea_yank_pop;
363 map['?'].function = ea_possible_completions;
364 map[TAB].function = ea_tab_insert;
365 map[DEL].function = ea_backward_kill_word;
366
367 /* Bind the echo area Control-x keymap. */
368 map = (Keymap)echo_area_keymap[Control ('x')].function;
369
370 map['o'].function = info_next_window;
371 map[DEL].function = ea_backward_kill_line;
372
373 /* Arrow key bindings for echo area keymaps. It seems that some
374 terminals do not match their termcap entries, so it's best to just
375 define everything with both of the usual prefixes. */
376 map = echo_area_keymap;
377 keymap_bind_keyseq (map, term_ku, &map[Control ('p')]); /* up */
378 keymap_bind_keyseq (map, "\033OA", &map[Control ('p')]);
379 keymap_bind_keyseq (map, "\033[A", &map[Control ('p')]);
380 keymap_bind_keyseq (map, term_kd, &map[Control ('n')]); /* down */
381 keymap_bind_keyseq (map, "\033OB", &map[Control ('n')]);
382 keymap_bind_keyseq (map, "\033[B", &map[Control ('n')]);
383 keymap_bind_keyseq (map, term_kr, &map[Control ('f')]); /* right */
384 keymap_bind_keyseq (map, "\033OC", &map[Control ('f')]);
385 keymap_bind_keyseq (map, "\033[C", &map[Control ('f')]);
386 keymap_bind_keyseq (map, term_kl, &map[Control ('b')]); /* left */
387 keymap_bind_keyseq (map, "\033OD", &map[Control ('b')]);
388 keymap_bind_keyseq (map, "\033[D", &map[Control ('b')]);
389 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
390 keymap_bind_keyseq (map, term_kh, &map[Control ('a')]); /* home */
391 keymap_bind_keyseq (map, term_ke, &map[Control ('e')]); /* end */
392
393 map = (Keymap)echo_area_keymap[ESC].function;
394 keymap_bind_keyseq (map, term_kl, &map['b']); /* left */
395 keymap_bind_keyseq (map, "\033OA", &map['b']);
396 keymap_bind_keyseq (map, "\033[A", &map['b']);
397 keymap_bind_keyseq (map, term_kr, &map['f']); /* right */
398 keymap_bind_keyseq (map, "\033OB", &map['f']);
399 keymap_bind_keyseq (map, "\033[B", &map['f']);
400 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
401
402 map = (Keymap)echo_area_keymap[Control ('x')].function;
403 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
404
405 /* Bind commands for Info window keymaps. */
406 map = info_keymap;
407 map[TAB].function = info_move_to_next_xref;
408 map[LFD].function = info_select_reference_this_line;
409 map[RET].function = info_select_reference_this_line;
410 map[SPC].function = info_scroll_forward;
411 map[Control ('a')].function = info_beginning_of_line;
412 map[Control ('b')].function = info_backward_char;
413 map[Control ('e')].function = info_end_of_line;
414 map[Control ('f')].function = info_forward_char;
415 map[Control ('g')].function = info_abort_key;
416 map[Control ('h')].function = info_get_help_window;
417 map[Control ('l')].function = info_redraw_display;
418 map[Control ('n')].function = info_next_line;
419 map[Control ('p')].function = info_prev_line;
420 map[Control ('r')].function = isearch_backward;
421 map[Control ('s')].function = isearch_forward;
422 map[Control ('u')].function = info_universal_argument;
423 map[Control ('v')].function = info_scroll_forward_page_only;
424 map[','].function = info_next_index_match;
425 map['/'].function = info_search;
426
427 for (i = '1'; i < '9' + 1; i++)
428 map[i].function = info_menu_digit;
429 map['0'].function = info_last_menu_item;
430
431 map['<'].function = info_first_node;
432 map['>'].function = info_last_node;
433 map['?'].function = info_get_help_window;
434 map['['].function = info_global_prev_node;
435 map[']'].function = info_global_next_node;
436
437 map['b'].function = info_beginning_of_node;
438 map['d'].function = info_dir_node;
439 map['e'].function = info_end_of_node;
440 map['f'].function = info_xref_item;
441 map['g'].function = info_goto_node;
442 map['G'].function = info_menu_sequence;
443 map['h'].function = info_get_info_help_node;
444 map['i'].function = info_index_search;
445 map['I'].function = info_goto_invocation_node;
446 map['l'].function = info_history_node;
447 map['m'].function = info_menu_item;
448 map['n'].function = info_next_node;
449 map['O'].function = info_goto_invocation_node;
450 map['p'].function = info_prev_node;
451 map['q'].function = info_quit;
452 map['r'].function = info_xref_item;
453 map['s'].function = info_search;
454 map['S'].function = info_search_case_sensitively;
455 map['t'].function = info_top_node;
456 map['u'].function = info_up_node;
457 map[DEL].function = info_scroll_backward;
458
459 /* Bind members in the ESC map for Info windows. */
460 map = (Keymap)info_keymap[ESC].function;
461 map[Control ('f')].function = info_show_footnotes;
462 map[Control ('g')].function = info_abort_key;
463 map[TAB].function = info_move_to_prev_xref;
464 map[Control ('v')].function = info_scroll_other_window;
465 map['<'].function = info_beginning_of_node;
466 map['>'].function = info_end_of_node;
467 map['b'].function = info_backward_word;
468 map['f'].function = info_forward_word;
469 map['r'].function = info_move_to_window_line;
470 map['v'].function = info_scroll_backward_page_only;
471 #if defined (NAMED_FUNCTIONS)
472 map['x'].function = info_execute_command;
473 #endif /* NAMED_FUNCTIONS */
474 map[DEL].function = info_scroll_other_window_backward;
475
476 /* Bind members in the Control-X map for Info windows. */
477 map = (Keymap)info_keymap[Control ('x')].function;
478
479 map[Control ('b')].function = list_visited_nodes;
480 map[Control ('c')].function = info_quit;
481 map[Control ('f')].function = info_view_file;
482 map[Control ('g')].function = info_abort_key;
483 map[Control ('v')].function = info_view_file;
484 map['0'].function = info_delete_window;
485 map['1'].function = info_keep_one_window;
486 map['2'].function = info_split_window;
487 map['^'].function = info_grow_window;
488 map['b'].function = select_visited_node;
489 map['k'].function = info_kill_node;
490 map['n'].function = info_search_next;
491 map['N'].function = info_search_previous;
492 map['o'].function = info_next_window;
493 map['t'].function = info_tile_windows;
494 map['w'].function = info_toggle_wrap;
495
496 /* Arrow key bindings for Info windows keymap. */
497 map = info_keymap;
498 keymap_bind_keyseq (map, term_kN, &map[Control ('v')]); /* pagedown */
499 keymap_bind_keyseq (map, term_ku, &map[Control ('p')]); /* up */
500 keymap_bind_keyseq (map, "\033OA", &map[Control ('p')]);
501 keymap_bind_keyseq (map, "\033[A", &map[Control ('p')]);
502 keymap_bind_keyseq (map, term_kd, &map[Control ('n')]); /* down */
503 keymap_bind_keyseq (map, "\033OB", &map[Control ('n')]);
504 keymap_bind_keyseq (map, "\033[B", &map[Control ('n')]);
505 keymap_bind_keyseq (map, term_kr, &map[Control ('f')]); /* right */
506 keymap_bind_keyseq (map, "\033OC", &map[Control ('f')]);
507 keymap_bind_keyseq (map, "\033[C", &map[Control ('f')]);
508 keymap_bind_keyseq (map, term_kl, &map[Control ('b')]); /* left */
509 keymap_bind_keyseq (map, "\033OD", &map[Control ('b')]);
510 keymap_bind_keyseq (map, "\033[D", &map[Control ('b')]);
511 keymap_bind_keyseq (map, term_kh, &map['b']); /* home */
512 keymap_bind_keyseq (map, term_ke, &map['e']); /* end */
513 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
514
515 map = (Keymap)info_keymap[ESC].function;
516 keymap_bind_keyseq (map, term_kl, &map['b']); /* left */
517 keymap_bind_keyseq (map, "\033OA", &map['b']);
518 keymap_bind_keyseq (map, "\033[A", &map['b']);
519 keymap_bind_keyseq (map, term_kr, &map['f']); /* right */
520 keymap_bind_keyseq (map, "\033OB", &map['f']);
521 keymap_bind_keyseq (map, "\033[B", &map['f']);
522 keymap_bind_keyseq (map, term_kN, &map[Control ('v')]); /* pagedown */
523 keymap_bind_keyseq (map, term_kP, &map[DEL]); /* pageup */
524 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
525
526 /* The alternative to this definition of a `main map' key in the
527 `ESC map' section, is something like:
528 keymap_bind_keyseq (map, term_kP, &((KeyMap)map[ESC].function).map['v']);
529 */
530 keymap_bind_keyseq (info_keymap/*sic*/, term_kP, &map['v']); /* pageup */
531 }
532
533 static void
534 initialize_vi_like_keymaps ()
535 {
536 int i;
537 Keymap map;
538
539 if (!info_keymap)
540 {
541 info_keymap = keymap_make_keymap ();
542 echo_area_keymap = keymap_make_keymap ();
543 }
544
545 info_keymap[ESC].type = ISKMAP;
546 info_keymap[ESC].function = (InfoCommand *)keymap_make_keymap ();
547 info_keymap[Control ('x')].type = ISKMAP;
548 info_keymap[Control ('x')].function = (InfoCommand *)keymap_make_keymap ();
549
550 /* Bind the echo area insert routines. */
551 for (i = 0; i < 256; i++)
552 echo_area_keymap[i].function = ea_insert;
553
554 echo_area_keymap[ESC].type = ISKMAP;
555 echo_area_keymap[ESC].function = (InfoCommand *)keymap_make_keymap ();
556 echo_area_keymap[Control ('x')].type = ISKMAP;
557 echo_area_keymap[Control ('x')].function =
558 (InfoCommand *)keymap_make_keymap ();
559
560 /* Bind numeric arg functions for both echo area and info window maps. */
561 for (i = '0'; i < '9' + 1; i++)
562 {
563 info_keymap[i].function =
564 ((Keymap) echo_area_keymap[ESC].function)[i].function =
565 info_add_digit_to_numeric_arg;
566 }
567 info_keymap['-'].function =
568 ((Keymap) echo_area_keymap[ESC].function)['-'].function =
569 info_add_digit_to_numeric_arg;
570
571 /* Bind the echo area routines. */
572 map = echo_area_keymap;
573
574 map[Control ('a')].function = ea_beg_of_line;
575 map[Control ('b')].function = ea_backward;
576 map[Control ('d')].function = ea_delete;
577 map[Control ('e')].function = ea_end_of_line;
578 map[Control ('f')].function = ea_forward;
579 map[Control ('g')].function = ea_abort;
580 map[Control ('h')].function = ea_rubout;
581 map[Control ('k')].function = ea_kill_line;
582 map[Control ('l')].function = info_redraw_display;
583 map[Control ('q')].function = ea_quoted_insert;
584 map[Control ('t')].function = ea_transpose_chars;
585 map[Control ('u')].function = ea_abort;
586 map[Control ('v')].function = ea_quoted_insert;
587 map[Control ('y')].function = ea_yank;
588
589 map[LFD].function = ea_newline;
590 map[RET].function = ea_newline;
591 map[SPC].function = ea_complete;
592 map[TAB].function = ea_complete;
593 map['?'].function = ea_possible_completions;
594 #ifdef __MSDOS__
595 /* PC users will lynch me if I don't give them their usual DEL effect... */
596 map[DEL].function = ea_delete;
597 #else
598 map[DEL].function = ea_rubout;
599 #endif
600
601 /* Bind the echo area ESC keymap. */
602 map = (Keymap)echo_area_keymap[ESC].function;
603
604 map[Control ('g')].function = ea_abort;
605 map[Control ('h')].function = ea_backward_kill_word;
606 map[Control ('v')].function = ea_scroll_completions_window;
607 map['0'].function = ea_beg_of_line;
608 map['$'].function = ea_end_of_line;
609 map['b'].function = ea_backward_word;
610 map['d'].function = ea_kill_word;
611 map['f'].function = ea_forward_word;
612 map['h'].function = ea_backward;
613 map['l'].function = ea_forward;
614 map['w'].function = ea_forward_word;
615 map['x'].function = ea_delete;
616 map['X'].function = ea_kill_word;
617 map['y'].function = ea_yank_pop;
618 map['?'].function = ea_possible_completions;
619 map[TAB].function = ea_tab_insert;
620 map[DEL].function = ea_kill_word;
621
622 /* Bind the echo area Control-x keymap. */
623 map = (Keymap)echo_area_keymap[Control ('x')].function;
624
625 map['o'].function = info_next_window;
626 map[DEL].function = ea_backward_kill_line;
627
628 /* Arrow key bindings for echo area keymaps. It seems that some
629 terminals do not match their termcap entries, so it's best to just
630 define everything with both of the usual prefixes. */
631 map = echo_area_keymap;
632 keymap_bind_keyseq (map, term_ku, &map[Control ('p')]); /* up */
633 keymap_bind_keyseq (map, "\033OA", &map[Control ('p')]);
634 keymap_bind_keyseq (map, "\033[A", &map[Control ('p')]);
635 keymap_bind_keyseq (map, term_kd, &map[Control ('n')]); /* down */
636 keymap_bind_keyseq (map, "\033OB", &map[Control ('n')]);
637 keymap_bind_keyseq (map, "\033[B", &map[Control ('n')]);
638 keymap_bind_keyseq (map, term_kr, &map[Control ('f')]); /* right */
639 keymap_bind_keyseq (map, "\033OC", &map[Control ('f')]);
640 keymap_bind_keyseq (map, "\033[C", &map[Control ('f')]);
641 keymap_bind_keyseq (map, term_kl, &map[Control ('b')]); /* left */
642 keymap_bind_keyseq (map, "\033OD", &map[Control ('b')]);
643 keymap_bind_keyseq (map, "\033[D", &map[Control ('b')]);
644 keymap_bind_keyseq (map, term_kh, &map[Control ('a')]); /* home */
645 keymap_bind_keyseq (map, term_ke, &map[Control ('e')]); /* end */
646 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
647
648 map = (Keymap)echo_area_keymap[ESC].function;
649 keymap_bind_keyseq (map, term_kl, &map['b']); /* left */
650 keymap_bind_keyseq (map, "\033OA", &map['b']);
651 keymap_bind_keyseq (map, "\033[A", &map['b']);
652 keymap_bind_keyseq (map, term_kr, &map['f']); /* right */
653 keymap_bind_keyseq (map, "\033OB", &map['f']);
654 keymap_bind_keyseq (map, "\033[B", &map['f']);
655 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
656
657 map = (Keymap)echo_area_keymap[Control ('x')].function;
658 keymap_bind_keyseq (map, term_kD, &map[DEL]);
659
660 /* Bind commands for Info window keymaps. */
661 map = info_keymap;
662 map[TAB].function = info_move_to_next_xref;
663 map[LFD].function = info_down_line;
664 map[RET].function = info_down_line;
665 map[SPC].function = info_scroll_forward;
666 map[Control ('a')].function = info_beginning_of_line;
667 map[Control ('b')].function = info_scroll_backward_page_only;
668 map[Control ('d')].function = info_scroll_half_screen_down;
669 map[Control ('e')].function = info_down_line;
670 map[Control ('f')].function = info_scroll_forward_page_only;
671 map[Control ('g')].function = info_abort_key;
672 map[Control ('k')].function = info_up_line;
673 map[Control ('l')].function = info_redraw_display;
674 map[Control ('n')].function = info_down_line;
675 map[Control ('p')].function = info_up_line;
676 map[Control ('r')].function = info_redraw_display;
677 map[Control ('s')].function = isearch_forward;
678 map[Control ('u')].function = info_scroll_half_screen_up;
679 map[Control ('v')].function = info_scroll_forward_page_only;
680 map[Control ('y')].function = info_up_line;
681 map[','].function = info_next_index_match;
682 map['/'].function = info_search;
683
684 for (i = '1'; i < '9' + 1; i++)
685 ((Keymap) info_keymap[ESC].function)[i].function = info_menu_digit;
686 ((Keymap) info_keymap[ESC].function)['0'].function = info_last_menu_item;
687
688 map['<'].function = info_first_node;
689 map['>'].function = info_last_node;
690 map['?'].function = info_search_backward;
691 map['['].function = info_global_prev_node;
692 map[']'].function = info_global_next_node;
693 map['\''].function = info_history_node;
694
695 map['b'].function = info_scroll_backward;
696 map['d'].function = info_scroll_half_screen_down;
697 map['e'].function = info_down_line;
698 map['E'].function = info_view_file;
699 map['f'].function = info_scroll_forward_page_only;
700 map['F'].function = info_scroll_forward_page_only;
701 map['g'].function = info_first_node;
702 map['G'].function = info_last_node;
703 map['h'].function = info_get_help_window;
704 map['H'].function = info_get_help_window;
705 map['i'].function = info_index_search;
706 map['I'].function = info_goto_invocation_node;
707 map['j'].function = info_next_line;
708 map['k'].function = info_prev_line;
709 map['l'].function = info_history_node;
710 map['m'].function = info_menu_item;
711 map['n'].function = info_search_next;
712 map['N'].function = info_search_previous;
713 map['O'].function = info_goto_invocation_node;
714 map['p'].function = info_prev_node;
715 map['q'].function = info_quit;
716 map['Q'].function = info_quit;
717 map['r'].function = info_redraw_display;
718 map['R'].function = info_redraw_display;
719 map['s'].function = info_search;
720 map['S'].function = info_search_case_sensitively;
721 map['t'].function = info_top_node;
722 map['u'].function = info_scroll_half_screen_up;
723 map['w'].function = info_scroll_backward_page_only_set_window;
724 map['y'].function = info_up_line;
725 map['z'].function = info_scroll_forward_page_only_set_window;
726 map['Z'].function = NULL; /* unbind, so it works to bind "ZZ" below */
727 map[DEL].function = info_scroll_backward;
728 keymap_bind_keyseq (map, term_kD, &map[DEL]);
729 keymap_bind_keyseq (map, ":q", &map['q']);
730 keymap_bind_keyseq (map, ":Q", &map['q']);
731 keymap_bind_keyseq (map, "ZZ", &map['q']);
732
733 /* Bind members in the ESC map for Info windows. */
734 map = (Keymap)info_keymap[ESC].function;
735 map[Control ('f')].function = info_show_footnotes;
736 map[Control ('g')].function = info_abort_key;
737 map[TAB].function = info_move_to_prev_xref;
738 map[SPC].function = info_scroll_forward_page_only;
739 map[Control ('v')].function = info_scroll_other_window;
740 map['<'].function = info_beginning_of_node;
741 map['>'].function = info_end_of_node;
742 map['/'].function = info_search;
743 map['?'].function = info_search_backward;
744 map['b'].function = info_beginning_of_node;
745 map['d'].function = info_dir_node;
746 map['e'].function = info_end_of_node;
747 map['f'].function = info_xref_item;
748 map['g'].function = info_select_reference_this_line;
749 map['h'].function = info_get_info_help_node;
750 map['m'].function = info_menu_item;
751 map['n'].function = info_search;
752 map['N'].function = info_search_backward;
753 map['r'].function = isearch_backward;
754 map['s'].function = isearch_forward;
755 map['t'].function = info_top_node;
756 map['v'].function = info_scroll_backward_page_only;
757 #if defined (NAMED_FUNCTIONS)
758 map['x'].function = info_execute_command;
759 #endif /* NAMED_FUNCTIONS */
760 map[DEL].function = info_scroll_other_window_backward;
761
762 /* Bind members in the Control-X map for Info windows. */
763 map = (Keymap)info_keymap[Control ('x')].function;
764
765 map[Control ('b')].function = list_visited_nodes;
766 map[Control ('c')].function = info_quit;
767 map[Control ('f')].function = info_view_file;
768 map[Control ('g')].function = info_abort_key;
769 map[Control ('v')].function = info_view_file;
770 map[LFD].function = info_select_reference_this_line;
771 map[RET].function = info_select_reference_this_line;
772 map['0'].function = info_delete_window;
773 map['1'].function = info_keep_one_window;
774 map['2'].function = info_split_window;
775 map['^'].function = info_grow_window;
776 map['b'].function = select_visited_node;
777 map['g'].function = info_goto_node;
778 map['i'].function = info_index_search;
779 map['I'].function = info_goto_invocation_node;
780 map['k'].function = info_kill_node;
781 map['n'].function = info_next_node;
782 map['o'].function = info_next_window;
783 map['O'].function = info_goto_invocation_node;
784 map['p'].function = info_prev_node;
785 map['r'].function = info_xref_item;
786 map['t'].function = info_tile_windows;
787 map['u'].function = info_up_node;
788 map['w'].function = info_toggle_wrap;
789 map[','].function = info_next_index_match;
790 keymap_bind_keyseq (info_keymap, ":e", &map[Control ('v')]);
791
792 /* Arrow key bindings for Info windows keymap. */
793 map = info_keymap;
794 keymap_bind_keyseq (map, term_kN, &map[Control ('v')]); /* pagedown */
795 keymap_bind_keyseq (map, term_ku, &map[Control ('p')]); /* up */
796 keymap_bind_keyseq (map, "\033OA", &map[Control ('p')]);
797 keymap_bind_keyseq (map, "\033[A", &map[Control ('p')]);
798 keymap_bind_keyseq (map, term_kd, &map[Control ('n')]); /* down */
799 keymap_bind_keyseq (map, "\033OB", &map[Control ('n')]);
800 keymap_bind_keyseq (map, "\033[B", &map[Control ('n')]);
801 keymap_bind_keyseq (map, term_kr, &map[Control ('f')]); /* right */
802 keymap_bind_keyseq (map, "\033OC", &map[Control ('f')]);
803 keymap_bind_keyseq (map, "\033[C", &map[Control ('f')]);
804 keymap_bind_keyseq (map, term_kl, &map[Control ('b')]); /* left */
805 keymap_bind_keyseq (map, "\033OD", &map[Control ('b')]);
806 keymap_bind_keyseq (map, "\033[D", &map[Control ('b')]);
807 keymap_bind_keyseq (map, term_kh, &map['b']); /* home */
808 keymap_bind_keyseq (map, term_ke, &map['e']); /* end */
809
810 map = (Keymap)info_keymap[ESC].function;
811 keymap_bind_keyseq (map, term_kl, &map['b']); /* left */
812 keymap_bind_keyseq (map, "\033OA", &map['b']);
813 keymap_bind_keyseq (map, "\033[A", &map['b']);
814 keymap_bind_keyseq (map, term_kr, &map['f']); /* right */
815 keymap_bind_keyseq (map, "\033OB", &map['f']);
816 keymap_bind_keyseq (map, "\033[B", &map['f']);
817 keymap_bind_keyseq (map, term_kN, &map[Control ('v')]); /* pagedown */
818 keymap_bind_keyseq (map, term_kP, &map[DEL]); /* pageup */
819 keymap_bind_keyseq (map, term_kD, &map[DEL]); /* delete */
820
821 /* The alternative to this definition of a `main map' key in the
822 `ESC map' section, is something like:
823 keymap_bind_keyseq (map, term_kP, &((KeyMap)map[ESC].function).map['v']);
824 */
825 keymap_bind_keyseq (info_keymap/*sic*/, term_kP, &map['v']); /* pageup */
826 }
827
828 void
829 initialize_info_keymaps ()
830 {
831 if (vi_keys_p)
832 initialize_vi_like_keymaps ();
833 else
834 initialize_emacs_like_keymaps ();
835 }
836
837 #else /* defined(INFOKEY) */
838
839 /* Make sure that we don't have too many command codes defined. */
840
841 #if A_NCOMMANDS > A_MAX_COMMAND + 1
842 #error "too many commands defined"
843 #endif
844
845 /* Initialize the keymaps from the .info keymap file. */
846
847 #define NUL '\0'
848
849 static unsigned char default_emacs_like_info_keys[] =
850 {
851 0, /* suppress-default-keybindings flag */
852 TAB, NUL, A_info_move_to_next_xref,
853 LFD, NUL, A_info_select_reference_this_line,
854 RET, NUL, A_info_select_reference_this_line,
855 SPC, NUL, A_info_scroll_forward,
856 CONTROL('a'), NUL, A_info_beginning_of_line,
857 CONTROL('b'), NUL, A_info_backward_char,
858 CONTROL('e'), NUL, A_info_end_of_line,
859 CONTROL('f'), NUL, A_info_forward_char,
860 CONTROL('g'), NUL, A_info_abort_key,
861 CONTROL('h'), NUL, A_info_get_help_window,
862 CONTROL('l'), NUL, A_info_redraw_display,
863 CONTROL('n'), NUL, A_info_next_line,
864 CONTROL('p'), NUL, A_info_prev_line,
865 CONTROL('r'), NUL, A_isearch_backward,
866 CONTROL('s'), NUL, A_isearch_forward,
867 CONTROL('u'), NUL, A_info_universal_argument,
868 CONTROL('v'), NUL, A_info_scroll_forward_page_only,
869 ',', NUL, A_info_next_index_match,
870 '/', NUL, A_info_search,
871 '0', NUL, A_info_last_menu_item,
872 '1', NUL, A_info_menu_digit,
873 '2', NUL, A_info_menu_digit,
874 '3', NUL, A_info_menu_digit,
875 '4', NUL, A_info_menu_digit,
876 '5', NUL, A_info_menu_digit,
877 '6', NUL, A_info_menu_digit,
878 '7', NUL, A_info_menu_digit,
879 '8', NUL, A_info_menu_digit,
880 '9', NUL, A_info_menu_digit,
881 '<', NUL, A_info_first_node,
882 '>', NUL, A_info_last_node,
883 '?', NUL, A_info_get_help_window,
884 '[', NUL, A_info_global_prev_node,
885 ']', NUL, A_info_global_next_node,
886 'b', NUL, A_info_beginning_of_node,
887 'd', NUL, A_info_dir_node,
888 'e', NUL, A_info_end_of_node,
889 'f', NUL, A_info_xref_item,
890 'g', NUL, A_info_goto_node,
891 'G', NUL, A_info_menu_sequence,
892 'h', NUL, A_info_get_info_help_node,
893 'i', NUL, A_info_index_search,
894 'l', NUL, A_info_history_node,
895 'm', NUL, A_info_menu_item,
896 'n', NUL, A_info_next_node,
897 'O', NUL, A_info_goto_invocation_node,
898 'p', NUL, A_info_prev_node,
899 'q', NUL, A_info_quit,
900 'r', NUL, A_info_xref_item,
901 's', NUL, A_info_search,
902 'S', NUL, A_info_search_case_sensitively,
903 't', NUL, A_info_top_node,
904 'u', NUL, A_info_up_node,
905 DEL, NUL, A_info_scroll_backward,
906 ESC, '0', NUL, A_info_add_digit_to_numeric_arg,
907 ESC, '1', NUL, A_info_add_digit_to_numeric_arg,
908 ESC, '2', NUL, A_info_add_digit_to_numeric_arg,
909 ESC, '3', NUL, A_info_add_digit_to_numeric_arg,
910 ESC, '4', NUL, A_info_add_digit_to_numeric_arg,
911 ESC, '5', NUL, A_info_add_digit_to_numeric_arg,
912 ESC, '6', NUL, A_info_add_digit_to_numeric_arg,
913 ESC, '7', NUL, A_info_add_digit_to_numeric_arg,
914 ESC, '8', NUL, A_info_add_digit_to_numeric_arg,
915 ESC, '9', NUL, A_info_add_digit_to_numeric_arg,
916 ESC, '-', NUL, A_info_add_digit_to_numeric_arg,
917 ESC, CONTROL('f'), NUL, A_info_show_footnotes,
918 ESC, CONTROL('g'), NUL, A_info_abort_key,
919 ESC, TAB, NUL, A_info_move_to_prev_xref,
920 ESC, CONTROL('v'), NUL, A_info_scroll_other_window,
921 ESC, '<', NUL, A_info_beginning_of_node,
922 ESC, '>', NUL, A_info_end_of_node,
923 ESC, 'b', NUL, A_info_backward_word,
924 ESC, 'f', NUL, A_info_forward_word,
925 ESC, 'r', NUL, A_info_move_to_window_line,
926 ESC, 'v', NUL, A_info_scroll_backward_page_only,
927 Meta('0'), NUL, A_info_add_digit_to_numeric_arg,
928 Meta('1'), NUL, A_info_add_digit_to_numeric_arg,
929 Meta('2'), NUL, A_info_add_digit_to_numeric_arg,
930 Meta('3'), NUL, A_info_add_digit_to_numeric_arg,
931 Meta('4'), NUL, A_info_add_digit_to_numeric_arg,
932 Meta('5'), NUL, A_info_add_digit_to_numeric_arg,
933 Meta('6'), NUL, A_info_add_digit_to_numeric_arg,
934 Meta('7'), NUL, A_info_add_digit_to_numeric_arg,
935 Meta('8'), NUL, A_info_add_digit_to_numeric_arg,
936 Meta('9'), NUL, A_info_add_digit_to_numeric_arg,
937 Meta('-'), NUL, A_info_add_digit_to_numeric_arg,
938 Meta(CONTROL('f')), NUL, A_info_show_footnotes,
939 Meta(CONTROL('g')), NUL, A_info_abort_key,
940 Meta(TAB), NUL, A_info_move_to_prev_xref,
941 Meta(CONTROL('v')), NUL, A_info_scroll_other_window,
942 Meta('<'), NUL, A_info_beginning_of_node,
943 Meta('>'), NUL, A_info_end_of_node,
944 Meta('b'), NUL, A_info_backward_word,
945 Meta('f'), NUL, A_info_forward_word,
946 Meta('r'), NUL, A_info_move_to_window_line,
947 Meta('v'), NUL, A_info_scroll_backward_page_only,
948 #if defined (NAMED_FUNCTIONS)
949 ESC, 'x', NUL, A_info_execute_command,
950 Meta('x'), NUL, A_info_execute_command,
951 #endif /* NAMED_FUNCTIONS */
952
953 CONTROL('x'), CONTROL('b'), NUL, A_list_visited_nodes,
954 CONTROL('x'), CONTROL('c'), NUL, A_info_quit,
955 CONTROL('x'), CONTROL('f'), NUL, A_info_view_file,
956 CONTROL('x'), CONTROL('g'), NUL, A_info_abort_key,
957 CONTROL('x'), CONTROL('v'), NUL, A_info_view_file,
958 CONTROL('x'), '0', NUL, A_info_delete_window,
959 CONTROL('x'), '1', NUL, A_info_keep_one_window,
960 CONTROL('x'), '2', NUL, A_info_split_window,
961 CONTROL('x'), '^', NUL, A_info_grow_window,
962 CONTROL('x'), 'b', NUL, A_select_visited_node,
963 CONTROL('x'), 'k', NUL, A_info_kill_node,
964 CONTROL('x'), 'n', NUL, A_info_search_next,
965 CONTROL('x'), 'N', NUL, A_info_search_previous,
966 CONTROL('x'), 'o', NUL, A_info_next_window,
967 CONTROL('x'), 't', NUL, A_info_tile_windows,
968 CONTROL('x'), 'w', NUL, A_info_toggle_wrap,
969
970 /* Arrow key bindings for info keymaps. It seems that some
971 terminals do not match their termcap entries, so it's best to just
972 define everything with both of the usual prefixes. */
973
974 SK_ESCAPE, SK_PAGE_UP, NUL, A_info_scroll_backward_page_only,
975 SK_ESCAPE, SK_PAGE_DOWN, NUL, A_info_scroll_forward_page_only,
976 SK_ESCAPE, SK_UP_ARROW, NUL, A_info_prev_line,
977 '\033', 'O', 'A', NUL, A_info_prev_line,
978 '\033', '[', 'A', NUL, A_info_prev_line,
979 SK_ESCAPE, SK_DOWN_ARROW, NUL, A_info_next_line,
980 '\033', 'O', 'B', NUL, A_info_next_line,
981 '\033', '[', 'B', NUL, A_info_next_line,
982 SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_info_forward_char,
983 '\033', 'O', 'C', NUL, A_info_forward_char,
984 '\033', '[', 'C', NUL, A_info_forward_char,
985 SK_ESCAPE, SK_LEFT_ARROW, NUL, A_info_backward_char,
986 '\033', 'O', 'D', NUL, A_info_backward_char,
987 '\033', '[', 'D', NUL, A_info_backward_char,
988 SK_ESCAPE, SK_HOME, NUL, A_info_beginning_of_node,
989 SK_ESCAPE, SK_END, NUL, A_info_end_of_node,
990 SK_ESCAPE, SK_DELETE, NUL, A_info_scroll_backward,
991
992 ESC, SK_ESCAPE, SK_PAGE_UP, NUL, A_info_scroll_other_window_backward,
993 ESC, SK_ESCAPE, SK_PAGE_DOWN, NUL, A_info_scroll_other_window,
994 ESC, SK_ESCAPE, SK_UP_ARROW, NUL, A_info_prev_line,
995 ESC, '\033', 'O', 'A', NUL, A_info_prev_line,
996 ESC, '\033', '[', 'A', NUL, A_info_prev_line,
997 ESC, SK_ESCAPE, SK_DOWN_ARROW, NUL, A_info_next_line,
998 ESC, '\033', 'O', 'B', NUL, A_info_next_line,
999 ESC, '\033', '[', 'B', NUL, A_info_next_line,
1000 ESC, SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_info_forward_word,
1001 ESC, '\033', 'O', 'C', NUL, A_info_forward_word,
1002 ESC, '\033', '[', 'C', NUL, A_info_forward_word,
1003 ESC, SK_ESCAPE, SK_LEFT_ARROW, NUL, A_info_backward_word,
1004 ESC, '\033', 'O', 'D', NUL, A_info_backward_word,
1005 ESC, '\033', '[', 'D', NUL, A_info_backward_word,
1006 };
1007
1008 static unsigned char default_emacs_like_ea_keys[] =
1009 {
1010 0, /* suppress-default-keybindings flag */
1011 ESC, '0', NUL, A_info_add_digit_to_numeric_arg,
1012 ESC, '1', NUL, A_info_add_digit_to_numeric_arg,
1013 ESC, '2', NUL, A_info_add_digit_to_numeric_arg,
1014 ESC, '3', NUL, A_info_add_digit_to_numeric_arg,
1015 ESC, '4', NUL, A_info_add_digit_to_numeric_arg,
1016 ESC, '5', NUL, A_info_add_digit_to_numeric_arg,
1017 ESC, '6', NUL, A_info_add_digit_to_numeric_arg,
1018 ESC, '7', NUL, A_info_add_digit_to_numeric_arg,
1019 ESC, '8', NUL, A_info_add_digit_to_numeric_arg,
1020 ESC, '9', NUL, A_info_add_digit_to_numeric_arg,
1021 ESC, '-', NUL, A_info_add_digit_to_numeric_arg,
1022 Meta('0'), NUL, A_info_add_digit_to_numeric_arg,
1023 Meta('1'), NUL, A_info_add_digit_to_numeric_arg,
1024 Meta('2'), NUL, A_info_add_digit_to_numeric_arg,
1025 Meta('3'), NUL, A_info_add_digit_to_numeric_arg,
1026 Meta('4'), NUL, A_info_add_digit_to_numeric_arg,
1027 Meta('5'), NUL, A_info_add_digit_to_numeric_arg,
1028 Meta('6'), NUL, A_info_add_digit_to_numeric_arg,
1029 Meta('7'), NUL, A_info_add_digit_to_numeric_arg,
1030 Meta('8'), NUL, A_info_add_digit_to_numeric_arg,
1031 Meta('9'), NUL, A_info_add_digit_to_numeric_arg,
1032 Meta('-'), NUL, A_info_add_digit_to_numeric_arg,
1033 ESC, CONTROL('g'), NUL, A_ea_abort,
1034 ESC, CONTROL('v'), NUL, A_ea_scroll_completions_window,
1035 ESC, 'b', NUL, A_ea_backward_word,
1036 ESC, 'd', NUL, A_ea_kill_word,
1037 ESC, 'f', NUL, A_ea_forward_word,
1038 ESC, 'y', NUL, A_ea_yank_pop,
1039 ESC, '?', NUL, A_ea_possible_completions,
1040 ESC, TAB, NUL, A_ea_tab_insert,
1041 ESC, DEL, NUL, A_ea_backward_kill_word,
1042 Meta(CONTROL('g')), NUL, A_ea_abort,
1043 Meta(CONTROL('v')), NUL, A_ea_scroll_completions_window,
1044 Meta('b'), NUL, A_ea_backward_word,
1045 Meta('d'), NUL, A_ea_kill_word,
1046 Meta('f'), NUL, A_ea_forward_word,
1047 Meta('y'), NUL, A_ea_yank_pop,
1048 Meta('?'), NUL, A_ea_possible_completions,
1049 Meta(TAB), NUL, A_ea_tab_insert,
1050 Meta(DEL), NUL, A_ea_backward_kill_word,
1051 CONTROL('a'), NUL, A_ea_beg_of_line,
1052 CONTROL('b'), NUL, A_ea_backward,
1053 CONTROL('d'), NUL, A_ea_delete,
1054 CONTROL('e'), NUL, A_ea_end_of_line,
1055 CONTROL('f'), NUL, A_ea_forward,
1056 CONTROL('g'), NUL, A_ea_abort,
1057 CONTROL('h'), NUL, A_ea_rubout,
1058 /* CONTROL('k') */
1059 SK_ESCAPE, SK_LITERAL, NUL, A_ea_kill_line,
1060 CONTROL('l'), NUL, A_info_redraw_display,
1061 CONTROL('q'), NUL, A_ea_quoted_insert,
1062 CONTROL('t'), NUL, A_ea_transpose_chars,
1063 CONTROL('u'), NUL, A_info_universal_argument,
1064 CONTROL('y'), NUL, A_ea_yank,
1065 LFD, NUL, A_ea_newline,
1066 RET, NUL, A_ea_newline,
1067 SPC, NUL, A_ea_complete,
1068 TAB, NUL, A_ea_complete,
1069 '?', NUL, A_ea_possible_completions,
1070 #ifdef __MSDOS__
1071 /* PC users will lynch me if I don't give them their usual DEL
1072 effect... */
1073 DEL, NUL, A_ea_delete,
1074 #else
1075 DEL, NUL, A_ea_rubout,
1076 #endif
1077 #if defined (NAMED_FUNCTIONS)
1078 /* ESC, 'x', NUL, A_info_execute_command, */
1079 /* Meta('x'), NUL, A_info_execute_command, */
1080 #endif /* NAMED_FUNCTIONS */
1081 CONTROL('x'), 'o', NUL, A_info_next_window,
1082 CONTROL('x'), DEL, NUL, A_ea_backward_kill_line,
1083
1084 /* Arrow key bindings for echo area keymaps. It seems that some
1085 terminals do not match their termcap entries, so it's best to just
1086 define everything with both of the usual prefixes. */
1087
1088 SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_ea_forward,
1089 '\033', 'O', 'C', NUL, A_ea_forward,
1090 '\033', '[', 'C', NUL, A_ea_forward,
1091 SK_ESCAPE, SK_LEFT_ARROW, NUL, A_ea_backward,
1092 '\033', 'O', 'D', NUL, A_ea_backward,
1093 '\033', '[', 'D', NUL, A_ea_backward,
1094 ESC, SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_ea_forward_word,
1095 ESC, '\033', 'O', 'C', NUL, A_ea_forward_word,
1096 ESC, '\033', '[', 'C', NUL, A_ea_forward_word,
1097 ESC, SK_ESCAPE, SK_LEFT_ARROW, NUL, A_ea_backward_word,
1098 ESC, '\033', 'O', 'D', NUL, A_ea_backward_word,
1099 ESC, '\033', '[', 'D', NUL, A_ea_backward_word,
1100 #ifdef __MSDOS__
1101 SK_ESCAPE, SK_DELETE, NUL, A_ea_delete,
1102 #else
1103 SK_ESCAPE, SK_DELETE, NUL, A_ea_rubout,
1104 #endif
1105 SK_ESCAPE, SK_HOME, NUL, A_ea_beg_of_line,
1106 SK_ESCAPE, SK_END, NUL, A_ea_end_of_line,
1107 ESC, SK_ESCAPE, SK_DELETE, NUL, A_ea_backward_kill_word,
1108 CONTROL('x'), SK_ESCAPE, SK_DELETE, NUL,A_ea_backward_kill_line,
1109 };
1110
1111 static unsigned char default_vi_like_info_keys[] =
1112 {
1113 0, /* suppress-default-keybindings flag */
1114 '0', NUL, A_info_add_digit_to_numeric_arg,
1115 '1', NUL, A_info_add_digit_to_numeric_arg,
1116 '2', NUL, A_info_add_digit_to_numeric_arg,
1117 '3', NUL, A_info_add_digit_to_numeric_arg,
1118 '4', NUL, A_info_add_digit_to_numeric_arg,
1119 '5', NUL, A_info_add_digit_to_numeric_arg,
1120 '6', NUL, A_info_add_digit_to_numeric_arg,
1121 '7', NUL, A_info_add_digit_to_numeric_arg,
1122 '8', NUL, A_info_add_digit_to_numeric_arg,
1123 '9', NUL, A_info_add_digit_to_numeric_arg,
1124 '-', NUL, A_info_add_digit_to_numeric_arg,
1125 TAB, NUL, A_info_move_to_next_xref,
1126 LFD, NUL, A_info_down_line,
1127 RET, NUL, A_info_down_line,
1128 SPC, NUL, A_info_scroll_forward,
1129 CONTROL('a'), NUL, A_info_beginning_of_line,
1130 CONTROL('b'), NUL, A_info_scroll_backward_page_only,
1131 CONTROL('d'), NUL, A_info_scroll_half_screen_down,
1132 CONTROL('e'), NUL, A_info_down_line,
1133 CONTROL('f'), NUL, A_info_scroll_forward_page_only,
1134 CONTROL('g'), NUL, A_info_abort_key,
1135 CONTROL('k'), NUL, A_info_up_line,
1136 CONTROL('l'), NUL, A_info_redraw_display,
1137 CONTROL('n'), NUL, A_info_down_line,
1138 CONTROL('p'), NUL, A_info_up_line,
1139 CONTROL('r'), NUL, A_info_redraw_display,
1140 CONTROL('s'), NUL, A_isearch_forward,
1141 CONTROL('u'), NUL, A_info_scroll_half_screen_up,
1142 CONTROL('v'), NUL, A_info_scroll_forward_page_only,
1143 CONTROL('y'), NUL, A_info_up_line,
1144 ',', NUL, A_info_next_index_match,
1145 '/', NUL, A_info_search,
1146 ESC, '0', NUL, A_info_last_menu_item,
1147 ESC, '1', NUL, A_info_menu_digit,
1148 ESC, '2', NUL, A_info_menu_digit,
1149 ESC, '3', NUL, A_info_menu_digit,
1150 ESC, '4', NUL, A_info_menu_digit,
1151 ESC, '5', NUL, A_info_menu_digit,
1152 ESC, '6', NUL, A_info_menu_digit,
1153 ESC, '7', NUL, A_info_menu_digit,
1154 ESC, '8', NUL, A_info_menu_digit,
1155 ESC, '9', NUL, A_info_menu_digit,
1156 Meta('0'), NUL, A_info_last_menu_item,
1157 Meta('1'), NUL, A_info_menu_digit,
1158 Meta('2'), NUL, A_info_menu_digit,
1159 Meta('3'), NUL, A_info_menu_digit,
1160 Meta('4'), NUL, A_info_menu_digit,
1161 Meta('5'), NUL, A_info_menu_digit,
1162 Meta('6'), NUL, A_info_menu_digit,
1163 Meta('7'), NUL, A_info_menu_digit,
1164 Meta('8'), NUL, A_info_menu_digit,
1165 Meta('9'), NUL, A_info_menu_digit,
1166 '<', NUL, A_info_first_node,
1167 '>', NUL, A_info_last_node,
1168 '?', NUL, A_info_search_backward,
1169 '[', NUL, A_info_global_prev_node,
1170 ']', NUL, A_info_global_next_node,
1171 '\'', NUL, A_info_history_node,
1172 'b', NUL, A_info_scroll_backward,
1173 'd', NUL, A_info_scroll_half_screen_down,
1174 'e', NUL, A_info_down_line,
1175 'E', NUL, A_info_view_file,
1176 ':', 'e', NUL, A_info_view_file,
1177 'f', NUL, A_info_scroll_forward_page_only,
1178 'F', NUL, A_info_scroll_forward_page_only,
1179 'g', NUL, A_info_first_node,
1180 'G', NUL, A_info_last_node,
1181 'h', NUL, A_info_get_help_window,
1182 'H', NUL, A_info_get_help_window,
1183 'i', NUL, A_info_index_search,
1184 'I', NUL, A_info_goto_invocation_node,
1185 'j', NUL, A_info_next_line,
1186 'k', NUL, A_info_prev_line,
1187 'l', NUL, A_info_history_node,
1188 'm', NUL, A_info_menu_item,
1189 'n', NUL, A_info_search_next,
1190 'N', NUL, A_info_search_previous,
1191 'O', NUL, A_info_goto_invocation_node,
1192 'p', NUL, A_info_prev_node,
1193 'q', NUL, A_info_quit,
1194 'Q', NUL, A_info_quit,
1195 ':', 'q', NUL, A_info_quit,
1196 ':', 'Q', NUL, A_info_quit,
1197 'Z', 'Z', NUL, A_info_quit,
1198 'r', NUL, A_info_redraw_display,
1199 'R', NUL, A_info_redraw_display,
1200 's', NUL, A_info_search,
1201 'S', NUL, A_info_search_case_sensitively,
1202 't', NUL, A_info_top_node,
1203 'u', NUL, A_info_scroll_half_screen_up,
1204 'w', NUL, A_info_scroll_backward_page_only_set_window,
1205 'y', NUL, A_info_up_line,
1206 'z', NUL, A_info_scroll_forward_page_only_set_window,
1207 DEL, NUL, A_info_scroll_backward,
1208 ESC, CONTROL('f'), NUL, A_info_show_footnotes,
1209 ESC, CONTROL('g'), NUL, A_info_abort_key,
1210 ESC, TAB, NUL, A_info_move_to_prev_xref,
1211 ESC, SPC, NUL, A_info_scroll_forward_page_only,
1212 ESC, CONTROL('v'), NUL, A_info_scroll_other_window,
1213 ESC, '<', NUL, A_info_beginning_of_node,
1214 ESC, '>', NUL, A_info_end_of_node,
1215 ESC, '/', NUL, A_info_search,
1216 ESC, '?', NUL, A_info_search_backward,
1217 ESC, 'b', NUL, A_info_beginning_of_node,
1218 ESC, 'd', NUL, A_info_dir_node,
1219 ESC, 'e', NUL, A_info_end_of_node,
1220 ESC, 'f', NUL, A_info_xref_item,
1221 ESC, 'g', NUL, A_info_select_reference_this_line,
1222 ESC, 'h', NUL, A_info_get_info_help_node,
1223 ESC, 'm', NUL, A_info_menu_item,
1224 ESC, 'n', NUL, A_info_search,
1225 ESC, 'N', NUL, A_info_search_backward,
1226 ESC, 'r', NUL, A_isearch_backward,
1227 ESC, 's', NUL, A_isearch_forward,
1228 ESC, 't', NUL, A_info_top_node,
1229 ESC, 'v', NUL, A_info_scroll_backward_page_only,
1230 #if defined (NAMED_FUNCTIONS)
1231 ESC, 'x', NUL, A_info_execute_command,
1232 Meta('x'), NUL, A_info_execute_command,
1233 #endif /* NAMED_FUNCTIONS */
1234 ESC, DEL, NUL, A_info_scroll_other_window_backward,
1235 CONTROL('x'), CONTROL('b'), NUL, A_list_visited_nodes,
1236 CONTROL('x'), CONTROL('c'), NUL, A_info_quit,
1237 CONTROL('x'), CONTROL('f'), NUL, A_info_view_file,
1238 CONTROL('x'), CONTROL('g'), NUL, A_info_abort_key,
1239 CONTROL('x'), CONTROL('v'), NUL, A_info_view_file,
1240 CONTROL('x'), LFD, NUL, A_info_select_reference_this_line,
1241 CONTROL('x'), RET, NUL, A_info_select_reference_this_line,
1242 CONTROL('x'), '0', NUL, A_info_delete_window,
1243 CONTROL('x'), '1', NUL, A_info_keep_one_window,
1244 CONTROL('x'), '2', NUL, A_info_split_window,
1245 CONTROL('x'), '^', NUL, A_info_grow_window,
1246 CONTROL('x'), 'b', NUL, A_select_visited_node,
1247 CONTROL('x'), 'g', NUL, A_info_goto_node,
1248 CONTROL('x'), 'i', NUL, A_info_index_search,
1249 CONTROL('x'), 'I', NUL, A_info_goto_invocation_node,
1250 CONTROL('x'), 'k', NUL, A_info_kill_node,
1251 CONTROL('x'), 'n', NUL, A_info_next_node,
1252 CONTROL('x'), 'o', NUL, A_info_next_window,
1253 CONTROL('x'), 'O', NUL, A_info_goto_invocation_node,
1254 CONTROL('x'), 'p', NUL, A_info_prev_node,
1255 CONTROL('x'), 'r', NUL, A_info_xref_item,
1256 CONTROL('x'), 't', NUL, A_info_tile_windows,
1257 CONTROL('x'), 'u', NUL, A_info_up_node,
1258 CONTROL('x'), 'w', NUL, A_info_toggle_wrap,
1259 CONTROL('x'), ',', NUL, A_info_next_index_match,
1260
1261 /* Arrow key bindings for info keymaps. It seems that some
1262 terminals do not match their termcap entries, so it's best to just
1263 define everything with both of the usual prefixes. */
1264
1265 SK_ESCAPE, SK_PAGE_UP, NUL, A_info_scroll_backward_page_only,
1266 SK_ESCAPE, SK_PAGE_DOWN, NUL, A_info_scroll_forward_page_only,
1267 SK_ESCAPE, SK_UP_ARROW, NUL, A_info_up_line,
1268 '\033', 'O', 'A', NUL, A_info_up_line,
1269 '\033', '[', 'A', NUL, A_info_up_line,
1270 SK_ESCAPE, SK_DOWN_ARROW, NUL, A_info_down_line,
1271 '\033', 'O', 'B', NUL, A_info_down_line,
1272 '\033', '[', 'B', NUL, A_info_down_line,
1273 SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_info_scroll_forward_page_only,
1274 '\033', 'O', 'C', NUL, A_info_scroll_forward_page_only,
1275 '\033', '[', 'C', NUL, A_info_scroll_forward_page_only,
1276 SK_ESCAPE, SK_LEFT_ARROW, NUL, A_info_scroll_backward_page_only,
1277 '\033', 'O', 'D', NUL, A_info_scroll_backward_page_only,
1278 '\033', '[', 'D', NUL, A_info_scroll_backward_page_only,
1279 SK_ESCAPE, SK_HOME, NUL, A_info_beginning_of_node,
1280 SK_ESCAPE, SK_END, NUL, A_info_end_of_node,
1281 ESC, SK_ESCAPE, SK_PAGE_DOWN, NUL, A_info_scroll_other_window,
1282 ESC, SK_ESCAPE, SK_PAGE_UP, NUL, A_info_scroll_other_window_backward,
1283 ESC, SK_ESCAPE, SK_DELETE, NUL, A_info_scroll_other_window_backward,
1284 ESC, SK_ESCAPE, SK_UP_ARROW, NUL, A_info_prev_node,
1285 ESC, '\033', 'O', 'A', NUL, A_info_prev_node,
1286 ESC, '\033', '[', 'A', NUL, A_info_prev_node,
1287 ESC, SK_ESCAPE, SK_DOWN_ARROW, NUL, A_info_next_node,
1288 ESC, '\033', 'O', 'B', NUL, A_info_next_node,
1289 ESC, '\033', '[', 'B', NUL, A_info_next_node,
1290 ESC, SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_info_xref_item,
1291 ESC, '\033', 'O', 'C', NUL, A_info_xref_item,
1292 ESC, '\033', '[', 'C', NUL, A_info_xref_item,
1293 ESC, SK_ESCAPE, SK_LEFT_ARROW, NUL, A_info_beginning_of_node,
1294 ESC, '\033', 'O', 'D', NUL, A_info_beginning_of_node,
1295 ESC, '\033', '[', 'D', NUL, A_info_beginning_of_node,
1296 CONTROL('x'), SK_ESCAPE, SK_DELETE, NUL,A_ea_backward_kill_line,
1297 };
1298
1299 static unsigned char default_vi_like_ea_keys[] =
1300 {
1301 0, /* suppress-default-keybindings flag */
1302 ESC, '1', NUL, A_info_add_digit_to_numeric_arg,
1303 ESC, '2', NUL, A_info_add_digit_to_numeric_arg,
1304 ESC, '3', NUL, A_info_add_digit_to_numeric_arg,
1305 ESC, '4', NUL, A_info_add_digit_to_numeric_arg,
1306 ESC, '5', NUL, A_info_add_digit_to_numeric_arg,
1307 ESC, '6', NUL, A_info_add_digit_to_numeric_arg,
1308 ESC, '7', NUL, A_info_add_digit_to_numeric_arg,
1309 ESC, '8', NUL, A_info_add_digit_to_numeric_arg,
1310 ESC, '9', NUL, A_info_add_digit_to_numeric_arg,
1311 ESC, '-', NUL, A_info_add_digit_to_numeric_arg,
1312 Meta('1'), NUL, A_info_add_digit_to_numeric_arg,
1313 Meta('2'), NUL, A_info_add_digit_to_numeric_arg,
1314 Meta('3'), NUL, A_info_add_digit_to_numeric_arg,
1315 Meta('4'), NUL, A_info_add_digit_to_numeric_arg,
1316 Meta('5'), NUL, A_info_add_digit_to_numeric_arg,
1317 Meta('6'), NUL, A_info_add_digit_to_numeric_arg,
1318 Meta('7'), NUL, A_info_add_digit_to_numeric_arg,
1319 Meta('8'), NUL, A_info_add_digit_to_numeric_arg,
1320 Meta('9'), NUL, A_info_add_digit_to_numeric_arg,
1321 Meta('-'), NUL, A_info_add_digit_to_numeric_arg,
1322 ESC, CONTROL('g'), NUL, A_ea_abort,
1323 ESC, CONTROL('h'), NUL, A_ea_backward_kill_word,
1324 ESC, CONTROL('v'), NUL, A_ea_scroll_completions_window,
1325 ESC, '0', NUL, A_ea_beg_of_line,
1326 ESC, '$', NUL, A_ea_end_of_line,
1327 ESC, 'b', NUL, A_ea_backward_word,
1328 ESC, 'd', NUL, A_ea_kill_word,
1329 ESC, 'f', NUL, A_ea_forward_word,
1330 ESC, 'h', NUL, A_ea_forward,
1331 ESC, 'l', NUL, A_ea_backward,
1332 ESC, 'w', NUL, A_ea_forward_word,
1333 ESC, 'x', NUL, A_ea_delete,
1334 ESC, 'X', NUL, A_ea_kill_word,
1335 ESC, 'y', NUL, A_ea_yank_pop,
1336 ESC, '?', NUL, A_ea_possible_completions,
1337 ESC, TAB, NUL, A_ea_tab_insert,
1338 ESC, DEL, NUL, A_ea_kill_word,
1339 Meta(CONTROL('g')), NUL, A_ea_abort,
1340 Meta(CONTROL('h')), NUL, A_ea_backward_kill_word,
1341 Meta(CONTROL('v')), NUL, A_ea_scroll_completions_window,
1342 Meta('0'), NUL, A_ea_beg_of_line,
1343 Meta('$'), NUL, A_ea_end_of_line,
1344 Meta('b'), NUL, A_ea_backward_word,
1345 Meta('d'), NUL, A_ea_kill_word,
1346 Meta('f'), NUL, A_ea_forward_word,
1347 Meta('h'), NUL, A_ea_forward,
1348 Meta('l'), NUL, A_ea_backward,
1349 Meta('w'), NUL, A_ea_forward_word,
1350 Meta('x'), NUL, A_ea_delete,
1351 Meta('X'), NUL, A_ea_kill_word,
1352 Meta('y'), NUL, A_ea_yank_pop,
1353 Meta('?'), NUL, A_ea_possible_completions,
1354 Meta(TAB), NUL, A_ea_tab_insert,
1355 Meta(DEL), NUL, A_ea_kill_word,
1356 CONTROL('a'), NUL, A_ea_beg_of_line,
1357 CONTROL('b'), NUL, A_ea_backward,
1358 CONTROL('d'), NUL, A_ea_delete,
1359 CONTROL('e'), NUL, A_ea_end_of_line,
1360 CONTROL('f'), NUL, A_ea_forward,
1361 CONTROL('g'), NUL, A_ea_abort,
1362 CONTROL('h'), NUL, A_ea_rubout,
1363 /* CONTROL('k') */
1364 SK_ESCAPE, SK_LITERAL, NUL, A_ea_kill_line,
1365 CONTROL('l'), NUL, A_info_redraw_display,
1366 CONTROL('q'), NUL, A_ea_quoted_insert,
1367 CONTROL('t'), NUL, A_ea_transpose_chars,
1368 CONTROL('u'), NUL, A_ea_abort,
1369 CONTROL('v'), NUL, A_ea_quoted_insert,
1370 CONTROL('y'), NUL, A_ea_yank,
1371 LFD, NUL, A_ea_newline,
1372 RET, NUL, A_ea_newline,
1373 SPC, NUL, A_ea_complete,
1374 TAB, NUL, A_ea_complete,
1375 '?', NUL, A_ea_possible_completions,
1376 #ifdef __MSDOS__
1377 /* PC users will lynch me if I don't give them their usual DEL
1378 effect... */
1379 DEL, NUL, A_ea_delete,
1380 #else
1381 DEL, NUL, A_ea_rubout,
1382 #endif
1383 CONTROL('x'), 'o', NUL, A_info_next_window,
1384 CONTROL('x'), DEL, NUL, A_ea_backward_kill_line,
1385
1386 /* Arrow key bindings for echo area keymaps. It seems that some
1387 terminals do not match their termcap entries, so it's best to just
1388 define everything with both of the usual prefixes. */
1389
1390 SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_ea_forward,
1391 '\033', 'O', 'C', NUL, A_ea_forward,
1392 '\033', '[', 'C', NUL, A_ea_forward,
1393 SK_ESCAPE, SK_LEFT_ARROW, NUL, A_ea_backward,
1394 '\033', 'O', 'D', NUL, A_ea_backward,
1395 '\033', '[', 'D', NUL, A_ea_backward,
1396 SK_ESCAPE, SK_HOME, NUL, A_ea_beg_of_line,
1397 SK_ESCAPE, SK_END, NUL, A_ea_end_of_line,
1398 #ifdef __MSDOS__
1399 SK_ESCAPE, SK_DELETE, NUL, A_ea_delete,
1400 #else
1401 SK_DELETE, SK_DELETE, NUL, A_ea_rubout,
1402 #endif
1403 ESC, SK_ESCAPE, SK_RIGHT_ARROW, NUL, A_ea_forward_word,
1404 ESC, '\033', 'O', 'C', NUL, A_ea_forward_word,
1405 ESC, '\033', '[', 'C', NUL, A_ea_forward_word,
1406 ESC, SK_ESCAPE, SK_LEFT_ARROW, NUL, A_ea_backward_word,
1407 ESC, '\033', 'O', 'D', NUL, A_ea_backward_word,
1408 ESC, '\033', '[', 'D', NUL, A_ea_backward_word,
1409 ESC, SK_ESCAPE, SK_DELETE, NUL, A_ea_kill_word,
1410 CONTROL('x'), SK_ESCAPE, SK_DELETE, NUL,A_ea_backward_kill_line,
1411 };
1412
1413 static unsigned char *user_info_keys;
1414 static unsigned int user_info_keys_len;
1415 static unsigned char *user_ea_keys;
1416 static unsigned int user_ea_keys_len;
1417 static unsigned char *user_vars;
1418 static unsigned int user_vars_len;
1419
1420 /*
1421 * Return the size of a file, or 0 if the size can't be determined.
1422 */
1423 static unsigned long
1424 filesize(int f)
1425 {
1426 long pos = lseek(f, 0L, SEEK_CUR);
1427 long sz = -1L;
1428 if (pos != -1L)
1429 {
1430 sz = lseek(f, 0L, SEEK_END);
1431 lseek(f, pos, SEEK_SET);
1432 }
1433 return sz == -1L ? 0L : sz;
1434 }
1435
1436 /* Get an integer from a infokey file.
1437 Integers are stored as two bytes, low order first, in radix INFOKEY_RADIX.
1438 */
1439 static int
1440 getint(unsigned char **sp)
1441 {
1442 int n;
1443
1444 if ( !((*sp)[0] < INFOKEY_RADIX && (*sp)[1] < INFOKEY_RADIX) )
1445 return -1;
1446 n = (*sp)[0] + (*sp)[1] * INFOKEY_RADIX;
1447 *sp += 2;
1448 return n;
1449 }
1450
1451
1452 /* Fetch the contents of the standard infokey file "$HOME/.info". Return
1453 true if ok, false if not. */
1454 static int
1455 fetch_user_maps(void)
1456 {
1457 char *filename = NULL;
1458 char *homedir;
1459 int f;
1460 unsigned char *buf;
1461 unsigned long len;
1462 long nread;
1463 unsigned char *p;
1464 int n;
1465
1466 /* Find and open file. */
1467 if ((filename = getenv("INFOKEY")) != NULL)
1468 filename = xstrdup(filename);
1469 else if ((homedir = getenv("HOME")) != NULL)
1470 {
1471 filename = xmalloc(strlen(homedir) + 2 + strlen(INFOKEY_FILE));
1472 strcpy(filename, homedir);
1473 strcat(filename, "/");
1474 strcat(filename, INFOKEY_FILE);
1475 }
1476 #ifdef __MSDOS__
1477 /* Poor baby, she doesn't have a HOME... */
1478 else
1479 filename = xstrdup(INFOKEY_FILE); /* try current directory */
1480 #endif
1481 if (filename == NULL || (f = open(filename, O_RDONLY)) == (-1))
1482 {
1483 if (filename && errno != ENOENT)
1484 {
1485 info_error(filesys_error_string(filename, errno),
1486 NULL, NULL);
1487 free(filename);
1488 }
1489 return 0;
1490 }
1491 SET_BINARY (f);
1492
1493 /* Ensure that the file is a reasonable size. */
1494 len = filesize(f);
1495 if (len < INFOKEY_NMAGIC + 2 || len > 100 * 1024)
1496 {
1497 /* Bad file (a valid file must have at least 9 chars, and
1498 more than 100 KB is a problem). */
1499 if (len < INFOKEY_NMAGIC + 2)
1500 info_error((char *) _("Ignoring invalid infokey file `%s' - too small"),
1501 filename, NULL);
1502 else
1503 info_error((char *) _("Ignoring invalid infokey file `%s' - too big"),
1504 filename, NULL);
1505 close(f);
1506 free(filename);
1507 return 0;
1508 }
1509
1510 /* Read the file into a buffer. */
1511 buf = (unsigned char *)xmalloc((int)len);
1512 nread = read(f, buf, (unsigned int) len);
1513 close(f);
1514 if ((unsigned int) nread != len)
1515 {
1516 info_error((char *) _("Error reading infokey file `%s' - short read"),
1517 filename, NULL);
1518 free(buf);
1519 free(filename);
1520 return 0;
1521 }
1522
1523 /* Check the header, trailer, and version of the file to increase
1524 our confidence that the contents are valid. */
1525 if ( buf[0] != INFOKEY_MAGIC_S0
1526 || buf[1] != INFOKEY_MAGIC_S1
1527 || buf[2] != INFOKEY_MAGIC_S2
1528 || buf[3] != INFOKEY_MAGIC_S3
1529 || buf[len - 4] != INFOKEY_MAGIC_E0
1530 || buf[len - 3] != INFOKEY_MAGIC_E1
1531 || buf[len - 2] != INFOKEY_MAGIC_E2
1532 || buf[len - 1] != INFOKEY_MAGIC_E3
1533 )
1534 {
1535 info_error((char *) _("Invalid infokey file `%s' (bad magic numbers) -- run infokey to update it"),
1536 filename, NULL);
1537 free(filename);
1538 return 0;
1539 }
1540 if (len < INFOKEY_NMAGIC + strlen(VERSION) + 1
1541 || strcmp(VERSION, (char *) (buf + 4)) != 0)
1542 {
1543 info_error
1544 ((char *) _("Your infokey file `%s' is out of date -- run infokey to update it"),
1545 filename, NULL);
1546 free(filename);
1547 return 0;
1548 }
1549
1550 /* Extract the pieces. */
1551 for (p = buf + 4 + strlen(VERSION) + 1;
1552 (unsigned int) (p - buf) < len - 4;
1553 p += n)
1554 {
1555 int s = *p++;
1556
1557 n = getint(&p);
1558 if (n < 0 || (unsigned int) n > len - 4 - (p - buf))
1559 {
1560 info_error((char *) _("Invalid infokey file `%s' (bad section length) -- run infokey to update it"),
1561 filename, NULL);
1562 free(filename);
1563 return 0;
1564 }
1565
1566 switch (s)
1567 {
1568 case INFOKEY_SECTION_INFO:
1569 user_info_keys = p;
1570 user_info_keys_len = n;
1571 break;
1572 case INFOKEY_SECTION_EA:
1573 user_ea_keys = p;
1574 user_ea_keys_len = n;
1575 break;
1576 case INFOKEY_SECTION_VAR:
1577 user_vars = p;
1578 user_vars_len = n;
1579 break;
1580 default:
1581 info_error((char *) _("Invalid infokey file `%s' (bad section code) -- run infokey to update it"),
1582 filename, NULL);
1583 free(filename);
1584 return 0;
1585 }
1586 }
1587
1588 free(filename);
1589 return 1;
1590 }
1591
1592 /* Decode special key sequences from the infokey file. Return zero
1593 if the key sequence includes special keys which the terminal
1594 doesn't define.
1595 */
1596 static int
1597 decode_keys(unsigned char *src, unsigned int slen,
1598 unsigned char *dst, unsigned int dlen)
1599 {
1600 unsigned char *s = src;
1601 unsigned char *d = dst;
1602
1603 #define To_dst(c) do { \
1604 if ((unsigned int) (d - dst) < dlen) *d++ = (c); \
1605 } while (0)
1606
1607 while ((unsigned int) (s - src) < slen)
1608 {
1609 unsigned char c = ISMETA(*s) ? UNMETA(*s) : *s;
1610
1611 if (c == SK_ESCAPE)
1612 {
1613 char *t;
1614 static char lit[] = { SK_ESCAPE, NUL };
1615
1616 switch ((unsigned int) (s + 1 - src) < slen ? s[1] : '\0')
1617 {
1618 case SK_RIGHT_ARROW: t = term_kr; break;
1619 case SK_LEFT_ARROW: t = term_kl; break;
1620 case SK_UP_ARROW: t = term_ku; break;
1621 case SK_DOWN_ARROW: t = term_kd; break;
1622 case SK_PAGE_UP: t = term_kP; break;
1623 case SK_PAGE_DOWN: t = term_kN; break;
1624 case SK_HOME: t = term_kh; break;
1625 case SK_END: t = term_ke; break;
1626 case SK_DELETE: t = term_kx; break;
1627 case SK_INSERT: t = term_ki; break;
1628 case SK_LITERAL:
1629 default: t = lit; break;
1630 }
1631 if (t == NULL)
1632 return 0;
1633 while (*t)
1634 To_dst(ISMETA(*s) ? Meta(*t++) : *t++);
1635 s += 2;
1636 }
1637 else
1638 {
1639 if (ISMETA(*s))
1640 To_dst(Meta(*s++));
1641 else
1642 To_dst(*s++);
1643 }
1644 }
1645
1646 To_dst('\0');
1647
1648 return 1;
1649
1650 #undef To_dst
1651
1652 }
1653
1654 /* Convert an infokey file section to keymap bindings. Return false if
1655 the default bindings are to be suppressed. */
1656 static int
1657 section_to_keymaps(Keymap map, unsigned char *table, unsigned int len)
1658 {
1659 int stop;
1660 unsigned char *p;
1661 unsigned char *seq = NULL;
1662 unsigned int seqlen = 0;
1663 enum { getseq, gotseq, getaction } state = getseq;
1664
1665 stop = len > 0 ? table[0] : 0;
1666
1667 for (p = table + 1; (unsigned int) (p - table) < len; p++)
1668 {
1669 switch (state)
1670 {
1671 case getseq:
1672 if (*p)
1673 {
1674 seq = p;
1675 state = gotseq;
1676 }
1677 break;
1678
1679 case gotseq:
1680 if (!*p)
1681 {
1682 seqlen = p - seq;
1683 state = getaction;
1684 }
1685 break;
1686
1687 case getaction:
1688 {
1689 unsigned int action = *p;
1690 unsigned char keyseq[256];
1691 KEYMAP_ENTRY ke;
1692
1693 state = getseq;
1694 /* If decode_keys returns zero, it
1695 means that seq includes keys which
1696 the terminal doesn't support, like
1697 PageDown. In that case, don't bind
1698 the key sequence. */
1699 if (decode_keys(seq, seqlen, keyseq,
1700 sizeof keyseq))
1701 {
1702 keyseq[sizeof keyseq - 1] = '\0';
1703 ke.type = ISFUNC;
1704 ke.function =
1705 action < A_NCOMMANDS
1706 ? &function_doc_array[action]
1707 : NULL;
1708 keymap_bind_keyseq(map,
1709 (const char *) keyseq, &ke);
1710 }
1711 }
1712 break;
1713 }
1714 }
1715 if (state != getseq)
1716 info_error((char *) _("Bad data in infokey file -- some key bindings ignored"),
1717 NULL, NULL);
1718 return !stop;
1719 }
1720
1721 /* Convert an infokey file section to variable settings.
1722 */
1723 static void
1724 section_to_vars(unsigned char *table, unsigned int len)
1725 {
1726 enum { getvar, gotvar, getval, gotval } state = getvar;
1727 unsigned char *var = NULL;
1728 unsigned char *val = NULL;
1729 unsigned char *p;
1730
1731 for (p = table; (unsigned int) (p - table) < len; p++)
1732 {
1733 switch (state)
1734 {
1735 case getvar:
1736 if (*p)
1737 {
1738 var = p;
1739 state = gotvar;
1740 }
1741 break;
1742
1743 case gotvar:
1744 if (!*p)
1745 state = getval;
1746 break;
1747
1748 case getval:
1749 if (*p)
1750 {
1751 val = p;
1752 state = gotval;
1753 }
1754 break;
1755
1756 case gotval:
1757 if (!*p)
1758 {
1759 set_variable_to_value((char *) var, (char *) val);
1760 state = getvar;
1761 }
1762 break;
1763 }
1764 }
1765 if (state != getvar)
1766 info_error((char *) _("Bad data in infokey file -- some var settings ignored"),
1767 NULL, NULL);
1768 }
1769
1770 void
1771 initialize_info_keymaps (void)
1772 {
1773 int i;
1774 int suppress_info_default_bindings = 0;
1775 int suppress_ea_default_bindings = 0;
1776
1777 if (!info_keymap)
1778 {
1779 info_keymap = keymap_make_keymap ();
1780 echo_area_keymap = keymap_make_keymap ();
1781 }
1782
1783 /* Bind the echo area insert routines. */
1784 for (i = 0; i < 256; i++)
1785 if (isprint (i))
1786 echo_area_keymap[i].function = InfoCmd(ea_insert);
1787
1788 /* Get user-defined keys and variables. */
1789 if (fetch_user_maps())
1790 {
1791 if (user_info_keys_len && user_info_keys[0])
1792 suppress_info_default_bindings = 1;
1793 if (user_ea_keys_len && user_ea_keys[0])
1794 suppress_ea_default_bindings = 1;
1795 }
1796
1797 /* Apply the default bindings, unless the user says to suppress
1798 them. */
1799 if (vi_keys_p)
1800 {
1801 if (!suppress_info_default_bindings)
1802 section_to_keymaps(info_keymap, default_vi_like_info_keys,
1803 sizeof(default_vi_like_info_keys));
1804 if (!suppress_ea_default_bindings)
1805 section_to_keymaps(echo_area_keymap, default_vi_like_ea_keys,
1806 sizeof(default_vi_like_ea_keys));
1807 }
1808 else
1809 {
1810 if (!suppress_info_default_bindings)
1811 section_to_keymaps(info_keymap, default_emacs_like_info_keys,
1812 sizeof(default_emacs_like_info_keys));
1813 if (!suppress_ea_default_bindings)
1814 section_to_keymaps(echo_area_keymap, default_emacs_like_ea_keys,
1815 sizeof(default_emacs_like_ea_keys));
1816 }
1817
1818 /* If the user specified custom bindings, apply them on top of the
1819 default ones. */
1820 if (user_info_keys_len)
1821 section_to_keymaps(info_keymap, user_info_keys, user_info_keys_len);
1822
1823 if (user_ea_keys_len)
1824 section_to_keymaps(echo_area_keymap, user_ea_keys, user_ea_keys_len);
1825
1826 if (user_vars_len)
1827 section_to_vars(user_vars, user_vars_len);
1828 }
1829
1830 #endif /* defined(INFOKEY) */
1831 /* vim: set sw=2 cino={1s>2sn-s^-se-s: */
DragonFly BSD