Annotation of src/usr.bin/mg/funmap.c, Revision 1.44
1.44 ! florian 1: /* $OpenBSD: funmap.c,v 1.43 2012/11/27 19:46:46 jasper 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: {apropos_command, "apropos",},
1.42 florian 24: {auto_execute, "auto-execute",},
1.1 art 25: {fillmode, "auto-fill-mode",},
26: {indentmode, "auto-indent-mode",},
1.33 kjell 27: {backtoindent, "back-to-indentation",},
1.40 lum 28: {backuptohomedir, "backup-to-home-directory",},
1.1 art 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",},
1.31 kjell 35: {showmatch, "blink-and-insert",},
1.1 art 36: {bsmap, "bsmap-mode",},
37: {NULL, "c-x 4 prefix",},
38: {NULL, "c-x prefix",},
39: {executemacro, "call-last-kbd-macro",},
40: {capword, "capitalize-word",},
41: {changedir, "cd",},
1.29 kjell 42: {clearmark, "clear-mark",},
1.44 ! florian 43: {colnotoggle, "column-number-mode",},
1.1 art 44: {copyregion, "copy-region-as-kill",},
45: #ifdef REGEX
46: {cntmatchlines, "count-matches",},
47: {cntnonmatchlines, "count-non-matches",},
48: #endif /* REGEX */
1.42 florian 49: {cscreatelist, "cscope-create-list-of-files-to-index",},
50: {csfuncalled, "cscope-find-called-functions",},
51: {csegrep, "cscope-find-egrep-pattern",},
52: {csfindinc, "cscope-find-files-including-file",},
53: {cscallerfuncs, "cscope-find-functions-calling-this-function",},
54: {csdefinition, "cscope-find-global-definition",},
55: {csfindfile, "cscope-find-this-file",},
56: {cssymbol, "cscope-find-this-symbol",},
57: {csfindtext, "cscope-find-this-text-string",},
58: {csnextfile, "cscope-next-file",},
59: {csnextmatch, "cscope-next-symbol",},
60: {csprevfile, "cscope-prev-file",},
61: {csprevmatch, "cscope-prev-symbol",},
1.22 kjell 62: {redefine_key, "define-key",},
1.1 art 63: {backdel, "delete-backward-char",},
64: {deblank, "delete-blank-lines",},
65: {forwdel, "delete-char",},
66: {delwhite, "delete-horizontal-space",},
1.30 kjell 67: {delleadwhite, "delete-leading-space",},
1.1 art 68: #ifdef REGEX
69: {delmatchlines, "delete-matching-lines",},
70: {delnonmatchlines, "delete-non-matching-lines",},
71: #endif /* REGEX */
72: {onlywind, "delete-other-windows",},
1.42 florian 73: {deltrailwhite, "delete-trailing-space",},
1.1 art 74: {delwind, "delete-window",},
75: {wallchart, "describe-bindings",},
76: {desckey, "describe-key-briefly",},
77: {digit_argument, "digit-argument",},
78: {lowerregion, "downcase-region",},
79: {lowerword, "downcase-word",},
80: {showversion, "emacs-version",},
81: {finishmacro, "end-kbd-macro",},
82: {gotoeob, "end-of-buffer",},
83: {gotoeol, "end-of-line",},
84: {enlargewind, "enlarge-window",},
85: {NULL, "esc prefix",},
86: {evalbuffer, "eval-current-buffer",},
87: {evalexpr, "eval-expression",},
88: {swapmark, "exchange-point-and-mark",},
89: {extend, "execute-extended-command",},
90: {fillpara, "fill-paragraph",},
1.42 florian 91: {filevisitalt, "find-alternate-file",},
1.1 art 92: {filevisit, "find-file",},
1.42 florian 93: {poptofile, "find-file-other-window",},
1.8 vincent 94: {filevisitro, "find-file-read-only",},
1.42 florian 95: {findtag, "find-tag",},
1.1 art 96: {forwchar, "forward-char",},
97: {gotoeop, "forward-paragraph",},
98: {forwword, "forward-word",},
99: {bindtokey, "global-set-key",},
100: {unbindtokey, "global-unset-key",},
1.42 florian 101: {globalwdtoggle, "global-wd-mode",},
1.1 art 102: {gotoline, "goto-line",},
103: {help_help, "help-help",},
1.42 florian 104: {indent, "indent-current-line",},
1.1 art 105: {insert, "insert",},
106: {bufferinsert, "insert-buffer",},
107: {fileinsert, "insert-file",},
108: {fillword, "insert-with-wrap",},
109: {backisearch, "isearch-backward",},
110: {forwisearch, "isearch-forward",},
1.34 kjell 111: {joinline, "join-line",},
1.1 art 112: {justone, "just-one-space",},
113: {ctrlg, "keyboard-quit",},
1.10 jfb 114: {killbuffer_cmd, "kill-buffer",},
1.1 art 115: {killline, "kill-line",},
116: {killpara, "kill-paragraph",},
117: {killregion, "kill-region",},
118: {delfword, "kill-word",},
1.40 lum 119: {toggleleavetmp, "leave-tmpdir-backups",},
1.24 kjell 120: {linenotoggle, "line-number-mode",},
1.1 art 121: {listbuffers, "list-buffers",},
122: {evalfile, "load",},
123: {localbind, "local-set-key",},
124: {localunbind, "local-unset-key",},
125: {makebkfile, "make-backup-files",},
1.43 jasper 126: {makedir, "make-directory",},
1.37 lum 127: {markbuffer, "mark-whole-buffer",},
1.1 art 128: {do_meta, "meta-key-mode",}, /* better name, anyone? */
129: {negative_argument, "negative-argument",},
130: {newline, "newline",},
1.30 kjell 131: {lfindent, "newline-and-indent",},
1.1 art 132: {forwline, "next-line",},
133: #ifdef NOTAB
134: {notabmode, "no-tab-mode",},
135: #endif /* NOTAB */
136: {notmodified, "not-modified",},
137: {openline, "open-line",},
138: {nextwind, "other-window",},
1.22 kjell 139: {overwrite_mode, "overwrite-mode",},
1.42 florian 140: {poptag, "pop-tag-mark",},
1.1 art 141: {prefixregion, "prefix-region",},
142: {backline, "previous-line",},
143: {prevwind, "previous-window",},
144: {spawncli, "push-shell",},
145: {showcwdir, "pwd",},
146: {queryrepl, "query-replace",},
1.15 deraadt 147: #ifdef REGEX
1.1 art 148: {re_queryrepl, "query-replace-regexp",},
149: #endif /* REGEX */
150: {quote, "quoted-insert",},
151: #ifdef REGEX
152: {re_searchagain, "re-search-again",},
153: {re_backsearch, "re-search-backward",},
154: {re_forwsearch, "re-search-forward",},
155: #endif /* REGEX */
156: {reposition, "recenter",},
1.22 kjell 157: {redraw, "redraw-display",},
1.42 florian 158: #ifdef REGEX
159: {replstr, "replace-string",},
160: #endif /* REGEX */
161: {revertbuffer, "revert-buffer",},
1.1 art 162: {filesave, "save-buffer",},
163: {quit, "save-buffers-kill-emacs",},
164: {savebuffers, "save-some-buffers",},
165: {backpage, "scroll-down",},
166: {back1page, "scroll-one-line-down",},
167: {forw1page, "scroll-one-line-up",},
168: {pagenext, "scroll-other-window",},
169: {forwpage, "scroll-up",},
170: {searchagain, "search-again",},
171: {backsearch, "search-backward",},
172: {forwsearch, "search-forward",},
173: {selfinsert, "self-insert-command",},
174: #ifdef REGEX
175: {setcasefold, "set-case-fold-search",},
176: #endif /* REGEX */
177: {set_default_mode, "set-default-mode",},
178: {setfillcol, "set-fill-column",},
179: {setmark, "set-mark-command",},
180: {setprefix, "set-prefix-string",},
1.37 lum 181: {piperegion, "shell-command-on-region",},
1.1 art 182: {shrinkwind, "shrink-window",},
183: #ifdef NOTAB
184: {space_to_tabstop, "space-to-tabstop",},
185: #endif /* NOTAB */
186: {splitwind, "split-window-vertically",},
187: {definemacro, "start-kbd-macro",},
188: {spawncli, "suspend-emacs",},
189: {usebuffer, "switch-to-buffer",},
190: {poptobuffer, "switch-to-buffer-other-window",},
1.8 vincent 191: {togglereadonly, "toggle-read-only" },
1.1 art 192: {twiddle, "transpose-chars",},
1.42 florian 193: {undo, "undo",},
194: {undo_add_boundary, "undo-boundary",},
195: {undo_boundary_enable, "undo-boundary-toggle",},
196: {undo_enable, "undo-enable",},
197: {undo_dump, "undo-list",},
1.1 art 198: {universal_argument, "universal-argument",},
199: {upperregion, "upcase-region",},
200: {upperword, "upcase-word",},
1.42 florian 201: {tagsvisit, "visit-tags-table",},
1.1 art 202: {showcpos, "what-cursor-position",},
203: {filewrite, "write-file",},
204: {yank, "yank",},
1.11 db 205: {NULL, NULL,}
1.1 art 206: };
207:
208: void
209: funmap_init(void)
210: {
211: struct funmap *fn;
212:
213: for (fn = functnames; fn->fn_name != NULL; fn++) {
214: fn->fn_next = funs;
215: funs = fn;
216: }
217: }
218:
219: int
1.6 vincent 220: funmap_add(PF fun, const char *fname)
1.1 art 221: {
222: struct funmap *fn;
223:
224: if ((fn = malloc(sizeof(*fn))) == NULL)
1.11 db 225: return (FALSE);
1.1 art 226:
227: fn->fn_funct = fun;
228: fn->fn_name = fname;
229: fn->fn_next = funs;
230:
231: funs = fn;
1.11 db 232: return (TRUE);
1.1 art 233: }
234:
235: /*
236: * Translate from function name to function pointer.
237: */
238: PF
1.6 vincent 239: name_function(const char *fname)
1.1 art 240: {
241: struct funmap *fn;
242:
243: for (fn = funs; fn != NULL; fn = fn->fn_next) {
244: if (strcmp(fn->fn_name, fname) == 0)
1.11 db 245: return (fn->fn_funct);
1.1 art 246: }
1.11 db 247: return (NULL);
1.1 art 248: }
249:
1.6 vincent 250: const char *
1.1 art 251: function_name(PF fun)
252: {
253: struct funmap *fn;
254:
255: for (fn = funs; fn != NULL; fn = fn->fn_next) {
256: if (fn->fn_funct == fun)
1.11 db 257: return (fn->fn_name);
1.1 art 258: }
1.11 db 259: return (NULL);
1.1 art 260: }
261:
262: /*
1.11 db 263: * List possible function name completions.
1.1 art 264: */
1.17 deraadt 265: struct list *
1.12 otto 266: complete_function_list(const char *fname)
1.1 art 267: {
1.11 db 268: struct funmap *fn;
1.23 kjell 269: struct list *head, *el;
1.11 db 270: int len;
1.1 art 271:
272: len = strlen(fname);
273: head = NULL;
274: for (fn = funs; fn != NULL; fn = fn->fn_next) {
275: if (memcmp(fname, fn->fn_name, len) == 0) {
276: if ((el = malloc(sizeof(*el))) == NULL) {
277: free_file_list(head);
1.11 db 278: return (NULL);
1.1 art 279: }
1.23 kjell 280: el->l_name = strdup(fn->fn_name);
1.1 art 281: el->l_next = head;
282: head = el;
283: }
284: }
1.11 db 285: return (head);
1.1 art 286: }