1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin *                                                                      *
3da2e3ebdSchin *               This software is part of the ast package               *
4*b30d1939SAndy Fiddaman *          Copyright (c) 1986-2011 AT&T Intellectual Property          *
5da2e3ebdSchin *                      and is licensed under the                       *
6*b30d1939SAndy Fiddaman *                 Eclipse Public License, Version 1.0                  *
77c2fbfb3SApril Chin *                    by AT&T Intellectual Property                     *
8da2e3ebdSchin *                                                                      *
9da2e3ebdSchin *                A copy of the License is available at                 *
10*b30d1939SAndy Fiddaman *          http://www.eclipse.org/org/documents/epl-v10.html           *
11*b30d1939SAndy Fiddaman *         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
12da2e3ebdSchin *                                                                      *
13da2e3ebdSchin *              Information and Software Systems Research               *
14da2e3ebdSchin *                            AT&T Research                             *
15da2e3ebdSchin *                           Florham Park NJ                            *
16da2e3ebdSchin *                                                                      *
17da2e3ebdSchin *                 Glenn Fowler <gsf@research.att.com>                  *
18da2e3ebdSchin *                                                                      *
19da2e3ebdSchin ***********************************************************************/
20da2e3ebdSchin #pragma prototyped
21da2e3ebdSchin /*
22da2e3ebdSchin  * Glenn Fowler
23da2e3ebdSchin  * AT&T Research
24da2e3ebdSchin  *
25da2e3ebdSchin  * common preprocessor command line argument parse
26da2e3ebdSchin  * called by optjoin()
27da2e3ebdSchin  */
29da2e3ebdSchin static const char usage[] =
3034f9b3eeSRoland Mainz "[-?\n@(#)$Id: cpp (AT&T Research) 2009-02-02 $\n]"
31da2e3ebdSchin USAGE_LICENSE
32da2e3ebdSchin "[+NAME?cpp - C language preprocessor]"
33da2e3ebdSchin "[+DESCRIPTION?\bcpp\b is the preprocessor for all C language dialects. It is"
34da2e3ebdSchin "	a standalone version of the \blibpp\b(3) preprocessor library. The"
35da2e3ebdSchin "	C dialect implemented by \bcpp\b is determined by probing \bcc\b(1)"
36da2e3ebdSchin "	using \bprobe\b(1). The path of the emulated compiler can be changed"
37da2e3ebdSchin "	by the \b-D-X\b command line option.]"
38da2e3ebdSchin "[+?If \aoutput\a is omitted then the standard output is written; if \ainput\a"
39da2e3ebdSchin "	is also omitted then the standard input is read. NOTE: this is an"
40da2e3ebdSchin "	ancient, non-standard, non-intuitiive file operand syntax that is"
41da2e3ebdSchin "	required by \bcc\b(1); use shell file name expansion at your peril.]"
42da2e3ebdSchin "[+?\bcpp\b specific options are set by the \b-D-\b and \b-I-\b options.]"
44da2e3ebdSchin "[C:comments?Pass comments to the output. By default comments are omitted.]"
45da2e3ebdSchin "[D:define?Define the macro \aname\a to have \avalue\a; \b1\b is assumed if"
46da2e3ebdSchin "	\b=\b\avalue\a is omitted. If \aname\a begins with \b:\b then it is"
47da2e3ebdSchin "	interpreted as a \blibpp\b(3) \b#pragma pp:\b statement; if \aname\a"
48da2e3ebdSchin "	begins with \b%\b then it is interpreted as a \blibpp\b(3) \b#\b"
49da2e3ebdSchin "	directive statement; if \aname\a begins with \b-\b or \b+\b then it is"
50da2e3ebdSchin "	interpreted as a \blibpp\b(3) option; \b-\b turns the option on,"
51da2e3ebdSchin "	\b+\b turns it off. Most options have a \b#pragma\b counterpart that"
52da2e3ebdSchin "	is listed with the option definition. Right, this is ugly, but its the"
53da2e3ebdSchin "	only portable way to pass options through \bcc\b(1) to"
54da2e3ebdSchin "	\bcpp\b:]:[name[=value]]]{"
55da2e3ebdSchin "	[+-D-C, pp::compatibility?Preprocess for K&R compatibility.]"
56da2e3ebdSchin "	[+-D-D\alevel\a, \bpp::debug\b \alevel\a?Set the debug trace level."
57da2e3ebdSchin "		Higher levels produce more output. Levels higher than 3"
58da2e3ebdSchin "		enabled only in \b-g\b compiled versions.]"
59da2e3ebdSchin "	[+-D-F\aname\a?Set the main input file name to \aname\a. This only"
60da2e3ebdSchin "		affects error message and line sync output.]"
61da2e3ebdSchin "	[+-D-H, pp::hosted?All directories are hosted; compatibility"
62da2e3ebdSchin "		warning messages from hosted directory headers are suppressed.]"
63da2e3ebdSchin "	[+-D-I, pp::cdir?All directories contain C headers; used only with"
64da2e3ebdSchin "		\b-D-+\b.]"
65da2e3ebdSchin "	[+-D-K, pp::keyargs?Enable the non-standard \aname=value\a macro"
66da2e3ebdSchin "		argument mode.]"
67da2e3ebdSchin "	[+-D-L\b[\aid\a]], \bpp::lineid\b [\aid\a]]?Set the line sync directive"
68da2e3ebdSchin "		id to \aid\a or null if omitted.]"
69da2e3ebdSchin "	[+-D-M, pp::nomultiple?Disable multiple include detection.]"
70da2e3ebdSchin "	[+-D-P, pp::passthrough?Enable the non-standard passthrough mode; may"
71da2e3ebdSchin "		be useful for processing non-C input.]"
72da2e3ebdSchin "	[+-D-Q, pp::dump?Dump macro definitions to the output so that the"
73da2e3ebdSchin "		output may be passed through \bcpp\b again. Used for"
74da2e3ebdSchin "		generating precompiled headers.]"
75da2e3ebdSchin "	[+-D-R, pp::transition?Enable the transition preprocessing mode. Used"
76da2e3ebdSchin "		for compilers that can't make up their semantics between"
77da2e3ebdSchin "		K&R and ISO.]"
78da2e3ebdSchin "	[+-D-S, pp::strict?Enable strict preprocessing semantics and warnings."
79da2e3ebdSchin "		Works with any mode (compatibiliy, transition,"
80da2e3ebdSchin "		or the default ISO).]"
81da2e3ebdSchin "	[+-D-T\atest\a, \bpp::test\b \atest\a?Enable implementation specific"
82da2e3ebdSchin "		test code according to \atest\a.]"
837c2fbfb3SApril Chin "	[+-D-W, pp::warn?Enable warnings in non-hosted files.]"
84da2e3ebdSchin "	[+-D-X\b[\acc\a]]?Preprocess for the compiler \acc\a which must be"
85da2e3ebdSchin "		an executable path or an executable on \b$PATH\b.]"
867c2fbfb3SApril Chin "	[+-D-Y, pp::pedantic?Enable pedantic \bpp::warn\b warnings in"
877c2fbfb3SApril Chin "		non-hosted files.]"
88da2e3ebdSchin "	[+-D-Z, pp::pool?Enable pool mode. See \blibpp\b(3).]"
89da2e3ebdSchin "	[+-D-d?List canonicalized \b#define\b statements for non-predefined"
90da2e3ebdSchin "		macros in the output. ]"
91da2e3ebdSchin "	[+-D-m?List canonicalized \b#define\b statements for all macros. All"
92da2e3ebdSchin "		other output is disabled.]"
93da2e3ebdSchin "	[+-D-+, pp::plusplus?Preprocess for the C++ dialect.]"
94da2e3ebdSchin "}"
95da2e3ebdSchin "[I:include?Append \adirectory\a to the list of directories searched for"
96da2e3ebdSchin "	\b#include\b files. If \adirectory\a is \b-\b then: (1) \b-I\b"
97da2e3ebdSchin "	directories before \b-I-\b are searched only for \"...\" include"
98da2e3ebdSchin "	files; (2) \b-I\b directories after \b-I-\b are searched for"
99da2e3ebdSchin "	\"...\" and <...> include files; (3) the directory \b.\b is searched"
100da2e3ebdSchin "	only if it is explicitly specified by a \b-I\b option.]:?[directory]{"
101da2e3ebdSchin "	[+-I-C\adirectory\a, \bpp::cdir\b \adirectory\a?Mark \adirectory\a"
102da2e3ebdSchin "		as a C header directory. Used with \bpp:plusplus\b.]"
103da2e3ebdSchin "	[+-I-D[\afile\a]]?Read the default \bprobe\b(1) definitions from"
104da2e3ebdSchin "		\afile\a, or ignore the default definitions if \afile\a"
105da2e3ebdSchin "		is omitted.]"
106da2e3ebdSchin "	[+-I-H\adirectory\a, \bpp::hostdir\b \adirectory\a?Mark \adirectory\a"
107da2e3ebdSchin "		as a hosted directory. Headers from hosted directories have"
108da2e3ebdSchin "		compatibility warnings disabled.]"
109da2e3ebdSchin "	[+-I-I\aheader\a, \bpp::ignore\b \aheader\a?Add \aheader\a to the"
110da2e3ebdSchin "		list of ignored headers.]"
111da2e3ebdSchin "	[+-I-M\afile\a?\afile\a contains a sequence of \aheader\a"
112da2e3ebdSchin "		[= \"\amap\a\" ]] lines, where \aheader\a is either <\aname\a>"
113da2e3ebdSchin "		or \"\aname\a\", and \"\amap\a\" is an explicit binding"
114da2e3ebdSchin "		for \aheader\a. \aheader\a is ignored if = \"\amap\a\" is"
115da2e3ebdSchin "		omitted.]"
116da2e3ebdSchin "	[+-I-R\afile\a?Include \afile\a but do not emit text or line syncs.]"
117da2e3ebdSchin "	[+-I-S\adirectory\a?Add \adirectory\a to the default standard include"
118da2e3ebdSchin "		directory list.]"
119da2e3ebdSchin "	[+-I-T\afile\a?Include \afile\a and emit text to the output file.]"
120da2e3ebdSchin "}"
121da2e3ebdSchin "[M:dependencies?Generate \bmake\b(1) dependencies. Not needed with"
122da2e3ebdSchin "	\bnmake\b(1). \b-M\b may be followed by optional \aflags\a to change"
123da2e3ebdSchin "	dependency output styles:]{"
124da2e3ebdSchin "	[+D?Generate dependencies in a separate \b.d\b file. Preprocessed"
125da2e3ebdSchin "		output is still written to \aoutput\a, or the standard output"
126da2e3ebdSchin "		if \aoutput\a is omitted.]"
127da2e3ebdSchin "	[+G?Generate missing dependencies too.]"
128da2e3ebdSchin "	[+M?Only generate local header dependencies; \ahosted\a headers are"
129da2e3ebdSchin "		omitted. Note that \ahosted\a headers are determined by"
130da2e3ebdSchin "		\b-I-H\b and the \bpp:hosted\b and \bpp:hostdir\b pragmas;"
131da2e3ebdSchin "		no special distiction is made between \"\" and <> \binclude\b"
132da2e3ebdSchin "		styles.]"
133da2e3ebdSchin "}"
134da2e3ebdSchin "[P!:sync?Emit line syncs.]"
135da2e3ebdSchin "[U:undefine?Remove the definition for the macro \aname\a.]:[name]"
137da2e3ebdSchin "[A:assert?Enter the assertion via \b#assert\b for system V"
138da2e3ebdSchin "	compatibility.]:[assertion]"
139da2e3ebdSchin "[E:preprocess?Ignored for compatibility with ancient compilers.]"
140da2e3ebdSchin "[H:include-reference?Emit \b#include\b file paths on the standard error,"
141*b30d1939SAndy Fiddaman "	one per line, indented to show nesting. If the optional \asize\a"
142*b30d1939SAndy Fiddaman "	argument is specified then the entire \b-H\b option is"
143*b30d1939SAndy Fiddaman "	ignored.]#?[size]"
144da2e3ebdSchin "[T?If not \bgcc\b(1) then truncate identifiers to \alength\a"
145da2e3ebdSchin "	characters for compatibility with old AT&T (I guess only Lucent needs"
146da2e3ebdSchin "	them now) compilers.]#?[length]"
147da2e3ebdSchin "[V:version?Emit the \blibpp\b(3) version.]"
148da2e3ebdSchin "[X:argmode?Enable \aname\a=\avalue\a macro arguments for \beasel\b(1)"
149da2e3ebdSchin "	compatibility.]"
150da2e3ebdSchin "[Y:standard?Add \adirectory\a to the list searched for"
151da2e3ebdSchin "	\b#include\b \b<...>\b files.]:[directory]"
153da2e3ebdSchin "\n"
154da2e3ebdSchin "\n[ input [ output ] ]\n"
155da2e3ebdSchin "\n"
157da2e3ebdSchin "[+SEE ALSO?\bcc\b(1), \bgcc\b(1), \blibpp\b(3)]"
158da2e3ebdSchin ;
160da2e3ebdSchin #include "pplib.h"
162da2e3ebdSchin #include <ctype.h>
164da2e3ebdSchin /*
165da2e3ebdSchin  * convert lint comments to pragmas
166da2e3ebdSchin  */
168da2e3ebdSchin static void
pplint(char * head,char * comment,char * tail,int line)169da2e3ebdSchin pplint(char* head, char* comment, char* tail, int line)
170da2e3ebdSchin {
171da2e3ebdSchin 	NoP(line);
173da2e3ebdSchin 	{
174da2e3ebdSchin 		strncopy(pp.token, comment, MAXTOKEN);
175da2e3ebdSchin 		ppprintf("\n#%s %s:%s\n", dirname(PRAGMA), pp.pass, pp.token);
176da2e3ebdSchin 		ppline(error_info.line, NiL);
177da2e3ebdSchin 	}
178da2e3ebdSchin }
180da2e3ebdSchin /*
181da2e3ebdSchin  * if last!=0 then argv[opt_info.index]==0 with return(0)
182da2e3ebdSchin  * else if argv[opt_info.index]==0 then return(0)
183da2e3ebdSchin  * otherwise argv[opt_info.index] is the first unrecognized
184da2e3ebdSchin  * option with return(1)
185da2e3ebdSchin  *
186da2e3ebdSchin  * use last=0 if the preprocessor is combined with other passes
187da2e3ebdSchin  * so that unknown options may be interpreted for those passes
188da2e3ebdSchin  */
190da2e3ebdSchin int
ppargs(char ** argv,int last)191da2e3ebdSchin ppargs(char** argv, int last)
192da2e3ebdSchin {
193da2e3ebdSchin 	register char*	s;
194da2e3ebdSchin 	register int	c;
195da2e3ebdSchin 	register int	n;
196da2e3ebdSchin 	char*		p;
198da2e3ebdSchin 	/*
199da2e3ebdSchin 	 * check the args and initialize
200da2e3ebdSchin 	 */
202da2e3ebdSchin 	if (!error_info.id)
203da2e3ebdSchin 		error_info.id = "cpp";
204da2e3ebdSchin 	for (;;)
205da2e3ebdSchin 	{
206da2e3ebdSchin 		for (; c = optget(argv, usage); last = 0) switch (c)
207da2e3ebdSchin 		{
208da2e3ebdSchin 		case 'C':
209da2e3ebdSchin 			ppop(PP_COMMENT, ppcomment);
210da2e3ebdSchin 			break;
211da2e3ebdSchin 		case 'D':
212da2e3ebdSchin 			/*
213da2e3ebdSchin 			 * this allows single arg pp option extensions
214da2e3ebdSchin 			 * without touching cc
215da2e3ebdSchin 			 * (not all cc wrappers have -W...)
216da2e3ebdSchin 			 */
218da2e3ebdSchin 			switch (*(s = opt_info.arg))
219da2e3ebdSchin 			{
220da2e3ebdSchin 			case '-':
221da2e3ebdSchin 			case '+':
222da2e3ebdSchin 				n = (*s++ == '-');
223da2e3ebdSchin 				while (c = *s++) switch (c)
224da2e3ebdSchin 				{
225da2e3ebdSchin 				case 'C':
226da2e3ebdSchin 					ppop(PP_COMPATIBILITY, n);
227da2e3ebdSchin 					break;
228da2e3ebdSchin 				case 'D':
229da2e3ebdSchin 					if (n && ((c = strtol(s, &p, 0)) || p != s))
230da2e3ebdSchin 					{
231da2e3ebdSchin 						s = p;
232da2e3ebdSchin 						n = c;
233da2e3ebdSchin 					}
234da2e3ebdSchin 					ppop(PP_DEBUG, -n);
235da2e3ebdSchin 					break;
236da2e3ebdSchin 				case 'F':
237da2e3ebdSchin 					ppop(PP_FILENAME, n ? s : NiL);
238da2e3ebdSchin 					goto hasarg;
239da2e3ebdSchin 				case 'H':
240da2e3ebdSchin 					ppop(PP_HOSTDIR, "-", n);
241da2e3ebdSchin 					break;
242da2e3ebdSchin 				case 'I':
243da2e3ebdSchin 					ppop(PP_CDIR, "-", n);
244da2e3ebdSchin 					break;
245da2e3ebdSchin 				case 'K':
246da2e3ebdSchin 					ppop(PP_KEYARGS, n);
247da2e3ebdSchin 					break;
248da2e3ebdSchin 				case 'L':
249da2e3ebdSchin 					ppop(PP_LINEID, n && *s ? s : "line");
250da2e3ebdSchin 					goto hasarg;
251da2e3ebdSchin 				case 'M':
252da2e3ebdSchin 					ppop(PP_MULTIPLE, !n);
253da2e3ebdSchin 					break;
254da2e3ebdSchin 				case 'P':
255da2e3ebdSchin 					ppop(PP_PASSTHROUGH, n);
256da2e3ebdSchin 					break;
257da2e3ebdSchin 				case 'Q':
258da2e3ebdSchin 					ppop(PP_DUMP, n);
259da2e3ebdSchin 					break;
260da2e3ebdSchin 				case 'R':
261da2e3ebdSchin 					ppop(PP_TRANSITION, n);
262da2e3ebdSchin 					break;
263da2e3ebdSchin 				case 'S':
264da2e3ebdSchin 					ppop(PP_STRICT, n);
265da2e3ebdSchin 					break;
266da2e3ebdSchin 				case 'T':
267da2e3ebdSchin 					ppop(PP_TEST, s);
268da2e3ebdSchin 					goto hasarg;
269da2e3ebdSchin 				case 'V':
270da2e3ebdSchin 					ppop(PP_VENDOR, "-", n);
271da2e3ebdSchin 					break;
272da2e3ebdSchin 				case 'W':
273da2e3ebdSchin 					ppop(PP_WARN, n);
274da2e3ebdSchin 					break;
275da2e3ebdSchin 				case 'X':
276da2e3ebdSchin 					ppop(PP_PROBE, n && *s ? s : 0);
277da2e3ebdSchin 					goto hasarg;
2787c2fbfb3SApril Chin 				case 'Y':
2797c2fbfb3SApril Chin 					ppop(PP_PEDANTIC, n);
2807c2fbfb3SApril Chin 					break;
281da2e3ebdSchin 				case 'Z':
282da2e3ebdSchin 					ppop(PP_POOL, n);
283da2e3ebdSchin 					break;
284da2e3ebdSchin 				case 'd':
285da2e3ebdSchin 					pp.option |= DEFINITIONS;
286da2e3ebdSchin 					break;
287da2e3ebdSchin 				case 'm':
288da2e3ebdSchin 					pp.state |= NOTEXT;
289da2e3ebdSchin 					pp.option |= KEEPNOTEXT|DEFINITIONS|PREDEFINITIONS;
290da2e3ebdSchin 					pp.linesync = 0;
291da2e3ebdSchin 					break;
292da2e3ebdSchin 				case '+':
293da2e3ebdSchin 					ppop(PP_PLUSPLUS, n);
294da2e3ebdSchin 					break;
295da2e3ebdSchin 				default:
296da2e3ebdSchin 					if (pp.optarg)
297da2e3ebdSchin 					{
298da2e3ebdSchin 						if ((c = (*pp.optarg)(n, c, s)) > 0) goto hasarg;
299da2e3ebdSchin 						else if (!c) break;
300da2e3ebdSchin 					}
301da2e3ebdSchin 					error(1, "%c%s: unknown -D option overload", n ? '-' : '+', s - 1);
302da2e3ebdSchin 					goto hasarg;
303da2e3ebdSchin 				}
304da2e3ebdSchin 			hasarg:
305da2e3ebdSchin 				break;
306da2e3ebdSchin 			case ':':
307da2e3ebdSchin 				ppop(PP_OPTION, s + 1);
308da2e3ebdSchin 				break;
309da2e3ebdSchin 			case '%':
310da2e3ebdSchin 				ppop(PP_DIRECTIVE, s + 1);
311da2e3ebdSchin 				break;
312da2e3ebdSchin 			case '_':
313da2e3ebdSchin 				if (strmatch(s, "__GNUC__*"))
314da2e3ebdSchin 					pp.arg_style |= STYLE_gnu;
315da2e3ebdSchin 				else if (strmatch(s, "__(ANSI|STDC|STRICT)__*") || !(pp.arg_style & STYLE_gnu) && strmatch(s, "__STRICT_ANSI__*"))
316da2e3ebdSchin 					ppop(PP_STRICT, 1);
317da2e3ebdSchin 				else if (strmatch(s, "__cplusplus*"))
318da2e3ebdSchin 					ppop(PP_PLUSPLUS, 1);
319da2e3ebdSchin 				/*FALLTHROUGH*/
320da2e3ebdSchin 			default:
321da2e3ebdSchin 				ppop(PP_DEFINE, s);
322da2e3ebdSchin 				break;
323da2e3ebdSchin 			}
324da2e3ebdSchin 			break;
325da2e3ebdSchin 		case 'E':
326da2e3ebdSchin 			/* historically ignored */
327da2e3ebdSchin 			break;
328da2e3ebdSchin 		case 'I':
329da2e3ebdSchin 			if (!(s = opt_info.arg))
330da2e3ebdSchin 			{
331da2e3ebdSchin 				/*
332da2e3ebdSchin 				 * some compilers interpret `-I ...' as
333da2e3ebdSchin 				 * `-I-S' and arg ... while others interpret
334da2e3ebdSchin 				 * it as `-I...'
335da2e3ebdSchin 				 */
337da2e3ebdSchin 				p = "-S";
338da2e3ebdSchin 				if ((s = argv[opt_info.index]) && ((n = *s++) == '-' || n == '+') && *s++ == 'D')
339da2e3ebdSchin 				{
340da2e3ebdSchin 					if (isalpha(*s) || *s == '_')
341da2e3ebdSchin 						while (isalnum(*++s) || *s == '_');
342da2e3ebdSchin 					if (*s && *s != '=' && *s != '-' && *s != '+')
343da2e3ebdSchin 						p = argv[opt_info.index++];
344da2e3ebdSchin 				}
345da2e3ebdSchin 				s = p;
346da2e3ebdSchin 			}
347da2e3ebdSchin 			switch (*s)
348da2e3ebdSchin 			{
349da2e3ebdSchin 			case '-':
350da2e3ebdSchin 			case '+':
351da2e3ebdSchin 				n = *(p = s++) == '-';
352da2e3ebdSchin 				c = *s++;
353da2e3ebdSchin 				if (!n && !*s) s = 0;
354da2e3ebdSchin 				switch (c)
355da2e3ebdSchin 				{
356da2e3ebdSchin 				case 0:
357da2e3ebdSchin 					ppop(PP_LOCAL);
358da2e3ebdSchin 					break;
359da2e3ebdSchin 				case 'C':
360da2e3ebdSchin 					ppop(PP_CDIR, s, n);
361da2e3ebdSchin 					break;
362da2e3ebdSchin 				case 'D':
363da2e3ebdSchin 					ppop(PP_DEFAULT, s);
364da2e3ebdSchin 					break;
365da2e3ebdSchin 				case 'H':
366da2e3ebdSchin 					ppop(PP_HOSTDIR, s, n);
367da2e3ebdSchin 					break;
368da2e3ebdSchin 				case 'I':
369da2e3ebdSchin 					ppop(PP_IGNORE, s);
370da2e3ebdSchin 					break;
371da2e3ebdSchin 				case 'M':
372da2e3ebdSchin 					ppop(PP_IGNORELIST, s);
373da2e3ebdSchin 					break;
374da2e3ebdSchin 				case 'R':
375da2e3ebdSchin 					ppop(PP_READ, s);
376da2e3ebdSchin 					break;
377da2e3ebdSchin 				case 'S':
378da2e3ebdSchin 					ppop(PP_STANDARD, s);
379da2e3ebdSchin 					break;
380da2e3ebdSchin 				case 'T':
381da2e3ebdSchin 					ppop(PP_TEXT, s);
382da2e3ebdSchin 					break;
383da2e3ebdSchin 				case 'V':
384da2e3ebdSchin 					ppop(PP_VENDOR, s, n);
385da2e3ebdSchin 					break;
386da2e3ebdSchin 				default:
387da2e3ebdSchin 					error(1, "%s: unknown -I option overload", p);
388da2e3ebdSchin 					break;
389da2e3ebdSchin 				}
390da2e3ebdSchin 				break;
391da2e3ebdSchin 			default:
392da2e3ebdSchin 				ppop(PP_INCLUDE, s);
393da2e3ebdSchin 				break;
394da2e3ebdSchin 			}
395da2e3ebdSchin 			break;
396da2e3ebdSchin 		case 'M':
397da2e3ebdSchin 			for (n = PP_deps; argv[opt_info.index]; opt_info.offset++)
398da2e3ebdSchin 			{
399da2e3ebdSchin 				switch (argv[opt_info.index][opt_info.offset])
400da2e3ebdSchin 				{
401da2e3ebdSchin 				case 'D':
402da2e3ebdSchin 					n |= PP_deps_file;
403da2e3ebdSchin 					continue;
404da2e3ebdSchin 				case 'G':
405da2e3ebdSchin 					n |= PP_deps_generated;
406da2e3ebdSchin 					continue;
407da2e3ebdSchin 				case 'M':
408da2e3ebdSchin 					n |= PP_deps_local;
409da2e3ebdSchin 					continue;
410da2e3ebdSchin 				}
411da2e3ebdSchin 				break;
412da2e3ebdSchin 			}
413da2e3ebdSchin 			ppop(PP_FILEDEPS, n);
414da2e3ebdSchin 			break;
415da2e3ebdSchin 		case 'P':
416da2e3ebdSchin 			ppop(PP_LINE, (PPLINESYNC)0);
417da2e3ebdSchin 			break;
418da2e3ebdSchin 		case 'U':
419da2e3ebdSchin 			ppop(PP_UNDEF, opt_info.arg);
420da2e3ebdSchin 			break;
422da2e3ebdSchin 		/*
423da2e3ebdSchin 		 * System V CCS compatibility
424da2e3ebdSchin 		 */
426da2e3ebdSchin 		case 'A':
427da2e3ebdSchin 			if (isalpha(opt_info.arg[0]) || opt_info.arg[0] == '_' || opt_info.arg[0] == '$')
428da2e3ebdSchin 				ppop(PP_ASSERT, opt_info.arg);
429da2e3ebdSchin 			break;
430da2e3ebdSchin 		case 'H':
431*b30d1939SAndy Fiddaman 			if (!opt_info.arg)
432*b30d1939SAndy Fiddaman 				ppop(PP_INCREF, ppincref);
433da2e3ebdSchin 			break;
434da2e3ebdSchin 		case 'T':
435da2e3ebdSchin 			if (!(pp.arg_style & STYLE_gnu))
436da2e3ebdSchin 				ppop(PP_TRUNCATE, TRUNCLENGTH);
437da2e3ebdSchin 			/* else enable ANSI trigraphs -- default */
438da2e3ebdSchin 			break;
439da2e3ebdSchin 		case 'V':
440da2e3ebdSchin 			error(0, "%s", pp.version);
441da2e3ebdSchin 			break;
442da2e3ebdSchin 		case 'X':
443da2e3ebdSchin 			pp.arg_mode = (*(opt_info.arg + 1) || pp.arg_mode && pp.arg_mode != *opt_info.arg) ? '-' : *opt_info.arg;
444da2e3ebdSchin 			break;
445da2e3ebdSchin 		case 'Y':
446da2e3ebdSchin 			if (*(s = opt_info.arg) && *(s + 1) == ',')
447da2e3ebdSchin 			{
448da2e3ebdSchin 				if (*s != 'I') break;
449da2e3ebdSchin 				s += 2;
450da2e3ebdSchin 			}
451da2e3ebdSchin 			ppop(PP_STANDARD, s);
452da2e3ebdSchin 			break;
454da2e3ebdSchin 		/*
455da2e3ebdSchin 		 * errors
456da2e3ebdSchin 		 */
458da2e3ebdSchin 		case '?':
459da2e3ebdSchin 			error(ERROR_USAGE|4, "%s", opt_info.arg);
460da2e3ebdSchin 			break;
461da2e3ebdSchin 		case ':':
462da2e3ebdSchin 			if (!last)
463da2e3ebdSchin 			{
464da2e3ebdSchin 				opt_info.again = 1;
465da2e3ebdSchin 				return(1);
466da2e3ebdSchin 			}
468da2e3ebdSchin 			/*
469da2e3ebdSchin 			 * cross your fingers
470da2e3ebdSchin 			 */
472da2e3ebdSchin 			if (!(s = argv[opt_info.index]))
473da2e3ebdSchin 				error(3, "%s", opt_info.arg);
474da2e3ebdSchin 			if (opt_info.offset == 2 && (pp.arg_style & STYLE_gnu))
475da2e3ebdSchin 			{
476da2e3ebdSchin 				p = argv[opt_info.index + 1];
477da2e3ebdSchin 				if (streq(s, "-$"))
478da2e3ebdSchin 				{
479da2e3ebdSchin 					ppop(PP_OPTION, "noid \"$\"");
480da2e3ebdSchin 					goto ignore;
481da2e3ebdSchin 				}
482da2e3ebdSchin 				else if (streq(s, "-dD"))
483da2e3ebdSchin 				{
484da2e3ebdSchin 					pp.option |= DEFINITIONS;
485da2e3ebdSchin 					goto ignore;
486da2e3ebdSchin 				}
487da2e3ebdSchin 				else if (streq(s, "-dM"))
488da2e3ebdSchin 				{
489da2e3ebdSchin 					pp.state |= NOTEXT;
490da2e3ebdSchin 					pp.option |= KEEPNOTEXT|DEFINITIONS|PREDEFINITIONS;
491da2e3ebdSchin 					pp.linesync = 0;
492da2e3ebdSchin 					goto ignore;
493da2e3ebdSchin 				}
494da2e3ebdSchin 				else if (streq(s, "-imacros"))
495da2e3ebdSchin 				{
496da2e3ebdSchin 					if (p)
497da2e3ebdSchin 					{
498da2e3ebdSchin 						ppop(PP_READ, p);
499da2e3ebdSchin 						opt_info.index++;
500da2e3ebdSchin 						opt_info.offset = 0;
501da2e3ebdSchin 					}
502da2e3ebdSchin 					goto ignore;
503da2e3ebdSchin 				}
504da2e3ebdSchin 				else if (streq(s, "-include"))
505da2e3ebdSchin 				{
506da2e3ebdSchin 					if (p)
507da2e3ebdSchin 					{
508da2e3ebdSchin 						ppop(PP_TEXT, p);
509da2e3ebdSchin 						opt_info.index++;
510da2e3ebdSchin 						opt_info.offset = 0;
511da2e3ebdSchin 					}
512da2e3ebdSchin 					opt_info.offset = 0;
513da2e3ebdSchin 					goto ignore;
514da2e3ebdSchin 				}
515da2e3ebdSchin 				else if (strneq(s, "-lang-", 6))
516da2e3ebdSchin 				{
517da2e3ebdSchin 					s += 6;
518da2e3ebdSchin 					if (streq(s, "c"))
519da2e3ebdSchin 						c = 0;
520da2e3ebdSchin 					else if (streq(s, "c++"))
521da2e3ebdSchin 						c = 1;
522da2e3ebdSchin 					else if (streq(s, "objc"))
523da2e3ebdSchin 						c = 2;
524da2e3ebdSchin 					else if (streq(s, "objc++"))
525da2e3ebdSchin 						c = 3;
526da2e3ebdSchin 					ppop(PP_PLUSPLUS, c & 1);
527da2e3ebdSchin 					if (c & 2)
528da2e3ebdSchin 						ppop(PP_DIRECTIVE, "pragma pp:map \"/#(pragma )?import>/\" \"/#(pragma )?import(.*)/__STDPP__IMPORT__(\\2)/\"\n\
529da2e3ebdSchin #macdef __STDPP__IMPORT__(x)\n\
530da2e3ebdSchin #pragma pp:noallmultiple\n\
531da2e3ebdSchin #include x\n\
532da2e3ebdSchin #pragma pp:allmultiple\n\
533da2e3ebdSchin #endmac");
534da2e3ebdSchin 					goto ignore;
535da2e3ebdSchin 				}
536da2e3ebdSchin 				else if (streq(s, "-lint"))
537da2e3ebdSchin 				{
538da2e3ebdSchin 					ppop(PP_COMMENT, pplint);
539da2e3ebdSchin 					goto ignore;
540da2e3ebdSchin 				}
541da2e3ebdSchin 			}
542da2e3ebdSchin 			s += opt_info.offset - 1;
543da2e3ebdSchin 			if (strmatch(s, "i*.h"))
544da2e3ebdSchin 				ppop((pp.arg_style & STYLE_gnu) || s[1] == '/' ? PP_READ : PP_TEXT, s + 1);
545da2e3ebdSchin 			else if (strmatch(s, "*@(nostandard|nostdinc)*"))
546da2e3ebdSchin 				ppop(PP_STANDARD, "");
547da2e3ebdSchin 			else if (strmatch(s, "*@(exten|xansi)*|std"))
548da2e3ebdSchin 			{
549da2e3ebdSchin 				ppop(PP_COMPATIBILITY, 0);
550da2e3ebdSchin 				ppop(PP_TRANSITION, 1);
551da2e3ebdSchin 			}
552da2e3ebdSchin 			else if (strmatch(s, "*@(ansi|conform|pedantic|stand|std1|strict[!-])*"))
553da2e3ebdSchin 			{
554da2e3ebdSchin 				ppop(PP_COMPATIBILITY, 0);
555da2e3ebdSchin 				ppop(PP_STRICT, 1);
556da2e3ebdSchin 				if (strmatch(s, "*pedantic*"))
557da2e3ebdSchin 					ppop(PP_PEDANTIC, 1);
558da2e3ebdSchin 			}
559da2e3ebdSchin 			else if (strmatch(s, "*@(trans)*"))
560da2e3ebdSchin 			{
561da2e3ebdSchin 				ppop(PP_COMPATIBILITY, 1);
562da2e3ebdSchin 				ppop(PP_TRANSITION, 1);
563da2e3ebdSchin 			}
564da2e3ebdSchin 			else if (strmatch(s, "*@(classic|compat|std0|tradition|[kK][n&+][rR])*"))
565da2e3ebdSchin 			{
566da2e3ebdSchin 				ppop(PP_COMPATIBILITY, 1);
567da2e3ebdSchin 				ppop(PP_TRANSITION, 0);
568da2e3ebdSchin 			}
569da2e3ebdSchin 			else if (strmatch(s, "*@(plusplus|++)*"))
570da2e3ebdSchin 				ppop(PP_PLUSPLUS, 1);
571da2e3ebdSchin 			else if (strmatch(s, "*@(warn)*"))
572da2e3ebdSchin 				ppop(PP_WARN, 1);
574da2e3ebdSchin 			/*
575da2e3ebdSchin 			 * ignore unknown options
576da2e3ebdSchin 			 * the probe info takes care of these
577da2e3ebdSchin 			 * fails if an option value is in the next arg
578da2e3ebdSchin 			 * and this is the last option
579da2e3ebdSchin 			 */
581da2e3ebdSchin 			if (argv[opt_info.index + 1] && argv[opt_info.index + 1][0] != '-' && argv[opt_info.index + 2] && argv[opt_info.index + 2][0] == '-')
582da2e3ebdSchin 			{
583da2e3ebdSchin 				opt_info.index++;
584da2e3ebdSchin 				opt_info.offset = 0;
585da2e3ebdSchin 			}
586da2e3ebdSchin 		ignore:
587da2e3ebdSchin 			while (argv[opt_info.index][opt_info.offset]) opt_info.offset++;
588da2e3ebdSchin 			break;
589da2e3ebdSchin 		}
590da2e3ebdSchin 		if (!(s = argv[opt_info.index])) return(0);
591da2e3ebdSchin 		switch (pp.arg_file)
592da2e3ebdSchin 		{
593da2e3ebdSchin 		case 0:
594da2e3ebdSchin 			if (*s != '-' || *(s + 1)) ppop(PP_INPUT, s);
595da2e3ebdSchin 			break;
596da2e3ebdSchin 		case 1:
597da2e3ebdSchin 			if (*s != '-' || *(s + 1)) ppop(PP_OUTPUT, s);
598da2e3ebdSchin 			break;
599da2e3ebdSchin 		default:
600da2e3ebdSchin 			if (!last) return(1);
601da2e3ebdSchin 			error(1, "%s: extraneous argument ignored", s);
602da2e3ebdSchin 			break;
603da2e3ebdSchin 		}
604da2e3ebdSchin 		pp.arg_file++;
605da2e3ebdSchin 		if (!argv[++opt_info.index]) return(0);
607da2e3ebdSchin 		/*
608da2e3ebdSchin 		 * old versions allow options after file args
609da2e3ebdSchin 		 */
610da2e3ebdSchin 	}
611da2e3ebdSchin }