1 ##############################################################################
2 # Copyright (c) 2007-2008,2009 Free Software Foundation, Inc. #
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: #
12 # The above copyright notice and this permission notice shall be included in #
13 # all copies or substantial portions of the Software. #
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. #
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 #
27 ##############################################################################
28 # $Id: MKnames.awk,v 1.22 2009/03/21 21:03:39 tom Exp $
29 function large_item
(value
) {
30 result =
sprintf("%d,", offset
);
31 offset = offset
+ length(value
) + 1;
32 offcol = offcol
+ length(result
) + 2;
39 bigstr = bigstr
sprintf("\"%s\\0\" ", value
);
40 bigcol = bigcol
+ length(value
) + 5;
42 bigstr = bigstr
"\\\n";
48 function small_item
(value
) {
49 return sprintf("\t\t\"%s\",\n", value
);
52 function print_strings
(name
,value
) {
53 printf "DCL(%s) = {\n", name
55 print "\t\t(NCURSES_CONST char *)0,"
60 function print_offsets
(name
,value
) {
61 printf "static const short _nc_offset_%s[] = {\n", name
65 printf "static NCURSES_CONST char ** ptr_%s = 0;\n", name
70 print "/* This file was generated by MKnames.awk */"
72 print "#include <curses.priv.h>"
74 print "#define IT NCURSES_CONST char * const"
83 $
1 ==
"SKIPWARN" {next;}
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);
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);
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);
108 print "#if BROKEN_LINKER || USE_REENTRANT"
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
);
121 print "alloc_array(NCURSES_CONST char ***value, const short *offsets, unsigned size)"
123 print " if (*value == 0) {"
124 print " if ((*value = typeCalloc(NCURSES_CONST char *, size + 1)) != 0) {"
126 print " for (n = 0; n < size; ++n) {"
127 print " (*value)[n] = (NCURSES_CONST char *) _nc_name_blob + offsets[n];"
131 print " return *value;"
134 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)); }"
136 print "#define DCL(it) static IT data##it[]"
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 NCURSES_PUBLIC_VAR(it)(void) { return data##it; }"
147 print "/* remove public definition which conflicts with FIX() */"
148 print "#undef boolnames"
149 print "#undef boolfnames"
150 print "#undef numnames"
151 print "#undef numfnames"
152 print "#undef strnames"
153 print "#undef strfnames"
155 print "/* add local definition */"
156 print "FIX(boolnames)"
157 print "FIX(boolfnames)"
158 print "FIX(numnames)"
159 print "FIX(numfnames)"
160 print "FIX(strnames)"
161 print "FIX(strfnames)"
163 print "/* restore the public definition */"
164 print "#define boolnames NCURSES_PUBLIC_VAR(boolnames())"
165 print "#define boolfnames NCURSES_PUBLIC_VAR(boolfnames())"
166 print "#define numnames NCURSES_PUBLIC_VAR(numnames())"
167 print "#define numfnames NCURSES_PUBLIC_VAR(numfnames())"
168 print "#define strnames NCURSES_PUBLIC_VAR(strnames())"
169 print "#define strfnames NCURSES_PUBLIC_VAR(strfnames())"
171 print "#define FREE_FIX(it) if (ptr_##it) { FreeAndNull(ptr_##it); }"
174 print "NCURSES_EXPORT(void)"
175 print "_nc_names_leaks(void)"
178 print "FREE_FIX(boolnames)"
179 print "FREE_FIX(boolfnames)"
180 print "FREE_FIX(numnames)"
181 print "FREE_FIX(numfnames)"
182 print "FREE_FIX(strnames)"
183 print "FREE_FIX(strfnames)"
190 print "#define DCL(it) NCURSES_EXPORT_VAR(IT) it[]"
192 print_strings
("boolnames", small_boolnames
);
193 print_strings
("boolfnames", small_boolfnames
);
194 print_strings
("numnames", small_numnames
);
195 print_strings
("numfnames", small_numfnames
);
196 print_strings
("strnames", small_strnames
);
197 print_strings
("strfnames", small_strfnames
);
199 print "#endif /* BROKEN_LINKER */"