Break out function -> name mappings to an own file.

Add a possibility to dynamically extend the function table.

1 files changed, 296 insertions, 0 deletions

diff --git a/usr.bin/mg/funmap.c b/usr.bin/mg/funmap.c
new file mode 100644
index 00000000000..9aad4d290d9
--- /dev/null
+++ b/usr.bin/mg/funmap.c
@@ -0,0 +1,296 @@
+#include "def.h"
+#include "kbd.h"
+#include "funmap.h"
+
+/*
+ * If the function is NULL, it must be listed with the
+ * same name in the map_table.
+ */
+
+struct funmap {
+	PF		fn_funct;
+	char		*fn_name;
+	struct funmap	*fn_next;
+};
+
+static struct funmap *funs;
+
+static struct funmap functnames[] = {
+#ifndef	NO_HELP
+	{apropos_command, "apropos",},
+#endif /* !NO_HELP */
+	{fillmode, "auto-fill-mode",},
+	{indentmode, "auto-indent-mode",},
+	{backchar, "backward-char",},
+	{delbword, "backward-kill-word",},
+	{gotobop, "backward-paragraph",},
+	{backword, "backward-word",},
+	{gotobob, "beginning-of-buffer",},
+	{gotobol, "beginning-of-line",},
+	{blinkparen, "blink-matching-paren",},
+	{showmatch, "blink-matching-paren-hack",},
+#ifdef BSMAP
+	{bsmap, "bsmap-mode",},
+#endif /* BSMAP */
+	{NULL, "c-x 4 prefix",},
+	{NULL, "c-x prefix",},
+#ifndef NO_MACRO
+	{executemacro, "call-last-kbd-macro",},
+#endif /* !NO_MACRO */
+	{capword, "capitalize-word",},
+#ifndef NO_DIR
+	{changedir, "cd",},
+#endif /* !NO_DIR */
+	{copyregion, "copy-region-as-kill",},
+#ifdef	REGEX
+	{cntmatchlines, "count-matches",},
+	{cntnonmatchlines, "count-non-matches",},
+#endif /* REGEX */
+	{define_key, "define-key",},
+	{backdel, "delete-backward-char",},
+	{deblank, "delete-blank-lines",},
+	{forwdel, "delete-char",},
+	{delwhite, "delete-horizontal-space",},
+#ifdef	REGEX
+	{delmatchlines, "delete-matching-lines",},
+	{delnonmatchlines, "delete-non-matching-lines",},
+#endif /* REGEX */
+	{onlywind, "delete-other-windows",},
+	{delwind, "delete-window",},
+#ifndef NO_HELP
+	{wallchart, "describe-bindings",},
+	{desckey, "describe-key-briefly",},
+#endif /* !NO_HELP */
+	{digit_argument, "digit-argument",},
+#ifndef NO_DIRED
+	{dired, "dired",},
+	{d_undelbak, "dired-backup-unflag",},
+	{d_copy, "dired-copy-file",},
+	{d_expunge, "dired-do-deletions",},
+	{d_findfile, "dired-find-file",},
+	{d_ffotherwindow, "dired-find-file-other-window",},
+	{d_del, "dired-flag-file-deleted",},
+	{d_otherwindow, "dired-other-window",},
+	{d_rename, "dired-rename-file",},
+	{d_undel, "dired-unflag",},
+#endif /* !NO_DIRED */
+	{lowerregion, "downcase-region",},
+	{lowerword, "downcase-word",},
+	{showversion, "emacs-version",},
+#ifndef NO_MACRO
+	{finishmacro, "end-kbd-macro",},
+#endif /* !NO_MACRO */
+	{gotoeob, "end-of-buffer",},
+	{gotoeol, "end-of-line",},
+	{enlargewind, "enlarge-window",},
+	{NULL, "esc prefix",},
+#ifndef NO_STARTUP
+	{evalbuffer, "eval-current-buffer",},
+	{evalexpr, "eval-expression",},
+#endif /* !NO_STARTUP */
+	{swapmark, "exchange-point-and-mark",},
+	{extend, "execute-extended-command",},
+	{NULL, "extra prefix 1",},
+	{NULL, "extra prefix 2",},
+	{NULL, "extra prefix 3",},
+	{NULL, "extra prefix 4",},
+	{NULL, "extra prefix 5",},
+	{fillpara, "fill-paragraph",},
+	{filevisit, "find-file",},
+	{poptofile, "find-file-other-window",},
+	{forwchar, "forward-char",},
+	{gotoeop, "forward-paragraph",},
+	{forwword, "forward-word",},
+	{bindtokey, "global-set-key",},
+	{unbindtokey, "global-unset-key",},
+	{gotoline, "goto-line",},
+#ifndef NO_HELP
+	{NULL, "help",},
+	{help_help, "help-help",},
+#endif /* !NO_HELP */
+	{insert, "insert",},
+	{bufferinsert, "insert-buffer",},
+	{fileinsert, "insert-file",},
+	{fillword, "insert-with-wrap",},
+	{backisearch, "isearch-backward",},
+	{forwisearch, "isearch-forward",},
+	{justone, "just-one-space",},
+	{ctrlg, "keyboard-quit",},
+	{killbuffer, "kill-buffer",},
+	{killline, "kill-line",},
+	{killpara, "kill-paragraph",},
+	{killregion, "kill-region",},
+	{delfword, "kill-word",},
+	{listbuffers, "list-buffers",},
+#ifndef NO_STARTUP
+	{evalfile, "load",},
+#endif /* !NO_STARTUP */
+	{localbind, "local-set-key",},
+	{localunbind, "local-unset-key",},
+#ifndef NO_BACKUP
+	{makebkfile, "make-backup-files",},
+#endif /* !NO_BACKUP */
+#ifdef DO_METAKEY
+	{do_meta, "meta-key-mode",},	/* better name, anyone? */
+#endif /* DO_METAKEY */
+	{negative_argument, "negative-argument",},
+	{newline, "newline",},
+	{indent, "newline-and-indent",},
+	{forwline, "next-line",},
+#ifdef NOTAB
+	{notabmode, "no-tab-mode",},
+#endif /* NOTAB */
+	{notmodified, "not-modified",},
+	{openline, "open-line",},
+	{nextwind, "other-window",},
+	{overwrite, "overwrite-mode",},
+#ifdef PREFIXREGION
+	{prefixregion, "prefix-region",},
+#endif /* PREFIXREGION */
+	{backline, "previous-line",},
+#ifdef GOSMACS
+	{prevwind, "previous-window",},
+#endif /* GOSEMACS */
+	{spawncli, "push-shell",},
+#ifndef NO_DIR
+	{showcwdir, "pwd",},
+#endif /* !NO_DIR */
+	{queryrepl, "query-replace",},
+#ifdef REGEX
+	{re_queryrepl, "query-replace-regexp",},
+#endif /* REGEX */
+	{quote, "quoted-insert",},
+#ifdef REGEX
+	{re_searchagain, "re-search-again",},
+	{re_backsearch, "re-search-backward",},
+	{re_forwsearch, "re-search-forward",},
+#endif /* REGEX */
+	{reposition, "recenter",},
+	{refresh, "redraw-display",},
+	{filesave, "save-buffer",},
+	{quit, "save-buffers-kill-emacs",},
+	{savebuffers, "save-some-buffers",},
+	{backpage, "scroll-down",},
+#ifdef GOSMACS
+	{back1page, "scroll-one-line-down",},
+	{forw1page, "scroll-one-line-up",},
+#endif /* GOSMACS */
+	{pagenext, "scroll-other-window",},
+	{forwpage, "scroll-up",},
+	{searchagain, "search-again",},
+	{backsearch, "search-backward",},
+	{forwsearch, "search-forward",},
+	{selfinsert, "self-insert-command",},
+#ifdef REGEX
+	{setcasefold, "set-case-fold-search",},
+#endif /* REGEX */
+	{set_default_mode, "set-default-mode",},
+	{setfillcol, "set-fill-column",},
+	{setmark, "set-mark-command",},
+#ifdef PREFIXREGION
+	{setprefix, "set-prefix-string",},
+#endif /* PREFIXREGION */
+	{shrinkwind, "shrink-window",},
+#ifdef NOTAB
+	{space_to_tabstop, "space-to-tabstop",},
+#endif /* NOTAB */
+	{splitwind, "split-window-vertically",},
+#ifndef NO_MACRO
+	{definemacro, "start-kbd-macro",},
+#endif /* !NO_MACRO */
+	{spawncli, "suspend-emacs",},
+	{usebuffer, "switch-to-buffer",},
+	{poptobuffer, "switch-to-buffer-other-window",},
+	{twiddle, "transpose-chars",},
+	{universal_argument, "universal-argument",},
+	{upperregion, "upcase-region",},
+	{upperword, "upcase-word",},
+	{showcpos, "what-cursor-position",},
+	{filewrite, "write-file",},
+	{yank, "yank",},
+	{NULL, NULL,},
+};
+
+void
+funmap_init(void)
+{
+	struct funmap *fn;
+
+	for (fn = functnames; fn->fn_name != NULL; fn++) {
+		fn->fn_next = funs;
+		funs = fn;
+	}
+}
+
+int
+funmap_add(PF fun, char *fname)
+{
+	struct funmap *fn;
+
+	if ((fn = malloc(sizeof(*fn))) == NULL)
+		return FALSE;
+
+	fn->fn_funct = fun;
+	fn->fn_name = fname;
+	fn->fn_next = funs;
+
+	funs = fn;
+	return TRUE;
+}
+
+/*
+ * Translate from function name to function pointer.
+ */
+PF
+name_function(char *fname)
+{
+	struct funmap *fn;
+
+	for (fn = funs; fn != NULL; fn = fn->fn_next) {
+		if (strcmp(fn->fn_name, fname) == 0)
+			return fn->fn_funct;
+	}
+	return NULL;
+}
+
+char *
+function_name(PF fun)
+{
+	struct funmap *fn;
+
+	for (fn = funs; fn != NULL; fn = fn->fn_next) {
+		if (fn->fn_funct == fun)
+			return fn->fn_name;
+	}
+	return NULL;
+}
+
+/*
+ * list possible function name completions.
+ */
+LIST *
+complete_function_list(char *fname, int c)
+{
+	struct funmap *fn;
+	LIST *head, *el;
+	int len;
+
+	len = strlen(fname);
+	head = NULL;
+	for (fn = funs; fn != NULL; fn = fn->fn_next) {
+		if (memcmp(fname, fn->fn_name, len) == 0) {
+			if ((el = malloc(sizeof(*el))) == NULL) {
+				free_file_list(head);
+				return NULL;
+			}
+			el->l_name = fn->fn_name;
+			el->l_next = head;
+			head = el;
+		}
+	}
+
+	return head;
+}
+
+
+