xref: /illumos-gate/usr/src/tools/cw/cw.c (revision d0843a33)
1 
2 /*
3  * CDDL HEADER START
4  *
5  * The contents of this file are subject to the terms of the
6  * Common Development and Distribution License (the "License").
7  * You may not use this file except in compliance with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 
23 /*
24  * Copyright 2018, Richard Lowe.
25  */
26 /*
27  * Copyright 2010 Sun Microsystems, Inc.  All rights reserved.
28  * Use is subject to license terms.
29  */
30 
31 /*
32  * Wrapper for the GNU C compiler to make it accept the Sun C compiler
33  * arguments where possible.
34  *
35  * Since the translation is inexact, this is something of a work-in-progress.
36  *
37  */
38 
39 /* If you modify this file, you must increment CW_VERSION */
40 #define	CW_VERSION	"3.0"
41 
42 /*
43  * -#		Verbose mode
44  * -###		Show compiler commands built by driver, no compilation
45  * -A<name[(tokens)]>	Preprocessor predicate assertion
46  * -B<[static|dynamic]>	Specify dynamic or static binding
47  * -C		Prevent preprocessor from removing comments
48  * -c		Compile only - produce .o files, suppress linking
49  * -cg92	Alias for -xtarget=ss1000
50  * -D<name[=token]>	Associate name with token as if by #define
51  * -d[y|n]	dynamic [-dy] or static [-dn] option to linker
52  * -E		Compile source through preprocessor only, output to stdout
53  * -erroff=<t>	Suppress warnings specified by tags t(%none, %all, <tag list>)
54  * -errtags=<a>	Display messages with tags a(no, yes)
55  * -errwarn=<t>	Treats warnings specified by tags t(%none, %all, <tag list>)
56  *		as errors
57  * -fast	Optimize using a selection of options
58  * -fd		Report old-style function definitions and declarations
59  * -fnonstd	Initialize floating-point hardware to non-standard preferences
60  * -fns[=<yes|no>] Select non-standard floating point mode
61  * -fprecision=<p> Set FP rounding precision mode p(single, double, extended)
62  * -fround=<r>	Select the IEEE rounding mode in effect at startup
63  * -fsimple[=<n>] Select floating-point optimization preferences <n>
64  * -fsingle	Use single-precision arithmetic (-Xt and -Xs modes only)
65  * -ftrap=<t>	Select floating-point trapping mode in effect at startup
66  * -fstore	force floating pt. values to target precision on assignment
67  * -G		Build a dynamic shared library
68  * -g		Compile for debugging
69  * -H		Print path name of each file included during compilation
70  * -h <name>	Assign <name> to generated dynamic shared library
71  * -I<dir>	Add <dir> to preprocessor #include file search path
72  * -i		Passed to linker to ignore any LD_LIBRARY_PATH setting
73  * -keeptmp	Keep temporary files created during compilation
74  * -L<dir>	Pass to linker to add <dir> to the library search path
75  * -l<name>	Link with library lib<name>.a or lib<name>.so
76  * -mc		Remove duplicate strings from .comment section of output files
77  * -mr		Remove all strings from .comment section of output files
78  * -mr,"string"	Remove all strings and append "string" to .comment section
79  * -mt		Specify options needed when compiling multi-threaded code
80  * -native	Find available processor, generate code accordingly
81  * -nofstore	Do not force floating pt. values to target precision
82  *		on assignment
83  * -norunpath	Do not build in a runtime path for shared libraries
84  * -O		Use default optimization level (-xO2 or -xO3. Check man page.)
85  * -o <outputfile> Set name of output file to <outputfile>
86  * -P		Compile source through preprocessor only, output to .i  file
87  * -p		Compile for profiling with prof
88  * -Q[y|n]	Emit/don't emit identification info to output file
89  * -R<dir[:dir]> Build runtime search path list into executable
90  * -S		Compile and only generate assembly code (.s)
91  * -s		Strip symbol table from the executable file
92  * -t		Turn off duplicate symbol warnings when linking
93  * -U<name>	Delete initial definition of preprocessor symbol <name>
94  * -V		Report version number of each compilation phase
95  * -v		Do stricter semantic checking
96  * -W<c>,<arg>	Pass <arg> to specified component <c> (a,l,m,p,0,2,h,i,u)
97  * -w		Suppress compiler warning messages
98  * -Xa		Compile assuming ANSI C conformance, allow K & R extensions
99  *		(default mode)
100  * -Xs		Compile assuming (pre-ANSI) K & R C style code
101  * -Xt		Compile assuming K & R conformance, allow ANSI C
102  * -xarch=<a>	Specify target architecture instruction set
103  * -xbuiltin[=<b>] When profitable inline, or substitute intrinisic functions
104  *		for system functions, b={%all,%none}
105  * -xCC		Accept C++ style comments
106  * -xchip=<c>	Specify the target processor for use by the optimizer
107  * -xcode=<c>	Generate different code for forming addresses
108  * -xcrossfile[=<n>] Enable optimization and inlining across source files,
109  *		n={0|1}
110  * -xe		Perform only syntax/semantic checking, no code generation
111  * -xF		Compile for later mapfile reordering or unused section
112  *		elimination
113  * -xhelp=<f>	Display on-line help information f(flags, readme, errors)
114  * -xildoff	Cancel -xildon
115  * -xildon	Enable use of the incremental linker, ild
116  * -xinline=[<a>,...,<a>]  Attempt inlining of specified user routines,
117  *		<a>={%auto,func,no%func}
118  * -xlibmieee	Force IEEE 754 return values for math routines in
119  *		exceptional cases
120  * -xlibmil	Inline selected libm math routines for optimization
121  * -xlic_lib=sunperf	Link in the Sun supplied performance libraries
122  * -xlicinfo	Show license server information
123  * -xmaxopt=[off,1,2,3,4,5] maximum optimization level allowed on #pragma opt
124  * -xO<n>	Generate optimized code (n={1|2|3|4|5})
125  * -xP		Print prototypes for function definitions
126  * -xprofile=<p> Collect data for a profile or use a profile to optimize
127  *		<p>={{collect,use}[:<path>],tcov}
128  * -xregs=<r>	Control register allocation
129  * -xs		Allow debugging without object (.o) files
130  * -xsb		Compile for use with the WorkShop source browser
131  * -xsbfast	Generate only WorkShop source browser info, no compilation
132  * -xsfpconst	Represent unsuffixed floating point constants as single
133  *		precision
134  * -xspace	Do not do optimizations that increase code size
135  * -xstrconst	Place string literals into read-only data segment
136  * -xtarget=<t>	Specify target system for optimization
137  * -xtemp=<dir>	Set directory for temporary files to <dir>
138  * -xtime	Report the execution time for each compilation phase
139  * -xunroll=n	Enable unrolling loops n times where possible
140  * -Y<c>,<dir>	Specify <dir> for location of component <c> (a,l,m,p,0,h,i,u)
141  * -YA,<dir>	Change default directory searched for components
142  * -YI,<dir>	Change default directory searched for include files
143  * -YP,<dir>	Change default directory for finding libraries files
144  * -YS,<dir>	Change default directory for startup object files
145  */
146 
147 /*
148  * Translation table:
149  */
150 /*
151  * -#				-v
152  * -###				error
153  * -A<name[(tokens)]>		pass-thru
154  * -B<[static|dynamic]>		pass-thru (syntax error for anything else)
155  * -C				pass-thru
156  * -c				pass-thru
157  * -cg92			-m32 -mcpu=v8 -mtune=supersparc (SPARC only)
158  * -D<name[=token]>		pass-thru
159  * -dy or -dn			-Wl,-dy or -Wl,-dn
160  * -E				pass-thru
161  * -erroff=E_EMPTY_TRANSLATION_UNIT ignore
162  * -errtags=%all		-Wall
163  * -errwarn=%all		-Werror else -Wno-error
164  * -fast			error
165  * -fd				error
166  * -fnonstd			error
167  * -fns[=<yes|no>]		error
168  * -fprecision=<p>		error
169  * -fround=<r>			error
170  * -fsimple[=<n>]		error
171  * -fsingle[=<n>]		error
172  * -ftrap=<t>			error
173  * -fstore			error
174  * -G				pass-thru
175  * -g				pass-thru
176  * -H				pass-thru
177  * -h <name>			pass-thru
178  * -I<dir>			pass-thru
179  * -i				pass-thru
180  * -keeptmp			-save-temps
181  * -L<dir>			pass-thru
182  * -l<name>			pass-thru
183  * -mc				error
184  * -mr				error
185  * -mr,"string"			error
186  * -mt				-D_REENTRANT
187  * -native			error
188  * -nofstore			error
189  * -nolib			-nodefaultlibs
190  * -norunpath			ignore
191  * -O				-O1 (Check the man page to be certain)
192  * -o <outputfile>		pass-thru
193  * -P				-E -o filename.i (or error)
194  * -p				pass-thru
195  * -Q[y|n]			error
196  * -R<dir[:dir]>		pass-thru
197  * -S				pass-thru
198  * -s				-Wl,-s
199  * -t				-Wl,-t
200  * -U<name>			pass-thru
201  * -V				--version
202  * -v				-Wall
203  * -Wa,<arg>			pass-thru
204  * -Wp,<arg>			pass-thru except -xc99=<a>
205  * -Wl,<arg>			pass-thru
206  * -W{m,0,2,h,i,u>		error/ignore
207  * -xmodel=kernel		-ffreestanding -mcmodel=kernel -mno-red-zone
208  * -Wu,-save_args		-msave-args
209  * -w				pass-thru
210  * -Xa				-std=iso9899:199409 or -ansi
211  * -Xt				error
212  * -Xs				-traditional -std=c89
213  * -xarch=<a>			table
214  * -xbuiltin[=<b>]		-fbuiltin (-fno-builtin otherwise)
215  * -xCC				ignore
216  * -xchip=<c>			table
217  * -xcode=<c>			table
218  * -xdebugformat=<format>	ignore (always use dwarf-2 for gcc)
219  * -xcrossfile[=<n>]		ignore
220  * -xe				error
221  * -xF				error
222  * -xhelp=<f>			error
223  * -xildoff			ignore
224  * -xildon			ignore
225  * -xinline			ignore
226  * -xlibmieee			error
227  * -xlibmil			error
228  * -xlic_lib=sunperf		error
229  * -xmaxopt=[...]		error
230  * -xO<n>			-O<n>
231  * -xP				error
232  * -xprofile=<p>		error
233  * -xregs=<r>			table
234  * -xs				error
235  * -xsb				error
236  * -xsbfast			error
237  * -xsfpconst			error
238  * -xspace			ignore (-not -Os)
239  * -xstrconst			ignore
240  * -xtarget=<t>			table
241  * -xtemp=<dir>			error
242  * -xtime			error
243  * -xtransition			-Wtransition
244  * -xunroll=n			error
245  * -W0,-xdbggen=no%usedonly	-fno-eliminate-unused-debug-symbols
246  *				-fno-eliminate-unused-debug-types
247  * -Y<c>,<dir>			error
248  * -YA,<dir>			error
249  * -YI,<dir>			-nostdinc -I<dir>
250  * -YP,<dir>			error
251  * -YS,<dir>			error
252  */
253 
254 #include <ctype.h>
255 #include <err.h>
256 #include <errno.h>
257 #include <fcntl.h>
258 #include <getopt.h>
259 #include <stdio.h>
260 #include <stdlib.h>
261 #include <string.h>
262 #include <unistd.h>
263 
264 #include <sys/param.h>
265 #include <sys/stat.h>
266 #include <sys/types.h>
267 #include <sys/utsname.h>
268 #include <sys/wait.h>
269 
270 #define	CW_F_CXX	0x01
271 #define	CW_F_SHADOW	0x02
272 #define	CW_F_EXEC	0x04
273 #define	CW_F_ECHO	0x08
274 #define	CW_F_XLATE	0x10
275 #define	CW_F_PROG	0x20
276 
277 typedef enum cw_op {
278 	CW_O_NONE = 0,
279 	CW_O_PREPROCESS,
280 	CW_O_COMPILE,
281 	CW_O_LINK
282 } cw_op_t;
283 
284 struct aelist {
285 	struct ae {
286 		struct ae *ae_next;
287 		char *ae_arg;
288 	} *ael_head, *ael_tail;
289 	int ael_argc;
290 };
291 
292 typedef enum {
293 	GNU,
294 	SUN
295 } compiler_style_t;
296 
297 typedef struct {
298 	char *c_name;
299 	char *c_path;
300 	compiler_style_t c_style;
301 } cw_compiler_t;
302 
303 typedef struct cw_ictx {
304 	struct cw_ictx	*i_next;
305 	cw_compiler_t	*i_compiler;
306 	struct aelist	*i_ae;
307 	uint32_t	i_flags;
308 	int		i_oldargc;
309 	char		**i_oldargv;
310 	pid_t		i_pid;
311 	char		*i_discard;
312 	char		*i_stderr;
313 } cw_ictx_t;
314 
315 /*
316  * Status values to indicate which Studio compiler and associated
317  * flags are being used.
318  */
319 #define	M32		0x01	/* -m32 - only on Studio 12 */
320 #define	M64		0x02	/* -m64 - only on Studio 12 */
321 #define	SS11		0x100	/* Studio 11 */
322 #define	SS12		0x200	/* Studio 12 */
323 
324 #define	TRANS_ENTRY	5
325 /*
326  * Translation table definition for the -xarch= flag. The "x_arg"
327  * value is translated into the appropriate gcc flags according
328  * to the values in x_trans[n]. The x_flags indicates what compiler
329  * is being used and what flags have been set via the use of
330  * "x_arg".
331  */
332 typedef struct xarch_table {
333 	char	*x_arg;
334 	int	x_flags;
335 	char	*x_trans[TRANS_ENTRY];
336 } xarch_table_t;
337 
338 /*
339  * The translation table for the -xarch= flag used in the Studio compilers.
340  */
341 static const xarch_table_t xtbl[] = {
342 #if defined(__x86)
343 	{ "generic",	SS11, {NULL} },
344 	{ "generic64",	(SS11|M64), { "-m64", "-mtune=opteron" } },
345 	{ "amd64",	(SS11|M64), { "-m64", "-mtune=opteron" } },
346 	{ "386",	SS11,	{ "-march=i386" } },
347 	{ "pentium_pro", SS11,	{ "-march=pentiumpro" } },
348 	{ "sse",	SS11, { "-msse", "-mfpmath=sse" } },
349 	{ "sse2",	SS11, { "-msse2", "-mfpmath=sse" } },
350 #elif defined(__sparc)
351 	{ "generic",	(SS11|M32), { "-m32", "-mcpu=v8" } },
352 	{ "generic64",	(SS11|M64), { "-m64", "-mcpu=v9" } },
353 	{ "v8",		(SS11|M32), { "-m32", "-mcpu=v8", "-mno-v8plus" } },
354 	{ "v8plus",	(SS11|M32), { "-m32", "-mcpu=v9", "-mv8plus" } },
355 	{ "v8plusa",	(SS11|M32), { "-m32", "-mcpu=ultrasparc", "-mv8plus",
356 			"-mvis" } },
357 	{ "v8plusb",	(SS11|M32), { "-m32", "-mcpu=ultrasparc3", "-mv8plus",
358 			"-mvis" } },
359 	{ "v9",		(SS11|M64), { "-m64", "-mcpu=v9" } },
360 	{ "v9a",	(SS11|M64), { "-m64", "-mcpu=ultrasparc", "-mvis" } },
361 	{ "v9b",	(SS11|M64), { "-m64", "-mcpu=ultrasparc3", "-mvis" } },
362 	{ "sparc",	SS12, { "-mcpu=v9", "-mv8plus" } },
363 	{ "sparcvis",	SS12, { "-mcpu=ultrasparc", "-mvis" } },
364 	{ "sparcvis2",	SS12, { "-mcpu=ultrasparc3", "-mvis" } }
365 #endif
366 };
367 
368 static int xtbl_size = sizeof (xtbl) / sizeof (xarch_table_t);
369 
370 static const char *xchip_tbl[] = {
371 #if defined(__x86)
372 	"386",		"-mtune=i386", NULL,
373 	"486",		"-mtune=i486", NULL,
374 	"pentium",	"-mtune=pentium", NULL,
375 	"pentium_pro",  "-mtune=pentiumpro", NULL,
376 #elif defined(__sparc)
377 	"super",	"-mtune=supersparc", NULL,
378 	"ultra",	"-mtune=ultrasparc", NULL,
379 	"ultra3",	"-mtune=ultrasparc3", NULL,
380 #endif
381 	NULL,		NULL
382 };
383 
384 static const char *xcode_tbl[] = {
385 #if defined(__sparc)
386 	"abs32",	"-fno-pic", "-mcmodel=medlow", NULL,
387 	"abs44",	"-fno-pic", "-mcmodel=medmid", NULL,
388 	"abs64",	"-fno-pic", "-mcmodel=medany", NULL,
389 	"pic13",	"-fpic", NULL,
390 	"pic32",	"-fPIC", NULL,
391 #endif
392 	NULL,		NULL
393 };
394 
395 static const char *xtarget_tbl[] = {
396 #if defined(__x86)
397 	"pentium_pro",	"-march=pentiumpro", NULL,
398 #endif	/* __x86 */
399 	NULL,		NULL
400 };
401 
402 static const char *xregs_tbl[] = {
403 #if defined(__sparc)
404 	"appl",		"-mapp-regs", NULL,
405 	"no%appl",	"-mno-app-regs", NULL,
406 	"float",	"-mfpu", NULL,
407 	"no%float",	"-mno-fpu", NULL,
408 #endif	/* __sparc */
409 	NULL,		NULL
410 };
411 
412 static void
413 nomem(void)
414 {
415 	errx(1, "out of memory");
416 }
417 
418 static void
419 newae(struct aelist *ael, const char *arg)
420 {
421 	struct ae *ae;
422 
423 	if ((ae = calloc(sizeof (*ae), 1)) == NULL)
424 		nomem();
425 	ae->ae_arg = strdup(arg);
426 	if (ael->ael_tail == NULL)
427 		ael->ael_head = ae;
428 	else
429 		ael->ael_tail->ae_next = ae;
430 	ael->ael_tail = ae;
431 	ael->ael_argc++;
432 }
433 
434 static cw_ictx_t *
435 newictx(void)
436 {
437 	cw_ictx_t *ctx = calloc(sizeof (cw_ictx_t), 1);
438 	if (ctx)
439 		if ((ctx->i_ae = calloc(sizeof (struct aelist), 1)) == NULL) {
440 			free(ctx);
441 			return (NULL);
442 		}
443 
444 	return (ctx);
445 }
446 
447 static void
448 error(const char *arg)
449 {
450 	errx(2, "error: mapping failed at or near arg '%s'", arg);
451 }
452 
453 /*
454  * Add the current favourite set of warnings to the gcc invocation.
455  */
456 static void
457 warnings(struct aelist *h)
458 {
459 	static int warningsonce;
460 
461 	if (warningsonce++)
462 		return;
463 
464 	/*
465 	 * Enable as many warnings as exist, then disable those that we never
466 	 * ever want.
467 	 */
468 	newae(h, "-Wall");
469 	newae(h, "-Wextra");
470 }
471 
472 static void
473 optim_disable(struct aelist *h, int level)
474 {
475 	if (level >= 2) {
476 		newae(h, "-fno-strict-aliasing");
477 		newae(h, "-fno-unit-at-a-time");
478 		newae(h, "-fno-optimize-sibling-calls");
479 	}
480 }
481 
482 static void
483 Xsmode(struct aelist *h)
484 {
485 	static int xsonce;
486 
487 	if (xsonce++)
488 		return;
489 
490 	newae(h, "-traditional");
491 	newae(h, "-traditional-cpp");
492 }
493 
494 static void
495 usage()
496 {
497 	extern char *__progname;
498 	(void) fprintf(stderr,
499 	    "usage: %s [-C] [--versions] --primary <compiler> "
500 	    "[--shadow <compiler>]... -- cflags...\n",
501 	    __progname);
502 	(void) fprintf(stderr, "compilers take the form: name,path,style\n"
503 	    " - name: a unique name usable in flag specifiers\n"
504 	    " - path: path to the compiler binary\n"
505 	    " - style: the style of flags expected: either sun or gnu\n");
506 	exit(2);
507 }
508 
509 static int
510 xlate_xtb(struct aelist *h, const char *xarg)
511 {
512 	int	i, j;
513 
514 	for (i = 0; i < xtbl_size; i++) {
515 		if (strcmp(xtbl[i].x_arg, xarg) == 0)
516 			break;
517 	}
518 
519 	/*
520 	 * At the end of the table and so no matching "arg" entry
521 	 * found and so this must be a bad -xarch= flag.
522 	 */
523 	if (i == xtbl_size)
524 		error(xarg);
525 
526 	for (j = 0; j < TRANS_ENTRY; j++) {
527 		if (xtbl[i].x_trans[j] != NULL)
528 			newae(h, xtbl[i].x_trans[j]);
529 		else
530 			break;
531 	}
532 	return (xtbl[i].x_flags);
533 
534 }
535 
536 static void
537 xlate(struct aelist *h, const char *xarg, const char **table)
538 {
539 	while (*table != NULL && strcmp(xarg, *table) != 0) {
540 		while (*table != NULL)
541 			table++;
542 		table++;
543 	}
544 
545 	if (*table == NULL)
546 		error(xarg);
547 
548 	table++;
549 
550 	while (*table != NULL) {
551 		newae(h, *table);
552 		table++;
553 	}
554 }
555 
556 /*
557  * The compiler wants the output file to end in appropriate extension.  If
558  * we're generating a name from whole cloth (path == NULL), we assume that
559  * extension to be .o, otherwise we match the extension of the caller.
560  */
561 static char *
562 discard_file_name(const char *path)
563 {
564 	char *ret, *ext, *file;
565 
566 	if (path == NULL) {
567 		ext = ".o";
568 	} else {
569 		ext = strrchr(path, '.');
570 	}
571 
572 	if ((ret = calloc(MAXPATHLEN, sizeof (char))) == NULL)
573 		nomem();
574 
575 	if ((file = tempnam(NULL, ".cw")) == NULL)
576 		nomem();
577 
578 	(void) strlcpy(ret, file, MAXPATHLEN);
579 	if (ext != NULL)
580 		(void) strlcat(ret, ext, MAXPATHLEN);
581 	free(file);
582 	return (ret);
583 }
584 
585 static void
586 do_gcc(cw_ictx_t *ctx)
587 {
588 	int c;
589 	int nolibc = 0;
590 	int in_output = 0, seen_o = 0, c_files = 0;
591 	cw_op_t op = CW_O_LINK;
592 	char *model = NULL;
593 	char *nameflag;
594 	int mflag = 0;
595 
596 	if (ctx->i_flags & CW_F_PROG) {
597 		newae(ctx->i_ae, "--version");
598 		return;
599 	}
600 
601 	newae(ctx->i_ae, "-fident");
602 	newae(ctx->i_ae, "-finline");
603 	newae(ctx->i_ae, "-fno-inline-functions");
604 	newae(ctx->i_ae, "-fno-builtin");
605 	newae(ctx->i_ae, "-fno-asm");
606 	newae(ctx->i_ae, "-fdiagnostics-show-option");
607 	newae(ctx->i_ae, "-nodefaultlibs");
608 
609 #if defined(__sparc)
610 	/*
611 	 * The SPARC ldd and std instructions require 8-byte alignment of
612 	 * their address operand.  gcc correctly uses them only when the
613 	 * ABI requires 8-byte alignment; unfortunately we have a number of
614 	 * pieces of buggy code that doesn't conform to the ABI.  This
615 	 * flag makes gcc work more like Studio with -xmemalign=4.
616 	 */
617 	newae(ctx->i_ae, "-mno-integer-ldd-std");
618 #endif
619 
620 	/*
621 	 * This is needed because 'u' is defined
622 	 * under a conditional on 'sun'.  Should
623 	 * probably just remove the conditional,
624 	 * or make it be dependent on '__sun'.
625 	 *
626 	 * -Dunix is also missing in enhanced ANSI mode
627 	 */
628 	newae(ctx->i_ae, "-D__sun");
629 
630 	if (asprintf(&nameflag, "-_%s=", ctx->i_compiler->c_name) == -1)
631 		nomem();
632 
633 	/*
634 	 * Walk the argument list, translating as we go ..
635 	 */
636 	while (--ctx->i_oldargc > 0) {
637 		char *arg = *++ctx->i_oldargv;
638 		size_t arglen = strlen(arg);
639 
640 		if (*arg == '-') {
641 			arglen--;
642 		} else {
643 			/*
644 			 * Discard inline files that gcc doesn't grok
645 			 */
646 			if (!in_output && arglen > 3 &&
647 			    strcmp(arg + arglen - 3, ".il") == 0)
648 				continue;
649 
650 			if (!in_output && arglen > 2 &&
651 			    arg[arglen - 2] == '.' &&
652 			    (arg[arglen - 1] == 'S' || arg[arglen - 1] == 's' ||
653 			    arg[arglen - 1] == 'c' || arg[arglen - 1] == 'i'))
654 				c_files++;
655 
656 			/*
657 			 * Otherwise, filenames and partial arguments
658 			 * are passed through for gcc to chew on.  However,
659 			 * output is always discarded for the secondary
660 			 * compiler.
661 			 */
662 			if ((ctx->i_flags & CW_F_SHADOW) && in_output) {
663 				ctx->i_discard = discard_file_name(arg);
664 				newae(ctx->i_ae, ctx->i_discard);
665 			} else {
666 				newae(ctx->i_ae, arg);
667 			}
668 			in_output = 0;
669 			continue;
670 		}
671 
672 		if (ctx->i_flags & CW_F_CXX) {
673 			if (strncmp(arg, "-_g++=", 6) == 0) {
674 				newae(ctx->i_ae, strchr(arg, '=') + 1);
675 				continue;
676 			}
677 			if (strncmp(arg, "-compat=", 8) == 0) {
678 				/* discard -compat=4 and -compat=5 */
679 				continue;
680 			}
681 			if (strcmp(arg, "-Qoption") == 0) {
682 				/* discard -Qoption and its two arguments */
683 				if (ctx->i_oldargc < 3)
684 					error(arg);
685 				ctx->i_oldargc -= 2;
686 				ctx->i_oldargv += 2;
687 				continue;
688 			}
689 			if (strcmp(arg, "-xwe") == 0) {
690 				/* turn warnings into errors */
691 				newae(ctx->i_ae, "-Werror");
692 				continue;
693 			}
694 			if (strcmp(arg, "-norunpath") == 0) {
695 				/* gcc has no corresponding option */
696 				continue;
697 			}
698 			if (strcmp(arg, "-nolib") == 0) {
699 				/* -nodefaultlibs is on by default */
700 				nolibc = 1;
701 				continue;
702 			}
703 #if defined(__sparc)
704 			if (strcmp(arg, "-cg92") == 0) {
705 				mflag |= xlate_xtb(ctx->i_ae, "v8");
706 				xlate(ctx->i_ae, "super", xchip_tbl);
707 				continue;
708 			}
709 #endif	/* __sparc */
710 		}
711 
712 		switch ((c = arg[1])) {
713 		case '_':
714 			if ((strncmp(arg, nameflag, strlen(nameflag)) == 0) ||
715 			    (strncmp(arg, "-_gcc=", 6) == 0) ||
716 			    (strncmp(arg, "-_gnu=", 6) == 0)) {
717 				newae(ctx->i_ae, strchr(arg, '=') + 1);
718 			}
719 			break;
720 		case '#':
721 			if (arglen == 1) {
722 				newae(ctx->i_ae, "-v");
723 				break;
724 			}
725 			error(arg);
726 			break;
727 		case 'f':
728 			if ((strcmp(arg, "-fpic") == 0) ||
729 			    (strcmp(arg, "-fPIC") == 0)) {
730 				newae(ctx->i_ae, arg);
731 				break;
732 			}
733 			error(arg);
734 			break;
735 		case 'g':
736 			newae(ctx->i_ae, "-gdwarf-2");
737 			break;
738 		case 'E':
739 			if (arglen == 1) {
740 				newae(ctx->i_ae, "-xc");
741 				newae(ctx->i_ae, arg);
742 				op = CW_O_PREPROCESS;
743 				nolibc = 1;
744 				break;
745 			}
746 			error(arg);
747 			break;
748 		case 'c':
749 		case 'S':
750 			if (arglen == 1) {
751 				op = CW_O_COMPILE;
752 				nolibc = 1;
753 			}
754 			/* FALLTHROUGH */
755 		case 'C':
756 		case 'H':
757 		case 'p':
758 			if (arglen == 1) {
759 				newae(ctx->i_ae, arg);
760 				break;
761 			}
762 			error(arg);
763 			break;
764 		case 'A':
765 		case 'h':
766 		case 'I':
767 		case 'i':
768 		case 'L':
769 		case 'l':
770 		case 'R':
771 		case 'U':
772 		case 'u':
773 		case 'w':
774 			newae(ctx->i_ae, arg);
775 			break;
776 		case 'o':
777 			seen_o = 1;
778 			if (arglen == 1) {
779 				in_output = 1;
780 				newae(ctx->i_ae, arg);
781 			} else if (ctx->i_flags & CW_F_SHADOW) {
782 				newae(ctx->i_ae, "-o");
783 				ctx->i_discard = discard_file_name(arg);
784 				newae(ctx->i_ae, ctx->i_discard);
785 			} else {
786 				newae(ctx->i_ae, arg);
787 			}
788 			break;
789 		case 'D':
790 			newae(ctx->i_ae, arg);
791 			/*
792 			 * XXX	Clearly a hack ... do we need _KADB too?
793 			 */
794 			if (strcmp(arg, "-D_KERNEL") == 0 ||
795 			    strcmp(arg, "-D_BOOT") == 0)
796 				newae(ctx->i_ae, "-ffreestanding");
797 			break;
798 		case 'd':
799 			if (arglen == 2) {
800 				if (strcmp(arg, "-dy") == 0) {
801 					newae(ctx->i_ae, "-Wl,-dy");
802 					break;
803 				}
804 				if (strcmp(arg, "-dn") == 0) {
805 					newae(ctx->i_ae, "-Wl,-dn");
806 					break;
807 				}
808 			}
809 			if (strcmp(arg, "-dalign") == 0) {
810 				/*
811 				 * -dalign forces alignment in some cases;
812 				 * gcc does not need any flag to do this.
813 				 */
814 				break;
815 			}
816 			error(arg);
817 			break;
818 		case 'e':
819 			if (strcmp(arg,
820 			    "-erroff=E_EMPTY_TRANSLATION_UNIT") == 0) {
821 				/*
822 				 * Accept but ignore this -- gcc doesn't
823 				 * seem to complain about empty translation
824 				 * units
825 				 */
826 				break;
827 			}
828 			/* XX64 -- ignore all -erroff= options, for now */
829 			if (strncmp(arg, "-erroff=", 8) == 0)
830 				break;
831 			if (strcmp(arg, "-errtags=yes") == 0) {
832 				warnings(ctx->i_ae);
833 				break;
834 			}
835 			if (strcmp(arg, "-errwarn=%all") == 0) {
836 				newae(ctx->i_ae, "-Werror");
837 				break;
838 			}
839 			error(arg);
840 			break;
841 		case 'G':
842 			newae(ctx->i_ae, "-shared");
843 			nolibc = 1;
844 			break;
845 		case 'k':
846 			if (strcmp(arg, "-keeptmp") == 0) {
847 				newae(ctx->i_ae, "-save-temps");
848 				break;
849 			}
850 			error(arg);
851 			break;
852 		case 'm':
853 			if (strcmp(arg, "-mt") == 0) {
854 				newae(ctx->i_ae, "-D_REENTRANT");
855 				break;
856 			}
857 			if (strcmp(arg, "-m64") == 0) {
858 				newae(ctx->i_ae, "-m64");
859 #if defined(__x86)
860 				newae(ctx->i_ae, "-mtune=opteron");
861 #endif
862 				mflag |= M64;
863 				break;
864 			}
865 			if (strcmp(arg, "-m32") == 0) {
866 				newae(ctx->i_ae, "-m32");
867 				mflag |= M32;
868 				break;
869 			}
870 			error(arg);
871 			break;
872 		case 'B':	/* linker options */
873 		case 'M':
874 		case 'z':
875 			{
876 				char *opt;
877 				size_t len;
878 				char *s;
879 
880 				if (arglen == 1) {
881 					opt = *++ctx->i_oldargv;
882 					if (opt == NULL || *opt == '\0')
883 						error(arg);
884 					ctx->i_oldargc--;
885 				} else {
886 					opt = arg + 2;
887 				}
888 				len = strlen(opt) + 7;
889 				if ((s = malloc(len)) == NULL)
890 					nomem();
891 				(void) snprintf(s, len, "-Wl,-%c%s", c, opt);
892 				newae(ctx->i_ae, s);
893 				free(s);
894 			}
895 			break;
896 		case 'O':
897 			if (arglen == 1) {
898 				newae(ctx->i_ae, "-O");
899 				break;
900 			}
901 			error(arg);
902 			break;
903 		case 'P':
904 			/*
905 			 * We could do '-E -o filename.i', but that's hard,
906 			 * and we don't need it for the case that's triggering
907 			 * this addition.  We'll require the user to specify
908 			 * -o in the Makefile.  If they don't they'll find out
909 			 * in a hurry.
910 			 */
911 			newae(ctx->i_ae, "-E");
912 			op = CW_O_PREPROCESS;
913 			nolibc = 1;
914 			break;
915 		case 's':
916 			if (arglen == 1) {
917 				newae(ctx->i_ae, "-Wl,-s");
918 				break;
919 			}
920 			error(arg);
921 			break;
922 		case 't':
923 			if (arglen == 1) {
924 				newae(ctx->i_ae, "-Wl,-t");
925 				break;
926 			}
927 			error(arg);
928 			break;
929 		case 'V':
930 			if (arglen == 1) {
931 				ctx->i_flags &= ~CW_F_ECHO;
932 				newae(ctx->i_ae, "--version");
933 				break;
934 			}
935 			error(arg);
936 			break;
937 		case 'v':
938 			if (arglen == 1) {
939 				warnings(ctx->i_ae);
940 				break;
941 			}
942 			error(arg);
943 			break;
944 		case 'W':
945 			if (strncmp(arg, "-Wp,-xc99", 9) == 0) {
946 				/*
947 				 * gcc's preprocessor will accept c99
948 				 * regardless, so accept and ignore.
949 				 */
950 				break;
951 			}
952 			if (strncmp(arg, "-Wa,", 4) == 0 ||
953 			    strncmp(arg, "-Wp,", 4) == 0 ||
954 			    strncmp(arg, "-Wl,", 4) == 0) {
955 				newae(ctx->i_ae, arg);
956 				break;
957 			}
958 			if (strcmp(arg, "-W0,-noglobal") == 0 ||
959 			    strcmp(arg, "-W0,-xglobalstatic") == 0) {
960 				/*
961 				 * gcc doesn't prefix local symbols
962 				 * in debug mode, so this is not needed.
963 				 */
964 				break;
965 			}
966 			if (strcmp(arg, "-W0,-Lt") == 0) {
967 				/*
968 				 * Generate tests at the top of loops.
969 				 * There is no direct gcc equivalent, ignore.
970 				 */
971 				break;
972 			}
973 			if (strcmp(arg, "-W0,-xdbggen=no%usedonly") == 0) {
974 				newae(ctx->i_ae,
975 				    "-fno-eliminate-unused-debug-symbols");
976 				newae(ctx->i_ae,
977 				    "-fno-eliminate-unused-debug-types");
978 				break;
979 			}
980 			if (strcmp(arg, "-W2,-xwrap_int") == 0) {
981 				/*
982 				 * Use the legacy behaviour (pre-SS11)
983 				 * for integer wrapping.
984 				 * gcc does not need this.
985 				 */
986 				break;
987 			}
988 			if (strcmp(arg, "-Wd,-xsafe=unboundsym") == 0) {
989 				/*
990 				 * Prevents optimizing away checks for
991 				 * unbound weak symbol addresses.  gcc does
992 				 * not do this, so it's not needed.
993 				 */
994 				break;
995 			}
996 			if (strncmp(arg, "-Wc,-xcode=", 11) == 0) {
997 				xlate(ctx->i_ae, arg + 11, xcode_tbl);
998 				break;
999 			}
1000 			if (strncmp(arg, "-Wc,-Qiselect", 13) == 0) {
1001 				/*
1002 				 * Prevents insertion of register symbols.
1003 				 * gcc doesn't do this, so ignore it.
1004 				 */
1005 				break;
1006 			}
1007 			if (strcmp(arg, "-Wc,-Qassembler-ounrefsym=0") == 0) {
1008 				/*
1009 				 * Prevents optimizing away of static variables.
1010 				 * gcc does not do this, so it's not needed.
1011 				 */
1012 				break;
1013 			}
1014 #if defined(__x86)
1015 			if (strcmp(arg, "-Wu,-save_args") == 0) {
1016 				newae(ctx->i_ae, "-msave-args");
1017 				break;
1018 			}
1019 #endif	/* __x86 */
1020 			error(arg);
1021 			break;
1022 		case 'X':
1023 			if (strcmp(arg, "-Xa") == 0 ||
1024 			    strcmp(arg, "-Xt") == 0) {
1025 				break;
1026 			}
1027 			if (strcmp(arg, "-Xs") == 0) {
1028 				Xsmode(ctx->i_ae);
1029 				break;
1030 			}
1031 			error(arg);
1032 			break;
1033 		case 'x':
1034 			if (arglen == 1)
1035 				error(arg);
1036 			switch (arg[2]) {
1037 			case 'a':
1038 				if (strncmp(arg, "-xarch=", 7) == 0) {
1039 					mflag |= xlate_xtb(ctx->i_ae, arg + 7);
1040 					break;
1041 				}
1042 				error(arg);
1043 				break;
1044 			case 'b':
1045 				if (strncmp(arg, "-xbuiltin=", 10) == 0) {
1046 					if (strcmp(arg + 10, "%all"))
1047 						newae(ctx->i_ae, "-fbuiltin");
1048 					break;
1049 				}
1050 				error(arg);
1051 				break;
1052 			case 'C':
1053 				/* Accept C++ style comments -- ignore */
1054 				if (strcmp(arg, "-xCC") == 0)
1055 					break;
1056 				error(arg);
1057 				break;
1058 			case 'c':
1059 				if (strncmp(arg, "-xc99=%all", 10) == 0) {
1060 					newae(ctx->i_ae, "-std=gnu99");
1061 					break;
1062 				}
1063 				if (strncmp(arg, "-xc99=%none", 11) == 0) {
1064 					newae(ctx->i_ae, "-std=gnu89");
1065 					break;
1066 				}
1067 				if (strncmp(arg, "-xchip=", 7) == 0) {
1068 					xlate(ctx->i_ae, arg + 7, xchip_tbl);
1069 					break;
1070 				}
1071 				if (strncmp(arg, "-xcode=", 7) == 0) {
1072 					xlate(ctx->i_ae, arg + 7, xcode_tbl);
1073 					break;
1074 				}
1075 				if (strncmp(arg, "-xcrossfile", 11) == 0)
1076 					break;
1077 				error(arg);
1078 				break;
1079 			case 'd':
1080 				if (strncmp(arg, "-xdebugformat=", 14) == 0)
1081 					break;
1082 				error(arg);
1083 				break;
1084 			case 'F':
1085 				/*
1086 				 * Compile for mapfile reordering, or unused
1087 				 * section elimination, syntax can be -xF or
1088 				 * more complex, like -xF=%all -- ignore.
1089 				 */
1090 				if (strncmp(arg, "-xF", 3) == 0)
1091 					break;
1092 				error(arg);
1093 				break;
1094 			case 'i':
1095 				if (strncmp(arg, "-xinline", 8) == 0)
1096 					/* No inlining; ignore */
1097 					break;
1098 				if (strcmp(arg, "-xildon") == 0 ||
1099 				    strcmp(arg, "-xildoff") == 0)
1100 					/* No incremental linking; ignore */
1101 					break;
1102 				error(arg);
1103 				break;
1104 #if defined(__x86)
1105 			case 'm':
1106 				if (strcmp(arg, "-xmodel=kernel") == 0) {
1107 					newae(ctx->i_ae, "-ffreestanding");
1108 					newae(ctx->i_ae, "-mno-red-zone");
1109 					model = "-mcmodel=kernel";
1110 					nolibc = 1;
1111 					break;
1112 				}
1113 				error(arg);
1114 				break;
1115 #endif	/* __x86 */
1116 			case 'O':
1117 				if (strncmp(arg, "-xO", 3) == 0) {
1118 					size_t len = strlen(arg);
1119 					char *s = NULL;
1120 					int c = *(arg + 3);
1121 					int level;
1122 
1123 					if (len != 4 || !isdigit(c))
1124 						error(arg);
1125 
1126 					level = atoi(arg + 3);
1127 					if (level > 5)
1128 						error(arg);
1129 					if (level >= 2) {
1130 						/*
1131 						 * For gcc-3.4.x at -O2 we
1132 						 * need to disable optimizations
1133 						 * that break ON.
1134 						 */
1135 						optim_disable(ctx->i_ae, level);
1136 						/*
1137 						 * limit -xO3 to -O2 as well.
1138 						 */
1139 						level = 2;
1140 					}
1141 					if (asprintf(&s, "-O%d", level) == -1)
1142 						nomem();
1143 					newae(ctx->i_ae, s);
1144 					free(s);
1145 					break;
1146 				}
1147 				error(arg);
1148 				break;
1149 			case 'r':
1150 				if (strncmp(arg, "-xregs=", 7) == 0) {
1151 					xlate(ctx->i_ae, arg + 7, xregs_tbl);
1152 					break;
1153 				}
1154 				error(arg);
1155 				break;
1156 			case 's':
1157 				if (strcmp(arg, "-xs") == 0 ||
1158 				    strcmp(arg, "-xspace") == 0 ||
1159 				    strcmp(arg, "-xstrconst") == 0)
1160 					break;
1161 				error(arg);
1162 				break;
1163 			case 't':
1164 				if (strncmp(arg, "-xtarget=", 9) == 0) {
1165 					xlate(ctx->i_ae, arg + 9, xtarget_tbl);
1166 					break;
1167 				}
1168 				error(arg);
1169 				break;
1170 			case 'e':
1171 			case 'h':
1172 			case 'l':
1173 			default:
1174 				error(arg);
1175 				break;
1176 			}
1177 			break;
1178 		case 'Y':
1179 			if (arglen == 1) {
1180 				if ((arg = *++ctx->i_oldargv) == NULL ||
1181 				    *arg == '\0')
1182 					error("-Y");
1183 				ctx->i_oldargc--;
1184 				arglen = strlen(arg + 1);
1185 			} else {
1186 				arg += 2;
1187 			}
1188 			/* Just ignore -YS,... for now */
1189 			if (strncmp(arg, "S,", 2) == 0)
1190 				break;
1191 			if (strncmp(arg, "l,", 2) == 0) {
1192 				char *s = strdup(arg);
1193 				s[0] = '-';
1194 				s[1] = 'B';
1195 				newae(ctx->i_ae, s);
1196 				free(s);
1197 				break;
1198 			}
1199 			if (strncmp(arg, "I,", 2) == 0) {
1200 				char *s = strdup(arg);
1201 				s[0] = '-';
1202 				s[1] = 'I';
1203 				newae(ctx->i_ae, "-nostdinc");
1204 				newae(ctx->i_ae, s);
1205 				free(s);
1206 				break;
1207 			}
1208 			error(arg);
1209 			break;
1210 		case 'Q':
1211 			/*
1212 			 * We could map -Qy into -Wl,-Qy etc.
1213 			 */
1214 		default:
1215 			error(arg);
1216 			break;
1217 		}
1218 	}
1219 
1220 	free(nameflag);
1221 
1222 	/*
1223 	 * When compiling multiple source files in a single invocation some
1224 	 * compilers output objects into the current directory with
1225 	 * predictable and conventional names.
1226 	 *
1227 	 * We prevent any attempt to compile multiple files at once so that
1228 	 * any such objects created by a shadow can't escape into a later
1229 	 * link-edit.
1230 	 */
1231 	if (c_files > 1 && op != CW_O_PREPROCESS) {
1232 		errx(2, "multiple source files are "
1233 		    "allowed only with -E or -P");
1234 	}
1235 
1236 	/*
1237 	 * Make sure that we do not have any unintended interactions between
1238 	 * the xarch options passed in and the version of the Studio compiler
1239 	 * used.
1240 	 */
1241 	if ((mflag & (SS11|SS12)) == (SS11|SS12)) {
1242 		errx(2,
1243 		    "Conflicting \"-xarch=\" flags (both Studio 11 and 12)\n");
1244 	}
1245 
1246 	switch (mflag) {
1247 	case 0:
1248 		/* FALLTHROUGH */
1249 	case M32:
1250 #if defined(__sparc)
1251 		/*
1252 		 * Only -m32 is defined and so put in the missing xarch
1253 		 * translation.
1254 		 */
1255 		newae(ctx->i_ae, "-mcpu=v8");
1256 		newae(ctx->i_ae, "-mno-v8plus");
1257 #endif
1258 		break;
1259 	case M64:
1260 #if defined(__sparc)
1261 		/*
1262 		 * Only -m64 is defined and so put in the missing xarch
1263 		 * translation.
1264 		 */
1265 		newae(ctx->i_ae, "-mcpu=v9");
1266 #endif
1267 		break;
1268 	case SS12:
1269 #if defined(__sparc)
1270 		/* no -m32/-m64 flag used - this is an error for sparc builds */
1271 		(void) fprintf(stderr, "No -m32/-m64 flag defined\n");
1272 		exit(2);
1273 #endif
1274 		break;
1275 	case SS11:
1276 		/* FALLTHROUGH */
1277 	case (SS11|M32):
1278 	case (SS11|M64):
1279 		break;
1280 	case (SS12|M32):
1281 #if defined(__sparc)
1282 		/*
1283 		 * Need to add in further 32 bit options because with SS12
1284 		 * the xarch=sparcvis option can be applied to 32 or 64
1285 		 * bit, and so the translatation table (xtbl) cannot handle
1286 		 * that.
1287 		 */
1288 		newae(ctx->i_ae, "-mv8plus");
1289 #endif
1290 		break;
1291 	case (SS12|M64):
1292 		break;
1293 	default:
1294 		(void) fprintf(stderr,
1295 		    "Incompatible -xarch= and/or -m32/-m64 options used.\n");
1296 		exit(2);
1297 	}
1298 
1299 	if (ctx->i_flags & CW_F_SHADOW) {
1300 		if (op == CW_O_PREPROCESS)
1301 			exit(0);
1302 		else if (op == CW_O_LINK && c_files == 0)
1303 			exit(0);
1304 	}
1305 
1306 	if (model != NULL)
1307 		newae(ctx->i_ae, model);
1308 	if (!nolibc)
1309 		newae(ctx->i_ae, "-lc");
1310 	if (!seen_o && (ctx->i_flags & CW_F_SHADOW)) {
1311 		ctx->i_discard = discard_file_name(NULL);
1312 		newae(ctx->i_ae, "-o");
1313 		newae(ctx->i_ae, ctx->i_discard);
1314 	}
1315 }
1316 
1317 static void
1318 do_cc(cw_ictx_t *ctx)
1319 {
1320 	int in_output = 0, seen_o = 0, c_files = 0;
1321 	cw_op_t op = CW_O_LINK;
1322 	char *nameflag;
1323 
1324 	if (ctx->i_flags & CW_F_PROG) {
1325 		newae(ctx->i_ae, "-V");
1326 		return;
1327 	}
1328 
1329 	if (asprintf(&nameflag, "-_%s=", ctx->i_compiler->c_name) == -1)
1330 		nomem();
1331 
1332 	while (--ctx->i_oldargc > 0) {
1333 		char *arg = *++ctx->i_oldargv;
1334 		size_t arglen = strlen(arg);
1335 
1336 		if (strncmp(arg, "-_CC=", 5) == 0) {
1337 			newae(ctx->i_ae, strchr(arg, '=') + 1);
1338 			continue;
1339 		}
1340 
1341 		if (*arg != '-') {
1342 			if (!in_output && arglen > 2 &&
1343 			    arg[arglen - 2] == '.' &&
1344 			    (arg[arglen - 1] == 'S' || arg[arglen - 1] == 's' ||
1345 			    arg[arglen - 1] == 'c' || arg[arglen - 1] == 'i'))
1346 				c_files++;
1347 
1348 			if (in_output == 0 || !(ctx->i_flags & CW_F_SHADOW)) {
1349 				newae(ctx->i_ae, arg);
1350 			} else {
1351 				in_output = 0;
1352 				ctx->i_discard = discard_file_name(arg);
1353 				newae(ctx->i_ae, ctx->i_discard);
1354 			}
1355 			continue;
1356 		}
1357 		switch (*(arg + 1)) {
1358 		case '_':
1359 			if ((strncmp(arg, nameflag, strlen(nameflag)) == 0) ||
1360 			    (strncmp(arg, "-_cc=", 5) == 0) ||
1361 			    (strncmp(arg, "-_sun=", 6) == 0)) {
1362 				newae(ctx->i_ae, strchr(arg, '=') + 1);
1363 			}
1364 			break;
1365 
1366 		case 'V':
1367 			ctx->i_flags &= ~CW_F_ECHO;
1368 			newae(ctx->i_ae, arg);
1369 			break;
1370 		case 'o':
1371 			seen_o = 1;
1372 			if (strlen(arg) == 2) {
1373 				in_output = 1;
1374 				newae(ctx->i_ae, arg);
1375 			} else if (ctx->i_flags & CW_F_SHADOW) {
1376 				newae(ctx->i_ae, "-o");
1377 				ctx->i_discard = discard_file_name(arg);
1378 				newae(ctx->i_ae, ctx->i_discard);
1379 			} else {
1380 				newae(ctx->i_ae, arg);
1381 			}
1382 			break;
1383 		case 'c':
1384 		case 'S':
1385 			if (strlen(arg) == 2)
1386 				op = CW_O_COMPILE;
1387 			newae(ctx->i_ae, arg);
1388 			break;
1389 		case 'E':
1390 		case 'P':
1391 			if (strlen(arg) == 2)
1392 				op = CW_O_PREPROCESS;
1393 		/*FALLTHROUGH*/
1394 		default:
1395 			newae(ctx->i_ae, arg);
1396 		}
1397 	}
1398 
1399 	free(nameflag);
1400 
1401 	/* See the comment on this same code in do_gcc() */
1402 	if (c_files > 1 && op != CW_O_PREPROCESS) {
1403 		errx(2, "multiple source files are "
1404 		    "allowed only with -E or -P");
1405 	}
1406 
1407 	if (ctx->i_flags & CW_F_SHADOW) {
1408 		if (op == CW_O_PREPROCESS)
1409 			exit(0);
1410 		else if (op == CW_O_LINK && c_files == 0)
1411 			exit(0);
1412 	}
1413 
1414 	if (!seen_o && (ctx->i_flags & CW_F_SHADOW)) {
1415 		newae(ctx->i_ae, "-o");
1416 		ctx->i_discard = discard_file_name(NULL);
1417 		newae(ctx->i_ae, ctx->i_discard);
1418 	}
1419 }
1420 
1421 static void
1422 prepctx(cw_ictx_t *ctx)
1423 {
1424 	newae(ctx->i_ae, ctx->i_compiler->c_path);
1425 
1426 	if (ctx->i_flags & CW_F_PROG) {
1427 		(void) printf("%s: %s\n", (ctx->i_flags & CW_F_SHADOW) ?
1428 		    "shadow" : "primary", ctx->i_compiler->c_path);
1429 		(void) fflush(stdout);
1430 	}
1431 
1432 	if (!(ctx->i_flags & CW_F_XLATE))
1433 		return;
1434 
1435 	switch (ctx->i_compiler->c_style) {
1436 	case SUN:
1437 		do_cc(ctx);
1438 		break;
1439 	case GNU:
1440 		do_gcc(ctx);
1441 		break;
1442 	}
1443 }
1444 
1445 static int
1446 invoke(cw_ictx_t *ctx)
1447 {
1448 	char **newargv;
1449 	int ac;
1450 	struct ae *a;
1451 
1452 	if ((newargv = calloc(sizeof (*newargv), ctx->i_ae->ael_argc + 1)) ==
1453 	    NULL)
1454 		nomem();
1455 
1456 	if (ctx->i_flags & CW_F_ECHO)
1457 		(void) fprintf(stderr, "+ ");
1458 
1459 	for (ac = 0, a = ctx->i_ae->ael_head; a; a = a->ae_next, ac++) {
1460 		newargv[ac] = a->ae_arg;
1461 		if (ctx->i_flags & CW_F_ECHO)
1462 			(void) fprintf(stderr, "%s ", a->ae_arg);
1463 		if (a == ctx->i_ae->ael_tail)
1464 			break;
1465 	}
1466 
1467 	if (ctx->i_flags & CW_F_ECHO) {
1468 		(void) fprintf(stderr, "\n");
1469 		(void) fflush(stderr);
1470 	}
1471 
1472 	if (!(ctx->i_flags & CW_F_EXEC))
1473 		return (0);
1474 
1475 	/*
1476 	 * We must fix up the environment here so that the dependency files are
1477 	 * not trampled by the shadow compiler. Also take care of GCC
1478 	 * environment variables that will throw off gcc. This assumes a primary
1479 	 * gcc.
1480 	 */
1481 	if ((ctx->i_flags & CW_F_SHADOW) &&
1482 	    (unsetenv("SUNPRO_DEPENDENCIES") != 0 ||
1483 	    unsetenv("DEPENDENCIES_OUTPUT") != 0 ||
1484 	    unsetenv("GCC_ROOT") != 0)) {
1485 		(void) fprintf(stderr, "error: environment setup failed: %s\n",
1486 		    strerror(errno));
1487 		return (-1);
1488 	}
1489 
1490 	(void) execv(newargv[0], newargv);
1491 	warn("couldn't run %s", newargv[0]);
1492 
1493 	return (-1);
1494 }
1495 
1496 static int
1497 reap(cw_ictx_t *ctx)
1498 {
1499 	int status, ret = 0;
1500 	char buf[1024];
1501 	struct stat s;
1502 
1503 	/*
1504 	 * Only wait for one specific child.
1505 	 */
1506 	if (ctx->i_pid <= 0)
1507 		return (-1);
1508 
1509 	do {
1510 		if (waitpid(ctx->i_pid, &status, 0) < 0) {
1511 			warn("cannot reap child");
1512 			return (-1);
1513 		}
1514 		if (status != 0) {
1515 			if (WIFSIGNALED(status)) {
1516 				ret = -WTERMSIG(status);
1517 				break;
1518 			} else if (WIFEXITED(status)) {
1519 				ret = WEXITSTATUS(status);
1520 				break;
1521 			}
1522 		}
1523 	} while (!WIFEXITED(status) && !WIFSIGNALED(status));
1524 
1525 	(void) unlink(ctx->i_discard);
1526 	free(ctx->i_discard);
1527 
1528 	if (stat(ctx->i_stderr, &s) < 0) {
1529 		warn("stat failed on child cleanup");
1530 		return (-1);
1531 	}
1532 	if (s.st_size != 0) {
1533 		FILE *f;
1534 
1535 		if ((f = fopen(ctx->i_stderr, "r")) != NULL) {
1536 			while (fgets(buf, sizeof (buf), f))
1537 				(void) fprintf(stderr, "%s", buf);
1538 			(void) fflush(stderr);
1539 			(void) fclose(f);
1540 		}
1541 	}
1542 	(void) unlink(ctx->i_stderr);
1543 	free(ctx->i_stderr);
1544 
1545 	/*
1546 	 * cc returns an error code when given -V; we want that to succeed.
1547 	 */
1548 	if (ctx->i_flags & CW_F_PROG)
1549 		return (0);
1550 
1551 	return (ret);
1552 }
1553 
1554 static int
1555 exec_ctx(cw_ictx_t *ctx, int block)
1556 {
1557 	if ((ctx->i_stderr = tempnam(NULL, ".cw")) == NULL) {
1558 		nomem();
1559 		return (-1);
1560 	}
1561 
1562 	if ((ctx->i_pid = fork()) == 0) {
1563 		int fd;
1564 
1565 		(void) fclose(stderr);
1566 		if ((fd = open(ctx->i_stderr, O_WRONLY | O_CREAT | O_EXCL,
1567 		    0666)) < 0) {
1568 			err(1, "open failed for standard error");
1569 		}
1570 		if (dup2(fd, 2) < 0) {
1571 			err(1, "dup2 failed for standard error");
1572 		}
1573 		if (fd != 2)
1574 			(void) close(fd);
1575 		if (freopen("/dev/fd/2", "w", stderr) == NULL) {
1576 			err(1, "freopen failed for /dev/fd/2");
1577 		}
1578 
1579 		prepctx(ctx);
1580 		exit(invoke(ctx));
1581 	}
1582 
1583 	if (ctx->i_pid < 0) {
1584 		err(1, "fork failed");
1585 	}
1586 
1587 	if (block)
1588 		return (reap(ctx));
1589 
1590 	return (0);
1591 }
1592 
1593 static void
1594 parse_compiler(const char *spec, cw_compiler_t *compiler)
1595 {
1596 	char *tspec, *token;
1597 
1598 	if ((tspec = strdup(spec)) == NULL)
1599 		nomem();
1600 
1601 	if ((token = strsep(&tspec, ",")) == NULL)
1602 		errx(1, "Compiler is missing a name: %s", spec);
1603 	compiler->c_name = token;
1604 
1605 	if ((token = strsep(&tspec, ",")) == NULL)
1606 		errx(1, "Compiler is missing a path: %s", spec);
1607 	compiler->c_path = token;
1608 
1609 	if ((token = strsep(&tspec, ",")) == NULL)
1610 		errx(1, "Compiler is missing a style: %s", spec);
1611 
1612 	if ((strcasecmp(token, "gnu") == 0) ||
1613 	    (strcasecmp(token, "gcc") == 0))
1614 		compiler->c_style = GNU;
1615 	else if ((strcasecmp(token, "sun") == 0) ||
1616 	    (strcasecmp(token, "cc") == 0))
1617 		compiler->c_style = SUN;
1618 	else
1619 		errx(1, "unknown compiler style: %s", token);
1620 
1621 	if (tspec != NULL)
1622 		errx(1, "Excess tokens in compiler: %s", spec);
1623 }
1624 
1625 int
1626 main(int argc, char **argv)
1627 {
1628 	int ch;
1629 	cw_compiler_t primary = { NULL, NULL, 0 };
1630 	cw_compiler_t shadows[10];
1631 	int nshadows = 0;
1632 	int ret = 0;
1633 	boolean_t do_serial = B_FALSE;
1634 	boolean_t do_exec = B_FALSE;
1635 	boolean_t vflg = B_FALSE;
1636 	boolean_t Cflg = B_FALSE;
1637 	boolean_t cflg = B_FALSE;
1638 	boolean_t nflg = B_FALSE;
1639 
1640 	cw_ictx_t *main_ctx;
1641 
1642 	static struct option longopts[] = {
1643 		{ "compiler", no_argument, NULL, 'c' },
1644 		{ "noecho", no_argument, NULL, 'n' },
1645 		{ "primary", required_argument, NULL, 'p' },
1646 		{ "shadow", required_argument, NULL, 's' },
1647 		{ "versions", no_argument, NULL, 'v' },
1648 		{ NULL, 0, NULL, 0 },
1649 	};
1650 
1651 
1652 	if ((main_ctx = newictx()) == NULL)
1653 		nomem();
1654 
1655 	while ((ch = getopt_long(argc, argv, "C", longopts, NULL)) != -1) {
1656 		switch (ch) {
1657 		case 'c':
1658 			cflg = B_TRUE;
1659 			break;
1660 		case 'C':
1661 			Cflg = B_TRUE;
1662 			break;
1663 		case 'n':
1664 			nflg = B_TRUE;
1665 			break;
1666 		case 'p':
1667 			if (primary.c_path != NULL) {
1668 				warnx("Only one primary compiler may "
1669 				    "be specified");
1670 				usage();
1671 			}
1672 
1673 			parse_compiler(optarg, &primary);
1674 			break;
1675 		case 's':
1676 			if (nshadows >= 10)
1677 				errx(1, "May only use 10 shadows at "
1678 				    "the moment");
1679 			parse_compiler(optarg, &shadows[nshadows]);
1680 			nshadows++;
1681 			break;
1682 		case 'v':
1683 			vflg = B_TRUE;
1684 			break;
1685 		default:
1686 			(void) fprintf(stderr, "Did you forget '--'?\n");
1687 			usage();
1688 		}
1689 	}
1690 
1691 	if (primary.c_path == NULL) {
1692 		warnx("A primary compiler must be specified");
1693 		usage();
1694 	}
1695 
1696 	do_serial = (getenv("CW_SHADOW_SERIAL") == NULL) ? B_FALSE : B_TRUE;
1697 	do_exec = (getenv("CW_NO_EXEC") == NULL) ? B_TRUE : B_FALSE;
1698 
1699 	/* Leave room for argv[0] */
1700 	argc -= (optind - 1);
1701 	argv += (optind - 1);
1702 
1703 	main_ctx->i_oldargc = argc;
1704 	main_ctx->i_oldargv = argv;
1705 	main_ctx->i_flags = CW_F_XLATE;
1706 	if (nflg == 0)
1707 		main_ctx->i_flags |= CW_F_ECHO;
1708 	if (do_exec)
1709 		main_ctx->i_flags |= CW_F_EXEC;
1710 	if (Cflg)
1711 		main_ctx->i_flags |= CW_F_CXX;
1712 	main_ctx->i_compiler = &primary;
1713 
1714 	if (cflg) {
1715 		(void) fputs(primary.c_path, stdout);
1716 	}
1717 
1718 	if (vflg) {
1719 		(void) printf("cw version %s\n", CW_VERSION);
1720 		(void) fflush(stdout);
1721 		main_ctx->i_flags &= ~CW_F_ECHO;
1722 		main_ctx->i_flags |= CW_F_PROG | CW_F_EXEC;
1723 		do_serial = 1;
1724 	}
1725 
1726 	ret |= exec_ctx(main_ctx, do_serial);
1727 
1728 	for (int i = 0; i < nshadows; i++) {
1729 		int r;
1730 		cw_ictx_t *shadow_ctx;
1731 
1732 		if ((shadow_ctx = newictx()) == NULL)
1733 			nomem();
1734 
1735 		memcpy(shadow_ctx, main_ctx, sizeof (cw_ictx_t));
1736 
1737 		shadow_ctx->i_flags |= CW_F_SHADOW;
1738 		shadow_ctx->i_compiler = &shadows[i];
1739 
1740 		r = exec_ctx(shadow_ctx, do_serial);
1741 		if (r == 0) {
1742 			shadow_ctx->i_next = main_ctx->i_next;
1743 			main_ctx->i_next = shadow_ctx;
1744 		}
1745 		ret |= r;
1746 	}
1747 
1748 	if (!do_serial) {
1749 		cw_ictx_t *next = main_ctx;
1750 		while (next != NULL) {
1751 			cw_ictx_t *toreap = next;
1752 			next = next->i_next;
1753 			ret |= reap(toreap);
1754 		}
1755 	}
1756 
1757 	return (ret);
1758 }
1759