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