contrib/tcsh/ed.defns.c

   1 /* $Header: /src/pub/tcsh/ed.defns.c,v 3.39 2002/03/08 17:36:45 christos Exp $ */
   2 /*
   3  * ed.defns.c: Editor function definitions and initialization
   4  */
   5 /*-
   6  * Copyright (c) 1980, 1991 The Regents of the University of California.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  * 3. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33 #include "sh.h"
  34
  35 RCSID("$Id: ed.defns.c,v 3.39 2002/03/08 17:36:45 christos Exp $")
  36
  37 #include "ed.h"
  38
  39 static  void            ed_InitMetaBindings     __P((void));
  40
  41 PFCmd   CcFuncTbl[] = {         /* table of available commands */
  42     e_unassigned,
  43 /* no #define here -- this is a dummy to detect initing of the key map */
  44     e_unassigned,
  45 #define         F_UNASSIGNED    1
  46     e_insert,
  47 #define         F_INSERT        2
  48     e_newline,
  49 #define         F_NEWLINE       3
  50     e_delprev,
  51 #define         F_DELPREV       4
  52     e_delnext,
  53 #define         F_DELNEXT       5
  54     e_toend,
  55 #define         F_TOEND         6
  56     e_tobeg,
  57 #define         F_TOBEG         7
  58     e_charback,
  59 #define         F_CHARBACK      8
  60     e_charfwd,
  61 #define         F_CHARFWD       9
  62     e_quote,
  63 #define         F_QUOTE         10
  64     e_startover,
  65 #define         F_STARTOVER     11
  66     e_redisp,
  67 #define         F_REDISP        12
  68     e_tty_int,
  69 #define         F_TTY_INT       13
  70     e_wordback,
  71 #define         F_WORDBACK      14
  72     e_wordfwd,
  73 #define         F_WORDFWD       15
  74     e_cleardisp,
  75 #define         F_CLEARDISP     16
  76     e_complete,
  77 #define         F_COMPLETE      17
  78     e_correct,
  79 #define         F_CORRECT       18
  80     e_up_hist,
  81 #define         F_UP_HIST       19
  82     e_down_hist,
  83 #define         F_DOWN_HIST     20
  84     e_up_search_hist,
  85 #define         F_UP_SEARCH_HIST        21
  86     e_down_search_hist,
  87 #define         F_DOWN_SEARCH_HIST      22
  88     e_helpme,
  89 #define         F_HELPME        23
  90     e_list_choices,
  91 #define         F_LIST_CHOICES  24
  92     e_delwordprev,
  93 #define         F_DELWORDPREV   25
  94     e_delwordnext,
  95 #define         F_DELWORDNEXT   26
  96     e_digit,
  97 #define         F_DIGIT         27
  98     e_killend,
  99 #define         F_KILLEND       28
 100     e_killbeg,
 101 #define         F_KILLBEG       29
 102     e_metanext,
 103 #define         F_METANEXT      30
 104     e_send_eof,
 105 #define         F_SEND_EOF      31
 106     e_charswitch,
 107 #define         F_CHARSWITCH    32
 108     e_which,
 109 #define         F_WHICH         33
 110     e_yank_kill,
 111 #define         F_YANK_KILL     34
 112     e_tty_dsusp,
 113 #define         F_TTY_DSUSP     35
 114     e_tty_flusho,
 115 #define         F_TTY_FLUSHO    36
 116     e_tty_quit,
 117 #define         F_TTY_QUIT      37
 118     e_tty_tsusp,
 119 #define         F_TTY_TSUSP     38
 120     e_tty_stopo,
 121 #define         F_TTY_STOPO     39
 122     e_tty_starto,
 123 #define         F_TTY_STARTO    40
 124     e_argfour,
 125 #define         F_ARGFOUR       41
 126     e_set_mark,
 127 #define         F_SET_MARK      42
 128     e_exchange_mark,
 129 #define         F_EXCHANGE_MARK 43
 130     e_last_item,
 131 #define         F_LAST_ITEM     44
 132     e_delnext_list_eof,
 133 #define         F_DELNEXT_LIST_EOF      45
 134     v_cmd_mode,
 135 #define         V_CMD_MODE      46
 136     v_insert,
 137 #define         V_INSERT        47
 138     e_argdigit,
 139 #define         F_ARGDIGIT      48
 140     e_killregion,
 141 #define         F_KILLREGION    49
 142     e_copyregion,
 143 #define         F_COPYREGION    50
 144     e_gcharswitch,
 145 #define         F_GCHARSWITCH   51
 146     e_run_fg_editor,
 147 #define         F_RUN_FG_EDITOR 52
 148     e_unassigned,       /* place holder for sequence lead in character */
 149 #define         F_XKEY          53
 150     e_uppercase,
 151 #define         F_CASEUPPER     54
 152     e_lowercase,
 153 #define         F_CASELOWER     55
 154     e_capitolcase,
 155 #define         F_CASECAPITAL   56
 156     v_zero,
 157 #define         V_ZERO          57
 158     v_add,
 159 #define         V_ADD           58
 160     v_addend,
 161 #define         V_ADDEND        59
 162     v_wordbegnext,
 163 #define         V_WORDBEGNEXT   60
 164     e_killall,
 165 #define         F_KILLALL       61
 166     e_unassigned,
 167 /* F_EXTENDNEXT removed */
 168     v_insbeg,
 169 #define         V_INSBEG        63
 170     v_replmode,
 171 #define         V_REPLMODE      64
 172     v_replone,
 173 #define         V_REPLONE       65
 174     v_substline,
 175 #define         V_SUBSTLINE     66
 176     v_substchar,
 177 #define         V_SUBSTCHAR     67
 178     v_chgtoend,
 179 #define         V_CHGTOEND      68
 180     e_list_eof,
 181 #define         F_LIST_EOF      69
 182     e_list_glob,
 183 #define         F_LIST_GLOB     70
 184     e_expand_history,
 185 #define         F_EXPAND_HISTORY        71
 186     e_magic_space,
 187 #define         F_MAGIC_SPACE   72
 188     e_insovr,
 189 #define         F_INSOVR        73
 190     v_cm_complete,
 191 #define         V_CM_COMPLETE   74
 192     e_copyprev,
 193 #define         F_COPYPREV      75
 194     e_correctl,
 195 #define         F_CORRECT_L     76
 196     e_expand_glob,
 197 #define         F_EXPAND_GLOB   77
 198     e_expand_vars,
 199 #define         F_EXPAND_VARS   78
 200     e_toggle_hist,
 201 #define         F_TOGGLE_HIST   79
 202     v_change_case,
 203 #define         V_CHGCASE       80
 204     e_expand,
 205 #define         F_EXPAND        81
 206     e_load_average,
 207 #define         F_LOAD_AVERAGE  82
 208     v_delprev,
 209 #define         V_DELPREV       83
 210     v_delmeta,
 211 #define         V_DELMETA       84
 212     v_wordfwd,
 213 #define         V_WORDFWD       85
 214     v_wordback,
 215 #define         V_WORDBACK      86
 216     v_endword,
 217 #define         V_ENDWORD       87
 218     v_eword,
 219 #define         V_EWORD         88
 220     v_undo,
 221 #define         V_UNDO          89
 222     v_ush_meta,
 223 #define         V_USH_META      90
 224     v_dsh_meta,
 225 #define         V_DSH_META      91
 226     v_rsrch_fwd,
 227 #define         V_RSRCH_FWD     92
 228     v_rsrch_back,
 229 #define         V_RSRCH_BACK    93
 230     v_char_fwd,
 231 #define         V_CHAR_FWD      94
 232     v_char_back,
 233 #define         V_CHAR_BACK     95
 234     v_chgmeta,
 235 #define         V_CHGMETA       96
 236     e_inc_fwd,
 237 #define         F_INC_FWD       97
 238     e_inc_back,
 239 #define         F_INC_BACK      98
 240     v_rchar_fwd,
 241 #define         V_RCHAR_FWD     99
 242     v_rchar_back,
 243 #define         V_RCHAR_BACK    100
 244     v_charto_fwd,
 245 #define         V_CHARTO_FWD    101
 246     v_charto_back,
 247 #define         V_CHARTO_BACK   102
 248     e_normalize_path,
 249 #define         F_PATH_NORM     103
 250     e_delnext_eof,              /* added by mtk@ari.ncl.omron.co.jp (920818) */
 251 #define         F_DELNEXT_EOF   104
 252     e_stuff_char,
 253 #define         F_STUFF_CHAR    105
 254     e_complete_all,
 255 #define         F_COMPLETE_ALL  106
 256     e_list_all,
 257 #define         F_LIST_ALL      107
 258     e_complete_fwd,
 259 #define         F_COMPLETE_FWD  108
 260     e_complete_back,
 261 #define         F_COMPLETE_BACK 109
 262     e_delnext_list,
 263 #define         F_DELNEXT_LIST  110
 264     e_normalize_command,
 265 #define         F_COMMAND_NORM  111
 266     e_dabbrev_expand,
 267 #define         F_DABBREV_EXPAND        112
 268     e_copy_to_clipboard,
 269 #define         F_COPY_CLIP     113
 270     e_paste_from_clipboard,
 271 #define         F_PASTE_CLIP    114
 272     e_dosify_next,
 273 #define         F_DOSIFY_NEXT   115
 274     e_dosify_prev,
 275 #define         F_DOSIFY_PREV   116
 276     e_page_up,
 277 #define         F_PAGE_UP       117
 278     e_page_down,
 279 #define         F_PAGE_DOWN     118
 280     e_yank_pop,
 281 #define         F_YANK_POP      119
 282     0                           /* DUMMY VALUE */
 283 #define         F_NUM_FNS       120
 284
 285 };
 286
 287 KEYCMD  NumFuns = F_NUM_FNS;
 288
 289 KEYCMD  CcKeyMap[NT_NUM_KEYS];          /* the real key map */
 290 KEYCMD  CcAltMap[NT_NUM_KEYS];          /* the alternative key map */
 291 #define F_NUM_FUNCNAMES (F_NUM_FNS + 2)
 292 struct KeyFuncs FuncNames[F_NUM_FUNCNAMES];
 293
 294 #ifdef WINNT_NATIVE
 295 extern KEYCMD CcEmacsMap[];
 296 extern KEYCMD CcViMap[];
 297 extern KEYCMD  CcViCmdMap[];
 298 #else /* !WINNT_NATIVE*/
 299 KEYCMD  CcEmacsMap[] = {
 300 /* keymap table, each index into above tbl; should be 256*sizeof(KEYCMD)
 301    bytes long */
 302
 303     F_SET_MARK,                 /* ^@ */
 304     F_TOBEG,                    /* ^A */
 305     F_CHARBACK,                 /* ^B */
 306     F_TTY_INT,                  /* ^C */
 307     F_DELNEXT_LIST_EOF,         /* ^D */
 308     F_TOEND,                    /* ^E */
 309     F_CHARFWD,                  /* ^F */
 310     F_UNASSIGNED,               /* ^G */
 311     F_DELPREV,                  /* ^H */
 312     F_COMPLETE,                 /* ^I */
 313     F_NEWLINE,                  /* ^J */
 314     F_KILLEND,                  /* ^K */
 315     F_CLEARDISP,                /* ^L */
 316     F_NEWLINE,                  /* ^M */
 317     F_DOWN_HIST,                /* ^N */
 318     F_TTY_FLUSHO,               /* ^O */
 319     F_UP_HIST,                  /* ^P */
 320     F_TTY_STARTO,               /* ^Q */
 321     F_REDISP,                   /* ^R */
 322     F_TTY_STOPO,                /* ^S */
 323     F_CHARSWITCH,               /* ^T */
 324     F_KILLALL,                  /* ^U */
 325     F_QUOTE,                    /* ^V */
 326     F_KILLREGION,               /* ^W */
 327     F_XKEY,                     /* ^X */
 328     F_YANK_KILL,                /* ^Y */
 329     F_TTY_TSUSP,                /* ^Z */
 330     F_METANEXT,                 /* ^[ */
 331     F_TTY_QUIT,                 /* ^\ */
 332     F_TTY_DSUSP,                /* ^] */
 333     F_UNASSIGNED,               /* ^^ */
 334     F_UNASSIGNED,               /* ^_ */
 335     F_INSERT,                   /* SPACE */
 336     F_INSERT,                   /* ! */
 337     F_INSERT,                   /* " */
 338     F_INSERT,                   /* # */
 339     F_INSERT,                   /* $ */
 340     F_INSERT,                   /* % */
 341     F_INSERT,                   /* & */
 342     F_INSERT,                   /* ' */
 343     F_INSERT,                   /* ( */
 344     F_INSERT,                   /* ) */
 345     F_INSERT,                   /* * */
 346     F_INSERT,                   /* + */
 347     F_INSERT,                   /* , */
 348     F_INSERT,                   /* - */
 349     F_INSERT,                   /* . */
 350     F_INSERT,                   /* / */
 351     F_DIGIT,                    /* 0 */
 352     F_DIGIT,                    /* 1 */
 353     F_DIGIT,                    /* 2 */
 354     F_DIGIT,                    /* 3 */
 355     F_DIGIT,                    /* 4 */
 356     F_DIGIT,                    /* 5 */
 357     F_DIGIT,                    /* 6 */
 358     F_DIGIT,                    /* 7 */
 359     F_DIGIT,                    /* 8 */
 360     F_DIGIT,                    /* 9 */
 361     F_INSERT,                   /* : */
 362     F_INSERT,                   /* ; */
 363     F_INSERT,                   /* < */
 364     F_INSERT,                   /* = */
 365     F_INSERT,                   /* > */
 366     F_INSERT,                   /* ? */
 367     F_INSERT,                   /* @ */
 368     F_INSERT,                   /* A */
 369     F_INSERT,                   /* B */
 370     F_INSERT,                   /* C */
 371     F_INSERT,                   /* D */
 372     F_INSERT,                   /* E */
 373     F_INSERT,                   /* F */
 374     F_INSERT,                   /* G */
 375     F_INSERT,                   /* H */
 376     F_INSERT,                   /* I */
 377     F_INSERT,                   /* J */
 378     F_INSERT,                   /* K */
 379     F_INSERT,                   /* L */
 380     F_INSERT,                   /* M */
 381     F_INSERT,                   /* N */
 382     F_INSERT,                   /* O */
 383     F_INSERT,                   /* P */
 384     F_INSERT,                   /* Q */
 385     F_INSERT,                   /* R */
 386     F_INSERT,                   /* S */
 387     F_INSERT,                   /* T */
 388     F_INSERT,                   /* U */
 389     F_INSERT,                   /* V */
 390     F_INSERT,                   /* W */
 391     F_INSERT,                   /* X */
 392     F_INSERT,                   /* Y */
 393     F_INSERT,                   /* Z */
 394     F_INSERT,                   /* [ */
 395     F_INSERT,                   /* \ */
 396     F_INSERT,                   /* ] */
 397     F_INSERT,                   /* ^ */
 398     F_INSERT,                   /* _ */
 399     F_INSERT,                   /* ` */
 400     F_INSERT,                   /* a */
 401     F_INSERT,                   /* b */
 402     F_INSERT,                   /* c */
 403     F_INSERT,                   /* d */
 404     F_INSERT,                   /* e */
 405     F_INSERT,                   /* f */
 406     F_INSERT,                   /* g */
 407     F_INSERT,                   /* h */
 408     F_INSERT,                   /* i */
 409     F_INSERT,                   /* j */
 410     F_INSERT,                   /* k */
 411     F_INSERT,                   /* l */
 412     F_INSERT,                   /* m */
 413     F_INSERT,                   /* n */
 414     F_INSERT,                   /* o */
 415     F_INSERT,                   /* p */
 416     F_INSERT,                   /* q */
 417     F_INSERT,                   /* r */
 418     F_INSERT,                   /* s */
 419     F_INSERT,                   /* t */
 420     F_INSERT,                   /* u */
 421     F_INSERT,                   /* v */
 422     F_INSERT,                   /* w */
 423     F_INSERT,                   /* x */
 424     F_INSERT,                   /* y */
 425     F_INSERT,                   /* z */
 426     F_INSERT,                   /* { */
 427     F_INSERT,                   /* | */
 428     F_INSERT,                   /* } */
 429     F_INSERT,                   /* ~ */
 430     F_DELPREV,                  /* ^? */
 431     F_UNASSIGNED,               /* M-^@ */
 432     F_UNASSIGNED,               /* M-^A */
 433     F_UNASSIGNED,               /* M-^B */
 434     F_UNASSIGNED,               /* M-^C */
 435     F_LIST_CHOICES,             /* M-^D */
 436     F_UNASSIGNED,               /* M-^E */
 437     F_UNASSIGNED,               /* M-^F */
 438     F_UNASSIGNED,               /* M-^G */
 439     F_DELWORDPREV,              /* M-^H */
 440     F_COMPLETE,                 /* M-^I */
 441     F_UNASSIGNED,               /* M-^J */
 442     F_UNASSIGNED,               /* M-^K */
 443     F_CLEARDISP,                /* M-^L */
 444     F_UNASSIGNED,               /* M-^M */
 445     F_UNASSIGNED,               /* M-^N */
 446     F_UNASSIGNED,               /* M-^O */
 447     F_UNASSIGNED,               /* M-^P */
 448     F_UNASSIGNED,               /* M-^Q */
 449     F_UNASSIGNED,               /* M-^R */
 450     F_UNASSIGNED,               /* M-^S */
 451     F_UNASSIGNED,               /* M-^T */
 452     F_UNASSIGNED,               /* M-^U */
 453     F_UNASSIGNED,               /* M-^V */
 454     F_UNASSIGNED,               /* M-^W */
 455     F_UNASSIGNED,               /* M-^X */
 456     F_UNASSIGNED,               /* M-^Y */
 457     F_RUN_FG_EDITOR,            /* M-^Z */
 458     F_COMPLETE,                 /* M-^[ */
 459     F_UNASSIGNED,               /* M-^\ */
 460     F_UNASSIGNED,               /* M-^] */
 461     F_UNASSIGNED,               /* M-^^ */
 462     F_COPYPREV,                 /* M-^_ */
 463     F_EXPAND_HISTORY,           /* M-SPACE */
 464     F_EXPAND_HISTORY,           /* M-! */
 465     F_UNASSIGNED,               /* M-" */
 466     F_UNASSIGNED,               /* M-# */
 467     F_CORRECT_L,                /* M-$ */
 468     F_UNASSIGNED,               /* M-% */
 469     F_UNASSIGNED,               /* M-& */
 470     F_UNASSIGNED,               /* M-' */
 471     F_UNASSIGNED,               /* M-( */
 472     F_UNASSIGNED,               /* M-) */
 473     F_UNASSIGNED,               /* M-* */
 474     F_UNASSIGNED,               /* M-+ */
 475     F_UNASSIGNED,               /* M-, */
 476     F_UNASSIGNED,               /* M-- */
 477     F_UNASSIGNED,               /* M-. */
 478     F_DABBREV_EXPAND,           /* M-/ */
 479     F_ARGDIGIT,                 /* M-0 */
 480     F_ARGDIGIT,                 /* M-1 */
 481     F_ARGDIGIT,                 /* M-2 */
 482     F_ARGDIGIT,                 /* M-3 */
 483     F_ARGDIGIT,                 /* M-4 */
 484     F_ARGDIGIT,                 /* M-5 */
 485     F_ARGDIGIT,                 /* M-6 */
 486     F_ARGDIGIT,                 /* M-7 */
 487     F_ARGDIGIT,                 /* M-8 */
 488     F_ARGDIGIT,                 /* M-9 */
 489     F_UNASSIGNED,               /* M-: */
 490     F_UNASSIGNED,               /* M-; */
 491     F_UNASSIGNED,               /* M-< */
 492     F_UNASSIGNED,               /* M-= */
 493     F_UNASSIGNED,               /* M-> */
 494     F_WHICH,                    /* M-? */
 495     F_UNASSIGNED,               /* M-@ */
 496     F_UNASSIGNED,               /* M-A */
 497     F_WORDBACK,                 /* M-B */
 498     F_CASECAPITAL,              /* M-C */
 499     F_DELWORDNEXT,              /* M-D */
 500     F_UNASSIGNED,               /* M-E */
 501     F_WORDFWD,                  /* M-F */
 502     F_UNASSIGNED,               /* M-G */
 503     F_HELPME,                   /* M-H */
 504     F_UNASSIGNED,               /* M-I */
 505     F_UNASSIGNED,               /* M-J */
 506     F_UNASSIGNED,               /* M-K */
 507     F_CASELOWER,                /* M-L */
 508     F_UNASSIGNED,               /* M-M */
 509     F_DOWN_SEARCH_HIST,         /* M-N */
 510     F_XKEY,                     /* M-O *//* extended key esc PWP Mar 88 */
 511     F_UP_SEARCH_HIST,           /* M-P */
 512     F_UNASSIGNED,               /* M-Q */
 513     F_TOGGLE_HIST,              /* M-R */
 514     F_CORRECT,                  /* M-S */
 515     F_UNASSIGNED,               /* M-T */
 516     F_CASEUPPER,                /* M-U */
 517     F_UNASSIGNED,               /* M-V */
 518     F_COPYREGION,               /* M-W */
 519     F_UNASSIGNED,               /* M-X */
 520     F_YANK_POP,                 /* M-Y */
 521     F_UNASSIGNED,               /* M-Z */
 522     F_XKEY,                     /* M-[ *//* extended key esc -mf Oct 87 */
 523     F_UNASSIGNED,               /* M-\ */
 524     F_UNASSIGNED,               /* M-] */
 525     F_UNASSIGNED,               /* M-^ */
 526     F_LAST_ITEM,                /* M-_ */
 527     F_UNASSIGNED,               /* M-` */
 528     F_UNASSIGNED,               /* M-a */
 529     F_WORDBACK,                 /* M-b */
 530     F_CASECAPITAL,              /* M-c */
 531     F_DELWORDNEXT,              /* M-d */
 532     F_UNASSIGNED,               /* M-e */
 533     F_WORDFWD,                  /* M-f */
 534     F_UNASSIGNED,               /* M-g */
 535     F_HELPME,                   /* M-h */
 536     F_UNASSIGNED,               /* M-i */
 537     F_UNASSIGNED,               /* M-j */
 538     F_UNASSIGNED,               /* M-k */
 539     F_CASELOWER,                /* M-l */
 540     F_UNASSIGNED,               /* M-m */
 541     F_DOWN_SEARCH_HIST,         /* M-n */
 542     F_UNASSIGNED,               /* M-o */
 543     F_UP_SEARCH_HIST,           /* M-p */
 544     F_UNASSIGNED,               /* M-q */
 545     F_TOGGLE_HIST,              /* M-r */
 546     F_CORRECT,                  /* M-s */
 547     F_UNASSIGNED,               /* M-t */
 548     F_CASEUPPER,                /* M-u */
 549     F_UNASSIGNED,               /* M-v */
 550     F_COPYREGION,               /* M-w */
 551     F_UNASSIGNED,               /* M-x */
 552     F_YANK_POP,                 /* M-y */
 553     F_UNASSIGNED,               /* M-z */
 554     F_UNASSIGNED,               /* M-{ */
 555     F_UNASSIGNED,               /* M-| */
 556     F_UNASSIGNED,               /* M-} */
 557     F_UNASSIGNED,               /* M-~ */
 558     F_DELWORDPREV               /* M-^? */
 559 };
 560
 561 /*
 562  * keymap table for vi.  Each index into above tbl; should be
 563  * 256 entries long.  Vi mode uses a sticky-extend to do command mode:
 564  * insert mode characters are in the normal keymap, and command mode
 565  * in the extended keymap.
 566  */
 567 static KEYCMD  CcViMap[] = {
 568 #ifdef KSHVI
 569     F_UNASSIGNED,               /* ^@ */
 570     F_INSERT,                   /* ^A */
 571     F_INSERT,                   /* ^B */
 572     F_INSERT,                   /* ^C */
 573     F_INSERT,                   /* ^D */
 574     F_INSERT,                   /* ^E */
 575     F_INSERT,                   /* ^F */
 576     F_INSERT,                   /* ^G */
 577     V_DELPREV,                  /* ^H */   /* BackSpace key */
 578     F_COMPLETE,                 /* ^I */   /* Tab Key  */
 579     F_NEWLINE,                  /* ^J */
 580     F_INSERT,                   /* ^K */
 581     F_INSERT,                   /* ^L */
 582     F_NEWLINE,                  /* ^M */
 583     F_INSERT,                   /* ^N */
 584     F_INSERT,                   /* ^O */
 585     F_INSERT,                   /* ^P */
 586     F_TTY_STARTO,               /* ^Q */
 587     F_INSERT,                   /* ^R */
 588     F_INSERT,                   /* ^S */
 589     F_INSERT,                   /* ^T */
 590     F_INSERT,                   /* ^U */
 591     F_QUOTE,                    /* ^V */
 592     F_DELWORDPREV,              /* ^W */  /* Only until start edit pos */
 593     F_INSERT,                   /* ^X */
 594     F_INSERT,                   /* ^Y */
 595     F_INSERT,                   /* ^Z */
 596     V_CMD_MODE,                 /* ^[ */  /* [ Esc ] key */
 597     F_TTY_QUIT,                 /* ^\ */
 598     F_INSERT,                   /* ^] */
 599     F_INSERT,                   /* ^^ */
 600     F_INSERT,                   /* ^_ */
 601 #else /* !KSHVI */
 602     F_UNASSIGNED,               /* ^@ */   /* NOTE: These mapping do NOT */
 603     F_TOBEG,                    /* ^A */   /* Correspond well to the KSH */
 604     F_CHARBACK,                 /* ^B */   /* VI editting assignments    */
 605     F_TTY_INT,                  /* ^C */   /* On the other hand they are */
 606     F_LIST_EOF,                 /* ^D */   /* convenient any many people */
 607     F_TOEND,                    /* ^E */   /* have gotten used to them   */
 608     F_CHARFWD,                  /* ^F */
 609     F_LIST_GLOB,                /* ^G */
 610     F_DELPREV,                  /* ^H */   /* BackSpace key */
 611     F_COMPLETE,                 /* ^I */   /* Tab Key */
 612     F_NEWLINE,                  /* ^J */
 613     F_KILLEND,                  /* ^K */
 614     F_CLEARDISP,                /* ^L */
 615     F_NEWLINE,                  /* ^M */
 616     F_DOWN_HIST,                /* ^N */
 617     F_TTY_FLUSHO,               /* ^O */
 618     F_UP_HIST,                  /* ^P */
 619     F_TTY_STARTO,               /* ^Q */
 620     F_REDISP,                   /* ^R */
 621     F_TTY_STOPO,                /* ^S */
 622     F_CHARSWITCH,               /* ^T */
 623     F_KILLBEG,                  /* ^U */
 624     F_QUOTE,                    /* ^V */
 625     F_DELWORDPREV,              /* ^W */
 626     F_EXPAND,                   /* ^X */
 627     F_TTY_DSUSP,                /* ^Y */
 628     F_TTY_TSUSP,                /* ^Z */
 629     V_CMD_MODE,                 /* ^[ */
 630     F_TTY_QUIT,                 /* ^\ */
 631     F_UNASSIGNED,               /* ^] */
 632     F_UNASSIGNED,               /* ^^ */
 633     F_UNASSIGNED,               /* ^_ */
 634 #endif  /* KSHVI */
 635     F_INSERT,                   /* SPACE */
 636     F_INSERT,                   /* ! */
 637     F_INSERT,                   /* " */
 638     F_INSERT,                   /* # */
 639     F_INSERT,                   /* $ */
 640     F_INSERT,                   /* % */
 641     F_INSERT,                   /* & */
 642     F_INSERT,                   /* ' */
 643     F_INSERT,                   /* ( */
 644     F_INSERT,                   /* ) */
 645     F_INSERT,                   /* * */
 646     F_INSERT,                   /* + */
 647     F_INSERT,                   /* , */
 648     F_INSERT,                   /* - */
 649     F_INSERT,                   /* . */
 650     F_INSERT,                   /* / */
 651     F_INSERT,                   /* 0 */
 652     F_INSERT,                   /* 1 */
 653     F_INSERT,                   /* 2 */
 654     F_INSERT,                   /* 3 */
 655     F_INSERT,                   /* 4 */
 656     F_INSERT,                   /* 5 */
 657     F_INSERT,                   /* 6 */
 658     F_INSERT,                   /* 7 */
 659     F_INSERT,                   /* 8 */
 660     F_INSERT,                   /* 9 */
 661     F_INSERT,                   /* : */
 662     F_INSERT,                   /* ; */
 663     F_INSERT,                   /* < */
 664     F_INSERT,                   /* = */
 665     F_INSERT,                   /* > */
 666     F_INSERT,                   /* ? */
 667     F_INSERT,                   /* @ */
 668     F_INSERT,                   /* A */
 669     F_INSERT,                   /* B */
 670     F_INSERT,                   /* C */
 671     F_INSERT,                   /* D */
 672     F_INSERT,                   /* E */
 673     F_INSERT,                   /* F */
 674     F_INSERT,                   /* G */
 675     F_INSERT,                   /* H */
 676     F_INSERT,                   /* I */
 677     F_INSERT,                   /* J */
 678     F_INSERT,                   /* K */
 679     F_INSERT,                   /* L */
 680     F_INSERT,                   /* M */
 681     F_INSERT,                   /* N */
 682     F_INSERT,                   /* O */
 683     F_INSERT,                   /* P */
 684     F_INSERT,                   /* Q */
 685     F_INSERT,                   /* R */
 686     F_INSERT,                   /* S */
 687     F_INSERT,                   /* T */
 688     F_INSERT,                   /* U */
 689     F_INSERT,                   /* V */
 690     F_INSERT,                   /* W */
 691     F_INSERT,                   /* X */
 692     F_INSERT,                   /* Y */
 693     F_INSERT,                   /* Z */
 694     F_INSERT,                   /* [ */
 695     F_INSERT,                   /* \ */
 696     F_INSERT,                   /* ] */
 697     F_INSERT,                   /* ^ */
 698     F_INSERT,                   /* _ */
 699     F_INSERT,                   /* ` */
 700     F_INSERT,                   /* a */
 701     F_INSERT,                   /* b */
 702     F_INSERT,                   /* c */
 703     F_INSERT,                   /* d */
 704     F_INSERT,                   /* e */
 705     F_INSERT,                   /* f */
 706     F_INSERT,                   /* g */
 707     F_INSERT,                   /* h */
 708     F_INSERT,                   /* i */
 709     F_INSERT,                   /* j */
 710     F_INSERT,                   /* k */
 711     F_INSERT,                   /* l */
 712     F_INSERT,                   /* m */
 713     F_INSERT,                   /* n */
 714     F_INSERT,                   /* o */
 715     F_INSERT,                   /* p */
 716     F_INSERT,                   /* q */
 717     F_INSERT,                   /* r */
 718     F_INSERT,                   /* s */
 719     F_INSERT,                   /* t */
 720     F_INSERT,                   /* u */
 721     F_INSERT,                   /* v */
 722     F_INSERT,                   /* w */
 723     F_INSERT,                   /* x */
 724     F_INSERT,                   /* y */
 725     F_INSERT,                   /* z */
 726     F_INSERT,                   /* { */
 727     F_INSERT,                   /* | */
 728     F_INSERT,                   /* } */
 729     F_INSERT,                   /* ~ */
 730     F_DELPREV,                  /* ^? */
 731     F_UNASSIGNED,               /* M-^@ */
 732     F_UNASSIGNED,               /* M-^A */
 733     F_UNASSIGNED,               /* M-^B */
 734     F_UNASSIGNED,               /* M-^C */
 735     F_UNASSIGNED,               /* M-^D */
 736     F_UNASSIGNED,               /* M-^E */
 737     F_UNASSIGNED,               /* M-^F */
 738     F_UNASSIGNED,               /* M-^G */
 739     F_UNASSIGNED,               /* M-^H */
 740     F_UNASSIGNED,               /* M-^I */
 741     F_UNASSIGNED,               /* M-^J */
 742     F_UNASSIGNED,               /* M-^K */
 743     F_UNASSIGNED,               /* M-^L */
 744     F_UNASSIGNED,               /* M-^M */
 745     F_UNASSIGNED,               /* M-^N */
 746     F_UNASSIGNED,               /* M-^O */
 747     F_UNASSIGNED,               /* M-^P */
 748     F_UNASSIGNED,               /* M-^Q */
 749     F_UNASSIGNED,               /* M-^R */
 750     F_UNASSIGNED,               /* M-^S */
 751     F_UNASSIGNED,               /* M-^T */
 752     F_UNASSIGNED,               /* M-^U */
 753     F_UNASSIGNED,               /* M-^V */
 754     F_UNASSIGNED,               /* M-^W */
 755     F_UNASSIGNED,               /* M-^X */
 756     F_UNASSIGNED,               /* M-^Y */
 757     F_UNASSIGNED,               /* M-^Z */
 758     F_UNASSIGNED,               /* M-^[ */
 759     F_UNASSIGNED,               /* M-^\ */
 760     F_UNASSIGNED,               /* M-^] */
 761     F_UNASSIGNED,               /* M-^^ */
 762     F_UNASSIGNED,               /* M-^_ */
 763     F_UNASSIGNED,               /* M-SPACE */
 764     F_UNASSIGNED,               /* M-! */
 765     F_UNASSIGNED,               /* M-" */
 766     F_UNASSIGNED,               /* M-# */
 767     F_UNASSIGNED,               /* M-$ */
 768     F_UNASSIGNED,               /* M-% */
 769     F_UNASSIGNED,               /* M-& */
 770     F_UNASSIGNED,               /* M-' */
 771     F_UNASSIGNED,               /* M-( */
 772     F_UNASSIGNED,               /* M-) */
 773     F_UNASSIGNED,               /* M-* */
 774     F_UNASSIGNED,               /* M-+ */
 775     F_UNASSIGNED,               /* M-, */
 776     F_UNASSIGNED,               /* M-- */
 777     F_UNASSIGNED,               /* M-. */
 778     F_UNASSIGNED,               /* M-/ */
 779     F_UNASSIGNED,               /* M-0 */
 780     F_UNASSIGNED,               /* M-1 */
 781     F_UNASSIGNED,               /* M-2 */
 782     F_UNASSIGNED,               /* M-3 */
 783     F_UNASSIGNED,               /* M-4 */
 784     F_UNASSIGNED,               /* M-5 */
 785     F_UNASSIGNED,               /* M-6 */
 786     F_UNASSIGNED,               /* M-7 */
 787     F_UNASSIGNED,               /* M-8 */
 788     F_UNASSIGNED,               /* M-9 */
 789     F_UNASSIGNED,               /* M-: */
 790     F_UNASSIGNED,               /* M-; */
 791     F_UNASSIGNED,               /* M-< */
 792     F_UNASSIGNED,               /* M-= */
 793     F_UNASSIGNED,               /* M-> */
 794     F_UNASSIGNED,               /* M-? */
 795     F_UNASSIGNED,               /* M-@ */
 796     F_UNASSIGNED,               /* M-A */
 797     F_UNASSIGNED,               /* M-B */
 798     F_UNASSIGNED,               /* M-C */
 799     F_UNASSIGNED,               /* M-D */
 800     F_UNASSIGNED,               /* M-E */
 801     F_UNASSIGNED,               /* M-F */
 802     F_UNASSIGNED,               /* M-G */
 803     F_UNASSIGNED,               /* M-H */
 804     F_UNASSIGNED,               /* M-I */
 805     F_UNASSIGNED,               /* M-J */
 806     F_UNASSIGNED,               /* M-K */
 807     F_UNASSIGNED,               /* M-L */
 808     F_UNASSIGNED,               /* M-M */
 809     F_UNASSIGNED,               /* M-N */
 810     F_UNASSIGNED,               /* M-O */
 811     F_UNASSIGNED,               /* M-P */
 812     F_UNASSIGNED,               /* M-Q */
 813     F_UNASSIGNED,               /* M-R */
 814     F_UNASSIGNED,               /* M-S */
 815     F_UNASSIGNED,               /* M-T */
 816     F_UNASSIGNED,               /* M-U */
 817     F_UNASSIGNED,               /* M-V */
 818     F_UNASSIGNED,               /* M-W */
 819     F_UNASSIGNED,               /* M-X */
 820     F_UNASSIGNED,               /* M-Y */
 821     F_UNASSIGNED,               /* M-Z */
 822     F_UNASSIGNED,               /* M-[ */
 823     F_UNASSIGNED,               /* M-\ */
 824     F_UNASSIGNED,               /* M-] */
 825     F_UNASSIGNED,               /* M-^ */
 826     F_UNASSIGNED,               /* M-_ */
 827     F_UNASSIGNED,               /* M-` */
 828     F_UNASSIGNED,               /* M-a */
 829     F_UNASSIGNED,               /* M-b */
 830     F_UNASSIGNED,               /* M-c */
 831     F_UNASSIGNED,               /* M-d */
 832     F_UNASSIGNED,               /* M-e */
 833     F_UNASSIGNED,               /* M-f */
 834     F_UNASSIGNED,               /* M-g */
 835     F_UNASSIGNED,               /* M-h */
 836     F_UNASSIGNED,               /* M-i */
 837     F_UNASSIGNED,               /* M-j */
 838     F_UNASSIGNED,               /* M-k */
 839     F_UNASSIGNED,               /* M-l */
 840     F_UNASSIGNED,               /* M-m */
 841     F_UNASSIGNED,               /* M-n */
 842     F_UNASSIGNED,               /* M-o */
 843     F_UNASSIGNED,               /* M-p */
 844     F_UNASSIGNED,               /* M-q */
 845     F_UNASSIGNED,               /* M-r */
 846     F_UNASSIGNED,               /* M-s */
 847     F_UNASSIGNED,               /* M-t */
 848     F_UNASSIGNED,               /* M-u */
 849     F_UNASSIGNED,               /* M-v */
 850     F_UNASSIGNED,               /* M-w */
 851     F_UNASSIGNED,               /* M-x */
 852     F_UNASSIGNED,               /* M-y */
 853     F_UNASSIGNED,               /* M-z */
 854     F_UNASSIGNED,               /* M-{ */
 855     F_UNASSIGNED,               /* M-| */
 856     F_UNASSIGNED,               /* M-} */
 857     F_UNASSIGNED,               /* M-~ */
 858     F_UNASSIGNED                /* M-^? */
 859 };
 860
 861 KEYCMD  CcViCmdMap[] = {
 862     F_UNASSIGNED,               /* ^@ */
 863     F_TOBEG,                    /* ^A */
 864     F_UNASSIGNED,               /* ^B */
 865     F_TTY_INT,                  /* ^C */
 866     F_LIST_CHOICES,             /* ^D */
 867     F_TOEND,                    /* ^E */
 868     F_UNASSIGNED,               /* ^F */
 869     F_LIST_GLOB,                /* ^G */
 870     F_CHARBACK,                 /* ^H */
 871     V_CM_COMPLETE,              /* ^I */
 872     F_NEWLINE,                  /* ^J */
 873     F_KILLEND,                  /* ^K */
 874     F_CLEARDISP,                /* ^L */
 875     F_NEWLINE,                  /* ^M */
 876     F_DOWN_HIST,                /* ^N */
 877     F_TTY_FLUSHO,               /* ^O */
 878     F_UP_HIST,                  /* ^P */
 879     F_TTY_STARTO,               /* ^Q */
 880     F_REDISP,                   /* ^R */
 881     F_TTY_STOPO,                /* ^S */
 882     F_UNASSIGNED,               /* ^T */
 883     F_KILLBEG,                  /* ^U */
 884     F_UNASSIGNED,               /* ^V */
 885     F_DELWORDPREV,              /* ^W */
 886     F_EXPAND,                   /* ^X */
 887     F_UNASSIGNED,               /* ^Y */
 888     F_UNASSIGNED,               /* ^Z */
 889     F_METANEXT,                 /* ^[ */
 890     F_TTY_QUIT,                 /* ^\ */
 891     F_UNASSIGNED,               /* ^] */
 892     F_UNASSIGNED,               /* ^^ */
 893     F_UNASSIGNED,               /* ^_ */
 894     F_CHARFWD,                  /* SPACE */
 895     F_EXPAND_HISTORY,           /* ! */
 896     F_UNASSIGNED,               /* " */
 897     F_UNASSIGNED,               /* # */
 898     F_TOEND,                    /* $ */
 899     F_UNASSIGNED,               /* % */
 900     F_UNASSIGNED,               /* & */
 901     F_UNASSIGNED,               /* ' */
 902     F_UNASSIGNED,               /* ( */
 903     F_UNASSIGNED,               /* ) */
 904     F_EXPAND_GLOB,              /* * */
 905     F_DOWN_HIST,                /* + */
 906     V_RCHAR_BACK,               /* , */
 907     F_UP_HIST,                  /* - */
 908     F_UNASSIGNED,               /* . */
 909     V_DSH_META,                 /* / */
 910     V_ZERO,                     /* 0 */
 911     F_ARGDIGIT,                 /* 1 */
 912     F_ARGDIGIT,                 /* 2 */
 913     F_ARGDIGIT,                 /* 3 */
 914     F_ARGDIGIT,                 /* 4 */
 915     F_ARGDIGIT,                 /* 5 */
 916     F_ARGDIGIT,                 /* 6 */
 917     F_ARGDIGIT,                 /* 7 */
 918     F_ARGDIGIT,                 /* 8 */
 919     F_ARGDIGIT,                 /* 9 */
 920     F_UNASSIGNED,               /* : */
 921     V_RCHAR_FWD,                /* ; */
 922     F_UNASSIGNED,               /* < */
 923     F_UNASSIGNED,               /* = */
 924     F_UNASSIGNED,               /* > */
 925     V_USH_META,                 /* ? */
 926     F_UNASSIGNED,               /* @ */
 927     V_ADDEND,                   /* A */
 928     V_WORDBACK,                 /* B */
 929     V_CHGTOEND,                 /* C */
 930     F_KILLEND,                  /* D */
 931     V_ENDWORD,                  /* E */
 932     V_CHAR_BACK,                /* F */
 933     F_UNASSIGNED,               /* G */
 934     F_UNASSIGNED,               /* H */
 935     V_INSBEG,                   /* I */
 936     F_DOWN_SEARCH_HIST,         /* J */
 937     F_UP_SEARCH_HIST,           /* K */
 938     F_UNASSIGNED,               /* L */
 939     F_UNASSIGNED,               /* M */
 940     V_RSRCH_BACK,               /* N */
 941     F_XKEY,                     /* O */
 942     F_UNASSIGNED,               /* P */
 943     F_UNASSIGNED,               /* Q */
 944     V_REPLMODE,                 /* R */
 945     V_SUBSTLINE,                /* S */
 946     V_CHARTO_BACK,              /* T */
 947     F_UNASSIGNED,               /* U */
 948     F_EXPAND_VARS,              /* V */
 949     V_WORDFWD,                  /* W */
 950     F_DELPREV,                  /* X */
 951     F_UNASSIGNED,               /* Y */
 952     F_UNASSIGNED,               /* Z */
 953     F_XKEY,                     /* [ */
 954     F_UNASSIGNED,               /* \ */
 955     F_UNASSIGNED,               /* ] */
 956     F_TOBEG,                    /* ^ */
 957     F_UNASSIGNED,               /* _ */
 958     F_UNASSIGNED,               /* ` */
 959     V_ADD,                      /* a */
 960     F_WORDBACK,                 /* b */
 961     V_CHGMETA,                  /* c */
 962     V_DELMETA,                  /* d */
 963     V_EWORD,                    /* e */
 964     V_CHAR_FWD,                 /* f */
 965     F_UNASSIGNED,               /* g */
 966     F_CHARBACK,                 /* h */
 967     V_INSERT,                   /* i */
 968     F_DOWN_HIST,                /* j */
 969     F_UP_HIST,                  /* k */
 970     F_CHARFWD,                  /* l */
 971     F_UNASSIGNED,               /* m */
 972     V_RSRCH_FWD,                /* n */
 973     F_UNASSIGNED,               /* o */
 974     F_UNASSIGNED,               /* p */
 975     F_UNASSIGNED,               /* q */
 976     V_REPLONE,                  /* r */
 977     V_SUBSTCHAR,                /* s */
 978     V_CHARTO_FWD,               /* t */
 979     V_UNDO,                     /* u */
 980     F_EXPAND_VARS,              /* v */
 981     V_WORDBEGNEXT,              /* w */
 982     F_DELNEXT_EOF,              /* x */
 983     F_UNASSIGNED,               /* y */
 984     F_UNASSIGNED,               /* z */
 985     F_UNASSIGNED,               /* { */
 986     F_UNASSIGNED,               /* | */
 987     F_UNASSIGNED,               /* } */
 988     V_CHGCASE,                  /* ~ */
 989     F_DELPREV,                  /* ^? */
 990     F_UNASSIGNED,               /* M-^@ */
 991     F_UNASSIGNED,               /* M-^A */
 992     F_UNASSIGNED,               /* M-^B */
 993     F_UNASSIGNED,               /* M-^C */
 994     F_UNASSIGNED,               /* M-^D */
 995     F_UNASSIGNED,               /* M-^E */
 996     F_UNASSIGNED,               /* M-^F */
 997     F_UNASSIGNED,               /* M-^G */
 998     F_UNASSIGNED,               /* M-^H */
 999     F_UNASSIGNED,               /* M-^I */
1000     F_UNASSIGNED,               /* M-^J */
1001     F_UNASSIGNED,               /* M-^K */
1002     F_UNASSIGNED,               /* M-^L */
1003     F_UNASSIGNED,               /* M-^M */
1004     F_UNASSIGNED,               /* M-^N */
1005     F_UNASSIGNED,               /* M-^O */
1006     F_UNASSIGNED,               /* M-^P */
1007     F_UNASSIGNED,               /* M-^Q */
1008     F_UNASSIGNED,               /* M-^R */
1009     F_UNASSIGNED,               /* M-^S */
1010     F_UNASSIGNED,               /* M-^T */
1011     F_UNASSIGNED,               /* M-^U */
1012     F_UNASSIGNED,               /* M-^V */
1013     F_UNASSIGNED,               /* M-^W */
1014     F_UNASSIGNED,               /* M-^X */
1015     F_UNASSIGNED,               /* M-^Y */
1016     F_UNASSIGNED,               /* M-^Z */
1017     F_UNASSIGNED,               /* M-^[ */
1018     F_UNASSIGNED,               /* M-^\ */
1019     F_UNASSIGNED,               /* M-^] */
1020     F_UNASSIGNED,               /* M-^^ */
1021     F_UNASSIGNED,               /* M-^_ */
1022     F_UNASSIGNED,               /* M-SPACE */
1023     F_UNASSIGNED,               /* M-! */
1024     F_UNASSIGNED,               /* M-" */
1025     F_UNASSIGNED,               /* M-# */
1026     F_UNASSIGNED,               /* M-$ */
1027     F_UNASSIGNED,               /* M-% */
1028     F_UNASSIGNED,               /* M-& */
1029     F_UNASSIGNED,               /* M-' */
1030     F_UNASSIGNED,               /* M-( */
1031     F_UNASSIGNED,               /* M-) */
1032     F_UNASSIGNED,               /* M-* */
1033     F_UNASSIGNED,               /* M-+ */
1034     F_UNASSIGNED,               /* M-, */
1035     F_UNASSIGNED,               /* M-- */
1036     F_UNASSIGNED,               /* M-. */
1037     F_UNASSIGNED,               /* M-/ */
1038     F_UNASSIGNED,               /* M-0 */
1039     F_UNASSIGNED,               /* M-1 */
1040     F_UNASSIGNED,               /* M-2 */
1041     F_UNASSIGNED,               /* M-3 */
1042     F_UNASSIGNED,               /* M-4 */
1043     F_UNASSIGNED,               /* M-5 */
1044     F_UNASSIGNED,               /* M-6 */
1045     F_UNASSIGNED,               /* M-7 */
1046     F_UNASSIGNED,               /* M-8 */
1047     F_UNASSIGNED,               /* M-9 */
1048     F_UNASSIGNED,               /* M-: */
1049     F_UNASSIGNED,               /* M-; */
1050     F_UNASSIGNED,               /* M-< */
1051     F_UNASSIGNED,               /* M-= */
1052     F_UNASSIGNED,               /* M-> */
1053     F_HELPME,                   /* M-? */
1054     F_UNASSIGNED,               /* M-@ */
1055     F_UNASSIGNED,               /* M-A */
1056     F_UNASSIGNED,               /* M-B */
1057     F_UNASSIGNED,               /* M-C */
1058     F_UNASSIGNED,               /* M-D */
1059     F_UNASSIGNED,               /* M-E */
1060     F_UNASSIGNED,               /* M-F */
1061     F_UNASSIGNED,               /* M-G */
1062     F_UNASSIGNED,               /* M-H */
1063     F_UNASSIGNED,               /* M-I */
1064     F_UNASSIGNED,               /* M-J */
1065     F_UNASSIGNED,               /* M-K */
1066     F_UNASSIGNED,               /* M-L */
1067     F_UNASSIGNED,               /* M-M */
1068     F_UNASSIGNED,               /* M-N */
1069     F_XKEY,                     /* M-O *//* extended key esc PWP Mar 88 */
1070     F_UNASSIGNED,               /* M-P */
1071     F_UNASSIGNED,               /* M-Q */
1072     F_UNASSIGNED,               /* M-R */
1073     F_UNASSIGNED,               /* M-S */
1074     F_UNASSIGNED,               /* M-T */
1075     F_UNASSIGNED,               /* M-U */
1076     F_UNASSIGNED,               /* M-V */
1077     F_UNASSIGNED,               /* M-W */
1078     F_UNASSIGNED,               /* M-X */
1079     F_UNASSIGNED,               /* M-Y */
1080     F_UNASSIGNED,               /* M-Z */
1081     F_XKEY,                     /* M-[ *//* extended key esc -mf Oct 87 */
1082     F_UNASSIGNED,               /* M-\ */
1083     F_UNASSIGNED,               /* M-] */
1084     F_UNASSIGNED,               /* M-^ */
1085     F_UNASSIGNED,               /* M-_ */
1086     F_UNASSIGNED,               /* M-` */
1087     F_UNASSIGNED,               /* M-a */
1088     F_UNASSIGNED,               /* M-b */
1089     F_UNASSIGNED,               /* M-c */
1090     F_UNASSIGNED,               /* M-d */
1091     F_UNASSIGNED,               /* M-e */
1092     F_UNASSIGNED,               /* M-f */
1093     F_UNASSIGNED,               /* M-g */
1094     F_UNASSIGNED,               /* M-h */
1095     F_UNASSIGNED,               /* M-i */
1096     F_UNASSIGNED,               /* M-j */
1097     F_UNASSIGNED,               /* M-k */
1098     F_UNASSIGNED,               /* M-l */
1099     F_UNASSIGNED,               /* M-m */
1100     F_UNASSIGNED,               /* M-n */
1101     F_UNASSIGNED,               /* M-o */
1102     F_UNASSIGNED,               /* M-p */
1103     F_UNASSIGNED,               /* M-q */
1104     F_UNASSIGNED,               /* M-r */
1105     F_UNASSIGNED,               /* M-s */
1106     F_UNASSIGNED,               /* M-t */
1107     F_UNASSIGNED,               /* M-u */
1108     F_UNASSIGNED,               /* M-v */
1109     F_UNASSIGNED,               /* M-w */
1110     F_UNASSIGNED,               /* M-x */
1111     F_UNASSIGNED,               /* M-y */
1112     F_UNASSIGNED,               /* M-z */
1113     F_UNASSIGNED,               /* M-{ */
1114     F_UNASSIGNED,               /* M-| */
1115     F_UNASSIGNED,               /* M-} */
1116     F_UNASSIGNED,               /* M-~ */
1117     F_UNASSIGNED                /* M-^? */
1118 };
1119 #endif /* WINNT_NATIVE */
1120
1121
1122 void
1123 editinit()
1124 {
1125     struct KeyFuncs *f;
1126
1127 #if defined(NLS_CATALOGS) || defined(WINNT_NATIVE)
1128     int i;
1129
1130     for (i = 0; i < F_NUM_FUNCNAMES; i++)
1131         xfree((ptr_t) FuncNames[i].desc);
1132 #endif
1133
1134     f = FuncNames;
1135     f->name = "backward-char";
1136     f->func = F_CHARBACK;
1137     f->desc = CSAVS(3, 1, "Move back a character");
1138
1139     f++;
1140     f->name = "backward-delete-char";
1141     f->func = F_DELPREV;
1142     f->desc = CSAVS(3, 2, "Delete the character behind cursor");
1143
1144     f++;
1145     f->name = "backward-delete-word";
1146     f->func = F_DELWORDPREV;
1147     f->desc = CSAVS(3, 3,
1148         "Cut from beginning of current word to cursor - saved in cut buffer");
1149
1150     f++;
1151     f->name = "backward-kill-line";
1152     f->func = F_KILLBEG;
1153     f->desc = CSAVS(3, 4,
1154         "Cut from beginning of line to cursor - save in cut buffer");
1155
1156     f++;
1157     f->name = "backward-word";
1158     f->func = F_WORDBACK;
1159     f->desc = CSAVS(3, 5, "Move to beginning of current word");
1160
1161     f++;
1162     f->name = "beginning-of-line";
1163     f->func = F_TOBEG;
1164     f->desc = CSAVS(3, 6, "Move to beginning of line");
1165
1166     f++;
1167     f->name = "capitalize-word";
1168     f->func = F_CASECAPITAL;
1169     f->desc = CSAVS(3, 7,
1170         "Capitalize the characters from cursor to end of current word");
1171
1172     f++;
1173     f->name = "change-case";
1174     f->func = V_CHGCASE;
1175     f->desc = CSAVS(3, 8,
1176         "Vi change case of character under cursor and advance one character");
1177
1178     f++;
1179     f->name = "change-till-end-of-line";
1180     f->func = V_CHGTOEND;       /* backward compat. */
1181     f->desc = CSAVS(3, 9, "Vi change to end of line");
1182
1183     f++;
1184     f->name = "clear-screen";
1185     f->func = F_CLEARDISP;
1186     f->desc = CSAVS(3, 10, "Clear screen leaving current line on top");
1187
1188     f++;
1189     f->name = "complete-word";
1190     f->func = F_COMPLETE;
1191     f->desc = CSAVS(3, 11, "Complete current word");
1192
1193     f++;
1194     f->name = "complete-word-fwd";
1195     f->func = F_COMPLETE_FWD;
1196     f->desc = CSAVS(3, 12, "Tab forward through files");
1197
1198     f++;
1199     f->name = "complete-word-back";
1200     f->func = F_COMPLETE_BACK;
1201     f->desc = CSAVS(3, 13, "Tab backward through files");
1202
1203     f++;
1204     f->name = "complete-word-raw";
1205     f->func = F_COMPLETE_ALL;
1206     f->desc = CSAVS(3, 14,
1207         "Complete current word ignoring programmable completions");
1208
1209     f++;
1210     f->name = "copy-prev-word";
1211     f->func = F_COPYPREV;
1212     f->desc = CSAVS(3, 15, "Copy current word to cursor");
1213
1214     f++;
1215     f->name = "copy-region-as-kill";
1216     f->func = F_COPYREGION;
1217     f->desc = CSAVS(3, 16, "Copy area between mark and cursor to cut buffer");
1218
1219     f++;
1220     f->name = "dabbrev-expand";
1221     f->func = F_DABBREV_EXPAND;
1222     f->desc = CSAVS(3, 17,
1223                     "Expand to preceding word for which this is a prefix");
1224
1225     f++;
1226     f->name = "delete-char";
1227     f->func = F_DELNEXT;
1228     f->desc = CSAVS(3, 18, "Delete character under cursor");
1229
1230     f++;
1231     f->name = "delete-char-or-eof";
1232     f->func = F_DELNEXT_EOF;
1233     f->desc = CSAVS(3, 19,
1234         "Delete character under cursor or signal end of file on an empty line");
1235
1236     f++;
1237     f->name = "delete-char-or-list";
1238     f->func = F_DELNEXT_LIST;
1239     f->desc = CSAVS(3, 20,
1240         "Delete character under cursor or list completions if at end of line");
1241
1242     f++;
1243     f->name = "delete-char-or-list-or-eof";
1244     f->func = F_DELNEXT_LIST_EOF;
1245     f->desc = CSAVS(3, 21,
1246     "Delete character under cursor, list completions or signal end of file");
1247
1248     f++;
1249     f->name = "delete-word";
1250     f->func = F_DELWORDNEXT;
1251     f->desc = CSAVS(3, 22,
1252         "Cut from cursor to end of current word - save in cut buffer");
1253
1254     f++;
1255     f->name = "digit";
1256     f->func = F_DIGIT;
1257     f->desc = CSAVS(3, 23, "Adds to argument if started or enters digit");
1258
1259     f++;
1260     f->name = "digit-argument";
1261     f->func = F_ARGDIGIT;
1262     f->desc = CSAVS(3, 24, "Digit that starts argument");
1263
1264     f++;
1265     f->name = "down-history";
1266     f->func = F_DOWN_HIST;
1267     f->desc = CSAVS(3, 25, "Move to next history line");
1268
1269     f++;
1270     f->name = "downcase-word";
1271     f->func = F_CASELOWER;
1272     f->desc = CSAVS(3, 26,
1273         "Lowercase the characters from cursor to end of current word");
1274
1275     f++;
1276     f->name = "end-of-file";
1277     f->func = F_SEND_EOF;
1278     f->desc = CSAVS(3, 27, "Indicate end of file");
1279
1280     f++;
1281     f->name = "end-of-line";
1282     f->func = F_TOEND;
1283     f->desc = CSAVS(3, 28, "Move cursor to end of line");
1284
1285     f++;
1286     f->name = "exchange-point-and-mark";
1287     f->func = F_EXCHANGE_MARK;
1288     f->desc = CSAVS(3, 29, "Exchange the cursor and mark");
1289
1290     f++;
1291     f->name = "expand-glob";
1292     f->func = F_EXPAND_GLOB;
1293     f->desc = CSAVS(3, 30, "Expand file name wildcards");
1294
1295     f++;
1296     f->name = "expand-history";
1297     f->func = F_EXPAND_HISTORY;
1298     f->desc = CSAVS(3, 31, "Expand history escapes");
1299
1300     f++;
1301     f->name = "expand-line";
1302     f->func = F_EXPAND;
1303     f->desc = CSAVS(3, 32, "Expand the history escapes in a line");
1304
1305     f++;
1306     f->name = "expand-variables";
1307     f->func = F_EXPAND_VARS;
1308     f->desc = CSAVS(3, 33, "Expand variables");
1309
1310     f++;
1311     f->name = "forward-char";
1312     f->func = F_CHARFWD;
1313     f->desc = CSAVS(3, 34, "Move forward one character");
1314
1315     f++;
1316     f->name = "forward-word";
1317     f->func = F_WORDFWD;
1318     f->desc = CSAVS(3, 35, "Move forward to end of current word");
1319
1320     f++;
1321     f->name = "gosmacs-transpose-chars";
1322     f->func = F_GCHARSWITCH;
1323     f->desc = CSAVS(3, 36, "Exchange the two characters before the cursor");
1324
1325     f++;
1326     f->name = "history-search-backward";
1327     f->func = F_UP_SEARCH_HIST;
1328     f->desc = CSAVS(3, 37,
1329         "Search in history backward for line beginning as current");
1330
1331     f++;
1332     f->name = "history-search-forward";
1333     f->func = F_DOWN_SEARCH_HIST;
1334     f->desc = CSAVS(3, 38,
1335         "Search in history forward for line beginning as current");
1336
1337     f++;
1338     f->name = "insert-last-word";
1339     f->func = F_LAST_ITEM;
1340     f->desc = CSAVS(3, 39, "Insert last item of previous command");
1341
1342     f++;
1343     f->name = "i-search-fwd";
1344     f->func = F_INC_FWD;
1345     f->desc = CSAVS(3, 40, "Incremental search forward");
1346
1347     f++;
1348     f->name = "i-search-back";
1349     f->func = F_INC_BACK;
1350     f->desc = CSAVS(3, 41, "Incremental search backward");
1351
1352     f++;
1353     f->name = "keyboard-quit";
1354     f->func = F_STARTOVER;
1355     f->desc = CSAVS(3, 42, "Clear line");
1356
1357     f++;
1358     f->name = "kill-line";
1359     f->func = F_KILLEND;
1360     f->desc = CSAVS(3, 43, "Cut to end of line and save in cut buffer");
1361
1362     f++;
1363     f->name = "kill-region";
1364     f->func = F_KILLREGION;
1365     f->desc = CSAVS(3, 44,
1366         "Cut area between mark and cursor and save in cut buffer");
1367
1368     f++;
1369     f->name = "kill-whole-line";
1370     f->func = F_KILLALL;
1371     f->desc = CSAVS(3, 45, "Cut the entire line and save in cut buffer");
1372
1373     f++;
1374     f->name = "list-choices";
1375     f->func = F_LIST_CHOICES;
1376     f->desc = CSAVS(3, 46, "List choices for completion");
1377
1378     f++;
1379     f->name = "list-choices-raw";
1380     f->func = F_LIST_ALL;
1381     f->desc = CSAVS(3, 47,
1382         "List choices for completion overriding programmable completion");
1383
1384     f++;
1385     f->name = "list-glob";
1386     f->func = F_LIST_GLOB;
1387     f->desc = CSAVS(3, 48, "List file name wildcard matches");
1388
1389     f++;
1390     f->name = "list-or-eof";
1391     f->func = F_LIST_EOF;
1392     f->desc = CSAVS(3, 49,
1393         "List choices for completion or indicate end of file if empty line");
1394
1395     f++;
1396     f->name = "load-average";
1397     f->func = F_LOAD_AVERAGE;
1398     f->desc = CSAVS(3, 50, "Display load average and current process status");
1399
1400     f++;
1401     f->name = "magic-space";
1402     f->func = F_MAGIC_SPACE;
1403     f->desc = CSAVS(3, 51, "Expand history escapes and insert a space");
1404
1405     f++;
1406     f->name = "newline";
1407     f->func = F_NEWLINE;
1408     f->desc = CSAVS(3, 52, "Execute command");
1409
1410     f++;
1411     f->name = "normalize-path";
1412     f->func = F_PATH_NORM;
1413     f->desc = CSAVS(3, 53,
1414                     "Expand pathnames, eliminating leading .'s and ..'s");
1415
1416     f++;
1417     f->name = "normalize-command";
1418     f->func = F_COMMAND_NORM;
1419     f->desc = CSAVS(3, 54,
1420                     "Expand commands to the resulting pathname or alias");
1421
1422     f++;
1423     f->name = "overwrite-mode";
1424     f->func = F_INSOVR;
1425     f->desc = CSAVS(3, 55,
1426                     "Switch from insert to overwrite mode or vice versa");
1427
1428     f++;
1429     f->name = "prefix-meta";
1430     f->func = F_METANEXT;
1431     f->desc = CSAVS(3, 56, "Add 8th bit to next character typed");
1432
1433     f++;
1434     f->name = "quoted-insert";
1435     f->func = F_QUOTE;
1436     f->desc = CSAVS(3, 57, "Add the next character typed to the line verbatim");
1437
1438     f++;
1439     f->name = "redisplay";
1440     f->func = F_REDISP;
1441     f->desc = CSAVS(3, 58, "Redisplay everything");
1442
1443     f++;
1444     f->name = "run-fg-editor";
1445     f->func = F_RUN_FG_EDITOR;
1446     f->desc = CSAVS(3, 59, "Restart stopped editor");
1447
1448     f++;
1449     f->name = "run-help";
1450     f->func = F_HELPME;
1451     f->desc = CSAVS(3, 60, "Look for help on current command");
1452
1453     f++;
1454     f->name = "self-insert-command";
1455     f->func = F_INSERT;
1456     f->desc = CSAVS(3, 61, "This character is added to the line");
1457
1458     f++;
1459     f->name = "sequence-lead-in";
1460     f->func = F_XKEY;
1461     f->desc = CSAVS(3, 62,
1462         "This character is the first in a character sequence");
1463
1464     f++;
1465     f->name = "set-mark-command";
1466     f->func = F_SET_MARK;
1467     f->desc = CSAVS(3, 63, "Set the mark at cursor");
1468
1469     f++;
1470     f->name = "spell-word";
1471     f->func = F_CORRECT;
1472     f->desc = CSAVS(3, 64, "Correct the spelling of current word");
1473
1474     f++;
1475     f->name = "spell-line";
1476     f->func = F_CORRECT_L;
1477     f->desc = CSAVS(3, 65, "Correct the spelling of entire line");
1478
1479     f++;
1480     f->name = "stuff-char";
1481     f->func = F_STUFF_CHAR;
1482     f->desc = CSAVS(3, 66, "Send character to tty in cooked mode");
1483
1484     f++;
1485     f->name = "toggle-literal-history";
1486     f->func = F_TOGGLE_HIST;
1487     f->desc = CSAVS(3, 67,
1488         "Toggle between literal and lexical current history line");
1489
1490     f++;
1491     f->name = "transpose-chars";
1492     f->func = F_CHARSWITCH;
1493     f->desc = CSAVS(3, 68,
1494         "Exchange the character to the left of the cursor with the one under");
1495
1496     f++;
1497     f->name = "transpose-gosling";
1498     f->func = F_GCHARSWITCH;
1499     f->desc = CSAVS(3, 69, "Exchange the two characters before the cursor");
1500
1501     f++;
1502     f->name = "tty-dsusp";
1503     f->func = F_TTY_DSUSP;
1504     f->desc = CSAVS(3, 70, "Tty delayed suspend character");
1505
1506     f++;
1507     f->name = "tty-flush-output";
1508     f->func = F_TTY_FLUSHO;
1509     f->desc = CSAVS(3, 71, "Tty flush output character");
1510
1511     f++;
1512     f->name = "tty-sigintr";
1513     f->func = F_TTY_INT;
1514     f->desc = CSAVS(3, 72, "Tty interrupt character");
1515
1516     f++;
1517     f->name = "tty-sigquit";
1518     f->func = F_TTY_QUIT;
1519     f->desc = CSAVS(3, 73, "Tty quit character");
1520
1521     f++;
1522     f->name = "tty-sigtsusp";
1523     f->func = F_TTY_TSUSP;
1524     f->desc = CSAVS(3, 74, "Tty suspend character");
1525
1526     f++;
1527     f->name = "tty-start-output";
1528     f->func = F_TTY_STARTO;
1529     f->desc = CSAVS(3, 75, "Tty allow output character");
1530
1531     f++;
1532     f->name = "tty-stop-output";
1533     f->func = F_TTY_STOPO;
1534     f->desc = CSAVS(3, 76, "Tty disallow output character");
1535
1536     f++;
1537     f->name = "undefined-key";
1538     f->func = F_UNASSIGNED;
1539     f->desc = CSAVS(3, 77, "Indicates unbound character");
1540
1541     f++;
1542     f->name = "universal-argument";
1543     f->func = F_ARGFOUR;
1544     f->desc = CSAVS(3, 78, "Emacs universal argument (argument times 4)");
1545
1546     f++;
1547     f->name = "up-history";
1548     f->func = F_UP_HIST;
1549     f->desc = CSAVS(3, 79, "Move to previous history line");
1550
1551     f++;
1552     f->name = "upcase-word";
1553     f->func = F_CASEUPPER;
1554     f->desc = CSAVS(3, 80,
1555         "Uppercase the characters from cursor to end of current word");
1556
1557     f++;
1558     f->name = "vi-beginning-of-next-word";
1559     f->func = V_WORDBEGNEXT;
1560     f->desc = CSAVS(3, 81, "Vi goto the beginning of next word");
1561
1562     f++;
1563     f->name = "vi-add";
1564     f->func = V_ADD;
1565     f->desc = CSAVS(3, 82, "Vi enter insert mode after the cursor");
1566
1567     f++;
1568     f->name = "vi-add-at-eol";
1569     f->func = V_ADDEND;
1570     f->desc = CSAVS(3, 83, "Vi enter insert mode at end of line");
1571
1572     f++;
1573     f->name = "vi-chg-case";
1574     f->func = V_CHGCASE;
1575     f->desc = CSAVS(3, 84,
1576         "Vi change case of character under cursor and advance one character");
1577
1578     f++;
1579     f->name = "vi-chg-meta";
1580     f->func = V_CHGMETA;
1581     f->desc = CSAVS(3, 85, "Vi change prefix command");
1582
1583     f++;
1584     f->name = "vi-chg-to-eol";
1585     f->func = V_CHGTOEND;
1586     f->desc = CSAVS(3, 86, "Vi change to end of line");
1587
1588     f++;
1589     f->name = "vi-cmd-mode";
1590     f->func = V_CMD_MODE;
1591     f->desc = CSAVS(3, 87,
1592         "Enter vi command mode (use alternative key bindings)");
1593
1594     f++;
1595     f->name = "vi-cmd-mode-complete";
1596     f->func = V_CM_COMPLETE;
1597     f->desc = CSAVS(3, 88, "Vi command mode complete current word");
1598
1599     f++;
1600     f->name = "vi-delprev";
1601     f->func = V_DELPREV;
1602     f->desc = CSAVS(3, 89, "Vi move to previous character (backspace)");
1603
1604     f++;
1605     f->name = "vi-delmeta";
1606     f->func = V_DELMETA;
1607     f->desc = CSAVS(3, 90, "Vi delete prefix command");
1608
1609     f++;
1610     f->name = "vi-endword";
1611     f->func = V_ENDWORD;
1612     f->desc = CSAVS(3, 91,
1613         "Vi move to the end of the current space delimited word");
1614
1615     f++;
1616     f->name = "vi-eword";
1617     f->func = V_EWORD;
1618     f->desc = CSAVS(3, 92, "Vi move to the end of the current word");
1619
1620     f++;
1621     f->name = "vi-char-back";
1622     f->func = V_CHAR_BACK;
1623     f->desc = CSAVS(3, 93, "Vi move to the character specified backward");
1624
1625     f++;
1626     f->name = "vi-char-fwd";
1627     f->func = V_CHAR_FWD;
1628     f->desc = CSAVS(3, 94, "Vi move to the character specified forward");
1629
1630     f++;
1631     f->name = "vi-charto-back";
1632     f->func = V_CHARTO_BACK;
1633     f->desc = CSAVS(3, 95, "Vi move up to the character specified backward");
1634
1635     f++;
1636     f->name = "vi-charto-fwd";
1637     f->func = V_CHARTO_FWD;
1638     f->desc = CSAVS(3, 96, "Vi move up to the character specified forward");
1639
1640     f++;
1641     f->name = "vi-insert";
1642     f->func = V_INSERT;
1643     f->desc = CSAVS(3, 97, "Enter vi insert mode");
1644
1645     f++;
1646     f->name = "vi-insert-at-bol";
1647     f->func = V_INSBEG;
1648     f->desc = CSAVS(3, 98, "Enter vi insert mode at beginning of line");
1649
1650     f++;
1651     f->name = "vi-repeat-char-fwd";
1652     f->func = V_RCHAR_FWD;
1653     f->desc = CSAVS(3, 99,
1654         "Vi repeat current character search in the same search direction");
1655
1656     f++;
1657     f->name = "vi-repeat-char-back";
1658     f->func = V_RCHAR_BACK;
1659     f->desc = CSAVS(3, 100,
1660         "Vi repeat current character search in the opposite search direction");
1661
1662     f++;
1663     f->name = "vi-repeat-search-fwd";
1664     f->func = V_RSRCH_FWD;
1665     f->desc = CSAVS(3, 101,
1666         "Vi repeat current search in the same search direction");
1667
1668     f++;
1669     f->name = "vi-repeat-search-back";
1670     f->func = V_RSRCH_BACK;
1671     f->desc = CSAVS(3, 102,
1672         "Vi repeat current search in the opposite search direction");
1673
1674     f++;
1675     f->name = "vi-replace-char";
1676     f->func = V_REPLONE;
1677     f->desc = CSAVS(3, 103,
1678         "Vi replace character under the cursor with the next character typed");
1679
1680     f++;
1681     f->name = "vi-replace-mode";
1682     f->func = V_REPLMODE;
1683     f->desc = CSAVS(3, 104, "Vi replace mode");
1684
1685     f++;
1686     f->name = "vi-search-back";
1687     f->func = V_USH_META;
1688     f->desc = CSAVS(3, 105, "Vi search history backward");
1689
1690     f++;
1691     f->name = "vi-search-fwd";
1692     f->func = V_DSH_META;
1693     f->desc = CSAVS(3, 106, "Vi search history forward");
1694
1695     f++;
1696     f->name = "vi-substitute-char";
1697     f->func = V_SUBSTCHAR;
1698     f->desc = CSAVS(3, 107,
1699         "Vi replace character under the cursor and enter insert mode");
1700
1701     f++;
1702     f->name = "vi-substitute-line";
1703     f->func = V_SUBSTLINE;
1704     f->desc = CSAVS(3, 108, "Vi replace entire line");
1705
1706     f++;
1707     f->name = "vi-word-back";
1708     f->func = V_WORDBACK;
1709     f->desc = CSAVS(3, 109, "Vi move to the previous word");
1710
1711     f++;
1712     f->name = "vi-word-fwd";
1713     f->func = V_WORDFWD;
1714     f->desc = CSAVS(3, 110, "Vi move to the next word");
1715
1716     f++;
1717     f->name = "vi-undo";
1718     f->func = V_UNDO;
1719     f->desc = CSAVS(3, 111, "Vi undo last change");
1720
1721     f++;
1722     f->name = "vi-zero";
1723     f->func = V_ZERO;
1724     f->desc = CSAVS(3, 112, "Vi goto the beginning of line");
1725
1726     f++;
1727     f->name = "which-command";
1728     f->func = F_WHICH;
1729     f->desc = CSAVS(3, 113, "Perform which of current command");
1730
1731     f++;
1732     f->name = "yank";
1733     f->func = F_YANK_KILL;
1734     f->desc = CSAVS(3, 114, "Paste cut buffer at cursor position");
1735
1736     f++;
1737     f->name = "yank-pop";
1738     f->func = F_YANK_POP;
1739     f->desc = CSAVS(3, 115,
1740         "Replace just-yanked text with yank from earlier kill");
1741
1742     f++;
1743     f->name = "e_copy_to_clipboard";
1744     f->func = F_COPY_CLIP;
1745     f->desc = CSAVS(3, 116,
1746         "(WIN32 only) Copy cut buffer to system clipboard");
1747
1748     f++;
1749     f->name = "e_paste_from_clipboard";
1750     f->func = F_PASTE_CLIP;
1751     f->desc = CSAVS(3, 117,
1752         "(WIN32 only) Paste clipboard buffer at cursor position");
1753
1754     f++;
1755     f->name = "e_dosify_next";
1756     f->func = F_DOSIFY_NEXT;
1757     f->desc = CSAVS(3, 118,
1758         "(WIN32 only) Convert each '/' in next word to '\\\\'");
1759
1760     f++;
1761     f->name = "e_dosify_prev";
1762     f->func = F_DOSIFY_PREV;
1763     f->desc = CSAVS(3, 119,
1764         "(WIN32 only) Convert each '/' in previous word to '\\\\'");
1765
1766     f++;
1767     f->name = "e_page_up";
1768     f->func = F_PAGE_UP;
1769     f->desc = CSAVS(3, 120, "(WIN32 only) Page visible console window up");
1770
1771     f++;
1772     f->name = "e_page_down";
1773     f->func = F_PAGE_DOWN;
1774     f->desc = CSAVS(3, 121, "(WIN32 only) Page visible console window down");
1775
1776     f++;
1777     f->name = NULL;
1778     f->func = 0;
1779     f->desc = NULL;
1780
1781     f++;
1782     if (f - FuncNames != F_NUM_FUNCNAMES)
1783         abort();
1784 }
1785
1786 #ifdef DEBUG_EDIT
1787 void
1788 CheckMaps()
1789 {               /* check the size of the key maps */
1790     int     c1 = (NT_NUM_KEYS * sizeof(KEYCMD));
1791
1792     if ((sizeof(CcKeyMap)) != c1)
1793         xprintf("CcKeyMap should be %d entries, but is %d.\r\n",
1794                 NT_NUM_KEYS, sizeof(CcKeyMap) / sizeof(KEYCMD)));
1795
1796     if ((sizeof(CcAltMap)) != c1)
1797         xprintf("CcAltMap should be %d entries, but is %d.\r\n",
1798                 NT_NUM_KEYS, (sizeof(CcAltMap) / sizeof(KEYCMD)));
1799
1800     if ((sizeof(CcEmacsMap)) != c1)
1801         xprintf("CcEmacsMap should be %d entries, but is %d.\r\n",
1802                 NT_NUM_KEYS, (sizeof(CcEmacsMap) / sizeof(KEYCMD)));
1803
1804     if ((sizeof(CcViMap)) != c1)
1805         xprintf("CcViMap should be %d entries, but is %d.\r\n",
1806                 NT_NUM_KEYS, (sizeof(CcViMap) / sizeof(KEYCMD)));
1807
1808     if ((sizeof(CcViCmdMap)) != c1)
1809         xprintf("CcViCmdMap should be %d entries, but is %d.\r\n",
1810                 NT_NUM_KEYS, (sizeof(CcViCmdMap) / sizeof(KEYCMD)));
1811 }
1812
1813 #endif
1814
1815 bool    MapsAreInited = 0;
1816 bool    NLSMapsAreInited = 0;
1817 bool    NoNLSRebind;
1818
1819 void
1820 ed_InitNLSMaps()
1821 {
1822     register int i;
1823
1824     if (AsciiOnly)
1825         return;
1826     if (NoNLSRebind)
1827         return;
1828     for (i = 0200; i <= 0377; i++) {
1829         if (Isprint(i)) {
1830             CcKeyMap[i] = F_INSERT;
1831         }
1832     }
1833     NLSMapsAreInited = 1;
1834 }
1835
1836 static void
1837 ed_InitMetaBindings()
1838 {
1839     Char    buf[3];
1840     int     i;
1841     CStr    cstr;
1842     KEYCMD *map;
1843
1844     map = CcKeyMap;
1845     for (i = 0; i <= 0377 && CcKeyMap[i] != F_METANEXT; i++)
1846         continue;
1847     if (i > 0377) {
1848         for (i = 0; i <= 0377 && CcAltMap[i] != F_METANEXT; i++)
1849             continue;
1850         if (i > 0377) {
1851             i = CTL_ESC('\033');
1852             if (VImode)
1853                 map = CcAltMap;
1854         }
1855         else {
1856             map = CcAltMap;
1857         }
1858     }
1859     buf[0] = (Char) i;
1860     buf[2] = 0;
1861     cstr.buf = buf;
1862     cstr.len = 2;
1863     for (i = 0200; i <= 0377; i++) {
1864         if (map[i] != F_INSERT && map[i] != F_UNASSIGNED && map[i] != F_XKEY) {
1865 #ifdef IS_ASCII
1866             buf[1] = i & ASCII;
1867 #else
1868             buf[1] = _toebcdic[_toascii[i] & ASCII];
1869 #endif
1870             AddXkey(&cstr, XmapCmd((int) map[i]), XK_CMD);
1871         }
1872     }
1873     map[buf[0]] = F_XKEY;
1874 }
1875
1876 void
1877 ed_InitVIMaps()
1878 {
1879     register int i;
1880
1881     VImode = 1;
1882     ResetXmap();
1883     for (i = 0; i < NT_NUM_KEYS; i++) {
1884         CcKeyMap[i] = CcViMap[i];
1885         CcAltMap[i] = CcViCmdMap[i];
1886     }
1887     ed_InitMetaBindings();
1888     ed_InitNLSMaps();
1889     ResetArrowKeys();
1890     BindArrowKeys();
1891 }
1892
1893 void
1894 ed_InitEmacsMaps()
1895 {
1896     int     i;
1897     Char    buf[3];
1898     CStr    cstr;
1899     cstr.buf = buf;
1900     cstr.len = 2;
1901
1902     VImode = 0;
1903     ResetXmap();
1904     for (i = 0; i < NT_NUM_KEYS; i++) {
1905         CcKeyMap[i] = CcEmacsMap[i];
1906         CcAltMap[i] = F_UNASSIGNED;
1907     }
1908     ed_InitMetaBindings();
1909     ed_InitNLSMaps();
1910     buf[0] = CTL_ESC('\030');
1911     buf[2] = 0;
1912     buf[1] = CTL_ESC('\030');
1913     AddXkey(&cstr, XmapCmd(F_EXCHANGE_MARK), XK_CMD);
1914     buf[1] = '*';
1915     AddXkey(&cstr, XmapCmd(F_EXPAND_GLOB),   XK_CMD);
1916     buf[1] = '$';
1917     AddXkey(&cstr, XmapCmd(F_EXPAND_VARS),   XK_CMD);
1918     buf[1] = 'G';
1919     AddXkey(&cstr, XmapCmd(F_LIST_GLOB),     XK_CMD);
1920     buf[1] = 'g';
1921     AddXkey(&cstr, XmapCmd(F_LIST_GLOB),     XK_CMD);
1922     buf[1] = 'n';
1923     AddXkey(&cstr, XmapCmd(F_PATH_NORM),     XK_CMD);
1924     buf[1] = 'N';
1925     AddXkey(&cstr, XmapCmd(F_PATH_NORM),     XK_CMD);
1926     buf[1] = '?';
1927     AddXkey(&cstr, XmapCmd(F_COMMAND_NORM),  XK_CMD);
1928     buf[1] = '\t';
1929     AddXkey(&cstr, XmapCmd(F_COMPLETE_ALL),  XK_CMD);
1930     buf[1] = CTL_ESC('\004');   /* ^D */
1931     AddXkey(&cstr, XmapCmd(F_LIST_ALL),      XK_CMD);
1932     ResetArrowKeys();
1933     BindArrowKeys();
1934 }
1935
1936 void
1937 ed_InitMaps()
1938 {
1939     if (MapsAreInited)
1940         return;
1941 #ifndef IS_ASCII
1942     /* This machine has an EBCDIC charset. The assumptions made for the
1943      * initialized keymaps therefore don't hold, since they are based on
1944      * ASCII (or ISO8859-1).
1945      * Here, we do a one-time transformation to EBCDIC environment
1946      * for the key initializations.
1947      */
1948     {
1949         KEYCMD temp[NT_NUM_KEYS];
1950         static KEYCMD *const list[3] = { CcEmacsMap, CcViMap, CcViCmdMap };
1951         register int i, table;
1952
1953         for (table=0; table<3; ++table)
1954         {
1955             /* copy ASCII ordered map to temp table */
1956             for (i = 0; i < NT_NUM_KEYS; i++) {
1957                 temp[i] = list[table][i];
1958             }
1959             /* write back as EBCDIC ordered map */
1960             for (i = 0; i < NT_NUM_KEYS; i++) {
1961                 list[table][_toebcdic[i]] = temp[i];
1962             }
1963         }
1964     }
1965 #endif /* !IS_ASCII */
1966
1967 #ifdef VIDEFAULT
1968     ed_InitVIMaps();
1969 #else
1970     ed_InitEmacsMaps();
1971 #endif
1972
1973     MapsAreInited = 1;
1974 }