Added mg from an OpenBSD mirror site. Many thanks to the OpenBSD team and the mg...

[pd_readline] / mg / ttykbd.c

diff --git a/mg/ttykbd.c b/mg/ttykbd.c
new file mode 100644 (file)
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 */