Annotation of src/usr.bin/mg/funmap.c, Revision 1.29
1.29 ! kjell 1: /* $OpenBSD: funmap.c,v 1.28 2008/06/10 00:19:31 kjell Exp $ */
1.28 kjell 2:
3: /* This file is in the public domain */
4:
1.1 art 5: #include "def.h"
6: #include "kbd.h"
7: #include "funmap.h"
8:
9: /*
10: * If the function is NULL, it must be listed with the
11: * same name in the map_table.
12: */
13:
14: struct funmap {
1.6 vincent 15: PF fn_funct;
16: const char *fn_name;
1.1 art 17: struct funmap *fn_next;
18: };
19:
20: static struct funmap *funs;
21:
22: static struct funmap functnames[] = {
23: #ifndef NO_HELP
24: {apropos_command, "apropos",},
25: #endif /* !NO_HELP */
1.11 db 26: {auto_execute, "auto-execute", },
1.1 art 27: {fillmode, "auto-fill-mode",},
28: {indentmode, "auto-indent-mode",},
29: {backchar, "backward-char",},
30: {delbword, "backward-kill-word",},
31: {gotobop, "backward-paragraph",},
32: {backword, "backward-word",},
33: {gotobob, "beginning-of-buffer",},
34: {gotobol, "beginning-of-line",},
35: {blinkparen, "blink-matching-paren",},
36: {showmatch, "blink-matching-paren-hack",},
37: {bsmap, "bsmap-mode",},
38: {NULL, "c-x 4 prefix",},
39: {NULL, "c-x prefix",},
40: #ifndef NO_MACRO
41: {executemacro, "call-last-kbd-macro",},
42: #endif /* !NO_MACRO */
43: {capword, "capitalize-word",},
44: {changedir, "cd",},
1.29 ! kjell 45: {clearmark, "clear-mark",},
1.1 art 46: {copyregion, "copy-region-as-kill",},
47: #ifdef REGEX
48: {cntmatchlines, "count-matches",},
49: {cntnonmatchlines, "count-non-matches",},
50: #endif /* REGEX */
1.22 kjell 51: {redefine_key, "define-key",},
1.1 art 52: {backdel, "delete-backward-char",},
53: {deblank, "delete-blank-lines",},
54: {forwdel, "delete-char",},
55: {delwhite, "delete-horizontal-space",},
56: #ifdef REGEX
57: {delmatchlines, "delete-matching-lines",},
58: {delnonmatchlines, "delete-non-matching-lines",},
59: #endif /* REGEX */
60: {onlywind, "delete-other-windows",},
61: {delwind, "delete-window",},
62: #ifndef NO_HELP
63: {wallchart, "describe-bindings",},
64: {desckey, "describe-key-briefly",},
65: #endif /* !NO_HELP */
66: {digit_argument, "digit-argument",},
67: {lowerregion, "downcase-region",},
68: {lowerword, "downcase-word",},
69: {showversion, "emacs-version",},
70: #ifndef NO_MACRO
71: {finishmacro, "end-kbd-macro",},
72: #endif /* !NO_MACRO */
1.27 kjell 73: {globalwdtoggle, "global-wd-mode",},
1.1 art 74: {gotoeob, "end-of-buffer",},
75: {gotoeol, "end-of-line",},
76: {enlargewind, "enlarge-window",},
77: {NULL, "esc prefix",},
78: #ifndef NO_STARTUP
79: {evalbuffer, "eval-current-buffer",},
80: {evalexpr, "eval-expression",},
81: #endif /* !NO_STARTUP */
82: {swapmark, "exchange-point-and-mark",},
83: {extend, "execute-extended-command",},
84: {fillpara, "fill-paragraph",},
85: {filevisit, "find-file",},
1.8 vincent 86: {filevisitro, "find-file-read-only",},
1.14 jason 87: {filevisitalt, "find-alternate-file",},
1.1 art 88: {poptofile, "find-file-other-window",},
89: {forwchar, "forward-char",},
90: {gotoeop, "forward-paragraph",},
91: {forwword, "forward-word",},
92: {bindtokey, "global-set-key",},
93: {unbindtokey, "global-unset-key",},
94: {gotoline, "goto-line",},
95: #ifndef NO_HELP
96: {help_help, "help-help",},
97: #endif /* !NO_HELP */
98: {insert, "insert",},
99: {bufferinsert, "insert-buffer",},
100: {fileinsert, "insert-file",},
101: {fillword, "insert-with-wrap",},
102: {backisearch, "isearch-backward",},
103: {forwisearch, "isearch-forward",},
104: {justone, "just-one-space",},
105: {ctrlg, "keyboard-quit",},
1.10 jfb 106: {killbuffer_cmd, "kill-buffer",},
1.1 art 107: {killline, "kill-line",},
108: {killpara, "kill-paragraph",},
109: {killregion, "kill-region",},
110: {delfword, "kill-word",},
1.24 kjell 111: {linenotoggle, "line-number-mode",},
1.1 art 112: {listbuffers, "list-buffers",},
113: #ifndef NO_STARTUP
114: {evalfile, "load",},
115: #endif /* !NO_STARTUP */
116: {localbind, "local-set-key",},
117: {localunbind, "local-unset-key",},
118: {makebkfile, "make-backup-files",},
119: {do_meta, "meta-key-mode",}, /* better name, anyone? */
120: {negative_argument, "negative-argument",},
121: {newline, "newline",},
122: {indent, "newline-and-indent",},
123: {forwline, "next-line",},
124: #ifdef NOTAB
125: {notabmode, "no-tab-mode",},
126: #endif /* NOTAB */
127: {notmodified, "not-modified",},
128: {openline, "open-line",},
129: {nextwind, "other-window",},
1.22 kjell 130: {overwrite_mode, "overwrite-mode",},
1.1 art 131: {prefixregion, "prefix-region",},
132: {backline, "previous-line",},
133: {prevwind, "previous-window",},
134: {spawncli, "push-shell",},
135: {showcwdir, "pwd",},
136: {queryrepl, "query-replace",},
1.15 deraadt 137: #ifdef REGEX
1.13 cloder 138: {replstr, "replace-string",},
1.1 art 139: {re_queryrepl, "query-replace-regexp",},
140: #endif /* REGEX */
141: {quote, "quoted-insert",},
142: #ifdef REGEX
143: {re_searchagain, "re-search-again",},
144: {re_backsearch, "re-search-backward",},
145: {re_forwsearch, "re-search-forward",},
146: #endif /* REGEX */
147: {reposition, "recenter",},
1.22 kjell 148: {redraw, "redraw-display",},
1.1 art 149: {filesave, "save-buffer",},
150: {quit, "save-buffers-kill-emacs",},
151: {savebuffers, "save-some-buffers",},
152: {backpage, "scroll-down",},
153: {back1page, "scroll-one-line-down",},
154: {forw1page, "scroll-one-line-up",},
155: {pagenext, "scroll-other-window",},
156: {forwpage, "scroll-up",},
157: {searchagain, "search-again",},
158: {backsearch, "search-backward",},
159: {forwsearch, "search-forward",},
160: {selfinsert, "self-insert-command",},
161: #ifdef REGEX
162: {setcasefold, "set-case-fold-search",},
163: #endif /* REGEX */
164: {set_default_mode, "set-default-mode",},
165: {setfillcol, "set-fill-column",},
166: {setmark, "set-mark-command",},
167: {setprefix, "set-prefix-string",},
168: {shrinkwind, "shrink-window",},
169: #ifdef NOTAB
170: {space_to_tabstop, "space-to-tabstop",},
171: #endif /* NOTAB */
172: {splitwind, "split-window-vertically",},
173: #ifndef NO_MACRO
174: {definemacro, "start-kbd-macro",},
175: #endif /* !NO_MACRO */
176: {spawncli, "suspend-emacs",},
177: {usebuffer, "switch-to-buffer",},
178: {poptobuffer, "switch-to-buffer-other-window",},
1.8 vincent 179: {togglereadonly, "toggle-read-only" },
1.1 art 180: {twiddle, "transpose-chars",},
1.11 db 181: {undo, "undo", },
182: {undo_dump, "undo-list", },
1.1 art 183: {universal_argument, "universal-argument",},
184: {upperregion, "upcase-region",},
185: {upperword, "upcase-word",},
186: {showcpos, "what-cursor-position",},
187: {filewrite, "write-file",},
188: {yank, "yank",},
1.11 db 189: {NULL, NULL,}
1.1 art 190: };
191:
192: void
193: funmap_init(void)
194: {
195: struct funmap *fn;
196:
197: for (fn = functnames; fn->fn_name != NULL; fn++) {
198: fn->fn_next = funs;
199: funs = fn;
200: }
201: }
202:
203: int
1.6 vincent 204: funmap_add(PF fun, const char *fname)
1.1 art 205: {
206: struct funmap *fn;
207:
208: if ((fn = malloc(sizeof(*fn))) == NULL)
1.11 db 209: return (FALSE);
1.1 art 210:
211: fn->fn_funct = fun;
212: fn->fn_name = fname;
213: fn->fn_next = funs;
214:
215: funs = fn;
1.11 db 216: return (TRUE);
1.1 art 217: }
218:
219: /*
220: * Translate from function name to function pointer.
221: */
222: PF
1.6 vincent 223: name_function(const char *fname)
1.1 art 224: {
225: struct funmap *fn;
226:
227: for (fn = funs; fn != NULL; fn = fn->fn_next) {
228: if (strcmp(fn->fn_name, fname) == 0)
1.11 db 229: return (fn->fn_funct);
1.1 art 230: }
1.11 db 231: return (NULL);
1.1 art 232: }
233:
1.6 vincent 234: const char *
1.1 art 235: function_name(PF fun)
236: {
237: struct funmap *fn;
238:
239: for (fn = funs; fn != NULL; fn = fn->fn_next) {
240: if (fn->fn_funct == fun)
1.11 db 241: return (fn->fn_name);
1.1 art 242: }
1.11 db 243: return (NULL);
1.1 art 244: }
245:
246: /*
1.11 db 247: * List possible function name completions.
1.1 art 248: */
1.17 deraadt 249: struct list *
1.12 otto 250: complete_function_list(const char *fname)
1.1 art 251: {
1.11 db 252: struct funmap *fn;
1.23 kjell 253: struct list *head, *el;
1.11 db 254: int len;
1.1 art 255:
256: len = strlen(fname);
257: head = NULL;
258: for (fn = funs; fn != NULL; fn = fn->fn_next) {
259: if (memcmp(fname, fn->fn_name, len) == 0) {
260: if ((el = malloc(sizeof(*el))) == NULL) {
261: free_file_list(head);
1.11 db 262: return (NULL);
1.1 art 263: }
1.23 kjell 264: el->l_name = strdup(fn->fn_name);
1.1 art 265: el->l_next = head;
266: head = el;
267: }
268: }
1.11 db 269: return (head);
1.1 art 270: }