ncurses/base/MKunctrl.awk

   1 # $Id: MKunctrl.awk,v 1.13 2007/01/06 22:52:02 tom Exp $
   2 ##############################################################################
   3 # Copyright (c) 1998-2006,2007 Free Software Foundation, Inc.                #
   4 #                                                                            #
   5 # Permission is hereby granted, free of charge, to any person obtaining a    #
   6 # copy of this software and associated documentation files (the "Software"), #
   7 # to deal in the Software without restriction, including without limitation  #
   8 # the rights to use, copy, modify, merge, publish, distribute, distribute    #
   9 # with modifications, sublicense, and/or sell copies of the Software, and to #
  10 # permit persons to whom the Software is furnished to do so, subject to the  #
  11 # following conditions:                                                      #
  12 #                                                                            #
  13 # The above copyright notice and this permission notice shall be included in #
  14 # all copies or substantial portions of the Software.                        #
  15 #                                                                            #
  16 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
  17 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,   #
  18 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL    #
  19 # THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER      #
  20 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING    #
  21 # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER        #
  22 # DEALINGS IN THE SOFTWARE.                                                  #
  23 #                                                                            #
  24 # Except as contained in this notice, the name(s) of the above copyright     #
  25 # holders shall not be used in advertising or otherwise to promote the sale, #
  26 # use or other dealings in this Software without prior written               #
  27 # authorization.                                                             #
  28 ##############################################################################
  29 #
  30 # Author: Thomas E. Dickey <dickey@clark.net> 1997
  31 #
  32
  33 BEGIN   {
  34                 print "/* generated by MKunctrl.awk */"
  35                 print ""
  36                 print "#include <curses.priv.h>"
  37                 print ""
  38                 print "#undef unctrl"
  39                 print ""
  40         }
  41 END     {
  42                 print "NCURSES_EXPORT(NCURSES_CONST char *) unctrl (register chtype ch)"
  43                 print "{"
  44
  45                 blob=""
  46                 offset=0
  47                 printf "static const short unctrl_table[] = {"
  48                 for ( ch = 0; ch < 256; ch++ ) {
  49                         gap = ","
  50                         part=""
  51                         if ((ch % 8) == 0) {
  52                                 printf "\n    "
  53                                 if (ch != 0)
  54                                         blob = blob "\""
  55                                 blob = blob "\n    \""
  56                         }
  57                         printf "%4d%s", offset, gap;
  58                         if (ch < 32) {
  59                                 part = sprintf ("^\\%03o\\0", ch + 64);
  60                                 offset = offset + 3;
  61                         } else if (ch == 127) {
  62                                 part = "^?\\0";
  63                                 offset = offset + 3;
  64                         } else if (ch >= 128 && ch < 160) {
  65                                 part = sprintf("~\\%03o\\0", ch - 64);
  66                                 offset = offset + 3;
  67                         } else {
  68                                 gap = gap " "
  69                                 part = sprintf("\\%03o\\0", ch);
  70                                 offset = offset + 2;
  71                         }
  72                         blob = blob part
  73                         if (ch == 255)
  74                                 gap = "\n"
  75                         else if (((ch + 1) % 8) != 0)
  76                                 gap = gap " "
  77                 }
  78                 print "};"
  79                 blob = blob "\"";
  80
  81                 print ""
  82                 print "#if NCURSES_EXT_FUNCS"
  83                 blob = blob "\n#if NCURSES_EXT_FUNCS"
  84                 printf "static const short unctrl_c1[] = {"
  85                 for ( ch = 128; ch < 160; ch++ ) {
  86                         gap = ","
  87                         if ((ch % 8) == 0) {
  88                                 if (ch != 128)
  89                                         blob = blob "\""
  90                                 printf "\n    "
  91                                 blob = blob "\n    \""
  92                         }
  93                         printf "%4d%s", offset, gap;
  94                         part = sprintf("\\%03o\\0", ch);
  95                         blob = blob part
  96                         offset = offset + 2;
  97                         if (((ch + 1) % 8) != 0)
  98                                 gap = gap " "
  99                 }
 100                 print "};"
 101                 print "#endif /* NCURSES_EXT_FUNCS */"
 102                 blob = blob "\"\n#endif /* NCURSES_EXT_FUNCS */\n"
 103
 104                 print ""
 105                 print "static const char unctrl_blob[] = "blob";"
 106                 print ""
 107                 print "\tint check = ChCharOf(ch);"
 108                 print "\tconst char *result;"
 109                 print ""
 110                 print "\tif (check >= 0 && check < (int)SIZEOF(unctrl_table)) {"
 111                 print "#if NCURSES_EXT_FUNCS"
 112                 print "\t\tif ((SP != 0)"
 113                 print "\t\t && (SP->_legacy_coding > 1)"
 114                 print "\t\t && (check >= 128)"
 115                 print "\t\t && (check < 160))"
 116                 print "\t\t\tresult = unctrl_blob + unctrl_c1[check - 128];"
 117                 print "\t\telse"
 118                 print "#endif /* NCURSES_EXT_FUNCS */"
 119                 print "\t\t\tresult = unctrl_blob + unctrl_table[check];"
 120                 print "\t} else {"
 121                 print "\t\tresult = 0;"
 122                 print "\t}"
 123                 print "\treturn (NCURSES_CONST char *)result;"
 124                 print "}"
 125         }