Annotation of src/usr.bin/mg/funmap.c, Revision 1.67
1.67 ! op 1: /* $OpenBSD: funmap.c,v 1.66 2023/04/17 09:49:04 op Exp $ */
1.28 kjell 2:
3: /* This file is in the public domain */
4:
1.49 bcallah 5: #include <sys/queue.h>
6: #include <signal.h>
7: #include <stdio.h>
8: #include <stdlib.h>
9: #include <string.h>
10:
1.1 art 11: #include "def.h"
1.49 bcallah 12: #include "funmap.h"
1.1 art 13: #include "kbd.h"
14:
15: /*
1.59 lum 16: * funmap structure: a list of functions and their command-names/#parameters.
17: *
18: * If the function is NULL, it must be listed with the same name in the
19: * map_table.
1.1 art 20: */
21: struct funmap {
1.6 vincent 22: PF fn_funct;
23: const char *fn_name;
1.59 lum 24: int fn_nparams;
1.1 art 25: struct funmap *fn_next;
26: };
27: static struct funmap *funs;
28:
1.59 lum 29: /*
30: * 3rd column in the functnames structure indicates how many parameters the
31: * function takes in 'normal' usage. This column is only used to identify
32: * function profiles when lines of a buffer are being evaluated via excline().
33: *
34: * 0 = a toggle, non-modifiable insert/delete, region modifier, etc
35: * 1 = value can be string or number value (like: file/buf name, search string)
36: * 2 = multiple type value required, see auto-execute, or global-set-key, etc
1.65 jmc 37: * -1 = error: interactive command, unsuitable for interpreter
1.59 lum 38: *
39: * Some functions when used interactively may ask for a 'y' or 'n' (or another
40: * character) to continue, in excline, a 'y' is assumed. Functions like this
41: * have '0' in the 3rd column below.
42: */
1.1 art 43: static struct funmap functnames[] = {
1.59 lum 44: {apropos_command, "apropos", 1},
45: {toggleaudiblebell, "audible-bell", 0},
46: {auto_execute, "auto-execute", 2},
47: {fillmode, "auto-fill-mode", 0},
48: {indentmode, "auto-indent-mode", 0},
49: {backtoindent, "back-to-indentation", 0},
50: {backuptohomedir, "backup-to-home-directory", 0},
1.60 lum 51: {backchar, "backward-char", 1},
52: {delbword, "backward-kill-word", 1},
53: {gotobop, "backward-paragraph", 1},
54: {backword, "backward-word", 1},
1.59 lum 55: {gotobob, "beginning-of-buffer", 0},
56: {gotobol, "beginning-of-line", 0},
57: {showmatch, "blink-and-insert", 1}, /* startup only */
58: {bsmap, "bsmap-mode", 0},
59: {NULL, "c-x 4 prefix", 0}, /* internal */
60: {NULL, "c-x prefix", 0}, /* internal */
61: {executemacro, "call-last-kbd-macro", 0},
1.60 lum 62: {capword, "capitalize-word", 1},
1.59 lum 63: {changedir, "cd", 1},
64: {clearmark, "clear-mark", 0},
65: {colnotoggle, "column-number-mode", 0},
66: {copyregion, "copy-region-as-kill", 0},
1.1 art 67: #ifdef REGEX
1.59 lum 68: {cntmatchlines, "count-matches", 1},
69: {cntnonmatchlines, "count-non-matches", 1},
1.1 art 70: #endif /* REGEX */
1.59 lum 71: {cscreatelist, "cscope-create-list-of-files-to-index", 1},
72: {csfuncalled, "cscope-find-called-functions", 1},
73: {csegrep, "cscope-find-egrep-pattern", 1},
74: {csfindinc, "cscope-find-files-including-file", 1},
75: {cscallerfuncs, "cscope-find-functions-calling-this-function", 1},
76: {csdefinition, "cscope-find-global-definition", 1},
77: {csfindfile, "cscope-find-this-file", 1},
78: {cssymbol, "cscope-find-this-symbol", 1},
79: {csfindtext, "cscope-find-this-text-string", 1},
80: {csnextfile, "cscope-next-file", 0},
81: {csnextmatch, "cscope-next-symbol", 0},
82: {csprevfile, "cscope-prev-file", 0},
83: {csprevmatch, "cscope-prev-symbol", 0},
84: {redefine_key, "define-key", 3},
1.60 lum 85: {backdel, "delete-backward-char", 1},
1.59 lum 86: {deblank, "delete-blank-lines", 0},
1.60 lum 87: {forwdel, "delete-char", 1},
1.59 lum 88: {delwhite, "delete-horizontal-space", 0},
89: {delleadwhite, "delete-leading-space", 0},
1.1 art 90: #ifdef REGEX
1.59 lum 91: {delmatchlines, "delete-matching-lines", 1},
92: {delnonmatchlines, "delete-non-matching-lines", 1},
1.1 art 93: #endif /* REGEX */
1.59 lum 94: {onlywind, "delete-other-windows", 0},
95: {deltrailwhite, "delete-trailing-space", 0},
96: {delwind, "delete-window", 0},
97: {wallchart, "describe-bindings", 0},
98: {desckey, "describe-key-briefly", 1},
99: {diffbuffer, "diff-buffer-with-file", 0},
100: {digit_argument, "digit-argument", 1},
1.61 lum 101: {dired_jump, "dired-jump", 1},
1.59 lum 102: {lowerregion, "downcase-region", 0},
1.60 lum 103: {lowerword, "downcase-word", 1},
1.59 lum 104: {showversion, "emacs-version", 0},
105: {finishmacro, "end-kbd-macro", 0},
106: {gotoeob, "end-of-buffer", 0},
107: {gotoeol, "end-of-line", 0},
108: {enlargewind, "enlarge-window", 0},
109: {NULL, "esc prefix", 0}, /* internal */
110: {evalbuffer, "eval-current-buffer", 0},
111: {evalexpr, "eval-expression", 0},
112: {swapmark, "exchange-point-and-mark", 0},
113: {extend, "execute-extended-command", 1},
114: {fillpara, "fill-paragraph", 0},
115: {filevisitalt, "find-alternate-file", 1},
116: {filevisit, "find-file", 1},
117: {poptofile, "find-file-other-window", 1},
118: {filevisitro, "find-file-read-only", 1},
119: {findtag, "find-tag", 1},
1.60 lum 120: {forwchar, "forward-char", 1},
121: {gotoeop, "forward-paragraph", 1},
122: {forwword, "forward-word", 1},
1.59 lum 123: {bindtokey, "global-set-key", 2},
124: {unbindtokey, "global-unset-key", 1},
125: {globalwdtoggle, "global-wd-mode", 0},
126: {gotoline, "goto-line", 1},
127: {help_help, "help-help", 0},
128: {indent, "indent-current-line", 0},
129: {insert, "insert", 1},
130: {bufferinsert, "insert-buffer", 1},
131: {fileinsert, "insert-file", 1},
132: {fillword, "insert-with-wrap", 1}, /* startup only */
133: {backisearch, "isearch-backward", 1},
134: {forwisearch, "isearch-forward", 1},
135: {joinline, "join-line", 0},
136: {justone, "just-one-space", 0},
137: {ctrlg, "keyboard-quit", 0},
138: {killbuffer_cmd, "kill-buffer", 1},
1.60 lum 139: {killline, "kill-line", 1},
140: {killpara, "kill-paragraph", 1},
1.64 op 141: {zaptochar, "zap-to-char", 1},
142: {zapuptochar, "zap-up-to-char", 1},
1.59 lum 143: {killregion, "kill-region", 0},
1.60 lum 144: {delfword, "kill-word", 1},
1.59 lum 145: {toggleleavetmp, "leave-tmpdir-backups", 0},
146: {linenotoggle, "line-number-mode", 0},
147: {listbuffers, "list-buffers", 0},
148: {evalfile, "load", 1},
149: {localbind, "local-set-key", 1},
150: {localunbind, "local-unset-key", 1},
151: {makebkfile, "make-backup-files", 0},
152: {makedir, "make-directory", 1},
1.60 lum 153: {markpara, "mark-paragraph", 1},
1.59 lum 154: {markbuffer, "mark-whole-buffer", 0},
155: {do_meta, "meta-key-mode", 0}, /* better name, anyone? */
156: {negative_argument, "negative-argument", 1},
1.60 lum 157: {enewline, "newline", 1},
158: {lfindent, "newline-and-indent", 1},
159: {forwline, "next-line", 1},
1.59 lum 160: {notabmode, "no-tab-mode", 0},
161: {notmodified, "not-modified", 0},
1.60 lum 162: {openline, "open-line", 1},
1.59 lum 163: {nextwind, "other-window", 0},
164: {overwrite_mode, "overwrite-mode", 0},
165: {poptag, "pop-tag-mark", 0},
166: {prefixregion, "prefix-region", 0},
1.60 lum 167: {backline, "previous-line", 1},
1.59 lum 168: {prevwind, "previous-window", 0},
169: {spawncli, "push-shell", 0},
170: {showcwdir, "pwd", 0},
1.62 lum 171: {queryrepl, "query-replace", -1},
1.15 deraadt 172: #ifdef REGEX
1.62 lum 173: {re_queryrepl, "query-replace-regexp", -1},
1.1 art 174: #endif /* REGEX */
1.59 lum 175: {quote, "quoted-insert", 1},
1.1 art 176: #ifdef REGEX
1.59 lum 177: {re_searchagain, "re-search-again", 0},
178: {re_backsearch, "re-search-backward", 0},
179: {re_forwsearch, "re-search-forward", 0},
1.1 art 180: #endif /* REGEX */
1.59 lum 181: {reposition, "recenter", 0},
182: {redraw, "redraw-display", 0},
1.42 florian 183: #ifdef REGEX
1.63 lum 184: {re_repl, "replace-regexp", 2},
1.59 lum 185: {replstr, "replace-string", 2},
1.42 florian 186: #endif /* REGEX */
1.59 lum 187: {revertbuffer, "revert-buffer", 0},
1.60 lum 188: {filesave, "save-buffer", 1},
1.59 lum 189: {quit, "save-buffers-kill-emacs", 0},
190: {savebuffers, "save-some-buffers", 0},
1.60 lum 191: {backpage, "scroll-down", 1},
192: {back1page, "scroll-one-line-down", 1},
193: {forw1page, "scroll-one-line-up", 1},
194: {pagenext, "scroll-other-window", 1},
195: {forwpage, "scroll-up", 1},
1.59 lum 196: {searchagain, "search-again", 0},
197: {backsearch, "search-backward", 0},
198: {forwsearch, "search-forward", 0},
199: {ask_selfinsert, "self-insert-char", 1},
200: {selfinsert, "self-insert-command", 1}, /* startup only */
201: {sentencespace, "sentence-end-double-space", 0},
1.67 ! op 202: {settabw, "set-tab-width", 1},
1.1 art 203: #ifdef REGEX
1.59 lum 204: {setcasefold, "set-case-fold-search", 0},
1.1 art 205: #endif /* REGEX */
1.59 lum 206: {setcasereplace, "set-case-replace", 0},
207: {set_default_mode, "set-default-mode", 1},
208: {setfillcol, "set-fill-column", 1},
209: {setmark, "set-mark-command", 0},
210: {setprefix, "set-prefix-string", 1},
211: {shellcommand, "shell-command", 1},
1.60 lum 212: {piperegion, "shell-command-on-region", 1},
213: {shrinkwind, "shrink-window", 1},
1.59 lum 214: {space_to_tabstop, "space-to-tabstop", 0},
215: {splitwind, "split-window-vertically", 0},
216: {definemacro, "start-kbd-macro", 0},
217: {spawncli, "suspend-emacs", 0},
218: {usebuffer, "switch-to-buffer", 1},
219: {poptobuffer, "switch-to-buffer-other-window", 1},
220: {togglereadonly, "toggle-read-only", 0},
221: {togglereadonlyall, "toggle-read-only-all", 0},
222: {twiddle, "transpose-chars", 0},
223: {transposepara, "transpose-paragraphs", 0},
224: {transposeword, "transpose-words", 0},
225: {undo, "undo", 0},
226: {undo_add_boundary, "undo-boundary", 0},
227: {undo_boundary_enable, "undo-boundary-toggle", 0},
228: {undo_enable, "undo-enable", 0},
229: {undo_dump, "undo-list", 0},
230: {universal_argument, "universal-argument", 1},
231: {upperregion, "upcase-region", 0},
1.60 lum 232: {upperword, "upcase-word", 1},
1.59 lum 233: {togglevisiblebell, "visible-bell", 0},
234: {tagsvisit, "visit-tags-table", 0},
235: {showcpos, "what-cursor-position", 0},
236: {filewrite, "write-file", 1},
1.60 lum 237: {yank, "yank", 1},
1.59 lum 238: {NULL, NULL, 0}
1.1 art 239: };
240:
241: void
242: funmap_init(void)
243: {
244: struct funmap *fn;
245:
246: for (fn = functnames; fn->fn_name != NULL; fn++) {
247: fn->fn_next = funs;
248: funs = fn;
249: }
250: }
251:
252: int
1.59 lum 253: funmap_add(PF fun, const char *fname, int fparams)
1.1 art 254: {
255: struct funmap *fn;
256:
257: if ((fn = malloc(sizeof(*fn))) == NULL)
1.11 db 258: return (FALSE);
1.1 art 259:
260: fn->fn_funct = fun;
261: fn->fn_name = fname;
1.59 lum 262: fn->fn_nparams = fparams;
1.1 art 263: fn->fn_next = funs;
264:
265: funs = fn;
1.11 db 266: return (TRUE);
1.1 art 267: }
268:
269: /*
270: * Translate from function name to function pointer.
271: */
272: PF
1.6 vincent 273: name_function(const char *fname)
1.1 art 274: {
275: struct funmap *fn;
276:
277: for (fn = funs; fn != NULL; fn = fn->fn_next) {
278: if (strcmp(fn->fn_name, fname) == 0)
1.11 db 279: return (fn->fn_funct);
1.1 art 280: }
1.11 db 281: return (NULL);
1.1 art 282: }
283:
1.6 vincent 284: const char *
1.1 art 285: function_name(PF fun)
286: {
287: struct funmap *fn;
288:
289: for (fn = funs; fn != NULL; fn = fn->fn_next) {
290: if (fn->fn_funct == fun)
1.11 db 291: return (fn->fn_name);
1.1 art 292: }
1.11 db 293: return (NULL);
1.1 art 294: }
295:
296: /*
1.11 db 297: * List possible function name completions.
1.1 art 298: */
1.17 deraadt 299: struct list *
1.12 otto 300: complete_function_list(const char *fname)
1.1 art 301: {
1.11 db 302: struct funmap *fn;
1.23 kjell 303: struct list *head, *el;
1.11 db 304: int len;
1.1 art 305:
306: len = strlen(fname);
307: head = NULL;
308: for (fn = funs; fn != NULL; fn = fn->fn_next) {
309: if (memcmp(fname, fn->fn_name, len) == 0) {
310: if ((el = malloc(sizeof(*el))) == NULL) {
311: free_file_list(head);
1.11 db 312: return (NULL);
1.1 art 313: }
1.23 kjell 314: el->l_name = strdup(fn->fn_name);
1.1 art 315: el->l_next = head;
316: head = el;
317: }
318: }
1.11 db 319: return (head);
1.59 lum 320: }
321:
322: /*
323: * Find number of parameters for function name.
324: */
325: int
326: numparams_function(PF fun)
327: {
328: struct funmap *fn;
329:
330: for (fn = funs; fn != NULL; fn = fn->fn_next) {
331: if (fn->fn_funct == fun)
332: return (fn->fn_nparams);
333: }
334: return (FALSE);
1.1 art 335: }