ncurses 6.2 - patch 20200404
[ncurses.git] / ncurses / tinfo / MKcodes.awk
1 ##############################################################################
2 # Copyright 2019,2020 Thomas E. Dickey                                       #
3 # Copyright 2007-2009,2010 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 # $Id: MKcodes.awk,v 1.11 2020/02/02 23:34:34 tom Exp $
30 function large_item(value) {
31         result = sprintf("%d,", offset);
32         offset = offset + length(value) + 1;
33         offcol = offcol + length(result) + 2;
34         if (offcol > 70) {
35                 result = result "\n";
36                 offcol = 0;
37         } else {
38                 result = result " ";
39         }
40         bigstr = bigstr sprintf("\"%s\\0\" ", value);
41         bigcol = bigcol + length(value) + 5;
42         if (bigcol > 70) {
43                 bigstr = bigstr "\\\n";
44                 bigcol = 0;
45         }
46         return result;
47 }
48
49 function small_item(value) {
50         return sprintf("\t\t\"%s\",\n", value);
51 }
52
53 function print_strings(name,value) {
54         printf  "DCL(%s) = {\n", name
55         print  value
56         print  "\t\t(NCURSES_CONST char *)0,"
57         print  "};"
58         print  ""
59 }
60
61 function print_offsets(name,value) {
62         printf  "static const short _nc_offset_%s[] = {\n", name
63         printf "%s",  value
64         print  "};"
65         print  ""
66         printf "static NCURSES_CONST char ** ptr_%s = 0;\n", name
67         print  ""
68 }
69
70 BEGIN   {
71                 print  "/* This file was generated by MKcodes.awk */"
72                 print  ""
73                 print  "#include <curses.priv.h>"
74                 print  ""
75                 print  "#define IT NCURSES_CONST char * const"
76                 print  ""
77                 offset = 0;
78                 offcol = 0;
79                 bigcol = 0;
80         }
81
82 $1 ~ /^#/               {next;}
83 $1 ~ /^(cap|info)alias/ {next;}
84
85 $1 == "userdef"         {next;}
86 $1 == "SKIPWARN"        {next;}
87
88 $3 == "bool"    {
89                         small_boolcodes = small_boolcodes small_item($4);
90                         large_boolcodes = large_boolcodes large_item($4);
91                 }
92
93 $3 == "num"     {
94                         small_numcodes = small_numcodes small_item($4);
95                         large_numcodes = large_numcodes large_item($4);
96                 }
97
98 $3 == "str"     {
99                         small_strcodes = small_strcodes small_item($4);
100                         large_strcodes = large_strcodes large_item($4);
101                 }
102
103 END     {
104                 print  ""
105                 print  "#if BROKEN_LINKER || USE_REENTRANT"
106                 print  ""
107                 if (bigstrings) {
108                         printf "static const char _nc_code_blob[] = \n"
109                         printf "%s;\n", bigstr;
110                         print_offsets("boolcodes", large_boolcodes);
111                         print_offsets("numcodes", large_numcodes);
112                         print_offsets("strcodes", large_strcodes);
113                         print  ""
114                         print  "static IT *"
115                         print  "alloc_array(NCURSES_CONST char ***value, const short *offsets, unsigned size)"
116                         print  "{"
117                         print  "        if (*value == 0) {"
118                         print  "                if ((*value = typeCalloc(NCURSES_CONST char *, size + 1)) != 0) {"
119                         print  "                        unsigned n;"
120                         print  "                        for (n = 0; n < size; ++n) {"
121                         print  "                                (*value)[n] = (NCURSES_CONST char *) _nc_code_blob + offsets[n];"
122                         print  "                        }"
123                         print  "                }"
124                         print  "        }"
125                         print  "        return *value;"
126                         print  "}"
127                         print  ""
128                         print  "#define FIX(it) NCURSES_IMPEXP IT * NCURSES_API NCURSES_PUBLIC_VAR(it)(void) { return alloc_array(&ptr_##it, _nc_offset_##it, SIZEOF(_nc_offset_##it)); }"
129                 } else {
130                         print  "#define DCL(it) static IT data##it[]"
131                         print  ""
132                         print_strings("boolcodes", small_boolcodes);
133                         print_strings("numcodes", small_numcodes);
134                         print_strings("strcodes", small_strcodes);
135                         print  "#define FIX(it) NCURSES_IMPEXP IT * NCURSES_API NCURSES_PUBLIC_VAR(it)(void) { return data##it; }"
136                 }
137                 print  ""
138                 print  "/* remove public definition which conflicts with FIX() */"
139                 print  "#undef boolcodes"
140                 print  "#undef numcodes"
141                 print  "#undef strcodes"
142                 print  ""
143                 print  "/* add local definition */"
144                 print  "FIX(boolcodes)"
145                 print  "FIX(numcodes)"
146                 print  "FIX(strcodes)"
147                 print  ""
148                 print  "/* restore the public definition */"
149                 print  ""
150                 print  "#define FREE_FIX(it) if (ptr_##it) { FreeAndNull(ptr_##it); }"
151                 print  "#define boolcodes  NCURSES_PUBLIC_VAR(boolcodes())"
152                 print  "#define numcodes   NCURSES_PUBLIC_VAR(numcodes())"
153                 print  "#define strcodes   NCURSES_PUBLIC_VAR(strcodes())"
154                 print  ""
155                 print  "#if NO_LEAKS"
156                 print  "NCURSES_EXPORT(void)"
157                 print  "_nc_codes_leaks(void)"
158                 print  "{"
159                 if (bigstrings) {
160                 print  "FREE_FIX(boolcodes)"
161                 print  "FREE_FIX(numcodes)"
162                 print  "FREE_FIX(strcodes)"
163                 }
164                 print  "}"
165                 print  "#endif"
166                 print  ""
167                 print  "#else"
168                 print  ""
169                 print  "#define DCL(it) NCURSES_EXPORT_VAR(IT) it[]"
170                 print  ""
171                 print_strings("boolcodes", small_boolcodes);
172                 print_strings("numcodes", small_numcodes);
173                 print_strings("strcodes", small_strcodes);
174                 print  ""
175                 print  "#endif /* BROKEN_LINKER */"
176         }