ncurses 5.9 - patch 20120616
[ncurses.git] / ncurses / base / MKunctrl.awk
index d8a6587e2c69f248bd264294f1f3428537f5e092..51ceb6343920d6143ac9e789d893a5be50f44600 100644 (file)
@@ -1,6 +1,6 @@
-# $Id: MKunctrl.awk,v 1.9 2001/06/02 23:59:20 skimo Exp $
+# $Id: MKunctrl.awk,v 1.27 2012/06/09 20:29:33 tom Exp $
 ##############################################################################
-# Copyright (c) 1998,2000,2001 Free Software Foundation, Inc.                #
+# Copyright (c) 1998-2009,2012 Free Software Foundation, Inc.                #
 #                                                                            #
 # Permission is hereby granted, free of charge, to any person obtaining a    #
 # copy of this software and associated documentation files (the "Software"), #
 # authorization.                                                             #
 ##############################################################################
 #
-# Author: Thomas E. Dickey <dickey@clark.net> 1997
+# Author: Thomas E. Dickey (1997-on)
 #
 
 BEGIN  {
                print "/* generated by MKunctrl.awk */"
                print ""
                print "#include <curses.priv.h>"
+               print "#include <ctype.h>"
                print ""
                print "#undef unctrl"
                print ""
        }
 END    {
-               print "NCURSES_EXPORT(NCURSES_CONST char *) unctrl (register chtype ch)"
+               print "NCURSES_EXPORT(NCURSES_CONST char *) safe_unctrl(SCREEN *sp, chtype ch)"
                print "{"
-               printf "static const char* const table[] = {"
+               blob=""
+               offset=0
+               if (bigstrings) {
+                       printf "static const short unctrl_table[] = {"
+               } else {
+                       printf "static const char* const unctrl_table[] = {"
+               }
                for ( ch = 0; ch < 256; ch++ ) {
                        gap = ","
-                       if ((ch % 8) == 0)
+                       part=""
+                       if ((ch % 8) == 0) {
                                printf "\n    "
+                               if (ch != 0)
+                                       blob = blob "\""
+                               blob = blob "\n    \""
+                       }
+                       if (bigstrings)
+                               printf "%4d%s", offset, gap;
                        if (ch < 32) {
-                               printf "\"^\\%03o\"", ch + 64
+                               part = sprintf ("^\\%03o", ch + 64);
+                               offset = offset + 3;
                        } else if (ch == 127) {
-                               printf "\"^?\""
+                               part = "^?";
+                               offset = offset + 3;
                        } else if (ch >= 128 && ch < 160) {
-                               printf "\"~\\%03o\"", ch - 64
+                               part = sprintf("~\\%03o", ch - 64);
+                               offset = offset + 3;
+                       } else if (ch == 255) {
+                               part = "~?";
+                               offset = offset + 3;
+                       } else if (ch >= 160) {
+                               part = sprintf("M-\\%03o", ch - 128);
+                               offset = offset + 4;
                        } else {
-                               printf "\"\\%03o\"", ch
                                gap = gap " "
+                               part = sprintf("\\%03o", ch);
+                               offset = offset + 2;
                        }
                        if (ch == 255)
                                gap = "\n"
                        else if (((ch + 1) % 8) != 0)
                                gap = gap " "
-                       printf "%s", gap
+                       if (bigstrings) {
+                               blob = blob part "\\0";
+                       } else {
+                               printf "\"%s\"%s", part, gap
+                       }
+               }
+               print "};"
+               blob = blob "\"";
+
+               print ""
+               printf "#if NCURSES_EXT_FUNCS\n";
+               if (bigstrings) {
+                       blob = blob "\n/* printable values in 128-255 range */"
+                       printf "static const short unctrl_c1[] = {"
+               } else {
+                       printf "static const char* const unctrl_c1[] = {"
+               }
+               for ( ch = 128; ch < 256; ch++ ) {
+                       gap = ","
+                       if ((ch % 8) == 0) {
+                               if (ch != 128)
+                                       blob = blob "\""
+                               printf "\n    "
+                               blob = blob "\n    \""
+                       }
+                       if (bigstrings) {
+                               printf "%4d%s", offset, gap;
+                               part = sprintf("\\%03o\\0", ch);
+                               blob = blob part
+                               offset = offset + 2;
+                               if (((ch + 1) % 8) != 0)
+                                       gap = gap " "
+                       } else {
+                               if (ch >= 128) {
+                                       printf "\"\\%03o\"", ch
+                                       gap = gap " "
+                               }
+                               if (ch == 255)
+                                       gap = "\n"
+                               else if (((ch + 1) % 8) != 0)
+                                       gap = gap " "
+                               printf "%s", gap
+                       }
                }
                print "};"
+               print "#endif /* NCURSES_EXT_FUNCS */"
+               blob = blob "\"\n"
+
                print ""
-               print "\treturn (NCURSES_CONST char *)table[ChCharOf(ch)];"
-               print "}"
+               if (bigstrings) {
+                       print "static const char unctrl_blob[] = "blob";"
+                       print ""
+                       stringname = "unctrl_blob + unctrl"
+               } else {
+                       stringname = "unctrl"
+               }
+               print  "\tint check = (int) ChCharOf(ch);"
+               print  "\tconst char *result;"
+               print  ""
+               print  "\tif (check >= 0 && check < (int)SIZEOF(unctrl_table)) {"
+               print  "#if NCURSES_EXT_FUNCS"
+               print  "\t\tif ((sp != 0)"
+               print  "\t\t && (sp->_legacy_coding > 1)"
+               print  "\t\t && (check >= 128)"
+               print  "\t\t && (check < 160))"
+               printf "\t\t\tresult = %s_c1[check - 128];\n", stringname;
+               print  "\t\telse"
+               print  "\t\tif ((check >= 160)"
+               print  "\t\t && (check < 256)"
+               print  "\t\t && ((sp != 0)"
+               print  "\t\t  && ((sp->_legacy_coding > 0)"
+               print  "\t\t   || (sp->_legacy_coding == 0"
+               print  "\t\t       && isprint(check)))))"
+               printf "\t\t\tresult = %s_c1[check - 128];\n", stringname;
+               print  "\t\telse"
+               print  "#endif /* NCURSES_EXT_FUNCS */"
+               printf "\t\t\tresult = %s_table[check];\n", stringname;
+               print  "\t} else {"
+               print  "\t\tresult = 0;"
+               print  "\t}"
+               print  "\treturn (NCURSES_CONST char *)result;"
+               print  "}"
+               print  ""
+               print  "NCURSES_EXPORT(NCURSES_CONST char *) unctrl (chtype ch)"
+               print  "{"
+               print  "\treturn safe_unctrl(CURRENT_SCREEN, ch);"
+               print  "}"
        }