1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
# Id: MKkeyname.awk,v 1.12 1997/11/15 22:16:55 tom Exp $
BEGIN {
print "/* generated by MKkeyname.awk */"
print ""
print "#include <ncurses_cfg.h>"
print "#include <stdlib.h>"
print "#include <string.h>"
print "#include <curses.h>"
print "#include <term.h>"
print ""
print "struct kn {"
print "\tconst char *name;"
print "\tint code;"
print "};"
print ""
print "const struct kn key_names[] = {"
}
/^[^#]/ {
# printf "\t{ \"%s\",%*s%s },\n", $1, 16-length($1), " ", $1;
printf "\t{ \"%s\",%s },\n", $1, $1;
}
END {
print "};"
print ""
print "const char *keyname(int c)"
print "{"
print "int i, size = sizeof(key_names)/sizeof(struct kn);"
print "static char name[5];"
print "char *p;"
print ""
print "\tfor (i = 0; i < size; i++)"
print "\t\tif (key_names[i].code == c)"
print "\t\t\treturn key_names[i].name;"
print "\tif (c >= 256) return \"UNKNOWN KEY\";"
print "\tp = name;"
print "\tif (c >= 128) {"
print "\t\tstrcpy(p, \"M-\");"
print "\t\tp += 2;"
print "\t\tc -= 128;"
print "\t}"
print "\tif (c < 0)"
print "\t\tsprintf(p, \"%d\", c);"
print "\telse if (c < 32)"
print "\t\tsprintf(p, \"^%c\", c + '@');"
print "\telse if (c == 127)"
print "\t\tstrcpy(p, \"^?\");"
print "\telse"
print "\t\tsprintf(p, \"%c\", c);"
print "\treturn name;"
print "}"
print ""
}
|
