MKunctrl.awk revision 166124 
1# $Id: MKunctrl.awk,v 1.11 2005/12/17 22:48:37 tom Exp $
2##############################################################################
3# Copyright (c) 1998-2004,2005 Free Software Foundation, Inc.                #
4#                                                                            #
5# Permission is hereby granted, free of charge, to any person obtaining a    #
6# copy of this software and associated documentation files (the "Software"), #
7# to deal in the Software without restriction, including without limitation  #
8# the rights to use, copy, modify, merge, publish, distribute, distribute    #
9# with modifications, sublicense, and/or sell copies of the Software, and to #
10# permit persons to whom the Software is furnished to do so, subject to the  #
11# following conditions:                                                      #
12#                                                                            #
13# The above copyright notice and this permission notice shall be included in #
14# all copies or substantial portions of the Software.                        #
15#                                                                            #
16# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
17# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,   #
18# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL    #
19# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER      #
20# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING    #
21# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER        #
22# DEALINGS IN THE SOFTWARE.                                                  #
23#                                                                            #
24# Except as contained in this notice, the name(s) of the above copyright     #
25# holders shall not be used in advertising or otherwise to promote the sale, #
26# use or other dealings in this Software without prior written               #
27# authorization.                                                             #
28##############################################################################
29#
30# Author: Thomas E. Dickey <dickey@clark.net> 1997
31#
32
33BEGIN	{
34		print "/* generated by MKunctrl.awk */"
35		print ""
36		print "#include <curses.priv.h>"
37		print ""
38		print "#undef unctrl"
39		print ""
40	}
41END	{
42		print "NCURSES_EXPORT(NCURSES_CONST char *) unctrl (register chtype ch)"
43		print "{"
44
45		printf "static const char* const table[] = {"
46		for ( ch = 0; ch < 256; ch++ ) {
47			gap = ","
48			if ((ch % 8) == 0)
49				printf "\n    "
50			if (ch < 32) {
51				printf "\"^\\%03o\"", ch + 64
52			} else if (ch == 127) {
53				printf "\"^?\""
54			} else if (ch >= 128 && ch < 160) {
55				printf "\"~\\%03o\"", ch - 64
56			} else {
57				printf "\"\\%03o\"", ch
58				gap = gap " "
59			}
60			if (ch == 255)
61				gap = "\n"
62			else if (((ch + 1) % 8) != 0)
63				gap = gap " "
64			printf "%s", gap
65		}
66		print "};"
67
68		print ""
69		print "#if NCURSES_EXT_FUNCS"
70		printf "static const char* const table2[] = {"
71		for ( ch = 128; ch < 160; ch++ ) {
72			gap = ","
73			if ((ch % 8) == 0)
74				printf "\n    "
75			if (ch >= 128 && ch < 160) {
76				printf "\"\\%03o\"", ch
77				gap = gap " "
78			}
79			if (ch == 255)
80				gap = "\n"
81			else if (((ch + 1) % 8) != 0)
82				gap = gap " "
83			printf "%s", gap
84		}
85		print "};"
86		print "#endif /* NCURSES_EXT_FUNCS */"
87
88		print ""
89		print "\tint check = ChCharOf(ch);"
90		print "\tconst char *result;"
91		print ""
92		print "\tif (check >= 0 && check < (int)SIZEOF(table)) {"
93		print "#if NCURSES_EXT_FUNCS"
94		print "\t\tif ((SP != 0)"
95		print "\t\t && (SP->_legacy_coding > 1)"
96		print "\t\t && (check >= 128)"
97		print "\t\t && (check < 160))"
98		print "\t\t\tresult = table2[check - 128];"
99		print "\t\telse"
100		print "#endif /* NCURSES_EXT_FUNCS */"
101		print "\t\t\tresult = table[check];"
102		print "\t} else {"
103		print "\t\tresult = 0;"
104		print "\t}"
105		print "\treturn (NCURSES_CONST char *)result;"
106		print "}"
107	}
108