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 }