X-Git-Url: https://pd.if.org/git/?p=pd_readline;a=blobdiff_plain;f=mg%2Fttykbd.c;fp=mg%2Fttykbd.c;h=a160a3ef896fe30e93b59cb5e2d7e9a0a721b63d;hp=0000000000000000000000000000000000000000;hb=a9843085ec916c175bd245a8398f30e6cc03f984;hpb=26fe4e09c6c3c250334fdeed60ce3061febecde2

diff --git a/mg/ttykbd.c b/mg/ttykbd.c
new file mode 100644
index 0000000..a160a3e
--- /dev/null
+++ b/mg/ttykbd.c
@@ -0,0 +1,89 @@
+/*	$OpenBSD: ttykbd.c,v 1.16 2012/04/12 04:47:59 lum Exp $	*/
+
+/* This file is in the public domain. */
+
+/*
+ * Name:	MG 2a
+ *		Terminfo keyboard driver using key files
+ * Created:	22-Nov-1987 Mic Kaczmarczik (mic@emx.cc.utexas.edu)
+ */
+
+#include "def.h"
+#include "kbd.h"
+
+#ifdef	XKEYS
+#include <term.h>
+
+#ifdef  FKEYS
+/*
+ * Get keyboard character.  Very simple if you use keymaps and keys files.
+ * Bob was right -- the old XKEYS code is not the right solution.
+ * FKEYS code is not useful other than to help debug FKEYS code in
+ * extend.c.
+ */
+
+char	*keystrings[] = {NULL};
+#endif /* FKEYS */
+
+/*
+ * Turn on function keys using keypad_xmit, then load a keys file, if
+ * available.  The keys file is located in the same manner as the startup
+ * file is, depending on what startupfile() does on your system.
+ */
+void
+ttykeymapinit(void)
+{
+	char	*cp;
+
+#ifdef FKEYS
+	/* Bind keypad function keys. */
+	if (key_left)
+		dobindkey(fundamental_map, "backward-char", key_left);
+	if (key_right)
+		dobindkey(fundamental_map, "forward-char", key_right);
+	if (key_up)
+		dobindkey(fundamental_map, "previous-line", key_up);
+	if (key_down)
+		dobindkey(fundamental_map, "next-line", key_down);
+	if (key_beg)
+		dobindkey(fundamental_map, "beginning-of-line", key_beg);
+	else if (key_home)
+		dobindkey(fundamental_map, "beginning-of-line", key_home);
+	if (key_end)
+		dobindkey(fundamental_map, "end-of-line", key_end);
+	if (key_npage)
+		dobindkey(fundamental_map, "scroll-up", key_npage);
+	if (key_ppage)
+		dobindkey(fundamental_map, "scroll-down", key_ppage);
+	if (key_dc)
+		dobindkey(fundamental_map, "delete-char", key_dc);
+#endif /* FKEYS */
+
+	if ((cp = getenv("TERM"))) {
+		if (((cp = startupfile(cp)) != NULL) && (load(cp) != TRUE))
+			ewprintf("Error reading key initialization file");
+	}
+	if (keypad_xmit)
+		/* turn on keypad */
+		putpad(keypad_xmit, 1);
+}
+
+/*
+ * Clean up the keyboard -- called by tttidy()
+ */
+void
+ttykeymaptidy(void)
+{
+	if (keypad_local)
+		/* turn off keypad */
+		putpad(keypad_local, 1);
+}
+
+#else
+
+void
+ttykeymapinit(void)
+{
+}
+
+#endif /* XKEYS */