1166124Srafan############################################################################## 2262629Sdelphij# Copyright (c) 2007-2008,2009 Free Software Foundation, Inc. # 3166124Srafan# # 4166124Srafan# Permission is hereby granted, free of charge, to any person obtaining a # 5166124Srafan# copy of this software and associated documentation files (the "Software"), # 6166124Srafan# to deal in the Software without restriction, including without limitation # 7166124Srafan# the rights to use, copy, modify, merge, publish, distribute, distribute # 8166124Srafan# with modifications, sublicense, and/or sell copies of the Software, and to # 9166124Srafan# permit persons to whom the Software is furnished to do so, subject to the # 10166124Srafan# following conditions: # 11166124Srafan# # 12166124Srafan# The above copyright notice and this permission notice shall be included in # 13166124Srafan# all copies or substantial portions of the Software. # 14166124Srafan# # 15166124Srafan# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # 16166124Srafan# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # 17166124Srafan# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL # 18166124Srafan# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # 19166124Srafan# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING # 20166124Srafan# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER # 21166124Srafan# DEALINGS IN THE SOFTWARE. # 22166124Srafan# # 23166124Srafan# Except as contained in this notice, the name(s) of the above copyright # 24166124Srafan# holders shall not be used in advertising or otherwise to promote the sale, # 25166124Srafan# use or other dealings in this Software without prior written # 26166124Srafan# authorization. # 27166124Srafan############################################################################## 28262629Sdelphij# $Id: MKnames.awk,v 1.22 2009/03/21 21:03:39 tom Exp $ 29174993Srafanfunction large_item(value) { 30174993Srafan result = sprintf("%d,", offset); 31174993Srafan offset = offset + length(value) + 1; 32174993Srafan offcol = offcol + length(result) + 2; 33174993Srafan if (offcol > 70) { 34174993Srafan result = result "\n"; 35174993Srafan offcol = 0; 36174993Srafan } else { 37174993Srafan result = result " "; 38174993Srafan } 39174993Srafan bigstr = bigstr sprintf("\"%s\\0\" ", value); 40174993Srafan bigcol = bigcol + length(value) + 5; 41174993Srafan if (bigcol > 70) { 42174993Srafan bigstr = bigstr "\\\n"; 43174993Srafan bigcol = 0; 44174993Srafan } 45174993Srafan return result; 46174993Srafan} 4750276Speter 48174993Srafanfunction small_item(value) { 49174993Srafan return sprintf("\t\t\"%s\",\n", value); 50174993Srafan} 51174993Srafan 52174993Srafanfunction print_strings(name,value) { 53174993Srafan printf "DCL(%s) = {\n", name 54174993Srafan print value 55174993Srafan print "\t\t(NCURSES_CONST char *)0," 56174993Srafan print "};" 57174993Srafan print "" 58174993Srafan} 59174993Srafan 60174993Srafanfunction print_offsets(name,value) { 61174993Srafan printf "static const short _nc_offset_%s[] = {\n", name 62174993Srafan printf "%s", value 63174993Srafan print "};" 64174993Srafan print "" 65174993Srafan printf "static NCURSES_CONST char ** ptr_%s = 0;\n", name 66174993Srafan print "" 67174993Srafan} 68174993Srafan 69174993SrafanBEGIN { 70174993Srafan print "/* This file was generated by MKnames.awk */" 71174993Srafan print "" 72174993Srafan print "#include <curses.priv.h>" 73174993Srafan print "" 74174993Srafan print "#define IT NCURSES_CONST char * const" 75174993Srafan print "" 76174993Srafan offset = 0; 77174993Srafan offcol = 0; 78174993Srafan bigcol = 0; 79174993Srafan } 80174993Srafan 8150276Speter$1 ~ /^#/ {next;} 8250276Speter 8350276Speter$1 == "SKIPWARN" {next;} 8450276Speter 8550276Speter$3 == "bool" { 86174993Srafan small_boolnames = small_boolnames small_item($2); 87174993Srafan large_boolnames = large_boolnames large_item($2); 88174993Srafan small_boolfnames = small_boolfnames small_item($1); 89174993Srafan large_boolfnames = large_boolfnames large_item($1); 9050276Speter } 9150276Speter 9250276Speter$3 == "num" { 93174993Srafan small_numnames = small_numnames small_item($2); 94174993Srafan large_numnames = large_numnames large_item($2); 95174993Srafan small_numfnames = small_numfnames small_item($1); 96174993Srafan large_numfnames = large_numfnames large_item($1); 9750276Speter } 9850276Speter 9950276Speter$3 == "str" { 100174993Srafan small_strnames = small_strnames small_item($2); 101174993Srafan large_strnames = large_strnames large_item($2); 102174993Srafan small_strfnames = small_strfnames small_item($1); 103174993Srafan large_strfnames = large_strfnames large_item($1); 10450276Speter } 10550276Speter 106174993SrafanEND { 107174993Srafan print "" 108174993Srafan print "#if BROKEN_LINKER || USE_REENTRANT" 109174993Srafan print "" 110174993Srafan if (bigstrings) { 111174993Srafan printf "static const char _nc_name_blob[] = \n" 112174993Srafan printf "%s;\n", bigstr; 113174993Srafan print_offsets("boolfnames", large_boolfnames); 114174993Srafan print_offsets("boolnames", large_boolnames); 115174993Srafan print_offsets("numfnames", large_numfnames); 116174993Srafan print_offsets("numnames", large_numnames); 117174993Srafan print_offsets("strfnames", large_strfnames); 118174993Srafan print_offsets("strnames", large_strnames); 119174993Srafan print "" 120174993Srafan print "static IT *" 121174993Srafan print "alloc_array(NCURSES_CONST char ***value, const short *offsets, unsigned size)" 122174993Srafan print "{" 123174993Srafan print " if (*value == 0) {" 124174993Srafan print " if ((*value = typeCalloc(NCURSES_CONST char *, size + 1)) != 0) {" 125174993Srafan print " unsigned n;" 126174993Srafan print " for (n = 0; n < size; ++n) {" 127184989Srafan print " (*value)[n] = (NCURSES_CONST char *) _nc_name_blob + offsets[n];" 128174993Srafan print " }" 129174993Srafan print " }" 130174993Srafan print " }" 131174993Srafan print " return *value;" 132174993Srafan print "}" 133174993Srafan print "" 134262629Sdelphij 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)); }" 135174993Srafan } else { 136174993Srafan print "#define DCL(it) static IT data##it[]" 137174993Srafan print "" 138174993Srafan print_strings("boolnames", small_boolnames); 139174993Srafan print_strings("boolfnames", small_boolfnames); 140174993Srafan print_strings("numnames", small_numnames); 141174993Srafan print_strings("numfnames", small_numfnames); 142174993Srafan print_strings("strnames", small_strnames); 143174993Srafan print_strings("strfnames", small_strfnames); 144262629Sdelphij print "#define FIX(it) NCURSES_IMPEXP IT * NCURSES_API NCURSES_PUBLIC_VAR(it)(void) { return data##it; }" 14550276Speter } 146174993Srafan print "" 147262629Sdelphij print "/* remove public definition which conflicts with FIX() */" 148262629Sdelphij print "#undef boolnames" 149262629Sdelphij print "#undef boolfnames" 150262629Sdelphij print "#undef numnames" 151262629Sdelphij print "#undef numfnames" 152262629Sdelphij print "#undef strnames" 153262629Sdelphij print "#undef strfnames" 154262629Sdelphij print "" 155262629Sdelphij print "/* add local definition */" 156174993Srafan print "FIX(boolnames)" 157174993Srafan print "FIX(boolfnames)" 158174993Srafan print "FIX(numnames)" 159174993Srafan print "FIX(numfnames)" 160174993Srafan print "FIX(strnames)" 161174993Srafan print "FIX(strfnames)" 162174993Srafan print "" 163262629Sdelphij print "/* restore the public definition */" 164262629Sdelphij print "#define boolnames NCURSES_PUBLIC_VAR(boolnames())" 165262629Sdelphij print "#define boolfnames NCURSES_PUBLIC_VAR(boolfnames())" 166262629Sdelphij print "#define numnames NCURSES_PUBLIC_VAR(numnames())" 167262629Sdelphij print "#define numfnames NCURSES_PUBLIC_VAR(numfnames())" 168262629Sdelphij print "#define strnames NCURSES_PUBLIC_VAR(strnames())" 169262629Sdelphij print "#define strfnames NCURSES_PUBLIC_VAR(strfnames())" 170174993Srafan print "" 171174993Srafan print "#define FREE_FIX(it) if (ptr_##it) { FreeAndNull(ptr_##it); }" 172174993Srafan print "" 173184989Srafan print "#if NO_LEAKS" 174174993Srafan print "NCURSES_EXPORT(void)" 175174993Srafan print "_nc_names_leaks(void)" 176174993Srafan print "{" 177174993Srafan if (bigstrings) { 178174993Srafan print "FREE_FIX(boolnames)" 179174993Srafan print "FREE_FIX(boolfnames)" 180174993Srafan print "FREE_FIX(numnames)" 181174993Srafan print "FREE_FIX(numfnames)" 182174993Srafan print "FREE_FIX(strnames)" 183174993Srafan print "FREE_FIX(strfnames)" 184174993Srafan } 185174993Srafan print "}" 186184989Srafan print "#endif" 187184989Srafan print "" 188174993Srafan print "#else" 189174993Srafan print "" 190174993Srafan print "#define DCL(it) NCURSES_EXPORT_VAR(IT) it[]" 191174993Srafan print "" 192174993Srafan print_strings("boolnames", small_boolnames); 193174993Srafan print_strings("boolfnames", small_boolfnames); 194174993Srafan print_strings("numnames", small_numnames); 195174993Srafan print_strings("numfnames", small_numfnames); 196174993Srafan print_strings("strnames", small_strnames); 197174993Srafan print_strings("strfnames", small_strfnames); 198174993Srafan print "" 199174993Srafan print "#endif /* BROKEN_LINKER */" 200174993Srafan } 201