4 /*-
62     uChar   ch;  in dobindkey()  local
72 	 par != NULL && (*par++ & CHAR) == '-'; no++, par = v[no]) {  in dobindkey()
73 	if ((p = (*par & CHAR)) == '-') {  in dobindkey()
149     ch = (uChar) in.buf[0];  in dobindkey()
157 	else if (map[ch] == F_XKEY) {  in dobindkey()
159 	    map[ch] = F_UNASSIGNED;  in dobindkey()
162 	    map[ch] = F_UNASSIGNED;  in dobindkey()
189 	    if (SetArrowKeys(&in, XmapStr(&out), ntype) == -1)  in dobindkey()
196 	map[ch] = F_XKEY;  in dobindkey()
208 		map[ch] = F_XKEY;  in dobindkey()
212 		map[ch] = cmd;  in dobindkey()
230     if (in->len < 2) {  in printkey()
235 	for (fp = FuncNames; fp->name; fp++) {  in printkey()
236 	    if (fp->func == map[(uChar) *(in->buf)]) {  in printkey()
237 		xprintf("%s\t->\t%s\n", unparsed, fp->name);  in printkey()
251     for (fp = FuncNames; fp->name; fp++) {  in parsecmd()
252 	if (strcmp(short2str(str), fp->name) == 0) {  in parsecmd()
253 	    return (KEYCMD) fp->func;  in parsecmd()
296 	if (s[1] != '-' || s[2] == '\0')  in parsebind()
299 	switch (s[-2]) {  in parsebind()
362     str->buf = xrealloc(b.s, (b.len + 1) * sizeof (*str->buf));  in parsebind()
363     str->len = b.len;  in parsebind()
400     buf->buf = xrealloc(b.s, (b.len + 1) * sizeof (*buf->buf));  in parsestring()
401     buf->len = b.len;  in parsestring()
419 	printkeys(CcKeyMap, prev, i - 1);  in print_all_keys()
422     printkeys(CcKeyMap, prev, i - 1);  in print_all_keys()
429 	printkeys(CcAltMap, prev, i - 1);  in print_all_keys()
432     printkeys(CcAltMap, prev, i - 1);  in print_all_keys()
433     xprintf("%s", CGETS(20, 8, "Multi-character bindings\n"));  in print_all_keys()
460 	    xprintf(CGETS(20, 10, "%-15s->  is undefined\n"), unparsed);  in printkeys()
465     for (fp = FuncNames; fp->name; fp++) {  in printkeys()
466 	if (fp->func == map[first]) {  in printkeys()
468 		xprintf("%-15s->  %s\n", unparsed, fp->name);  in printkeys()
474 		xprintf("%-4s to %-7s->  %s\n", unparsed, p, fp->name);  in printkeys()
492 	    "Usage: bindkey [options] [--] [KEY [COMMAND]]\n"));  in bindkey_usage()
494     	    "    -a   list or bind KEY in alternative key map\n"));  in bindkey_usage()
496 	    "    -b   interpret KEY as a C-, M-, F- or X- key name\n"));  in bindkey_usage()
498             "    -s   interpret COMMAND as a literal string to be output\n"));  in bindkey_usage()
500             "    -c   interpret COMMAND as a builtin or external command\n"));  in bindkey_usage()
502 	    "    -v   bind all keys to vi bindings\n"));  in bindkey_usage()
504 	    "    -e   bind all keys to emacs bindings\n"));  in bindkey_usage()
506 	    "    -d   bind all keys to default editor's bindings (%s)\n"),  in bindkey_usage()
514 	    "    -l   list editor commands with descriptions\n"));  in bindkey_usage()
516 	    "    -r   remove KEY's binding\n"));  in bindkey_usage()
518 	    "    -k   interpret KEY as a symbolic arrow-key name\n"));  in bindkey_usage()
520 	    "    --   force a break from option processing\n"));  in bindkey_usage()
522 	    "    -u   (or any invalid option) this message\n"));  in bindkey_usage()
535     for (fp = FuncNames; fp->name; fp++) {  in list_functions()
536 	xprintf("%s\n          %s\n", fp->name, fp->desc);  in list_functions()