4 /*-
23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
55     KEYCMD *map;  in dobindkey()  local
56     int     ntype, no, removeb, key, bindk;  in dobindkey()  local
68     map = CcKeyMap;  in dobindkey()
71     for (no = 1, par = v[no];  in dobindkey()
72 	 par != NULL && (*par++ & CHAR) == '-'; no++, par = v[no]) {  in dobindkey()
73 	if ((p = (*par & CHAR)) == '-') {  in dobindkey()
74 	    no++;  in dobindkey()
86 		map = CcAltMap;  in dobindkey()
119     if (!v[no]) {  in dobindkey()
125 	if (!IsArrowKey(v[no]))  in dobindkey()
126 	    xprintf(CGETS(20, 1, "Invalid key name `%S'\n"), v[no]);  in dobindkey()
127 	in.buf = Strsave(v[no++]);  in dobindkey()
132 	    if (parsebind(v[no++], &in) == NULL)  in dobindkey()
136 	    if (parsestring(v[no++], &in) == NULL)  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()
167     if (!v[no]) {  in dobindkey()
171 	    printkey(map, &in);  in dobindkey()
175     if (v[no + 1]) {  in dobindkey()
183 	if (parsestring(v[no], &out) == NULL) {  in dobindkey()
189 	    if (SetArrowKeys(&in, XmapStr(&out), ntype) == -1)  in dobindkey()
196 	map[ch] = F_XKEY;  in dobindkey()
199 	if ((cmd = parsecmd(v[no])) == 0) {  in dobindkey()
208 		map[ch] = F_XKEY;  in dobindkey()
211 		ClearXkey(map, &in);  in dobindkey()
212 		map[ch] = cmd;  in dobindkey()
226 printkey(const KEYCMD *map, CStr *in)  in printkey()  argument
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()
440 printkeys(KEYCMD *map, int first, int last)  in printkeys()  argument
458     if (map[first] == F_UNASSIGNED) {  in printkeys()
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()
481     if (map == CcKeyMap)  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()