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