lib/libncurses/MKkeyname.awk

   1
   2 BEGIN {
   3         print ""
   4         print "#include <stdlib.h>"
   5         print "#include \"curses.h\""
   6         print ""
   7         print "struct kn {"
   8         print "\tchar *name;"
   9         print "\tint code;"
  10         print "};"
  11         print ""
  12         print "struct kn key_names[] = {"
  13 }
  14
  15 {printf "\t{\"%s\", %s,},\n", $1, $2;}
  16
  17 END {
  18         print "};"
  19         print ""
  20         print "char *keyname(int c)"
  21         print "{"
  22         print "int i, size = sizeof(key_names)/sizeof(struct kn);"
  23         print ""
  24         print "\tfor (i = 0; i < size; i++) {"
  25         print "\t\tif (key_names[i].code == c) return key_names[i].name;"
  26         print "\t}"
  27         print "\treturn NULL;"
  28         print "}"
  29         print ""
  30 }