Code cleanups; no functional changes.

bindings.c

@@ -8,6 +8,157 @@
  * warranty.
  */
 
+#include	<stdlib.h>
+
 #include	"bindings.h"
+#include	"wide.h"
+#include	"ui.h"
 
 binding_list_t bindings = TTS_TAILQ_HEAD_INITIALIZER(bindings);
+
+static tkey_t keys[] = {
+	{ KEY_BREAK,		WIDE("<BREAK>")		},
+	{ KEY_DOWN,		WIDE("<DOWN>")		},
+	{ KEY_UP,		WIDE("<UP>")		},
+	{ KEY_LEFT,		WIDE("<LEFT>")		},
+	{ KEY_RIGHT,		WIDE("<RIGHT>")		},
+	{ KEY_HOME,		WIDE("<HOME>")		},
+	{ KEY_BACKSPACE,	WIDE("<BACKSPACE>")	},
+	{ 0x7F,			WIDE("<BACKSPACE>")	}, /* DEL */
+	{ KEY_F(0),		WIDE("<F0>")		},
+	{ KEY_F(1),		WIDE("<F1>")		},
+	{ KEY_F(2),		WIDE("<F2>")		},
+	{ KEY_F(3),		WIDE("<F3>")		},
+	{ KEY_F(4),		WIDE("<F4>")		},
+	{ KEY_F(5),		WIDE("<F5>")		},
+	{ KEY_F(6),		WIDE("<F6>")		},
+	{ KEY_F(7),		WIDE("<F7>")		},
+	{ KEY_F(8),		WIDE("<F8>")		},
+	{ KEY_F(9),		WIDE("<F9>")		},
+	{ KEY_F(10),		WIDE("<F10>")		},
+	{ KEY_F(11),		WIDE("<F1l>")		},
+	{ KEY_F(12),		WIDE("<F12>")		},
+	{ KEY_F(13),		WIDE("<F13>")		},
+	{ KEY_F(14),		WIDE("<F14>")		},
+	{ KEY_F(15),		WIDE("<F15>")		},
+	{ KEY_F(16),		WIDE("<F16>")		},
+	{ KEY_F(17),		WIDE("<F17>")		},
+	{ KEY_F(18),		WIDE("<F18>")		},
+	{ KEY_F(19),		WIDE("<F19>")		},
+	{ KEY_F(20),		WIDE("<F20>")		},
+	{ KEY_F(21),		WIDE("<F21>")		},
+	{ KEY_F(22),		WIDE("<F22>")		},
+	{ KEY_F(23),		WIDE("<F23>")		},
+	{ KEY_F(24),		WIDE("<F24>")		},
+	{ KEY_NPAGE,		WIDE("<NEXT>")		},
+	{ KEY_PPAGE,		WIDE("<PREV>")		},
+	{ '\001',		WIDE("<CTRL-A>")	},
+	{ '\002',		WIDE("<CTRL-B>")	},
+	{ '\003',		WIDE("<CTRL-C>")	},
+	{ '\004',		WIDE("<CTRL-D>")	},
+	{ '\005',		WIDE("<CTRL-E>")	},
+	{ '\006',		WIDE("<CTRL-F>")	},
+	{ '\007',		WIDE("<CTRL-G>")	},
+	{ '\010',		WIDE("<CTRL-H>")	},
+	{ '\011',		WIDE("<CTRL-I>")	},
+	{ '\011',		WIDE("<TAB>")		},
+	{ '\012',		WIDE("<CTRL-J>")	},
+	{ '\013',		WIDE("<CTRL-K>")	},
+	{ '\014',		WIDE("<CTRL-L>")	},
+	{ '\015',		WIDE("<CTRL-N>")	},
+	{ '\016',		WIDE("<CTRL-O>")	},
+	{ '\017',		WIDE("<CTRL-P>")	},
+	{ '\020',		WIDE("<CTRL-Q>")	},
+	{ '\021',		WIDE("<CTRL-R>")	},
+	{ '\022',		WIDE("<CTRL-S>")	},
+	{ '\023',		WIDE("<CTRL-T>")	},
+	{ '\024',		WIDE("<CTRL-U>")	},
+	{ '\025',		WIDE("<CTRL-V>")	},
+	{ '\026',		WIDE("<CTRL-W>")	},
+	{ '\027',		WIDE("<CTRL-X>")	},
+	{ '\030',		WIDE("<CTRL-Y>")	},
+	{ '\031',		WIDE("<CTRL-Z>")	},
+	{ ' ',			WIDE("<SPACE>")		},
+	{ KEY_ENTER,		WIDE("<ENTER>")		},
+	{ KEY_BACKSPACE,	WIDE("<BACKSPACE>")	},
+	{ KEY_DC,		WIDE("<DELETE>")	}
+};
+
+/*
+ * Bind .keyname to run the function .funcname.  If a binding for .keyname
+ * already exists, overwrite it.
+ *
+ * If .keyname is a single character, e.g. 'a', it is used as a key name
+ * directly, rather than being looked up in the key table.
+ */
+void
+bind_key(keyname, funcname, is_macro)
+	const WCHAR	*keyname, *funcname;
+{
+tkey_t		*key = NULL;
+function_t	*func;
+binding_t	*binding;
+INT		 code;
+
+	/* Find the key and the function */
+	if (STRLEN(keyname) > 1) {
+		if ((key = find_key(keyname)) == NULL) {
+			errbox(WIDE("Unknown key \"%"FMT_L"s\""), keyname);
+			return;
+		}
+		code = key->ky_code;
+	} else
+		code = *keyname;
+
+	if (!is_macro) {
+		if ((func = find_func(funcname)) == NULL) {
+			errbox(WIDE("Unknown function \"%"FMT_L"s\""), funcname);
+			return;
+		}
+	}
+
+	/* Do we already have a binding for this key? */
+	TTS_TAILQ_FOREACH(binding, &bindings, bi_entries) {
+		if (binding->bi_code == code) {
+			if (is_macro) {
+				binding->bi_func = NULL;
+				binding->bi_macro = STRDUP(funcname);
+			} else {
+				free(binding->bi_macro);
+				binding->bi_func = func;
+			}
+			return;
+		}
+	}
+
+	/* No, add a new one */
+	if ((binding = calloc(1, sizeof(*binding))) == NULL)
+		return;
+
+	binding->bi_key = key;
+	binding->bi_code = code;
+
+	if (is_macro)
+		binding->bi_macro = STRDUP(funcname);
+	else
+		binding->bi_func = func;
+
+	TTS_TAILQ_INSERT_TAIL(&bindings, binding, bi_entries);
+}
+
+/*
+ * Return the tkey_t for the key called .name, or NULL if such a key doesn't
+ * exist.
+ */
+tkey_t *
+find_key(name)
+	const WCHAR	*name;
+{
+size_t	i;
+
+	for (i = 0; i < sizeof(keys) / sizeof(*keys); i++)
+		if (STRCMP(name, keys[i].ky_name) == 0)
+			return &keys[i];
+	return NULL;
+}
+