X-Git-Url: https://pd.if.org/git/?p=pd_readline;a=blobdiff_plain;f=mg%2Ffunmap.c;fp=mg%2Ffunmap.c;h=0000000000000000000000000000000000000000;hp=aac58ce53e3aab1df23d97b3e38e1f6aa6e4ad7f;hb=4bb27266f935c9aafad6870ffc8847fc65c8120f;hpb=3f771e17236364ded86e96ee64f99344337991f8

diff --git a/mg/funmap.c b/mg/funmap.c
deleted file mode 100644
index aac58ce..0000000
--- a/mg/funmap.c
+++ /dev/null
@@ -1,281 +0,0 @@
-/*	$OpenBSD: funmap.c,v 1.40 2012/06/14 17:21:22 lum Exp $	*/
-
-/* This file is in the public domain */
-
-#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;
-	const		 char *fn_name;
-	struct funmap	*fn_next;
-};
-
-static struct funmap *funs;
-
-static struct funmap functnames[] = {
-	{apropos_command, "apropos",},
-	{auto_execute, "auto-execute", },
-	{fillmode, "auto-fill-mode",},
-	{indentmode, "auto-indent-mode",},
-	{backtoindent, "back-to-indentation",},
-	{backuptohomedir, "backup-to-home-directory",},
-	{backchar, "backward-char",},
-	{delbword, "backward-kill-word",},
-	{gotobop, "backward-paragraph",},
-	{backword, "backward-word",},
-	{gotobob, "beginning-of-buffer",},
-	{gotobol, "beginning-of-line",},
-	{showmatch, "blink-and-insert",},
-	{bsmap, "bsmap-mode",},
-	{NULL, "c-x 4 prefix",},
-	{NULL, "c-x prefix",},
-	{executemacro, "call-last-kbd-macro",},
-	{capword, "capitalize-word",},
-	{changedir, "cd",},
-	{clearmark, "clear-mark",},
-	{copyregion, "copy-region-as-kill",},
-#ifdef	REGEX
-	{cntmatchlines, "count-matches",},
-	{cntnonmatchlines, "count-non-matches",},
-#endif /* REGEX */
-	{redefine_key, "define-key",},
-	{backdel, "delete-backward-char",},
-	{deblank, "delete-blank-lines",},
-	{forwdel, "delete-char",},
-	{delwhite, "delete-horizontal-space",},
-	{delleadwhite, "delete-leading-space",},
-	{deltrailwhite, "delete-trailing-space",},
-#ifdef	REGEX
-	{delmatchlines, "delete-matching-lines",},
-	{delnonmatchlines, "delete-non-matching-lines",},
-#endif /* REGEX */
-	{onlywind, "delete-other-windows",},
-	{delwind, "delete-window",},
-	{wallchart, "describe-bindings",},
-	{desckey, "describe-key-briefly",},
-	{digit_argument, "digit-argument",},
-	{lowerregion, "downcase-region",},
-	{lowerword, "downcase-word",},
-	{showversion, "emacs-version",},
-	{finishmacro, "end-kbd-macro",},
-	{globalwdtoggle, "global-wd-mode",},
-	{gotoeob, "end-of-buffer",},
-	{gotoeol, "end-of-line",},
-	{enlargewind, "enlarge-window",},
-	{NULL, "esc prefix",},
-	{evalbuffer, "eval-current-buffer",},
-	{evalexpr, "eval-expression",},
-	{swapmark, "exchange-point-and-mark",},
-	{extend, "execute-extended-command",},
-	{fillpara, "fill-paragraph",},
-	{filevisit, "find-file",},
-	{filevisitro, "find-file-read-only",},
-	{filevisitalt, "find-alternate-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",},
-	{help_help, "help-help",},
-	{insert, "insert",},
-	{bufferinsert, "insert-buffer",},
-	{fileinsert, "insert-file",},
-	{fillword, "insert-with-wrap",},
-	{backisearch, "isearch-backward",},
-	{forwisearch, "isearch-forward",},
-	{joinline, "join-line",},
-	{justone, "just-one-space",},
-	{ctrlg, "keyboard-quit",},
-	{killbuffer_cmd, "kill-buffer",},
-	{killline, "kill-line",},
-	{killpara, "kill-paragraph",},
-	{killregion, "kill-region",},
-	{delfword, "kill-word",},
-	{toggleleavetmp, "leave-tmpdir-backups",},
-	{linenotoggle, "line-number-mode",},
-	{listbuffers, "list-buffers",},
-	{evalfile, "load",},
-	{localbind, "local-set-key",},
-	{localunbind, "local-unset-key",},
-	{makebkfile, "make-backup-files",},
-	{markbuffer, "mark-whole-buffer",},
-	{do_meta, "meta-key-mode",},	/* better name, anyone? */
-	{negative_argument, "negative-argument",},
-	{newline, "newline",},
-	{lfindent, "newline-and-indent",},
-	{indent, "indent-current-line",},
-	{forwline, "next-line",},
-#ifdef NOTAB
-	{notabmode, "no-tab-mode",},
-#endif /* NOTAB */
-	{notmodified, "not-modified",},
-	{openline, "open-line",},
-	{nextwind, "other-window",},
-	{overwrite_mode, "overwrite-mode",},
-	{prefixregion, "prefix-region",},
-	{backline, "previous-line",},
-	{prevwind, "previous-window",},
-	{poptag, "pop-tag-mark",},
-	{spawncli, "push-shell",},
-	{findtag, "find-tag",},
-	{tagsvisit, "visit-tags-table",},
-	{showcwdir, "pwd",},
-	{queryrepl, "query-replace",},
-#ifdef REGEX
-	{replstr, "replace-string",},
-	{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",},
-	{redraw, "redraw-display",},
-	{filesave, "save-buffer",},
-	{quit, "save-buffers-kill-emacs",},
-	{savebuffers, "save-some-buffers",},
-	{backpage, "scroll-down",},
-	{back1page, "scroll-one-line-down",},
-	{forw1page, "scroll-one-line-up",},
-	{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",},
-	{setprefix, "set-prefix-string",},
-	{piperegion, "shell-command-on-region",},
-	{shrinkwind, "shrink-window",},
-#ifdef NOTAB
-	{space_to_tabstop, "space-to-tabstop",},
-#endif /* NOTAB */
-	{splitwind, "split-window-vertically",},
-	{definemacro, "start-kbd-macro",},
-	{spawncli, "suspend-emacs",},
-	{usebuffer, "switch-to-buffer",},
-	{poptobuffer, "switch-to-buffer-other-window",},
-	{togglereadonly, "toggle-read-only" },
-	{twiddle, "transpose-chars",},
-	{undo, "undo", },
-	{undo_enable, "undo-enable", },
-	{undo_boundary_enable, "undo-boundary-toggle", },
-	{undo_add_boundary, "undo-boundary", },
-	{undo_dump, "undo-list", },
-	{universal_argument, "universal-argument",},
-	{upperregion, "upcase-region",},
-	{upperword, "upcase-word",},
-	{showcpos, "what-cursor-position",},
-	{filewrite, "write-file",},
-	{yank, "yank",},
-	{cssymbol, "cscope-find-this-symbol",},
-	{csdefinition, "cscope-find-global-definition",},
-	{csfuncalled, "cscope-find-called-functions",},
-	{cscallerfuncs, "cscope-find-functions-calling-this-function",},
-	{csfindtext, "cscope-find-this-text-string",},
-	{csegrep, "cscope-find-egrep-pattern",},
-	{csfindfile, "cscope-find-this-file",},
-	{csfindinc, "cscope-find-files-including-file",},
-	{csnextmatch, "cscope-next-symbol",},
-	{csprevmatch, "cscope-prev-symbol",},
-	{csnextfile, "cscope-next-file",},
-	{csprevfile, "cscope-prev-file",},
-	{cscreatelist, "cscope-create-list-of-files-to-index"},
-	{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, const 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(const 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);
-}
-
-const 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.
- */
-struct list *
-complete_function_list(const char *fname)
-{
-	struct funmap	*fn;
-	struct 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 = strdup(fn->fn_name);
-			el->l_next = head;
-			head = el;
-		}
-	}
-	return (head);
-}