1 ##############################################################################
2 # Copyright (c) 1998-2009,2010 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: MKcodes.awk,v 1.9 2010/01/23 17:57:43 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 MKcodes.awk */"
72 print "#include <curses.priv.h>"
74 print "#define IT NCURSES_CONST char * const"
83 $1 == "SKIPWARN" {next;}
86 small_boolcodes = small_boolcodes small_item($4);
87 large_boolcodes = large_boolcodes large_item($4);
91 small_numcodes = small_numcodes small_item($4);
92 large_numcodes = large_numcodes large_item($4);
96 small_strcodes = small_strcodes small_item($4);
97 large_strcodes = large_strcodes large_item($4);
102 print "#if BROKEN_LINKER || USE_REENTRANT"
105 printf "static const char _nc_code_blob[] = \n"
106 printf "%s;\n", bigstr;
107 print_offsets("boolcodes", large_boolcodes);
108 print_offsets("numcodes", large_numcodes);
109 print_offsets("strcodes", large_strcodes);
112 print "alloc_array(NCURSES_CONST char ***value, const short *offsets, unsigned size)"
114 print " if (*value == 0) {"
115 print " if ((*value = typeCalloc(NCURSES_CONST char *, size + 1)) != 0) {"
117 print " for (n = 0; n < size; ++n) {"
118 print " (*value)[n] = (NCURSES_CONST char *) _nc_code_blob + offsets[n];"
122 print " return *value;"
125 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)); }"
127 print "#define DCL(it) static IT data##it[]"
129 print_strings("boolcodes", small_boolcodes);
130 print_strings("numcodes", small_numcodes);
131 print_strings("strcodes", small_strcodes);
132 print "#define FIX(it) NCURSES_IMPEXP IT * NCURSES_API NCURSES_PUBLIC_VAR(it)(void) { return data##it; }"
135 print "/* remove public definition which conflicts with FIX() */"
136 print "#undef boolcodes"
137 print "#undef numcodes"
138 print "#undef strcodes"
140 print "/* add local definition */"
141 print "FIX(boolcodes)"
142 print "FIX(numcodes)"
143 print "FIX(strcodes)"
145 print "/* restore the public definition */"
147 print "#define FREE_FIX(it) if (ptr_##it) { FreeAndNull(ptr_##it); }"
148 print "#define boolcodes NCURSES_PUBLIC_VAR(boolcodes())"
149 print "#define numcodes NCURSES_PUBLIC_VAR(numcodes())"
150 print "#define strcodes NCURSES_PUBLIC_VAR(strcodes())"
153 print "NCURSES_EXPORT(void)"
154 print "_nc_codes_leaks(void)"
157 print "FREE_FIX(boolcodes)"
158 print "FREE_FIX(numcodes)"
159 print "FREE_FIX(strcodes)"
166 print "#define DCL(it) NCURSES_EXPORT_VAR(IT) it[]"
168 print_strings("boolcodes", small_boolcodes);
169 print_strings("numcodes", small_numcodes);
170 print_strings("strcodes", small_strcodes);
172 print "#endif /* BROKEN_LINKER */"