Moved from ports with several enhancements

1 files changed, 30 insertions, 0 deletions

diff --git a/lib/libncurses/MKkeyname.awk b/lib/libncurses/MKkeyname.awk
new file mode 100644
index 0000000..be51bc8
--- /dev/null
+++ b/lib/libncurses/MKkeyname.awk
@@ -0,0 +1,30 @@
+
+BEGIN {
+	print ""
+	print "#include <stdlib.h>"
+	print "#include <ncurses.h>"
+	print ""
+	print "struct kn {"
+	print "\tchar *name;"
+	print "\tint code;"
+	print "};"
+	print ""
+	print "struct kn key_names[] = {"
+}
+
+{printf "\t{\"%s\", %s,},\n", $1, $2;}
+
+END {
+	print "};"
+	print ""
+	print "char *keyname(int c)"
+	print "{"
+	print "int i, size = sizeof(key_names)/sizeof(struct kn);"
+	print ""
+	print "\tfor (i = 0; i < size; i++) {"
+	print "\t\tif (key_names[i].code == c) return key_names[i].name;"
+	print "\t}"
+	print "\treturn NULL;"
+	print "}"
+	print "" 
+}