lib/libedit/map.c

   1 /*-
   2  * Copyright (c) 1992, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * This code is derived from software contributed to Berkeley by
   6  * Christos Zoulas of Cornell University.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. All advertising materials mentioning features or use of this software
  17  *    must display the following acknowledgement:
  18  *      This product includes software developed by the University of
  19  *      California, Berkeley and its contributors.
  20  * 4. Neither the name of the University nor the names of its contributors
  21  *    may be used to endorse or promote products derived from this software
  22  *    without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  */
  36
  37 #if !defined(lint) && !defined(SCCSID)
  38 static char sccsid[] = "@(#)map.c       8.1 (Berkeley) 6/4/93";
  39 #endif /* not lint && not SCCSID */
  40
  41 /*
  42  * map.c: Editor function definitions
  43  */
  44 #include "sys.h"
  45 #include <stdlib.h>
  46 #include "el.h"
  47
  48 #define N_KEYS 256
  49
  50 private void map_print_key       __P((EditLine *, el_action_t *, char *));
  51 private void map_print_some_keys __P((EditLine *, el_action_t *, int, int));
  52 private void map_print_all_keys  __P((EditLine *));
  53 private void map_init_nls        __P((EditLine *));
  54 private void map_init_meta       __P((EditLine *));
  55
  56 /* keymap tables ; should be N_KEYS*sizeof(KEYCMD) bytes long */
  57
  58 private el_action_t  el_map_emacs[] = {
  59     /*   0 */   EM_SET_MARK,            /* ^@ */
  60     /*   1 */   ED_MOVE_TO_BEG,         /* ^A */
  61     /*   2 */   ED_PREV_CHAR,           /* ^B */
  62     /*   3 */   ED_TTY_SIGINT,          /* ^C */
  63     /*   4 */   EM_DELETE_OR_LIST,      /* ^D */
  64     /*   5 */   ED_MOVE_TO_END,         /* ^E */
  65     /*   6 */   ED_NEXT_CHAR,           /* ^F */
  66     /*   7 */   ED_UNASSIGNED,          /* ^G */
  67     /*   8 */   ED_DELETE_PREV_CHAR,    /* ^H */
  68     /*   9 */   ED_UNASSIGNED,          /* ^I */
  69     /*  10 */   ED_NEWLINE,             /* ^J */
  70     /*  11 */   ED_KILL_LINE,           /* ^K */
  71     /*  12 */   ED_CLEAR_SCREEN,        /* ^L */
  72     /*  13 */   ED_NEWLINE,             /* ^M */
  73     /*  14 */   ED_NEXT_HISTORY,        /* ^N */
  74     /*  15 */   ED_TTY_FLUSH_OUTPUT,    /* ^O */
  75     /*  16 */   ED_PREV_HISTORY,        /* ^P */
  76     /*  17 */   ED_TTY_START_OUTPUT,    /* ^Q */
  77     /*  18 */   ED_REDISPLAY,           /* ^R */
  78     /*  19 */   ED_TTY_STOP_OUTPUT,     /* ^S */
  79     /*  20 */   ED_TRANSPOSE_CHARS,     /* ^T */
  80     /*  21 */   EM_KILL_LINE,           /* ^U */
  81     /*  22 */   ED_QUOTED_INSERT,       /* ^V */
  82     /*  23 */   EM_KILL_REGION,         /* ^W */
  83     /*  24 */   ED_SEQUENCE_LEAD_IN,    /* ^X */
  84     /*  25 */   EM_YANK,                /* ^Y */
  85     /*  26 */   ED_TTY_SIGTSTP,         /* ^Z */
  86     /*  27 */   EM_META_NEXT,           /* ^[ */
  87     /*  28 */   ED_TTY_SIGQUIT,         /* ^\ */
  88     /*  29 */   ED_TTY_DSUSP,           /* ^] */
  89     /*  30 */   ED_UNASSIGNED,          /* ^^ */
  90     /*  31 */   ED_UNASSIGNED,          /* ^_ */
  91     /*  32 */   ED_INSERT,              /* SPACE */
  92     /*  33 */   ED_INSERT,              /* ! */
  93     /*  34 */   ED_INSERT,              /* " */
  94     /*  35 */   ED_INSERT,              /* # */
  95     /*  36 */   ED_INSERT,              /* $ */
  96     /*  37 */   ED_INSERT,              /* % */
  97     /*  38 */   ED_INSERT,              /* & */
  98     /*  39 */   ED_INSERT,              /* ' */
  99     /*  40 */   ED_INSERT,              /* ( */
 100     /*  41 */   ED_INSERT,              /* ) */
 101     /*  42 */   ED_INSERT,              /* * */
 102     /*  43 */   ED_INSERT,              /* + */
 103     /*  44 */   ED_INSERT,              /* , */
 104     /*  45 */   ED_INSERT,              /* - */
 105     /*  46 */   ED_INSERT,              /* . */
 106     /*  47 */   ED_INSERT,              /* / */
 107     /*  48 */   ED_DIGIT,               /* 0 */
 108     /*  49 */   ED_DIGIT,               /* 1 */
 109     /*  50 */   ED_DIGIT,               /* 2 */
 110     /*  51 */   ED_DIGIT,               /* 3 */
 111     /*  52 */   ED_DIGIT,               /* 4 */
 112     /*  53 */   ED_DIGIT,               /* 5 */
 113     /*  54 */   ED_DIGIT,               /* 6 */
 114     /*  55 */   ED_DIGIT,               /* 7 */
 115     /*  56 */   ED_DIGIT,               /* 8 */
 116     /*  57 */   ED_DIGIT,               /* 9 */
 117     /*  58 */   ED_INSERT,              /* : */
 118     /*  59 */   ED_INSERT,              /* ; */
 119     /*  60 */   ED_INSERT,              /* < */
 120     /*  61 */   ED_INSERT,              /* = */
 121     /*  62 */   ED_INSERT,              /* > */
 122     /*  63 */   ED_INSERT,              /* ? */
 123     /*  64 */   ED_INSERT,              /* @ */
 124     /*  65 */   ED_INSERT,              /* A */
 125     /*  66 */   ED_INSERT,              /* B */
 126     /*  67 */   ED_INSERT,              /* C */
 127     /*  68 */   ED_INSERT,              /* D */
 128     /*  69 */   ED_INSERT,              /* E */
 129     /*  70 */   ED_INSERT,              /* F */
 130     /*  71 */   ED_INSERT,              /* G */
 131     /*  72 */   ED_INSERT,              /* H */
 132     /*  73 */   ED_INSERT,              /* I */
 133     /*  74 */   ED_INSERT,              /* J */
 134     /*  75 */   ED_INSERT,              /* K */
 135     /*  76 */   ED_INSERT,              /* L */
 136     /*  77 */   ED_INSERT,              /* M */
 137     /*  78 */   ED_INSERT,              /* N */
 138     /*  79 */   ED_INSERT,              /* O */
 139     /*  80 */   ED_INSERT,              /* P */
 140     /*  81 */   ED_INSERT,              /* Q */
 141     /*  82 */   ED_INSERT,              /* R */
 142     /*  83 */   ED_INSERT,              /* S */
 143     /*  84 */   ED_INSERT,              /* T */
 144     /*  85 */   ED_INSERT,              /* U */
 145     /*  86 */   ED_INSERT,              /* V */
 146     /*  87 */   ED_INSERT,              /* W */
 147     /*  88 */   ED_INSERT,              /* X */
 148     /*  89 */   ED_INSERT,              /* Y */
 149     /*  90 */   ED_INSERT,              /* Z */
 150     /*  91 */   ED_INSERT,              /* [ */
 151     /*  92 */   ED_INSERT,              /* \ */
 152     /*  93 */   ED_INSERT,              /* ] */
 153     /*  94 */   ED_INSERT,              /* ^ */
 154     /*  95 */   ED_INSERT,              /* _ */
 155     /*  96 */   ED_INSERT,              /* ` */
 156     /*  97 */   ED_INSERT,              /* a */
 157     /*  98 */   ED_INSERT,              /* b */
 158     /*  99 */   ED_INSERT,              /* c */
 159     /* 100 */   ED_INSERT,              /* d */
 160     /* 101 */   ED_INSERT,              /* e */
 161     /* 102 */   ED_INSERT,              /* f */
 162     /* 103 */   ED_INSERT,              /* g */
 163     /* 104 */   ED_INSERT,              /* h */
 164     /* 105 */   ED_INSERT,              /* i */
 165     /* 106 */   ED_INSERT,              /* j */
 166     /* 107 */   ED_INSERT,              /* k */
 167     /* 108 */   ED_INSERT,              /* l */
 168     /* 109 */   ED_INSERT,              /* m */
 169     /* 110 */   ED_INSERT,              /* n */
 170     /* 111 */   ED_INSERT,              /* o */
 171     /* 112 */   ED_INSERT,              /* p */
 172     /* 113 */   ED_INSERT,              /* q */
 173     /* 114 */   ED_INSERT,              /* r */
 174     /* 115 */   ED_INSERT,              /* s */
 175     /* 116 */   ED_INSERT,              /* t */
 176     /* 117 */   ED_INSERT,              /* u */
 177     /* 118 */   ED_INSERT,              /* v */
 178     /* 119 */   ED_INSERT,              /* w */
 179     /* 120 */   ED_INSERT,              /* x */
 180     /* 121 */   ED_INSERT,              /* y */
 181     /* 122 */   ED_INSERT,              /* z */
 182     /* 123 */   ED_INSERT,              /* { */
 183     /* 124 */   ED_INSERT,              /* | */
 184     /* 125 */   ED_INSERT,              /* } */
 185     /* 126 */   ED_INSERT,              /* ~ */
 186     /* 127 */   ED_DELETE_PREV_CHAR,    /* ^? */
 187     /* 128 */   ED_UNASSIGNED,          /* M-^@ */
 188     /* 129 */   ED_UNASSIGNED,          /* M-^A */
 189     /* 130 */   ED_UNASSIGNED,          /* M-^B */
 190     /* 131 */   ED_UNASSIGNED,          /* M-^C */
 191     /* 132 */   ED_UNASSIGNED,          /* M-^D */
 192     /* 133 */   ED_UNASSIGNED,          /* M-^E */
 193     /* 134 */   ED_UNASSIGNED,          /* M-^F */
 194     /* 135 */   ED_UNASSIGNED,          /* M-^G */
 195     /* 136 */   ED_DELETE_PREV_WORD,    /* M-^H */
 196     /* 137 */   ED_UNASSIGNED,          /* M-^I */
 197     /* 138 */   ED_UNASSIGNED,          /* M-^J */
 198     /* 139 */   ED_UNASSIGNED,          /* M-^K */
 199     /* 140 */   ED_CLEAR_SCREEN,                /* M-^L */
 200     /* 141 */   ED_UNASSIGNED,          /* M-^M */
 201     /* 142 */   ED_UNASSIGNED,          /* M-^N */
 202     /* 143 */   ED_UNASSIGNED,          /* M-^O */
 203     /* 144 */   ED_UNASSIGNED,          /* M-^P */
 204     /* 145 */   ED_UNASSIGNED,          /* M-^Q */
 205     /* 146 */   ED_UNASSIGNED,          /* M-^R */
 206     /* 147 */   ED_UNASSIGNED,          /* M-^S */
 207     /* 148 */   ED_UNASSIGNED,          /* M-^T */
 208     /* 149 */   ED_UNASSIGNED,          /* M-^U */
 209     /* 150 */   ED_UNASSIGNED,          /* M-^V */
 210     /* 151 */   ED_UNASSIGNED,          /* M-^W */
 211     /* 152 */   ED_UNASSIGNED,          /* M-^X */
 212     /* 153 */   ED_UNASSIGNED,          /* M-^Y */
 213     /* 154 */   ED_UNASSIGNED,          /* M-^Z */
 214     /* 155 */   ED_UNASSIGNED,          /* M-^[ */
 215     /* 156 */   ED_UNASSIGNED,          /* M-^\ */
 216     /* 157 */   ED_UNASSIGNED,          /* M-^] */
 217     /* 158 */   ED_UNASSIGNED,          /* M-^^ */
 218     /* 159 */   EM_COPY_PREV_WORD,      /* M-^_ */
 219     /* 160 */   ED_UNASSIGNED,          /* M-SPACE */
 220     /* 161 */   ED_UNASSIGNED,          /* M-! */
 221     /* 162 */   ED_UNASSIGNED,          /* M-" */
 222     /* 163 */   ED_UNASSIGNED,          /* M-# */
 223     /* 164 */   ED_UNASSIGNED,          /* M-$ */
 224     /* 165 */   ED_UNASSIGNED,          /* M-% */
 225     /* 166 */   ED_UNASSIGNED,          /* M-& */
 226     /* 167 */   ED_UNASSIGNED,          /* M-' */
 227     /* 168 */   ED_UNASSIGNED,          /* M-( */
 228     /* 169 */   ED_UNASSIGNED,          /* M-) */
 229     /* 170 */   ED_UNASSIGNED,          /* M-* */
 230     /* 171 */   ED_UNASSIGNED,          /* M-+ */
 231     /* 172 */   ED_UNASSIGNED,          /* M-, */
 232     /* 173 */   ED_UNASSIGNED,          /* M-- */
 233     /* 174 */   ED_UNASSIGNED,          /* M-. */
 234     /* 175 */   ED_UNASSIGNED,          /* M-/ */
 235     /* 176 */   ED_ARGUMENT_DIGIT,      /* M-0 */
 236     /* 177 */   ED_ARGUMENT_DIGIT,      /* M-1 */
 237     /* 178 */   ED_ARGUMENT_DIGIT,      /* M-2 */
 238     /* 179 */   ED_ARGUMENT_DIGIT,      /* M-3 */
 239     /* 180 */   ED_ARGUMENT_DIGIT,      /* M-4 */
 240     /* 181 */   ED_ARGUMENT_DIGIT,      /* M-5 */
 241     /* 182 */   ED_ARGUMENT_DIGIT,      /* M-6 */
 242     /* 183 */   ED_ARGUMENT_DIGIT,      /* M-7 */
 243     /* 184 */   ED_ARGUMENT_DIGIT,      /* M-8 */
 244     /* 185 */   ED_ARGUMENT_DIGIT,      /* M-9 */
 245     /* 186 */   ED_UNASSIGNED,          /* M-: */
 246     /* 187 */   ED_UNASSIGNED,          /* M-; */
 247     /* 188 */   ED_UNASSIGNED,          /* M-< */
 248     /* 189 */   ED_UNASSIGNED,          /* M-= */
 249     /* 190 */   ED_UNASSIGNED,          /* M-> */
 250     /* 191 */   ED_UNASSIGNED,          /* M-? */
 251     /* 192 */   ED_UNASSIGNED,          /* M-@ */
 252     /* 193 */   ED_UNASSIGNED,          /* M-A */
 253     /* 194 */   ED_PREV_WORD,           /* M-B */
 254     /* 195 */   EM_CAPITOL_CASE,                /* M-C */
 255     /* 196 */   EM_DELETE_NEXT_WORD,    /* M-D */
 256     /* 197 */   ED_UNASSIGNED,          /* M-E */
 257     /* 198 */   EM_NEXT_WORD,           /* M-F */
 258     /* 199 */   ED_UNASSIGNED,          /* M-G */
 259     /* 200 */   ED_UNASSIGNED,          /* M-H */
 260     /* 201 */   ED_UNASSIGNED,          /* M-I */
 261     /* 202 */   ED_UNASSIGNED,          /* M-J */
 262     /* 203 */   ED_UNASSIGNED,          /* M-K */
 263     /* 204 */   EM_LOWER_CASE,          /* M-L */
 264     /* 205 */   ED_UNASSIGNED,          /* M-M */
 265     /* 206 */   ED_SEARCH_NEXT_HISTORY, /* M-N */
 266     /* 207 */   ED_SEQUENCE_LEAD_IN,    /* M-O */
 267     /* 208 */   ED_SEARCH_PREV_HISTORY, /* M-P */
 268     /* 209 */   ED_UNASSIGNED,          /* M-Q */
 269     /* 210 */   ED_UNASSIGNED,          /* M-R */
 270     /* 211 */   ED_UNASSIGNED,          /* M-S */
 271     /* 212 */   ED_UNASSIGNED,          /* M-T */
 272     /* 213 */   EM_UPPER_CASE,          /* M-U */
 273     /* 214 */   ED_UNASSIGNED,          /* M-V */
 274     /* 215 */   EM_COPY_REGION,         /* M-W */
 275     /* 216 */   ED_COMMAND,             /* M-X */
 276     /* 217 */   ED_UNASSIGNED,          /* M-Y */
 277     /* 218 */   ED_UNASSIGNED,          /* M-Z */
 278     /* 219 */   ED_SEQUENCE_LEAD_IN,    /* M-[ */
 279     /* 220 */   ED_UNASSIGNED,          /* M-\ */
 280     /* 221 */   ED_UNASSIGNED,          /* M-] */
 281     /* 222 */   ED_UNASSIGNED,          /* M-^ */
 282     /* 223 */   ED_UNASSIGNED,          /* M-_ */
 283     /* 223 */   ED_UNASSIGNED,          /* M-` */
 284     /* 224 */   ED_UNASSIGNED,          /* M-a */
 285     /* 225 */   ED_PREV_WORD,           /* M-b */
 286     /* 226 */   EM_CAPITOL_CASE,        /* M-c */
 287     /* 227 */   EM_DELETE_NEXT_WORD,    /* M-d */
 288     /* 228 */   ED_UNASSIGNED,          /* M-e */
 289     /* 229 */   EM_NEXT_WORD,           /* M-f */
 290     /* 230 */   ED_UNASSIGNED,          /* M-g */
 291     /* 231 */   ED_UNASSIGNED,          /* M-h */
 292     /* 232 */   ED_UNASSIGNED,          /* M-i */
 293     /* 233 */   ED_UNASSIGNED,          /* M-j */
 294     /* 234 */   ED_UNASSIGNED,          /* M-k */
 295     /* 235 */   EM_LOWER_CASE,          /* M-l */
 296     /* 236 */   ED_UNASSIGNED,          /* M-m */
 297     /* 237 */   ED_SEARCH_NEXT_HISTORY, /* M-n */
 298     /* 238 */   ED_UNASSIGNED,          /* M-o */
 299     /* 239 */   ED_SEARCH_PREV_HISTORY, /* M-p */
 300     /* 240 */   ED_UNASSIGNED,          /* M-q */
 301     /* 241 */   ED_UNASSIGNED,          /* M-r */
 302     /* 242 */   ED_UNASSIGNED,          /* M-s */
 303     /* 243 */   ED_UNASSIGNED,          /* M-t */
 304     /* 244 */   EM_UPPER_CASE,          /* M-u */
 305     /* 245 */   ED_UNASSIGNED,          /* M-v */
 306     /* 246 */   EM_COPY_REGION,         /* M-w */
 307     /* 247 */   ED_COMMAND,             /* M-x */
 308     /* 248 */   ED_UNASSIGNED,          /* M-y */
 309     /* 249 */   ED_UNASSIGNED,          /* M-z */
 310     /* 250 */   ED_UNASSIGNED,          /* M-{ */
 311     /* 251 */   ED_UNASSIGNED,          /* M-| */
 312     /* 252 */   ED_UNASSIGNED,          /* M-} */
 313     /* 253 */   ED_UNASSIGNED,          /* M-~ */
 314     /* 254 */   ED_DELETE_PREV_WORD             /* M-^? */
 315     /* 255 */
 316 };
 317
 318 /*
 319  * keymap table for vi.  Each index into above tbl; should be
 320  * N_KEYS entries long.  Vi mode uses a sticky-extend to do command mode:
 321  * insert mode characters are in the normal keymap, and command mode
 322  * in the extended keymap.
 323  */
 324 private el_action_t  el_map_vi_insert[] = {
 325 #ifdef KSHVI
 326     /*   0 */   ED_UNASSIGNED,          /* ^@ */
 327     /*   1 */   ED_INSERT,              /* ^A */
 328     /*   2 */   ED_INSERT,              /* ^B */
 329     /*   3 */   ED_INSERT,              /* ^C */
 330     /*   4 */   VI_LIST_OR_EOF,         /* ^D */
 331     /*   5 */   ED_INSERT,              /* ^E */
 332     /*   6 */   ED_INSERT,              /* ^F */
 333     /*   7 */   ED_INSERT,              /* ^G */
 334     /*   8 */   VI_DELETE_PREV_CHAR,    /* ^H */   /* BackSpace key */
 335     /*   9 */   ED_INSERT,              /* ^I */   /* Tab Key  */
 336     /*  10 */   ED_NEWLINE,             /* ^J */
 337     /*  11 */   ED_INSERT,              /* ^K */
 338     /*  12 */   ED_INSERT,              /* ^L */
 339     /*  13 */   ED_NEWLINE,             /* ^M */
 340     /*  14 */   ED_INSERT,              /* ^N */
 341     /*  15 */   ED_INSERT,              /* ^O */
 342     /*  16 */   ED_INSERT,              /* ^P */
 343     /*  17 */   ED_TTY_START_OUTPUT,    /* ^Q */
 344     /*  18 */   ED_INSERT,              /* ^R */
 345     /*  19 */   ED_TTY_STOP_OUTPUT,     /* ^S */
 346     /*  20 */   ED_INSERT,              /* ^T */
 347     /*  21 */   VI_KILL_LINE_PREV,      /* ^U */
 348     /*  22 */   ED_QUOTED_INSERT,       /* ^V */
 349     /*  23 */   ED_DELETE_PREV_WORD,    /* ^W */  /* Only until strt edit pos */
 350     /*  24 */   ED_INSERT,              /* ^X */
 351     /*  25 */   ED_INSERT,              /* ^Y */
 352     /*  26 */   ED_INSERT,              /* ^Z */
 353     /*  27 */   VI_COMMAND_MODE,        /* ^[ */  /* [ Esc ] key */
 354     /*  28 */   ED_TTY_SIGQUIT,         /* ^\ */
 355     /*  29 */   ED_INSERT,              /* ^] */
 356     /*  30 */   ED_INSERT,              /* ^^ */
 357     /*  31 */   ED_INSERT,              /* ^_ */
 358 #else /* !KSHVI */
 359     /*   0 */   ED_UNASSIGNED,          /* ^@ */   /* NOTE: These mappings do */
 360     /*   1 */   ED_MOVE_TO_BEG,         /* ^A */   /* NOT Correspond well to  */
 361     /*   2 */   ED_PREV_CHAR,           /* ^B */   /* the KSH VI editing as-  */
 362     /*   3 */   ED_TTY_SIGINT,          /* ^C */   /* signments. On the other */
 363     /*   4 */   VI_LIST_OR_EOF,         /* ^D */   /* hand they are convenient*/
 364     /*   5 */   ED_MOVE_TO_END,         /* ^E */   /* and many people have    */
 365     /*   6 */   ED_NEXT_CHAR,           /* ^F */   /* have gotten used to them*/
 366     /*   7 */   ED_UNASSIGNED,          /* ^G */
 367     /*   8 */   ED_DELETE_PREV_CHAR,    /* ^H */   /* BackSpace key */
 368     /*   9 */   ED_UNASSIGNED,          /* ^I */   /* Tab Key */
 369     /*  10 */   ED_NEWLINE,             /* ^J */
 370     /*  11 */   ED_KILL_LINE,           /* ^K */
 371     /*  12 */   ED_CLEAR_SCREEN,        /* ^L */
 372     /*  13 */   ED_NEWLINE,             /* ^M */
 373     /*  14 */   ED_NEXT_HISTORY,        /* ^N */
 374     /*  15 */   ED_TTY_FLUSH_OUTPUT,    /* ^O */
 375     /*  16 */   ED_PREV_HISTORY,        /* ^P */
 376     /*  17 */   ED_TTY_START_OUTPUT,    /* ^Q */
 377     /*  18 */   ED_REDISPLAY,           /* ^R */
 378     /*  19 */   ED_TTY_STOP_OUTPUT,     /* ^S */
 379     /*  20 */   ED_TRANSPOSE_CHARS,     /* ^T */
 380     /*  21 */   VI_KILL_LINE_PREV,      /* ^U */
 381     /*  22 */   ED_QUOTED_INSERT,       /* ^V */
 382     /*  23 */   ED_DELETE_PREV_WORD,    /* ^W */
 383     /*  24 */   ED_UNASSIGNED,          /* ^X */
 384     /*  25 */   ED_TTY_DSUSP,           /* ^Y */
 385     /*  26 */   ED_TTY_SIGTSTP,         /* ^Z */
 386     /*  27 */   VI_COMMAND_MODE,        /* ^[ */
 387     /*  28 */   ED_TTY_SIGQUIT,         /* ^\ */
 388     /*  29 */   ED_UNASSIGNED,          /* ^] */
 389     /*  30 */   ED_UNASSIGNED,          /* ^^ */
 390     /*  31 */   ED_UNASSIGNED,          /* ^_ */
 391 #endif  /* KSHVI */
 392     /*  32 */   ED_INSERT,              /* SPACE */
 393     /*  33 */   ED_INSERT,              /* ! */
 394     /*  34 */   ED_INSERT,              /* " */
 395     /*  35 */   ED_INSERT,              /* # */
 396     /*  36 */   ED_INSERT,              /* $ */
 397     /*  37 */   ED_INSERT,              /* % */
 398     /*  38 */   ED_INSERT,              /* & */
 399     /*  39 */   ED_INSERT,              /* ' */
 400     /*  40 */   ED_INSERT,              /* ( */
 401     /*  41 */   ED_INSERT,              /* ) */
 402     /*  42 */   ED_INSERT,              /* * */
 403     /*  43 */   ED_INSERT,              /* + */
 404     /*  44 */   ED_INSERT,              /* , */
 405     /*  45 */   ED_INSERT,              /* - */
 406     /*  46 */   ED_INSERT,              /* . */
 407     /*  47 */   ED_INSERT,              /* / */
 408     /*  48 */   ED_INSERT,              /* 0 */
 409     /*  49 */   ED_INSERT,              /* 1 */
 410     /*  50 */   ED_INSERT,              /* 2 */
 411     /*  51 */   ED_INSERT,              /* 3 */
 412     /*  52 */   ED_INSERT,              /* 4 */
 413     /*  53 */   ED_INSERT,              /* 5 */
 414     /*  54 */   ED_INSERT,              /* 6 */
 415     /*  55 */   ED_INSERT,              /* 7 */
 416     /*  56 */   ED_INSERT,              /* 8 */
 417     /*  57 */   ED_INSERT,              /* 9 */
 418     /*  58 */   ED_INSERT,              /* : */
 419     /*  59 */   ED_INSERT,              /* ; */
 420     /*  60 */   ED_INSERT,              /* < */
 421     /*  61 */   ED_INSERT,              /* = */
 422     /*  62 */   ED_INSERT,              /* > */
 423     /*  63 */   ED_INSERT,              /* ? */
 424     /*  64 */   ED_INSERT,              /* @ */
 425     /*  65 */   ED_INSERT,              /* A */
 426     /*  66 */   ED_INSERT,              /* B */
 427     /*  67 */   ED_INSERT,              /* C */
 428     /*  68 */   ED_INSERT,              /* D */
 429     /*  69 */   ED_INSERT,              /* E */
 430     /*  70 */   ED_INSERT,              /* F */
 431     /*  71 */   ED_INSERT,              /* G */
 432     /*  72 */   ED_INSERT,              /* H */
 433     /*  73 */   ED_INSERT,              /* I */
 434     /*  74 */   ED_INSERT,              /* J */
 435     /*  75 */   ED_INSERT,              /* K */
 436     /*  76 */   ED_INSERT,              /* L */
 437     /*  77 */   ED_INSERT,              /* M */
 438     /*  78 */   ED_INSERT,              /* N */
 439     /*  79 */   ED_INSERT,              /* O */
 440     /*  80 */   ED_INSERT,              /* P */
 441     /*  81 */   ED_INSERT,              /* Q */
 442     /*  82 */   ED_INSERT,              /* R */
 443     /*  83 */   ED_INSERT,              /* S */
 444     /*  84 */   ED_INSERT,              /* T */
 445     /*  85 */   ED_INSERT,              /* U */
 446     /*  86 */   ED_INSERT,              /* V */
 447     /*  87 */   ED_INSERT,              /* W */
 448     /*  88 */   ED_INSERT,              /* X */
 449     /*  89 */   ED_INSERT,              /* Y */
 450     /*  90 */   ED_INSERT,              /* Z */
 451     /*  91 */   ED_INSERT,              /* [ */
 452     /*  92 */   ED_INSERT,              /* \ */
 453     /*  93 */   ED_INSERT,              /* ] */
 454     /*  94 */   ED_INSERT,              /* ^ */
 455     /*  95 */   ED_INSERT,              /* _ */
 456     /*  96 */   ED_INSERT,              /* ` */
 457     /*  97 */   ED_INSERT,              /* a */
 458     /*  98 */   ED_INSERT,              /* b */
 459     /*  99 */   ED_INSERT,              /* c */
 460     /* 100 */   ED_INSERT,              /* d */
 461     /* 101 */   ED_INSERT,              /* e */
 462     /* 102 */   ED_INSERT,              /* f */
 463     /* 103 */   ED_INSERT,              /* g */
 464     /* 104 */   ED_INSERT,              /* h */
 465     /* 105 */   ED_INSERT,              /* i */
 466     /* 106 */   ED_INSERT,              /* j */
 467     /* 107 */   ED_INSERT,              /* k */
 468     /* 108 */   ED_INSERT,              /* l */
 469     /* 109 */   ED_INSERT,              /* m */
 470     /* 110 */   ED_INSERT,              /* n */
 471     /* 111 */   ED_INSERT,              /* o */
 472     /* 112 */   ED_INSERT,              /* p */
 473     /* 113 */   ED_INSERT,              /* q */
 474     /* 114 */   ED_INSERT,              /* r */
 475     /* 115 */   ED_INSERT,              /* s */
 476     /* 116 */   ED_INSERT,              /* t */
 477     /* 117 */   ED_INSERT,              /* u */
 478     /* 118 */   ED_INSERT,              /* v */
 479     /* 119 */   ED_INSERT,              /* w */
 480     /* 120 */   ED_INSERT,              /* x */
 481     /* 121 */   ED_INSERT,              /* y */
 482     /* 122 */   ED_INSERT,              /* z */
 483     /* 123 */   ED_INSERT,              /* { */
 484     /* 124 */   ED_INSERT,              /* | */
 485     /* 125 */   ED_INSERT,              /* } */
 486     /* 126 */   ED_INSERT,              /* ~ */
 487     /* 127 */   ED_DELETE_PREV_CHAR,    /* ^? */
 488     /* 128 */   ED_UNASSIGNED,          /* M-^@ */
 489     /* 129 */   ED_UNASSIGNED,          /* M-^A */
 490     /* 130 */   ED_UNASSIGNED,          /* M-^B */
 491     /* 131 */   ED_UNASSIGNED,          /* M-^C */
 492     /* 132 */   ED_UNASSIGNED,          /* M-^D */
 493     /* 133 */   ED_UNASSIGNED,          /* M-^E */
 494     /* 134 */   ED_UNASSIGNED,          /* M-^F */
 495     /* 135 */   ED_UNASSIGNED,          /* M-^G */
 496     /* 136 */   ED_UNASSIGNED,          /* M-^H */
 497     /* 137 */   ED_UNASSIGNED,          /* M-^I */
 498     /* 138 */   ED_UNASSIGNED,          /* M-^J */
 499     /* 139 */   ED_UNASSIGNED,          /* M-^K */
 500     /* 140 */   ED_UNASSIGNED,          /* M-^L */
 501     /* 141 */   ED_UNASSIGNED,          /* M-^M */
 502     /* 142 */   ED_UNASSIGNED,          /* M-^N */
 503     /* 143 */   ED_UNASSIGNED,          /* M-^O */
 504     /* 144 */   ED_UNASSIGNED,          /* M-^P */
 505     /* 145 */   ED_UNASSIGNED,          /* M-^Q */
 506     /* 146 */   ED_UNASSIGNED,          /* M-^R */
 507     /* 147 */   ED_UNASSIGNED,          /* M-^S */
 508     /* 148 */   ED_UNASSIGNED,          /* M-^T */
 509     /* 149 */   ED_UNASSIGNED,          /* M-^U */
 510     /* 150 */   ED_UNASSIGNED,          /* M-^V */
 511     /* 151 */   ED_UNASSIGNED,          /* M-^W */
 512     /* 152 */   ED_UNASSIGNED,          /* M-^X */
 513     /* 153 */   ED_UNASSIGNED,          /* M-^Y */
 514     /* 154 */   ED_UNASSIGNED,          /* M-^Z */
 515     /* 155 */   ED_UNASSIGNED,          /* M-^[ */
 516     /* 156 */   ED_UNASSIGNED,          /* M-^\ */
 517     /* 157 */   ED_UNASSIGNED,          /* M-^] */
 518     /* 158 */   ED_UNASSIGNED,          /* M-^^ */
 519     /* 159 */   ED_UNASSIGNED,          /* M-^_ */
 520     /* 160 */   ED_UNASSIGNED,          /* M-SPACE */
 521     /* 161 */   ED_UNASSIGNED,          /* M-! */
 522     /* 162 */   ED_UNASSIGNED,          /* M-" */
 523     /* 163 */   ED_UNASSIGNED,          /* M-# */
 524     /* 164 */   ED_UNASSIGNED,          /* M-$ */
 525     /* 165 */   ED_UNASSIGNED,          /* M-% */
 526     /* 166 */   ED_UNASSIGNED,          /* M-& */
 527     /* 167 */   ED_UNASSIGNED,          /* M-' */
 528     /* 168 */   ED_UNASSIGNED,          /* M-( */
 529     /* 169 */   ED_UNASSIGNED,          /* M-) */
 530     /* 170 */   ED_UNASSIGNED,          /* M-* */
 531     /* 171 */   ED_UNASSIGNED,          /* M-+ */
 532     /* 172 */   ED_UNASSIGNED,          /* M-, */
 533     /* 173 */   ED_UNASSIGNED,          /* M-- */
 534     /* 174 */   ED_UNASSIGNED,          /* M-. */
 535     /* 175 */   ED_UNASSIGNED,          /* M-/ */
 536     /* 176 */   ED_UNASSIGNED,          /* M-0 */
 537     /* 177 */   ED_UNASSIGNED,          /* M-1 */
 538     /* 178 */   ED_UNASSIGNED,          /* M-2 */
 539     /* 179 */   ED_UNASSIGNED,          /* M-3 */
 540     /* 180 */   ED_UNASSIGNED,          /* M-4 */
 541     /* 181 */   ED_UNASSIGNED,          /* M-5 */
 542     /* 182 */   ED_UNASSIGNED,          /* M-6 */
 543     /* 183 */   ED_UNASSIGNED,          /* M-7 */
 544     /* 184 */   ED_UNASSIGNED,          /* M-8 */
 545     /* 185 */   ED_UNASSIGNED,          /* M-9 */
 546     /* 186 */   ED_UNASSIGNED,          /* M-: */
 547     /* 187 */   ED_UNASSIGNED,          /* M-; */
 548     /* 188 */   ED_UNASSIGNED,          /* M-< */
 549     /* 189 */   ED_UNASSIGNED,          /* M-= */
 550     /* 190 */   ED_UNASSIGNED,          /* M-> */
 551     /* 191 */   ED_UNASSIGNED,          /* M-? */
 552     /* 192 */   ED_UNASSIGNED,          /* M-@ */
 553     /* 193 */   ED_UNASSIGNED,          /* M-A */
 554     /* 194 */   ED_UNASSIGNED,          /* M-B */
 555     /* 195 */   ED_UNASSIGNED,          /* M-C */
 556     /* 196 */   ED_UNASSIGNED,          /* M-D */
 557     /* 197 */   ED_UNASSIGNED,          /* M-E */
 558     /* 198 */   ED_UNASSIGNED,          /* M-F */
 559     /* 199 */   ED_UNASSIGNED,          /* M-G */
 560     /* 200 */   ED_UNASSIGNED,          /* M-H */
 561     /* 201 */   ED_UNASSIGNED,          /* M-I */
 562     /* 202 */   ED_UNASSIGNED,          /* M-J */
 563     /* 203 */   ED_UNASSIGNED,          /* M-K */
 564     /* 204 */   ED_UNASSIGNED,          /* M-L */
 565     /* 205 */   ED_UNASSIGNED,          /* M-M */
 566     /* 206 */   ED_UNASSIGNED,          /* M-N */
 567     /* 207 */   ED_UNASSIGNED,          /* M-O */
 568     /* 208 */   ED_UNASSIGNED,          /* M-P */
 569     /* 209 */   ED_UNASSIGNED,          /* M-Q */
 570     /* 210 */   ED_UNASSIGNED,          /* M-R */
 571     /* 211 */   ED_UNASSIGNED,          /* M-S */
 572     /* 212 */   ED_UNASSIGNED,          /* M-T */
 573     /* 213 */   ED_UNASSIGNED,          /* M-U */
 574     /* 214 */   ED_UNASSIGNED,          /* M-V */
 575     /* 215 */   ED_UNASSIGNED,          /* M-W */
 576     /* 216 */   ED_UNASSIGNED,          /* M-X */
 577     /* 217 */   ED_UNASSIGNED,          /* M-Y */
 578     /* 218 */   ED_UNASSIGNED,          /* M-Z */
 579     /* 219 */   ED_UNASSIGNED,          /* M-[ */
 580     /* 220 */   ED_UNASSIGNED,          /* M-\ */
 581     /* 221 */   ED_UNASSIGNED,          /* M-] */
 582     /* 222 */   ED_UNASSIGNED,          /* M-^ */
 583     /* 223 */   ED_UNASSIGNED,          /* M-_ */
 584     /* 224 */   ED_UNASSIGNED,          /* M-` */
 585     /* 225 */   ED_UNASSIGNED,          /* M-a */
 586     /* 226 */   ED_UNASSIGNED,          /* M-b */
 587     /* 227 */   ED_UNASSIGNED,          /* M-c */
 588     /* 228 */   ED_UNASSIGNED,          /* M-d */
 589     /* 229 */   ED_UNASSIGNED,          /* M-e */
 590     /* 230 */   ED_UNASSIGNED,          /* M-f */
 591     /* 231 */   ED_UNASSIGNED,          /* M-g */
 592     /* 232 */   ED_UNASSIGNED,          /* M-h */
 593     /* 233 */   ED_UNASSIGNED,          /* M-i */
 594     /* 234 */   ED_UNASSIGNED,          /* M-j */
 595     /* 235 */   ED_UNASSIGNED,          /* M-k */
 596     /* 236 */   ED_UNASSIGNED,          /* M-l */
 597     /* 237 */   ED_UNASSIGNED,          /* M-m */
 598     /* 238 */   ED_UNASSIGNED,          /* M-n */
 599     /* 239 */   ED_UNASSIGNED,          /* M-o */
 600     /* 240 */   ED_UNASSIGNED,          /* M-p */
 601     /* 241 */   ED_UNASSIGNED,          /* M-q */
 602     /* 242 */   ED_UNASSIGNED,          /* M-r */
 603     /* 243 */   ED_UNASSIGNED,          /* M-s */
 604     /* 244 */   ED_UNASSIGNED,          /* M-t */
 605     /* 245 */   ED_UNASSIGNED,          /* M-u */
 606     /* 246 */   ED_UNASSIGNED,          /* M-v */
 607     /* 247 */   ED_UNASSIGNED,          /* M-w */
 608     /* 248 */   ED_UNASSIGNED,          /* M-x */
 609     /* 249 */   ED_UNASSIGNED,          /* M-y */
 610     /* 250 */   ED_UNASSIGNED,          /* M-z */
 611     /* 251 */   ED_UNASSIGNED,          /* M-{ */
 612     /* 252 */   ED_UNASSIGNED,          /* M-| */
 613     /* 253 */   ED_UNASSIGNED,          /* M-} */
 614     /* 254 */   ED_UNASSIGNED,          /* M-~ */
 615     /* 255 */   ED_UNASSIGNED           /* M-^? */
 616 };
 617
 618 private el_action_t  el_map_vi_command[] = {
 619     /*   0 */   ED_UNASSIGNED,          /* ^@ */
 620     /*   1 */   ED_MOVE_TO_BEG,         /* ^A */
 621     /*   2 */   ED_UNASSIGNED,          /* ^B */
 622     /*   3 */   ED_TTY_SIGINT,          /* ^C */
 623     /*   4 */   ED_UNASSIGNED,          /* ^D */
 624     /*   5 */   ED_MOVE_TO_END,         /* ^E */
 625     /*   6 */   ED_UNASSIGNED,          /* ^F */
 626     /*   7 */   ED_UNASSIGNED,          /* ^G */
 627     /*   8 */   ED_PREV_CHAR,           /* ^H */
 628     /*   9 */   ED_UNASSIGNED,          /* ^I */
 629     /*  10 */   ED_NEWLINE,             /* ^J */
 630     /*  11 */   ED_KILL_LINE,           /* ^K */
 631     /*  12 */   ED_CLEAR_SCREEN,        /* ^L */
 632     /*  13 */   ED_NEWLINE,             /* ^M */
 633     /*  14 */   ED_NEXT_HISTORY,        /* ^N */
 634     /*  15 */   ED_TTY_FLUSH_OUTPUT,    /* ^O */
 635     /*  16 */   ED_PREV_HISTORY,        /* ^P */
 636     /*  17 */   ED_TTY_START_OUTPUT,    /* ^Q */
 637     /*  18 */   ED_REDISPLAY,           /* ^R */
 638     /*  19 */   ED_TTY_STOP_OUTPUT,     /* ^S */
 639     /*  20 */   ED_UNASSIGNED,          /* ^T */
 640     /*  21 */   VI_KILL_LINE_PREV,      /* ^U */
 641     /*  22 */   ED_UNASSIGNED,          /* ^V */
 642     /*  23 */   ED_DELETE_PREV_WORD,    /* ^W */
 643     /*  24 */   ED_UNASSIGNED,          /* ^X */
 644     /*  25 */   ED_UNASSIGNED,          /* ^Y */
 645     /*  26 */   ED_UNASSIGNED,          /* ^Z */
 646     /*  27 */   EM_META_NEXT,           /* ^[ */
 647     /*  28 */   ED_TTY_SIGQUIT,         /* ^\ */
 648     /*  29 */   ED_UNASSIGNED,          /* ^] */
 649     /*  30 */   ED_UNASSIGNED,          /* ^^ */
 650     /*  31 */   ED_UNASSIGNED,          /* ^_ */
 651     /*  32 */   ED_NEXT_CHAR,           /* SPACE */
 652     /*  33 */   ED_UNASSIGNED,          /* ! */
 653     /*  34 */   ED_UNASSIGNED,          /* " */
 654     /*  35 */   ED_UNASSIGNED,          /* # */
 655     /*  36 */   ED_MOVE_TO_END,         /* $ */
 656     /*  37 */   ED_UNASSIGNED,          /* % */
 657     /*  38 */   ED_UNASSIGNED,          /* & */
 658     /*  39 */   ED_UNASSIGNED,          /* ' */
 659     /*  40 */   ED_UNASSIGNED,          /* ( */
 660     /*  41 */   ED_UNASSIGNED,          /* ) */
 661     /*  42 */   ED_UNASSIGNED,          /* * */
 662     /*  43 */   ED_NEXT_HISTORY,        /* + */
 663     /*  44 */   VI_REPEAT_PREV_CHAR,    /* , */
 664     /*  45 */   ED_PREV_HISTORY,        /* - */
 665     /*  46 */   ED_UNASSIGNED,          /* . */
 666     /*  47 */   VI_SEARCH_PREV,         /* / */
 667     /*  48 */   VI_ZERO,                /* 0 */
 668     /*  49 */   ED_ARGUMENT_DIGIT,      /* 1 */
 669     /*  50 */   ED_ARGUMENT_DIGIT,      /* 2 */
 670     /*  51 */   ED_ARGUMENT_DIGIT,      /* 3 */
 671     /*  52 */   ED_ARGUMENT_DIGIT,      /* 4 */
 672     /*  53 */   ED_ARGUMENT_DIGIT,      /* 5 */
 673     /*  54 */   ED_ARGUMENT_DIGIT,      /* 6 */
 674     /*  55 */   ED_ARGUMENT_DIGIT,      /* 7 */
 675     /*  56 */   ED_ARGUMENT_DIGIT,      /* 8 */
 676     /*  57 */   ED_ARGUMENT_DIGIT,      /* 9 */
 677     /*  58 */   ED_COMMAND,             /* : */
 678     /*  59 */   VI_REPEAT_NEXT_CHAR,    /* ; */
 679     /*  60 */   ED_UNASSIGNED,          /* < */
 680     /*  61 */   ED_UNASSIGNED,          /* = */
 681     /*  62 */   ED_UNASSIGNED,          /* > */
 682     /*  63 */   VI_SEARCH_NEXT,         /* ? */
 683     /*  64 */   ED_UNASSIGNED,          /* @ */
 684     /*  65 */   VI_ADD_AT_EOL,          /* A */
 685     /*  66 */   VI_PREV_SPACE_WORD,     /* B */
 686     /*  67 */   VI_CHANGE_TO_EOL,       /* C */
 687     /*  68 */   ED_KILL_LINE,           /* D */
 688     /*  69 */   VI_TO_END_WORD,         /* E */
 689     /*  70 */   VI_PREV_CHAR,           /* F */
 690     /*  71 */   ED_UNASSIGNED,          /* G */
 691     /*  72 */   ED_UNASSIGNED,          /* H */
 692     /*  73 */   VI_INSERT_AT_BOL,       /* I */
 693     /*  74 */   ED_SEARCH_NEXT_HISTORY, /* J */
 694     /*  75 */   ED_SEARCH_PREV_HISTORY, /* K */
 695     /*  76 */   ED_UNASSIGNED,          /* L */
 696     /*  77 */   ED_UNASSIGNED,          /* M */
 697     /*  78 */   VI_REPEAT_SEARCH_PREV,  /* N */
 698     /*  79 */   ED_SEQUENCE_LEAD_IN,    /* O */
 699     /*  80 */   VI_PASTE_PREV,          /* P */
 700     /*  81 */   ED_UNASSIGNED,          /* Q */
 701     /*  82 */   VI_REPLACE_MODE,        /* R */
 702     /*  83 */   VI_SUBSTITUTE_LINE,     /* S */
 703     /*  84 */   VI_TO_PREV_CHAR,        /* T */
 704     /*  85 */   VI_UNDO_LINE,           /* U */
 705     /*  86 */   ED_UNASSIGNED,          /* V */
 706     /*  87 */   VI_NEXT_SPACE_WORD,     /* W */
 707     /*  88 */   ED_DELETE_PREV_CHAR,    /* X */
 708     /*  89 */   ED_UNASSIGNED,          /* Y */
 709     /*  90 */   ED_UNASSIGNED,          /* Z */
 710     /*  91 */   ED_SEQUENCE_LEAD_IN,    /* [ */
 711     /*  92 */   ED_UNASSIGNED,          /* \ */
 712     /*  93 */   ED_UNASSIGNED,          /* ] */
 713     /*  94 */   ED_MOVE_TO_BEG,         /* ^ */
 714     /*  95 */   ED_UNASSIGNED,          /* _ */
 715     /*  96 */   ED_UNASSIGNED,          /* ` */
 716     /*  97 */   VI_ADD,                 /* a */
 717     /*  98 */   VI_PREV_WORD,           /* b */
 718     /*  99 */   VI_CHANGE_META,         /* c */
 719     /* 100 */   VI_DELETE_META,         /* d */
 720     /* 101 */   VI_END_WORD,            /* e */
 721     /* 102 */   VI_NEXT_CHAR,           /* f */
 722     /* 103 */   ED_UNASSIGNED,          /* g */
 723     /* 104 */   ED_PREV_CHAR,           /* h */
 724     /* 105 */   VI_INSERT,              /* i */
 725     /* 106 */   ED_NEXT_HISTORY,        /* j */
 726     /* 107 */   ED_PREV_HISTORY,        /* k */
 727     /* 108 */   ED_NEXT_CHAR,           /* l */
 728     /* 109 */   ED_UNASSIGNED,          /* m */
 729     /* 110 */   VI_REPEAT_SEARCH_NEXT,  /* n */
 730     /* 111 */   ED_UNASSIGNED,          /* o */
 731     /* 112 */   VI_PASTE_NEXT,          /* p */
 732     /* 113 */   ED_UNASSIGNED,          /* q */
 733     /* 114 */   VI_REPLACE_CHAR,        /* r */
 734     /* 115 */   VI_SUBSTITUTE_CHAR,     /* s */
 735     /* 116 */   VI_TO_NEXT_CHAR,        /* t */
 736     /* 117 */   VI_UNDO,                /* u */
 737     /* 118 */   ED_UNASSIGNED,          /* v */
 738     /* 119 */   VI_NEXT_WORD,           /* w */
 739     /* 120 */   ED_DELETE_NEXT_CHAR,    /* x */
 740     /* 121 */   ED_UNASSIGNED,          /* y */
 741     /* 122 */   ED_UNASSIGNED,          /* z */
 742     /* 123 */   ED_UNASSIGNED,          /* { */
 743     /* 124 */   ED_UNASSIGNED,          /* | */
 744     /* 125 */   ED_UNASSIGNED,          /* } */
 745     /* 126 */   VI_CHANGE_CASE,         /* ~ */
 746     /* 127 */   ED_DELETE_PREV_CHAR,    /* ^? */
 747     /* 128 */   ED_UNASSIGNED,          /* M-^@ */
 748     /* 129 */   ED_UNASSIGNED,          /* M-^A */
 749     /* 130 */   ED_UNASSIGNED,          /* M-^B */
 750     /* 131 */   ED_UNASSIGNED,          /* M-^C */
 751     /* 132 */   ED_UNASSIGNED,          /* M-^D */
 752     /* 133 */   ED_UNASSIGNED,          /* M-^E */
 753     /* 134 */   ED_UNASSIGNED,          /* M-^F */
 754     /* 135 */   ED_UNASSIGNED,          /* M-^G */
 755     /* 136 */   ED_UNASSIGNED,          /* M-^H */
 756     /* 137 */   ED_UNASSIGNED,          /* M-^I */
 757     /* 138 */   ED_UNASSIGNED,          /* M-^J */
 758     /* 139 */   ED_UNASSIGNED,          /* M-^K */
 759     /* 140 */   ED_UNASSIGNED,          /* M-^L */
 760     /* 141 */   ED_UNASSIGNED,          /* M-^M */
 761     /* 142 */   ED_UNASSIGNED,          /* M-^N */
 762     /* 143 */   ED_UNASSIGNED,          /* M-^O */
 763     /* 144 */   ED_UNASSIGNED,          /* M-^P */
 764     /* 145 */   ED_UNASSIGNED,          /* M-^Q */
 765     /* 146 */   ED_UNASSIGNED,          /* M-^R */
 766     /* 147 */   ED_UNASSIGNED,          /* M-^S */
 767     /* 148 */   ED_UNASSIGNED,          /* M-^T */
 768     /* 149 */   ED_UNASSIGNED,          /* M-^U */
 769     /* 150 */   ED_UNASSIGNED,          /* M-^V */
 770     /* 151 */   ED_UNASSIGNED,          /* M-^W */
 771     /* 152 */   ED_UNASSIGNED,          /* M-^X */
 772     /* 153 */   ED_UNASSIGNED,          /* M-^Y */
 773     /* 154 */   ED_UNASSIGNED,          /* M-^Z */
 774     /* 155 */   ED_UNASSIGNED,          /* M-^[ */
 775     /* 156 */   ED_UNASSIGNED,          /* M-^\ */
 776     /* 157 */   ED_UNASSIGNED,          /* M-^] */
 777     /* 158 */   ED_UNASSIGNED,          /* M-^^ */
 778     /* 159 */   ED_UNASSIGNED,          /* M-^_ */
 779     /* 160 */   ED_UNASSIGNED,          /* M-SPACE */
 780     /* 161 */   ED_UNASSIGNED,          /* M-! */
 781     /* 162 */   ED_UNASSIGNED,          /* M-" */
 782     /* 163 */   ED_UNASSIGNED,          /* M-# */
 783     /* 164 */   ED_UNASSIGNED,          /* M-$ */
 784     /* 165 */   ED_UNASSIGNED,          /* M-% */
 785     /* 166 */   ED_UNASSIGNED,          /* M-& */
 786     /* 167 */   ED_UNASSIGNED,          /* M-' */
 787     /* 168 */   ED_UNASSIGNED,          /* M-( */
 788     /* 169 */   ED_UNASSIGNED,          /* M-) */
 789     /* 170 */   ED_UNASSIGNED,          /* M-* */
 790     /* 171 */   ED_UNASSIGNED,          /* M-+ */
 791     /* 172 */   ED_UNASSIGNED,          /* M-, */
 792     /* 173 */   ED_UNASSIGNED,          /* M-- */
 793     /* 174 */   ED_UNASSIGNED,          /* M-. */
 794     /* 175 */   ED_UNASSIGNED,          /* M-/ */
 795     /* 176 */   ED_UNASSIGNED,          /* M-0 */
 796     /* 177 */   ED_UNASSIGNED,          /* M-1 */
 797     /* 178 */   ED_UNASSIGNED,          /* M-2 */
 798     /* 179 */   ED_UNASSIGNED,          /* M-3 */
 799     /* 180 */   ED_UNASSIGNED,          /* M-4 */
 800     /* 181 */   ED_UNASSIGNED,          /* M-5 */
 801     /* 182 */   ED_UNASSIGNED,          /* M-6 */
 802     /* 183 */   ED_UNASSIGNED,          /* M-7 */
 803     /* 184 */   ED_UNASSIGNED,          /* M-8 */
 804     /* 185 */   ED_UNASSIGNED,          /* M-9 */
 805     /* 186 */   ED_UNASSIGNED,          /* M-: */
 806     /* 187 */   ED_UNASSIGNED,          /* M-; */
 807     /* 188 */   ED_UNASSIGNED,          /* M-< */
 808     /* 189 */   ED_UNASSIGNED,          /* M-= */
 809     /* 190 */   ED_UNASSIGNED,          /* M-> */
 810     /* 191 */   ED_UNASSIGNED,          /* M-? */
 811     /* 192 */   ED_UNASSIGNED,          /* M-@ */
 812     /* 193 */   ED_UNASSIGNED,          /* M-A */
 813     /* 194 */   ED_UNASSIGNED,          /* M-B */
 814     /* 195 */   ED_UNASSIGNED,          /* M-C */
 815     /* 196 */   ED_UNASSIGNED,          /* M-D */
 816     /* 197 */   ED_UNASSIGNED,          /* M-E */
 817     /* 198 */   ED_UNASSIGNED,          /* M-F */
 818     /* 199 */   ED_UNASSIGNED,          /* M-G */
 819     /* 200 */   ED_UNASSIGNED,          /* M-H */
 820     /* 201 */   ED_UNASSIGNED,          /* M-I */
 821     /* 202 */   ED_UNASSIGNED,          /* M-J */
 822     /* 203 */   ED_UNASSIGNED,          /* M-K */
 823     /* 204 */   ED_UNASSIGNED,          /* M-L */
 824     /* 205 */   ED_UNASSIGNED,          /* M-M */
 825     /* 206 */   ED_UNASSIGNED,          /* M-N */
 826     /* 207 */   ED_SEQUENCE_LEAD_IN,    /* M-O */
 827     /* 208 */   ED_UNASSIGNED,          /* M-P */
 828     /* 209 */   ED_UNASSIGNED,          /* M-Q */
 829     /* 210 */   ED_UNASSIGNED,          /* M-R */
 830     /* 211 */   ED_UNASSIGNED,          /* M-S */
 831     /* 212 */   ED_UNASSIGNED,          /* M-T */
 832     /* 213 */   ED_UNASSIGNED,          /* M-U */
 833     /* 214 */   ED_UNASSIGNED,          /* M-V */
 834     /* 215 */   ED_UNASSIGNED,          /* M-W */
 835     /* 216 */   ED_UNASSIGNED,          /* M-X */
 836     /* 217 */   ED_UNASSIGNED,          /* M-Y */
 837     /* 218 */   ED_UNASSIGNED,          /* M-Z */
 838     /* 219 */   ED_SEQUENCE_LEAD_IN,    /* M-[ */
 839     /* 220 */   ED_UNASSIGNED,          /* M-\ */
 840     /* 221 */   ED_UNASSIGNED,          /* M-] */
 841     /* 222 */   ED_UNASSIGNED,          /* M-^ */
 842     /* 223 */   ED_UNASSIGNED,          /* M-_ */
 843     /* 224 */   ED_UNASSIGNED,          /* M-` */
 844     /* 225 */   ED_UNASSIGNED,          /* M-a */
 845     /* 226 */   ED_UNASSIGNED,          /* M-b */
 846     /* 227 */   ED_UNASSIGNED,          /* M-c */
 847     /* 228 */   ED_UNASSIGNED,          /* M-d */
 848     /* 229 */   ED_UNASSIGNED,          /* M-e */
 849     /* 230 */   ED_UNASSIGNED,          /* M-f */
 850     /* 231 */   ED_UNASSIGNED,          /* M-g */
 851     /* 232 */   ED_UNASSIGNED,          /* M-h */
 852     /* 233 */   ED_UNASSIGNED,          /* M-i */
 853     /* 234 */   ED_UNASSIGNED,          /* M-j */
 854     /* 235 */   ED_UNASSIGNED,          /* M-k */
 855     /* 236 */   ED_UNASSIGNED,          /* M-l */
 856     /* 237 */   ED_UNASSIGNED,          /* M-m */
 857     /* 238 */   ED_UNASSIGNED,          /* M-n */
 858     /* 239 */   ED_UNASSIGNED,          /* M-o */
 859     /* 240 */   ED_UNASSIGNED,          /* M-p */
 860     /* 241 */   ED_UNASSIGNED,          /* M-q */
 861     /* 242 */   ED_UNASSIGNED,          /* M-r */
 862     /* 243 */   ED_UNASSIGNED,          /* M-s */
 863     /* 244 */   ED_UNASSIGNED,          /* M-t */
 864     /* 245 */   ED_UNASSIGNED,          /* M-u */
 865     /* 246 */   ED_UNASSIGNED,          /* M-v */
 866     /* 247 */   ED_UNASSIGNED,          /* M-w */
 867     /* 248 */   ED_UNASSIGNED,          /* M-x */
 868     /* 249 */   ED_UNASSIGNED,          /* M-y */
 869     /* 250 */   ED_UNASSIGNED,          /* M-z */
 870     /* 251 */   ED_UNASSIGNED,          /* M-{ */
 871     /* 252 */   ED_UNASSIGNED,          /* M-| */
 872     /* 253 */   ED_UNASSIGNED,          /* M-} */
 873     /* 254 */   ED_UNASSIGNED,          /* M-~ */
 874     /* 255 */   ED_UNASSIGNED           /* M-^? */
 875 };
 876
 877
 878 /* map_init():
 879  *      Initialize and allocate the maps
 880  */
 881 protected int
 882 map_init(el)
 883     EditLine *el;
 884 {
 885
 886     /*
 887      * Make sure those are correct before starting.
 888      */
 889 #ifdef MAP_DEBUG
 890     if (sizeof(el_map_emacs)      != N_KEYS * sizeof(el_action_t))
 891         abort();
 892     if (sizeof(el_map_vi_command) != N_KEYS * sizeof(el_action_t))
 893         abort();
 894     if (sizeof(el_map_vi_insert)  != N_KEYS * sizeof(el_action_t))
 895         abort();
 896 #endif
 897
 898     el->el_map.alt   = (el_action_t *) el_malloc(sizeof(el_action_t) * N_KEYS);
 899     el->el_map.key   = (el_action_t *) el_malloc(sizeof(el_action_t) * N_KEYS);
 900     el->el_map.emacs = el_map_emacs;
 901     el->el_map.vic   = el_map_vi_command;
 902     el->el_map.vii   = el_map_vi_insert;
 903     el->el_map.help  = (el_bindings_t *) el_malloc(sizeof(el_bindings_t) *
 904                                                    EL_NUM_FCNS);
 905     (void) memcpy(el->el_map.help, help__get(),
 906                   sizeof(el_bindings_t) * EL_NUM_FCNS);
 907     el->el_map.func  = (el_func_t *) el_malloc(sizeof(el_func_t) * EL_NUM_FCNS);
 908     memcpy(el->el_map.func, func__get(), sizeof(el_func_t) * EL_NUM_FCNS);
 909     el->el_map.nfunc = EL_NUM_FCNS;
 910
 911 #ifdef VIDEFAULT
 912     map_init_vi(el);
 913 #else
 914     map_init_emacs(el);
 915 #endif /* VIDEFAULT */
 916     return 0;
 917 }
 918
 919
 920 /* map_end():
 921  *      Free the space taken by the editor maps
 922  */
 923 protected void
 924 map_end(el)
 925     EditLine *el;
 926 {
 927     el_free((ptr_t) el->el_map.alt);
 928     el->el_map.alt   = NULL;
 929     el_free((ptr_t) el->el_map.key);
 930     el->el_map.key   = NULL;
 931     el->el_map.emacs = NULL;
 932     el->el_map.vic   = NULL;
 933     el->el_map.vii   = NULL;
 934     el_free((ptr_t) el->el_map.help);
 935     el->el_map.help  = NULL;
 936     el_free((ptr_t) el->el_map.func);
 937     el->el_map.func  = NULL;
 938 }
 939
 940
 941 /* map_init_nls():
 942  *      Find all the printable keys and bind them to self insert
 943  */
 944 private void
 945 map_init_nls(el)
 946     EditLine *el;
 947 {
 948     int i;
 949     el_action_t *map = el->el_map.key;
 950
 951     for (i = 0200; i <= 0377; i++)
 952         if (isprint(i))
 953             map[i] = ED_INSERT;
 954 }
 955
 956
 957 /* map_init_meta():
 958  *      Bind all the meta keys to the appropriate ESC-<key> sequence
 959  */
 960 private void
 961 map_init_meta(el)
 962     EditLine *el;
 963 {
 964     char    buf[3];
 965     register int i;
 966     el_action_t *map = el->el_map.key;
 967     el_action_t *alt = el->el_map.alt;
 968
 969     for (i = 0; i <= 0377 && map[i] != EM_META_NEXT; i++)
 970         continue;
 971
 972     if (i > 0377) {
 973         for (i = 0; i <= 0377 && alt[i] != EM_META_NEXT; i++)
 974             continue;
 975         if (i > 0377) {
 976             i = 033;
 977             if (el->el_map.type == MAP_VI)
 978                 map = alt;
 979         }
 980         else
 981             map = alt;
 982     }
 983     buf[0] = (char) i;
 984     buf[2] = 0;
 985     for (i = 0200; i <= 0377; i++)
 986         switch (map[i]) {
 987         case ED_INSERT:
 988         case ED_UNASSIGNED:
 989         case ED_SEQUENCE_LEAD_IN:
 990             break;
 991         default:
 992             buf[1] = i & 0177;
 993             key_add(el, buf, key_map_cmd(el, (int) map[i]), XK_CMD);
 994             break;
 995         }
 996     map[buf[0]] = ED_SEQUENCE_LEAD_IN;
 997 }
 998
 999
1000 /* map_init_vi():
1001  *      Initialize the vi bindings
1002  */
1003 protected void
1004 map_init_vi(el)
1005     EditLine *el;
1006 {
1007     register int i;
1008     el_action_t *key = el->el_map.key;
1009     el_action_t *alt = el->el_map.alt;
1010     el_action_t *vii = el->el_map.vii;
1011     el_action_t *vic = el->el_map.vic;
1012
1013     el->el_map.type = MAP_VI;
1014     el->el_map.current = el->el_map.key;
1015
1016     key_reset(el);
1017
1018     for (i = 0; i < N_KEYS; i++) {
1019         key[i] = vii[i];
1020         alt[i] = vic[i];
1021     }
1022
1023     map_init_meta(el);
1024 #ifdef notyet
1025     if (0 /* XXX: USER has set LC_CTYPE */)
1026         map_init_nls(el);
1027 #endif
1028
1029     tty_bind_char(el, 1);
1030     term_bind_arrow(el);
1031 }
1032
1033
1034 /* map_init_emacs():
1035  *      Initialize the emacs bindings
1036  */
1037 protected void
1038 map_init_emacs(el)
1039     EditLine *el;
1040 {
1041     int i;
1042     char    buf[3];
1043     el_action_t *key   = el->el_map.key;
1044     el_action_t *alt   = el->el_map.alt;
1045     el_action_t *emacs = el->el_map.emacs;
1046
1047     el->el_map.type = MAP_EMACS;
1048     el->el_map.current = el->el_map.key;
1049     key_reset(el);
1050
1051     for (i = 0; i < N_KEYS; i++) {
1052         key[i] = emacs[i];
1053         alt[i] = ED_UNASSIGNED;
1054     }
1055
1056     map_init_meta(el);
1057 #ifdef notyet
1058     if (0 /* XXX: USER has set LC_CTYPE */)
1059         map_init_nls(el);
1060 #endif
1061     map_init_nls(el);
1062
1063     buf[0] = CONTROL('X');
1064     buf[1] = CONTROL('X');
1065     buf[2] = 0;
1066     key_add(el, buf, key_map_cmd(el, EM_EXCHANGE_MARK), XK_CMD);
1067
1068     tty_bind_char(el, 1);
1069     term_bind_arrow(el);
1070 }
1071
1072
1073 /* map_set_editor():
1074  *      Set the editor
1075  */
1076 protected int
1077 map_set_editor(el, editor)
1078     EditLine *el;
1079     char *editor;
1080 {
1081     if (strcmp(editor, "emacs") == 0) {
1082         map_init_emacs(el);
1083         return 0;
1084     }
1085     if (strcmp(editor, "vi") == 0) {
1086         map_init_vi(el);
1087         return 0;
1088     }
1089     return -1;
1090 }
1091
1092
1093 /* map_print_key():
1094  *      Print the function description for 1 key
1095  */
1096 private void
1097 map_print_key(el, map, in)
1098     EditLine *el;
1099     el_action_t *map;
1100     char *in;
1101 {
1102     char outbuf[EL_BUFSIZ];
1103     el_bindings_t *bp;
1104
1105     if (in[0] == '\0' || in[1] == '\0') {
1106         (void) key__decode_str(in, outbuf, "");
1107         for (bp = el->el_map.help; bp->name != NULL; bp++)
1108             if (bp->func == map[(unsigned char) *in]) {
1109                 (void) fprintf(el->el_outfile,
1110                                "%s\t->\t%s\n", outbuf, bp->name);
1111                 return;
1112             }
1113     }
1114     else
1115         key_print(el, in);
1116 }
1117
1118
1119 /* map_print_some_keys():
1120  *      Print keys from first to last
1121  */
1122 private void
1123 map_print_some_keys(el, map, first, last)
1124     EditLine *el;
1125     el_action_t *map;
1126     int     first, last;
1127 {
1128     el_bindings_t *bp;
1129     char    firstbuf[2], lastbuf[2];
1130     char unparsbuf[EL_BUFSIZ], extrabuf[EL_BUFSIZ];
1131
1132     firstbuf[0] = first;
1133     firstbuf[1] = 0;
1134     lastbuf[0] = last;
1135     lastbuf[1] = 0;
1136     if (map[first] == ED_UNASSIGNED) {
1137         if (first == last)
1138             (void) fprintf(el->el_outfile, "%-15s->  is undefined\n",
1139                     key__decode_str(firstbuf, unparsbuf, STRQQ));
1140         return;
1141     }
1142
1143     for (bp = el->el_map.help; bp->name != NULL; bp++) {
1144         if (bp->func == map[first]) {
1145             if (first == last) {
1146                 (void) fprintf(el->el_outfile, "%-15s->  %s\n",
1147                                key__decode_str(firstbuf, unparsbuf, STRQQ),
1148                                bp->name);
1149             }
1150             else {
1151                 (void) fprintf(el->el_outfile, "%-4s to %-7s->  %s\n",
1152                                key__decode_str(firstbuf, unparsbuf, STRQQ),
1153                                key__decode_str(lastbuf, extrabuf, STRQQ),
1154                                bp->name);
1155             }
1156             return;
1157         }
1158     }
1159 #ifdef MAP_DEBUG
1160     if (map == el->el_map.key) {
1161         (void) fprintf(el->el_outfile, "BUG!!! %s isn't bound to anything.\n",
1162                        key__decode_str(firstbuf, unparsbuf, STRQQ));
1163         (void) fprintf(el->el_outfile, "el->el_map.key[%d] == %d\n",
1164                        first, el->el_map.key[first]);
1165     }
1166     else {
1167         (void) fprintf(el->el_outfile, "BUG!!! %s isn't bound to anything.\n",
1168                        key__decode_str(firstbuf, unparsbuf, STRQQ));
1169         (void) fprintf(el->el_outfile, "el->el_map.alt[%d] == %d\n",
1170                        first, el->el_map.alt[first]);
1171     }
1172 #endif
1173     abort();
1174 }
1175
1176
1177 /* map_print_all_keys():
1178  *      Print the function description for all keys.
1179  */
1180 private void
1181 map_print_all_keys(el)
1182     EditLine *el;
1183 {
1184     int     prev, i;
1185
1186     (void) fprintf(el->el_outfile, "Standard key bindings\n");
1187     prev = 0;
1188     for (i = 0; i < N_KEYS; i++) {
1189         if (el->el_map.key[prev] == el->el_map.key[i])
1190             continue;
1191         map_print_some_keys(el, el->el_map.key, prev, i - 1);
1192         prev = i;
1193     }
1194     map_print_some_keys(el, el->el_map.key, prev, i - 1);
1195
1196     (void) fprintf(el->el_outfile, "Alternative key bindings\n");
1197     prev = 0;
1198     for (i = 0; i < N_KEYS; i++) {
1199         if (el->el_map.alt[prev] == el->el_map.alt[i])
1200             continue;
1201         map_print_some_keys(el, el->el_map.alt, prev, i - 1);
1202         prev = i;
1203     }
1204     map_print_some_keys(el, el->el_map.alt, prev, i - 1);
1205
1206     (void) fprintf(el->el_outfile, "Multi-character bindings\n");
1207     key_print(el, "");
1208     (void) fprintf(el->el_outfile, "Arrow key bindings\n");
1209     term_print_arrow(el, "");
1210 }
1211
1212
1213 /* map_bind():
1214  *      Add/remove/change bindings
1215  */
1216 protected int
1217 map_bind(el, argc, argv)
1218     EditLine *el;
1219     int argc;
1220     char **argv;
1221 {
1222     el_action_t *map;
1223     int     ntype, remove;
1224     char   *p;
1225     char    inbuf[EL_BUFSIZ];
1226     char    outbuf[EL_BUFSIZ];
1227     char   *in = NULL;
1228     char   *out = NULL;
1229     el_bindings_t *bp;
1230     int     cmd;
1231     int     key;
1232
1233     if (argv == NULL)
1234         return -1;
1235
1236     map = el->el_map.key;
1237     ntype = XK_CMD;
1238     key = remove = 0;
1239     for (argc = 1; (p = argv[argc]) != NULL; argc++)
1240         if (p[0] == '-')
1241             switch (p[1]) {
1242             case 'a':
1243                 map = el->el_map.alt;
1244                 break;
1245
1246             case 's':
1247                 ntype = XK_STR;
1248                 break;
1249 #ifdef notyet
1250             case 'c':
1251                 ntype = XK_EXE;
1252                 break;
1253 #endif
1254             case 'k':
1255                 key = 1;
1256                 break;
1257
1258             case 'r':
1259                 remove = 1;
1260                 break;
1261
1262             case 'v':
1263                 map_init_vi(el);
1264                 return 0;
1265
1266             case 'e':
1267                 map_init_emacs(el);
1268                 return 0;
1269
1270             case 'l':
1271                 for (bp = el->el_map.help; bp->name != NULL; bp++)
1272                     (void) fprintf(el->el_outfile, "%s\n\t%s\n",
1273                                    bp->name, bp->description);
1274                 return 0;
1275             default:
1276                 (void) fprintf(el->el_errfile, "%s: Invalid switch `%c'.\n",
1277                                argv[0], p[1]);
1278             }
1279         else
1280             break;
1281
1282     if (argv[argc] == NULL) {
1283         map_print_all_keys(el);
1284         return 0;
1285     }
1286
1287     if (key)
1288         in = argv[argc++];
1289     else
1290         if ((in = parse__string(inbuf, argv[argc++])) == NULL) {
1291             (void) fprintf(el->el_errfile, "%s: Invalid \\ or ^ in instring.\n",
1292                            argv[0]);
1293             return -1;
1294         }
1295
1296     if (remove) {
1297         if (key) {
1298             (void) term_clear_arrow(el, in);
1299             return -1;
1300         }
1301         if (in[1])
1302             (void) key_delete(el, in);
1303         else if (map[(unsigned char) *in] == ED_SEQUENCE_LEAD_IN)
1304             (void) key_delete(el, in);
1305         else
1306             map[(unsigned char) *in] = ED_UNASSIGNED;
1307         return 0;
1308     }
1309
1310     if (argv[argc] == NULL) {
1311         if (key)
1312             term_print_arrow(el, in);
1313         else
1314             map_print_key(el, map, in);
1315         return 0;
1316     }
1317
1318 #ifdef notyet
1319     if (argv[argc + 1] != NULL) {
1320         bindkey_usage();
1321         return -1;
1322     }
1323 #endif
1324
1325     switch (ntype) {
1326     case XK_STR:
1327     case XK_EXE:
1328         if ((out = parse__string(outbuf, argv[argc])) == NULL) {
1329             (void) fprintf(el->el_errfile,
1330                            "%s: Invalid \\ or ^ in outstring.\n", argv[0]);
1331             return -1;
1332         }
1333         if (key)
1334             term_set_arrow(el, in, key_map_str(el, out), ntype);
1335         else
1336             key_add(el, in, key_map_str(el, out), ntype);
1337         map[(unsigned char) *in] = ED_SEQUENCE_LEAD_IN;
1338         break;
1339
1340     case XK_CMD:
1341         if ((cmd = parse_cmd(el, argv[argc])) == -1) {
1342             (void) fprintf(el->el_errfile,
1343                            "%s: Invalid command `%s'.\n", argv[0], argv[argc]);
1344             return -1;
1345         }
1346         if (key)
1347             term_set_arrow(el, in, key_map_str(el, out), ntype);
1348         else {
1349             if (in[1]) {
1350                 key_add(el, in, key_map_cmd(el, cmd), ntype);
1351                 map[(unsigned char) *in] = ED_SEQUENCE_LEAD_IN;
1352             }
1353             else  {
1354                 key_clear(el, map, in);
1355                 map[(unsigned char) *in] = cmd;
1356             }
1357         }
1358         break;
1359
1360     default:
1361         abort();
1362         break;
1363     }
1364     return 0;
1365 }
1366
1367
1368 /* map_addfunc():
1369  *      add a user defined function
1370  */
1371 protected int
1372 map_addfunc(el, name, help, func)
1373     EditLine *el;
1374     const char *name;
1375     const char *help;
1376     el_func_t func;
1377 {
1378     int nf = el->el_map.nfunc + 2;
1379     if (name == NULL || help == NULL || func == NULL)
1380         return -1;
1381
1382     el->el_map.func = (el_func_t *)
1383                 el_reallocf(el->el_map.func, nf * sizeof(el_func_t));
1384     el->el_map.help = (el_bindings_t *)
1385                 el_reallocf(el->el_map.help, nf * sizeof(el_bindings_t));
1386
1387     nf = el->el_map.nfunc;
1388     el->el_map.func[nf] = func;
1389
1390     el->el_map.help[nf].name = name;
1391     el->el_map.help[nf].func = nf;
1392     el->el_map.help[nf].description = help;
1393     el->el_map.help[++nf].name = NULL;
1394     el->el_map.nfunc++;
1395
1396     return 0;
1397 }