ncurses 5.7 - patch 20090221
[ncurses.git] / ncurses / tinfo / MKnames.awk
1 ##############################################################################
2 # Copyright (c) 2007,2008 Free Software Foundation, Inc.                     #
3 #                                                                            #
4 # Permission is hereby granted, free of charge, to any person obtaining a    #
5 # copy of this software and associated documentation files (the "Software"), #
6 # to deal in the Software without restriction, including without limitation  #
7 # the rights to use, copy, modify, merge, publish, distribute, distribute    #
8 # with modifications, sublicense, and/or sell copies of the Software, and to #
9 # permit persons to whom the Software is furnished to do so, subject to the  #
10 # following conditions:                                                      #
11 #                                                                            #
12 # The above copyright notice and this permission notice shall be included in #
13 # all copies or substantial portions of the Software.                        #
14 #                                                                            #
15 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
16 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,   #
17 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL    #
18 # THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER      #
19 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING    #
20 # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER        #
21 # DEALINGS IN THE SOFTWARE.                                                  #
22 #                                                                            #
23 # Except as contained in this notice, the name(s) of the above copyright     #
24 # holders shall not be used in advertising or otherwise to promote the sale, #
25 # use or other dealings in this Software without prior written               #
26 # authorization.                                                             #
27 ##############################################################################
28 # $Id: MKnames.awk,v 1.21 2008/11/16 00:19:59 juergen Exp $
29 function large_item(value) {
30         result = sprintf("%d,", offset);
31         offset = offset + length(value) + 1;
32         offcol = offcol + length(result) + 2;
33         if (offcol > 70) {
34                 result = result "\n";
35                 offcol = 0;
36         } else {
37                 result = result " ";
38         }
39         bigstr = bigstr sprintf("\"%s\\0\" ", value);
40         bigcol = bigcol + length(value) + 5;
41         if (bigcol > 70) {
42                 bigstr = bigstr "\\\n";
43                 bigcol = 0;
44         }
45         return result;
46 }
47
48 function small_item(value) {
49         return sprintf("\t\t\"%s\",\n", value);
50 }
51
52 function print_strings(name,value) {
53         printf  "DCL(%s) = {\n", name
54         print  value
55         print  "\t\t(NCURSES_CONST char *)0,"
56         print  "};"
57         print  ""
58 }
59
60 function print_offsets(name,value) {
61         printf  "static const short _nc_offset_%s[] = {\n", name
62         printf "%s",  value
63         print  "};"
64         print  ""
65         printf "static NCURSES_CONST char ** ptr_%s = 0;\n", name
66         print  ""
67 }
68
69 BEGIN   {
70                 print  "/* This file was generated by MKnames.awk */"
71                 print  ""
72                 print  "#include <curses.priv.h>"
73                 print  ""
74                 print  "#define IT NCURSES_CONST char * const"
75                 print  ""
76                 offset = 0;
77                 offcol = 0;
78                 bigcol = 0;
79         }
80
81 $1 ~ /^#/               {next;}
82
83 $1 == "SKIPWARN"        {next;}
84
85 $3 == "bool"    {
86                         small_boolnames = small_boolnames small_item($2);
87                         large_boolnames = large_boolnames large_item($2);
88                         small_boolfnames = small_boolfnames small_item($1);
89                         large_boolfnames = large_boolfnames large_item($1);
90                 }
91
92 $3 == "num"     {
93                         small_numnames = small_numnames small_item($2);
94                         large_numnames = large_numnames large_item($2);
95                         small_numfnames = small_numfnames small_item($1);
96                         large_numfnames = large_numfnames large_item($1);
97                 }
98
99 $3 == "str"     {
100                         small_strnames = small_strnames small_item($2);
101                         large_strnames = large_strnames large_item($2);
102                         small_strfnames = small_strfnames small_item($1);
103                         large_strfnames = large_strfnames large_item($1);
104                 }
105
106 END     {
107                 print  ""
108                 print  "#if BROKEN_LINKER || USE_REENTRANT"
109                 print  ""
110                 if (bigstrings) {
111                         printf "static const char _nc_name_blob[] = \n"
112                         printf "%s;\n", bigstr;
113                         print_offsets("boolfnames", large_boolfnames);
114                         print_offsets("boolnames", large_boolnames);
115                         print_offsets("numfnames", large_numfnames);
116                         print_offsets("numnames", large_numnames);
117                         print_offsets("strfnames", large_strfnames);
118                         print_offsets("strnames", large_strnames);
119                         print  ""
120                         print  "static IT *"
121                         print  "alloc_array(NCURSES_CONST char ***value, const short *offsets, unsigned size)"
122                         print  "{"
123                         print  "        if (*value == 0) {"
124                         print  "                if ((*value = typeCalloc(NCURSES_CONST char *, size + 1)) != 0) {"
125                         print  "                        unsigned n;"
126                         print  "                        for (n = 0; n < size; ++n) {"
127                         print  "                                (*value)[n] = (NCURSES_CONST char *) _nc_name_blob + offsets[n];"
128                         print  "                        }"
129                         print  "                }"
130                         print  "        }"
131                         print  "        return *value;"
132                         print  "}"
133                         print  ""
134                         print  "#define FIX(it) NCURSES_IMPEXP IT * NCURSES_API _nc_##it(void) { return alloc_array(&ptr_##it, _nc_offset_##it, SIZEOF(_nc_offset_##it)); }"
135                 } else {
136                         print  "#define DCL(it) static IT data##it[]"
137                         print  ""
138                         print_strings("boolnames", small_boolnames);
139                         print_strings("boolfnames", small_boolfnames);
140                         print_strings("numnames", small_numnames);
141                         print_strings("numfnames", small_numfnames);
142                         print_strings("strnames", small_strnames);
143                         print_strings("strfnames", small_strfnames);
144                         print  "#define FIX(it) NCURSES_IMPEXP IT * NCURSES_API _nc_##it(void) { return data##it; }"
145                 }
146                 print  ""
147                 print  "FIX(boolnames)"
148                 print  "FIX(boolfnames)"
149                 print  "FIX(numnames)"
150                 print  "FIX(numfnames)"
151                 print  "FIX(strnames)"
152                 print  "FIX(strfnames)"
153                 print  ""
154                 print  ""
155                 print  "#define FREE_FIX(it) if (ptr_##it) { FreeAndNull(ptr_##it); }"
156                 print  ""
157                 print  "#if NO_LEAKS"
158                 print  "NCURSES_EXPORT(void)"
159                 print  "_nc_names_leaks(void)"
160                 print  "{"
161                 if (bigstrings) {
162                 print  "FREE_FIX(boolnames)"
163                 print  "FREE_FIX(boolfnames)"
164                 print  "FREE_FIX(numnames)"
165                 print  "FREE_FIX(numfnames)"
166                 print  "FREE_FIX(strnames)"
167                 print  "FREE_FIX(strfnames)"
168                 }
169                 print  "}"
170                 print  "#endif"
171                 print  ""
172                 print  "#else"
173                 print  ""
174                 print  "#define DCL(it) NCURSES_EXPORT_VAR(IT) it[]"
175                 print  ""
176                 print_strings("boolnames", small_boolnames);
177                 print_strings("boolfnames", small_boolfnames);
178                 print_strings("numnames", small_numnames);
179                 print_strings("numfnames", small_numfnames);
180                 print_strings("strnames", small_strnames);
181                 print_strings("strfnames", small_strfnames);
182                 print  ""
183                 print  "#endif /* BROKEN_LINKER */"
184         }