xref: /titanic_41/usr/src/cmd/ast/msgcc/msgcpp.c (revision d4660949aa62dd6a963f4913b7120b383cf473c4)
1 /***********************************************************************
2 *                                                                      *
3 *               This software is part of the ast package               *
4 *           Copyright (c) 2000-2007 AT&T Knowledge Ventures            *
5 *                      and is licensed under the                       *
6 *                  Common Public License, Version 1.0                  *
7 *                      by AT&T Knowledge Ventures                      *
8 *                                                                      *
9 *                A copy of the License is available at                 *
10 *            http://www.opensource.org/licenses/cpl1.0.txt             *
11 *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12 *                                                                      *
13 *              Information and Software Systems Research               *
14 *                            AT&T Research                             *
15 *                           Florham Park NJ                            *
16 *                                                                      *
17 *                 Glenn Fowler <gsf@research.att.com>                  *
18 *                                                                      *
19 ***********************************************************************/
20 #pragma prototyped
21 /*
22  * Glenn Fowler
23  * AT&T Research
24  *
25  * C message catalog preprocessor
26  */
27 
28 static const char usage[] =
29 "[-?\n@(#)$Id: msgcpp (AT&T Research) 2002-03-11 $\n]"
30 USAGE_LICENSE
31 "[+NAME?msgcpp - C language message catalog preprocessor]"
32 "[+DESCRIPTION?\bmsgcpp\b is a C language message catalog preprocessor."
33 "	It accepts \bcpp\b(1) style options and arguments. \bmsgcpp\b"
34 "	preprocesses an input C source file and emits keyed lines to the"
35 "	output, usually for further processing by \bmsgcc\b(1). \bmsgcc\b"
36 "	output is in the \bgencat\b(1) syntax. Candidate message text is"
37 "	determined by arguments to the \bast\b \b<error.h>\b and"
38 "	\b<option.h>\b functions. The \bmsgcpp\b keyed output lines are:]{"
39 "	[+cmd \acommand\a?\acommand\a is a candidate for \b--??keys\b"
40 "		option string generation. Triggered by"
41 "		\bb_\b\acommand\a\b(int argc,\b in the input.]"
42 "	[+def \aname\a \astring\a?\aname\a is a candidate variable with"
43 "		string value \astring\a.]"
44 "	[+str \astring\a?\astring\a should be entered into the catalog.]"
45 "	[+var \aname\a?If \bdef\b \aname\a occurs then its \astring\a value"
46 "		should be entered into the catalog.]"
47 "	}"
48 "[+?The input source file is preprocessed with the \bpp:allpossible\b"
49 "	option on. This enables non-C semantics; all source should first"
50 "	be compiled error-free with a real compiler before running \bmsgcpp\b."
51 "	The following changes are enabled for the top level files (i.e.,"
52 "	included file behavior is not affected):]{"
53 "		[+(1)?All \b#if\b, \b#ifdef\b and \b#ifndef\b branches"
54 "			are enabled.]"
55 "		[+(2)?The first definition for a macro is retained, even when"
56 "			subsequent \b#define\b statements would normally"
57 "			redefine the macro. \b#undef\b must be used to"
58 "			redefine a macro.]"
59 "		[+(3)?Macro calls with an improper number of arguments are"
60 "			silently ignored.]"
61 "		[+(4)?\b#include\b on non-existent headers are silently"
62 "			ignored.]"
63 "		[+(5)?Invalid C source characters are silently ignored.]"
64 "	}"
65 "[+?\b\"msgcat.h\"\b is included if it exists. This file may contain macro"
66 "	definitions for functions that translate string arguments. If \afoo\a"
67 "	is a function that translates its string arguments then include the"
68 "	line \b#define \b\afoo\a\b _TRANSLATE_\b in \bmsgcat.h\b or specify"
69 "	the option \b-D\b\afoo\a\b=_TRANSLATE_\b. If \abar\a is a function"
70 "	that translates string arguments if the first argument is \bstderr\b"
71 "	then use either \b#define \b\abar\a\b _STDIO_\b or"
72 "	\b-D\b\abar\a\b=_STDIO_\b.]"
73 "[+?The macro \b_BLD_msgcat\b is defined to be \b1\b. As an alternative to"
74 "	\bmsgcat.h\b, \b_TRANSLATE_\b definitions could be placed inside"
75 "	\b#ifdef _BLD_msgcat\b ... \b#endif\b.]"
76 
77 "\n"
78 "\n[ input [ output ] ]\n"
79 "\n"
80 
81 "[+SEE ALSO?\bcc\b(1), \bcpp\b(1), \bgencat\b(1), \bmsggen\b(1),"
82 "	\bmsgcc\b(1), \bmsgcvt\b(1)]"
83 ;
84 
85 #include <ast.h>
86 #include <error.h>
87 
88 #include "pp.h"
89 #include "ppkey.h"
90 
91 #define T_STDERR	(T_KEYWORD+1)
92 #define T_STDIO		(T_KEYWORD+2)
93 #define T_TRANSLATE	(T_KEYWORD+3)
94 
95 #define OMIT		"*@(\\[[-+]*\\?*\\]|\\@\\(#\\)|Copyright \\(c\\)|\\\\000|\\\\00[!0-9]|\\\\0[!0-9])*"
96 
97 static struct ppkeyword	keys[] =
98 {
99 	"char",		T_CHAR,
100 	"int",		T_INT,
101 	"sfstderr",	T_STDERR,
102 	"stderr",	T_STDERR,
103 	"_STDIO_",	T_STDIO,
104 	"_TRANSLATE_",	T_TRANSLATE,
105 	0,		0
106 };
107 
108 static int
109 msgppargs(char** argv, int last)
110 {
111 	for (;;)
112 	{
113 		switch (optget(argv, usage))
114 		{
115 		case 0:
116 			break;
117 		case '?':
118 			if (!last)
119 			{
120 				opt_info.again = 1;
121 				return 1;
122 			}
123 			error(ERROR_USAGE|4, "%s", opt_info.arg);
124 			break;
125 		case ':':
126 			if (!last)
127 			{
128 				opt_info.again = 1;
129 				return 1;
130 			}
131 			error(2, "%s", opt_info.arg);
132 			continue;
133 		default:
134 			if (!last)
135 			{
136 				opt_info.again = 1;
137 				return 1;
138 			}
139 			continue;
140 		}
141 		break;
142 	}
143 	return argv[opt_info.index] != 0;
144 }
145 
146 int
147 main(int argc, char** argv)
148 {
149 	register char*	s;
150 	register int	x;
151 	register int	c;
152 	Sfio_t*		tmp;
153 
154 	NoP(argc);
155 	if (s = strrchr(*argv, '/'))
156 		s++;
157 	else
158 		s = *argv;
159 	error_info.id = s;
160 	ppop(PP_DEFAULT, PPDEFAULT);
161 	optjoin(argv, msgppargs, ppargs, NiL);
162 	if (strlen(s) >= 5 && *(s + 3) != 'c')
163 	{
164 		ppop(PP_PLUSPLUS, 1);
165 		ppop(PP_NOHASH, 1);
166 		ppop(PP_PROBE, "CC");
167 	}
168 	ppop(PP_SPACEOUT, 0);
169 	ppop(PP_COMPILE, keys);
170 	ppop(PP_OPTION, "allpossible");
171 	ppop(PP_OPTION, "catliteral");
172 	ppop(PP_OPTION, "modern");
173 	ppop(PP_OPTION, "readonly");
174 	ppop(PP_DEFINE, "_BLD_msgcat=1");
175 	ppop(PP_DEFINE, "const=");
176 	ppop(PP_DEFINE, "errorf=_TRANSLATE_");
177 	ppop(PP_DEFINE, "register=");
178 	ppop(PP_DEFINE, "sfstderr=sfstderr");
179 	ppop(PP_DEFINE, "stderr=stderr");
180 	ppop(PP_DEFINE, "_(m)=_TRANSLATE_(m)");
181 	ppop(PP_DEFINE, "__(m)=_TRANSLATE_(m)");
182 	ppop(PP_DEFINE, "gettxt(i,m)=_TRANSLATE_(m)");
183 	ppop(PP_DEFINE, "gettext(m)=_TRANSLATE_(m)");
184 	ppop(PP_DEFINE, "dgettext(d,m)=_TRANSLATE_(m)");
185 	ppop(PP_DEFINE, "dcgettext(d,m,c)=_TRANSLATE_(m)");
186 	ppop(PP_DEFINE, "ERROR_catalog(m)=_TRANSLATE_(m)");
187 	ppop(PP_DEFINE, "ERROR_dictionary(m)=_TRANSLATE_(m)");
188 	ppop(PP_DEFINE, "ERROR_translate(l,i,c,m)=_TRANSLATE_(m)");
189 	ppop(PP_DEFINE, "error(l,f,...)=_TRANSLATE_(f)");
190 	ppop(PP_DEFINE, "errormsg(t,l,f,...)=_TRANSLATE_(f)");
191 	ppop(PP_DIRECTIVE, "include \"msgcat.h\"");
192 	ppop(PP_OPTION, "noreadonly");
193 	ppop(PP_INIT);
194 	if (!(tmp = sfstropen()))
195 		error(ERROR_SYSTEM|3, "out of space");
196 	x = 0;
197 	for (;;)
198 	{
199 		c = pplex();
200 	again:
201 		switch (c)
202 		{
203 		case 0:
204 			break;
205 		case T_TRANSLATE:
206 			switch (c = pplex())
207 			{
208 			case '(':
209 				x = 1;
210 				break;
211 			case ')':
212 				if ((c = pplex()) != '(')
213 				{
214 					x = 0;
215 					goto again;
216 				}
217 				x = 1;
218 				break;
219 			default:
220 				x = 0;
221 				goto again;
222 			}
223 			continue;
224 		case '(':
225 			if (x > 0)
226 				x++;
227 			continue;
228 		case ')':
229 			if (x > 0)
230 				x--;
231 			continue;
232 		case T_STDIO:
233 			if ((c = pplex()) != '(' || (c = pplex()) != T_STDERR || (c = pplex()) != ',')
234 			{
235 				x = 0;
236 				goto again;
237 			}
238 			x = 1;
239 			continue;
240 		case T_STRING:
241 			if (x > 0 && !strmatch(pp.token, OMIT))
242 				sfprintf(sfstdout, "str \"%s\"\n", pp.token);
243 			continue;
244 		case T_ID:
245 			s = pp.symbol->name;
246 			if (x > 0)
247 			{
248 				if ((c = pplex()) == '+' && ppisinteger(c = pplex()))
249 					sfprintf(sfstdout, "var %s %s\n", pp.token, s);
250 				else
251 					sfprintf(sfstdout, "var %s\n", s);
252 			}
253 			else if (s[0] == 'b' && s[1] == '_' && s[2])
254 			{
255 				if ((c = pplex()) == '(' && (c = pplex()) == T_INT && (c = pplex()) == T_ID && (c = pplex()) == ',' && (c = pplex()) == T_CHAR && (c = pplex()) == '*')
256 					sfprintf(sfstdout, "cmd %s\n", s + 2);
257 				else
258 					goto again;
259 			}
260 			else
261 			{
262 				if ((c = pplex()) == '[')
263 				{
264 					if (ppisinteger(c = pplex()))
265 						c = pplex();
266 					if (c != ']')
267 						goto again;
268 					c = pplex();
269 				}
270 				if (c == '=' && (c = pplex()) == T_STRING && !strmatch(pp.token, OMIT))
271 				{
272 					sfprintf(sfstdout, "def %s \"%s\"\n", s, pp.token);
273 					sfprintf(tmp, "#define %s \"%s\"\n", s, pp.token);
274 					if (!(s = sfstruse(tmp)))
275 						error(ERROR_SYSTEM|3, "out of space");
276 					ppinput(s, "string", 0);
277 				}
278 				else
279 					goto again;
280 			}
281 			continue;
282 		default:
283 			continue;
284 		}
285 		break;
286 	}
287 	ppop(PP_DONE);
288 	return error_info.errors != 0;
289 }
290