/*	$OpenBSD: funmap.c,v 1.53 2016/04/14 17:05:32 lum Exp $	*/

/* This file is in the public domain */

#include <sys/queue.h>

#include <signal.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "def.h"

#include "funmap.h"

#include "kbd.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",},

	{toggleaudiblebell, "audible-bell",},

	{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",},

	{colnotoggle, "column-number-mode",},

	{copyregion, "copy-region-as-kill",},

#ifdef	REGEX

	{cntmatchlines, "count-matches",},

	{cntnonmatchlines, "count-non-matches",},

#endif /* REGEX */

	{cscreatelist, "cscope-create-list-of-files-to-index",},

	{csfuncalled, "cscope-find-called-functions",},

	{csegrep, "cscope-find-egrep-pattern",},

	{csfindinc, "cscope-find-files-including-file",},

	{cscallerfuncs, "cscope-find-functions-calling-this-function",},

	{csdefinition, "cscope-find-global-definition",},

	{csfindfile, "cscope-find-this-file",},

	{cssymbol, "cscope-find-this-symbol",},

	{csfindtext, "cscope-find-this-text-string",},

	{csnextfile, "cscope-next-file",},

	{csnextmatch, "cscope-next-symbol",},

	{csprevfile, "cscope-prev-file",},

	{csprevmatch, "cscope-prev-symbol",},

	{redefine_key, "define-key",},

	{backdel, "delete-backward-char",},

	{deblank, "delete-blank-lines",},

	{forwdel, "delete-char",},

	{delwhite, "delete-horizontal-space",},

	{delleadwhite, "delete-leading-space",},

#ifdef	REGEX

	{delmatchlines, "delete-matching-lines",},

	{delnonmatchlines, "delete-non-matching-lines",},

#endif /* REGEX */

	{onlywind, "delete-other-windows",},

	{deltrailwhite, "delete-trailing-space",},

	{delwind, "delete-window",},

	{wallchart, "describe-bindings",},

	{desckey, "describe-key-briefly",},

	{diffbuffer, "diff-buffer-with-file",},

	{digit_argument, "digit-argument",},

	{lowerregion, "downcase-region",},

	{lowerword, "downcase-word",},

	{showversion, "emacs-version",},

	{finishmacro, "end-kbd-macro",},

	{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",},

	{filevisitalt, "find-alternate-file",},

	{filevisit, "find-file",},

	{poptofile, "find-file-other-window",},

	{filevisitro, "find-file-read-only",},

	{findtag, "find-tag",},

	{forwchar, "forward-char",},

	{gotoeop, "forward-paragraph",},

	{forwword, "forward-word",},

	{bindtokey, "global-set-key",},

	{unbindtokey, "global-unset-key",},

	{globalwdtoggle, "global-wd-mode",},

	{gotoline, "goto-line",},

	{help_help, "help-help",},

	{indent, "indent-current-line",},

	{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",},

	{makedir, "make-directory",},

	{markpara, "mark-paragraph",},

	{markbuffer, "mark-whole-buffer",},

	{do_meta, "meta-key-mode",},	/* better name, anyone? */

	{negative_argument, "negative-argument",},

	{enewline, "newline",},

	{lfindent, "newline-and-indent",},

	{forwline, "next-line",},

#ifdef NOTAB

	{notabmode, "no-tab-mode",},

#endif /* NOTAB */

	{notmodified, "not-modified",},

	{openline, "open-line",},

	{nextwind, "other-window",},

	{overwrite_mode, "overwrite-mode",},

	{poptag, "pop-tag-mark",},

	{prefixregion, "prefix-region",},

	{backline, "previous-line",},

	{prevwind, "previous-window",},

	{spawncli, "push-shell",},

	{showcwdir, "pwd",},

	{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",},

	{redraw, "redraw-display",},

#ifdef REGEX

	{replstr, "replace-string",},

#endif /* REGEX */

	{revertbuffer, "revert-buffer",},

	{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",},

	{sentencespace, "sentence-end-double-space",},

#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",},

	{shellcommand, "shell-command",},

	{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",},

	{transposepara, "transpose-paragraphs",},

	{transposeword, "transpose-words",},

	{undo, "undo",},

	{undo_add_boundary, "undo-boundary",},

	{undo_boundary_enable, "undo-boundary-toggle",},

	{undo_enable, "undo-enable",},

	{undo_dump, "undo-list",},

	{universal_argument, "universal-argument",},

	{upperregion, "upcase-region",},

	{upperword, "upcase-word",},

	{togglevisiblebell, "visible-bell",},

	{tagsvisit, "visit-tags-table",},

	{showcpos, "what-cursor-position",},

	{filewrite, "write-file",},

	{yank, "yank",},

	{NULL, NULL,}

};

void

funmap_init(void)

{

	struct funmap *fn;

	}

}

int

funmap_add(PF fun, const char *fname)

{

	struct funmap *fn;

}

/*

 * Translate from function name to function pointer.

 */

PF

name_function(const char *fname)

{

	struct funmap *fn;

	}

}

const char *

function_name(PF fun)

{

	struct funmap *fn;

	}

}

/*

 * List possible function name completions.

 */

struct list *

complete_function_list(const char *fname)

{

	struct funmap	*fn;

	struct list	*head, *el;

	int		 len;

			}

		}

	}

}