# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
-# $Id: MKcodes.awk,v 1.2 2007/08/18 21:00:00 tom Exp $
+# $Id: MKcodes.awk,v 1.4 2007/11/03 20:24:15 tom Exp $
function large_item(value) {
result = sprintf("%d,", offset);
offset = offset + length(value) + 1;
printf "%s", value
print "};"
print ""
- printf "static char ** ptr_%s = 0;\n", name
+ printf "static NCURSES_CONST char ** ptr_%s = 0;\n", name
print ""
}
print_offsets("strcodes", large_strcodes);
print ""
print "static IT *"
- print "alloc_array(char ***value, const short *offsets, unsigned size)"
+ print "alloc_array(NCURSES_CONST char ***value, const short *offsets, unsigned size)"
print "{"
print " if (*value == 0) {"
- print " if ((*value = typeCalloc(char *, size + 1)) != 0) {"
+ print " if ((*value = typeCalloc(NCURSES_CONST char *, size + 1)) != 0) {"
print " unsigned n;"
print " for (n = 0; n < size; ++n) {"
print " (*value)[n] = _nc_code_blob + offsets[n];"
print "FIX(numcodes)"
print "FIX(strcodes)"
print ""
+ print "#define FREE_FIX(it) if (ptr_##it) { FreeAndNull(ptr_##it); }"
+ print ""
+ print "NCURSES_EXPORT(void)"
+ print "_nc_codes_leaks(void)"
+ print "{"
+ if (bigstrings) {
+ print "FREE_FIX(boolcodes)"
+ print "FREE_FIX(numcodes)"
+ print "FREE_FIX(strcodes)"
+ }
+ print "}"
print "#else"
print ""
print "#define DCL(it) NCURSES_EXPORT_VAR(IT) it[]"