1 /* infomap.c -- keymaps for Info. 2 $Id: infomap.c,v 1.5 2006/07/17 16:12:36 espie 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: */ 1832