xref: /illumos-gate/usr/src/tools/cw/cw.c (revision 02e56f3f)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #pragma ident	"%Z%%M%	%I%	%E% SMI"
28 
29 /*
30  * Wrapper for the GNU C compiler to make it accept the Sun C compiler
31  * arguments where possible.
32  *
33  * Since the translation is inexact, this is something of a work-in-progress.
34  */
35 
36 /*
37  * -#		Verbose mode
38  * -###		Show compiler commands built by driver, no compilation
39  * -A<name[(tokens)]>	Preprocessor predicate assertion
40  * -B<[static|dynamic]>	Specify dynamic or static binding
41  * -C		Prevent preprocessor from removing comments
42  * -c		Compile only - produce .o files, suppress linking
43  * -cg92	Alias for -xtarget=ss1000
44  * -D<name[=token]>	Associate name with token as if by #define
45  * -d[y|n]	dynamic [-dy] or static [-dn] option to linker
46  * -E		Compile source through preprocessor only, output to stdout
47  * -erroff=<t>	Suppress warnings specified by tags t(%none, %all, <tag list>)
48  * -errtags=<a>	Display messages with tags a(no, yes)
49  * -errwarn=<t>	Treats warnings specified by tags t(%none, %all, <tag list>)
50  *		as errors
51  * -fast	Optimize using a selection of options
52  * -fd		Report old-style function definitions and declarations
53  * -flags	Show this summary of compiler options
54  * -fnonstd	Initialize floating-point hardware to non-standard preferences
55  * -fns[=<yes|no>] Select non-standard floating point mode
56  * -fprecision=<p> Set FP rounding precision mode p(single, double, extended)
57  * -fround=<r>	Select the IEEE rounding mode in effect at startup
58  * -fsimple[=<n>] Select floating-point optimization preferences <n>
59  * -fsingle	Use single-precision arithmetic (-Xt and -Xs modes only)
60  * -ftrap=<t>	Select floating-point trapping mode in effect at startup
61  * -fstore	force floating pt. values to target precision on assignment
62  * -G		Build a dynamic shared library
63  * -g		Compile for debugging
64  * -H		Print path name of each file included during compilation
65  * -h <name>	Assign <name> to generated dynamic shared library
66  * -I<dir>	Add <dir> to preprocessor #include file search path
67  * -i		Passed to linker to ignore any LD_LIBRARY_PATH setting
68  * -keeptmp	Keep temporary files created during compilation
69  * -KPIC	Compile position independent code with 32-bit addresses
70  * -Kpic	Compile position independent code
71  * -L<dir>	Pass to linker to add <dir> to the library search path
72  * -l<name>	Link with library lib<name>.a or lib<name>.so
73  * -mc		Remove duplicate strings from .comment section of output files
74  * -mr		Remove all strings from .comment section of output files
75  * -mr,"string"	Remove all strings and append "string" to .comment section
76  * -mt		Specify options needed when compiling multi-threaded code
77  * -native	Find available processor, generate code accordingly
78  * -nofstore	Do not force floating pt. values to target precision
79  *		on assignment
80  * -nolib	Same as -xnolib
81  * -noqueue	Disable queuing of compiler license requests
82  * -norunpath	Do not build in a runtime path for shared libraries
83  * -O		Use default optimization level (-xO2 or -xO3. Check man page.)
84  * -o <outputfile> Set name of output file to <outputfile>
85  * -P		Compile source through preprocessor only, output to .i  file
86  * -PIC		Alias for -KPIC or -xcode=pic32
87  * -p		Compile for profiling with prof
88  * -pic		Alias for -Kpic or -xcode=pic13
89  * -Q[y|n]	Emit/don't emit identification info to output file
90  * -qp		Compile for profiling with prof
91  * -R<dir[:dir]> Build runtime search path list into executable
92  * -S		Compile and only generate assembly code (.s)
93  * -s		Strip symbol table from the executable file
94  * -t		Turn off duplicate symbol warnings when linking
95  * -U<name>	Delete initial definition of preprocessor symbol <name>
96  * -V		Report version number of each compilation phase
97  * -v		Do stricter semantic checking
98  * -W<c>,<arg>	Pass <arg> to specified component <c> (a,l,m,p,0,2,h,i,u)
99  * -w		Suppress compiler warning messages
100  * -Xa		Compile assuming ANSI C conformance, allow K & R extensions
101  *		(default mode)
102  * -Xc		Compile assuming strict ANSI C conformance
103  * -Xs		Compile assuming (pre-ANSI) K & R C style code
104  * -Xt		Compile assuming K & R conformance, allow ANSI C
105  * -x386	Generate code for the 80386 processor
106  * -x486	Generate code for the 80486 processor
107  * -xarch=<a>	Specify target architecture instruction set
108  * -xbuiltin[=<b>] When profitable inline, or substitute intrinisic functions
109  *		for system functions, b={%all,%none}
110  * -xCC		Accept C++ style comments
111  * -xchar_byte_order=<o> Specify multi-char byte order <o> (default, high, low)
112  * -xchip=<c>	Specify the target processor for use by the optimizer
113  * -xcode=<c>	Generate different code for forming addresses
114  * -xcrossfile[=<n>] Enable optimization and inlining across source files,
115  *		n={0|1}
116  * -xe		Perform only syntax/semantic checking, no code generation
117  * -xF		Compile for later mapfile reordering
118  * -xhelp=<f>	Display on-line help information f(flags, readme, errors)
119  * -xildoff	Cancel -xildon
120  * -xildon	Enable use of the incremental linker, ild
121  * -xinline=[<a>,...,<a>]  Attempt inlining of specified user routines,
122  *		<a>={%auto,func,no%func}
123  * -xlibmieee	Force IEEE 754 return values for math routines in
124  *		exceptional cases
125  * -xlibmil	Inline selected libm math routines for optimization
126  * -xlic_lib=sunperf	Link in the Sun supplied performance libraries
127  * -xlicinfo	Show license server information
128  * -xM		Generate makefile dependencies
129  * -xM1		Generate makefile dependencies, but exclude /usr/include
130  * -xmaxopt=[off,1,2,3,4,5] maximum optimization level allowed on #pragma opt
131  * -xnolib	Do not link with default system libraries
132  * -xnolibmil	Cancel -xlibmil on command line
133  * -xO<n>	Generate optimized code (n={1|2|3|4|5})
134  * -xP		Print prototypes for function definitions
135  * -xpentium	Generate code for the pentium processor
136  * -xpg		Compile for profiling with gprof
137  * -xprofile=<p> Collect data for a profile or use a profile to optimize
138  *		<p>={{collect,use}[:<path>],tcov}
139  * -xregs=<r>	Control register allocation
140  * -xs		Allow debugging without object (.o) files
141  * -xsb		Compile for use with the WorkShop source browser
142  * -xsbfast	Generate only WorkShop source browser info, no compilation
143  * -xsfpconst	Represent unsuffixed floating point constants as single
144  *		precision
145  * -xspace	Do not do optimizations that increase code size
146  * -xstrconst	Place string literals into read-only data segment
147  * -xtarget=<t>	Specify target system for optimization
148  * -xtemp=<dir>	Set directory for temporary files to <dir>
149  * -xtime	Report the execution time for each compilation phase
150  * -xtransition	Emit warnings for differences between K&R C and ANSI C
151  * -xtrigraphs[=<yes|no>] Enable|disable trigraph translation
152  * -xunroll=n	Enable unrolling loops n times where possible
153  * -Y<c>,<dir>	Specify <dir> for location of component <c> (a,l,m,p,0,h,i,u)
154  * -YA,<dir>	Change default directory searched for components
155  * -YI,<dir>	Change default directory searched for include files
156  * -YP,<dir>	Change default directory for finding libraries files
157  * -YS,<dir>	Change default directory for startup object files
158  */
159 
160 /*
161  * Translation table:
162  */
163 /*
164  * -#				-v
165  * -###				error
166  * -A<name[(tokens)]>		pass-thru
167  * -B<[static|dynamic]>		pass-thru (syntax error for anything else)
168  * -C				pass-thru
169  * -c				pass-thru
170  * -cg92			-m32 -mcpu=v8 -mtune=supersparc (SPARC only)
171  * -D<name[=token]>		pass-thru
172  * -dy or -dn			-Wl,-dy or -Wl,-dn
173  * -E				pass-thru
174  * -erroff=E_EMPTY_TRANSLATION_UNIT ignore
175  * -errtags=%all		-Wall
176  * -errwarn=%all		-Werror else -Wno-error
177  * -fast			error
178  * -fd				error
179  * -flags			--help
180  * -fnonstd			error
181  * -fns[=<yes|no>]		error
182  * -fprecision=<p>		error
183  * -fround=<r>			error
184  * -fsimple[=<n>]		error
185  * -fsingle[=<n>]		error
186  * -ftrap=<t>			error
187  * -fstore			error
188  * -G				pass-thru
189  * -g				pass-thru
190  * -H				pass-thru
191  * -h <name>			pass-thru
192  * -I<dir>			pass-thru
193  * -i				pass-thru
194  * -keeptmp			-save-temps
195  * -KPIC			-fPIC
196  * -Kpic			-fpic
197  * -L<dir>			pass-thru
198  * -l<name>			pass-thru
199  * -mc				error
200  * -mr				error
201  * -mr,"string"			error
202  * -mt				-D_REENTRANT
203  * -native			error
204  * -nofstore			error
205  * -nolib			-nodefaultlibs
206  * -noqueue			ignore
207  * -norunpath			ignore
208  * -O				-O1 (Check the man page to be certain)
209  * -o <outputfile>		pass-thru
210  * -P				-E -o filename.i (or error)
211  * -PIC				-fPIC (C++ only)
212  * -p				pass-thru
213  * -pic				-fpic (C++ only)
214  * -Q[y|n]			error
215  * -qp				-p
216  * -R<dir[:dir]>		pass-thru
217  * -S				pass-thru
218  * -s				-Wl,-s
219  * -t				-Wl,-t
220  * -U<name>			pass-thru
221  * -V				--version
222  * -v				-Wall
223  * -Wa,<arg>			pass-thru
224  * -Wp,<arg>			pass-thru except -xc99=<a>
225  * -Wl,<arg>			pass-thru
226  * -W{m,0,2,h,i,u>		error/ignore
227  * -Wu,-xmodel=kernel		-ffreestanding -mcmodel=kernel -mno-red-zone
228  * -Wu,-save_args		-msave-args
229  * -w				pass-thru
230  * -Xa				-std=iso9899:199409 or -ansi
231  * -Xc				-ansi -pedantic
232  * -Xt				error
233  * -Xs				-traditional -std=c89
234  * -x386			-march=i386 (x86 only)
235  * -x486			-march=i486 (x86 only)
236  * -xarch=<a>			table
237  * -xbuiltin[=<b>]		-fbuiltin (-fno-builtin otherwise)
238  * -xCC				ignore
239  * -xchar_byte_order=<o>	error
240  * -xchip=<c>			table
241  * -xcode=<c>			table
242  * -xdebugformat=<format>	ignore (always use dwarf-2 for gcc)
243  * -xcrossfile[=<n>]		ignore
244  * -xe				error
245  * -xF				error
246  * -xhelp=<f>			error
247  * -xildoff			ignore
248  * -xildon			ignore
249  * -xinline			ignore
250  * -xlibmieee			error
251  * -xlibmil			error
252  * -xlic_lib=sunperf		error
253  * -xM				-M
254  * -xM1				-MM
255  * -xmaxopt=[...]		error
256  * -xnolib			-nodefaultlibs
257  * -xnolibmil			error
258  * -xO<n>			-O<n>
259  * -xP				error
260  * -xpentium			-march=pentium (x86 only)
261  * -xpg				error
262  * -xprofile=<p>		error
263  * -xregs=<r>			table
264  * -xs				error
265  * -xsb				error
266  * -xsbfast			error
267  * -xsfpconst			error
268  * -xspace			ignore (-not -Os)
269  * -xstrconst			ignore
270  * -xtarget=<t>			table
271  * -xtemp=<dir>			error
272  * -xtime			error
273  * -xtransition			-Wtransition
274  * -xtrigraphs=<yes|no>		-trigraphs -notrigraphs
275  * -xunroll=n			error
276  * -W0,-xdbggen=no%usedonly	-fno-eliminate-unused-debug-symbols
277  *				-fno-eliminate-unused-debug-types
278  * -Y<c>,<dir>			error
279  * -YA,<dir>			error
280  * -YI,<dir>			-nostdinc -I<dir>
281  * -YP,<dir>			error
282  * -YS,<dir>			error
283  */
284 
285 #include <stdio.h>
286 #include <sys/types.h>
287 #include <unistd.h>
288 #include <string.h>
289 #include <stdlib.h>
290 #include <ctype.h>
291 #include <sys/utsname.h>
292 #include <sys/param.h>
293 #include <sys/isa_defs.h>
294 
295 static int echo = 1;
296 static int newargc;
297 static const char *progname;
298 
299 static char *default_cc_dir;
300 static char *default_gcc_dir;
301 
302 static char *default_cplusplus_dir;
303 static char *default_gplusplus_dir;
304 
305 static const char *xarch_tbl[] = {
306 #if defined(__x86)
307 	"generic",	NULL,
308 	"generic64",	"-m64", "-mtune=opteron", NULL,
309 	"amd64",	"-m64", "-mtune=opteron", NULL,
310 	"386",		"-march=i386", NULL,
311 	"pentium_pro",	"-march=pentiumpro", NULL,
312 #elif defined(__sparc)
313 	"generic",	"-m32", "-mcpu=v8", NULL,
314 	"generic64",	"-m64", "-mcpu=v9", NULL,
315 	"v8",		"-m32", "-mcpu=v8", "-mno-v8plus", NULL,
316 	"v8plus",	"-m32", "-mcpu=v9", "-mv8plus", NULL,
317 	"v8plusa",	"-m32", "-mcpu=ultrasparc", "-mv8plus", "-mvis", NULL,
318 	"v8plusb",	"-m32", "-mcpu=ultrasparc3", "-mv8plus", "-mvis", NULL,
319 	"v9",		"-m64", "-mcpu=v9", NULL,
320 	"v9a",		"-m64", "-mcpu=ultrasparc", "-mvis", NULL,
321 	"v9b",		"-m64", "-mcpu=ultrasparc3", "-mvis", NULL,
322 #endif
323 	NULL,		NULL
324 };
325 
326 static const char *xchip_tbl[] = {
327 #if defined(__x86)
328 	"386",		"-mtune=i386", NULL,
329 	"486",		"-mtune=i486", NULL,
330 	"pentium",	"-mtune=pentium", NULL,
331 	"pentium_pro",  "-mtune=pentiumpro", NULL,
332 #elif defined(__sparc)
333 	"super",	"-mtune=supersparc", NULL,
334 	"ultra",	"-mtune=ultrasparc", NULL,
335 	"ultra3",	"-mtune=ultrasparc3", NULL,
336 #endif
337 	NULL,		NULL
338 };
339 
340 static const char *xcode_tbl[] = {
341 #if defined(__sparc)
342 	"abs32",	"-fno-pic", "-mcmodel=medlow", NULL,
343 	"abs44",	"-fno-pic", "-mcmodel=medmid", NULL,
344 	"abs64",	"-fno-pic", "-mcmodel=medany", NULL,
345 	"pic13",	"-fpic", NULL,
346 	"pic32",	"-fPIC", NULL,
347 #endif
348 	NULL,		NULL
349 };
350 
351 static const char *xtarget_tbl[] = {
352 #if defined(__x86)
353 	"pentium_pro",	"-march=pentiumpro", NULL,
354 #endif	/* __x86 */
355 	NULL,		NULL
356 };
357 
358 static const char *xregs_tbl[] = {
359 #if defined(__sparc)
360 	"appl",		"-mapp-regs", NULL,
361 	"no%appl",	"-mno-app-regs", NULL,
362 	"float",	"-mfpu", NULL,
363 	"no%float",	"-mno-fpu", NULL,
364 #endif	/* __sparc */
365 	NULL,		NULL
366 };
367 
368 struct aelist {
369 	struct ae {
370 		struct ae *ae_next;
371 		char *ae_arg;
372 	} *ael_head, *ael_tail;
373 };
374 
375 static struct aelist *
376 newael(void)
377 {
378 	return (calloc(sizeof (struct aelist), 1));
379 }
380 
381 static void
382 newae(struct aelist *ael, const char *arg)
383 {
384 	struct ae *ae;
385 
386 	ae = calloc(sizeof (*ae), 1);
387 	ae->ae_arg = strdup(arg);
388 	if (ael->ael_tail == NULL)
389 		ael->ael_head = ae;
390 	else
391 		ael->ael_tail->ae_next = ae;
392 	ael->ael_tail = ae;
393 	newargc++;
394 }
395 
396 static void
397 error(const char *arg)
398 {
399 	(void) fprintf(stderr,
400 	    "%s: mapping failed at or near arg '%s'\n", progname, arg);
401 	exit(2);
402 }
403 
404 /*
405  * Add the current favourite set of warnings to the gcc invocation.
406  */
407 static void
408 warnings(struct aelist *h)
409 {
410 	static int warningsonce;
411 
412 	if (warningsonce++)
413 		return;
414 
415 	newae(h, "-Wall");
416 	newae(h, "-Wno-unknown-pragmas");
417 	newae(h, "-Wno-missing-braces");
418 	newae(h, "-Wno-sign-compare");
419 	newae(h, "-Wno-parentheses");
420 	newae(h, "-Wno-uninitialized");
421 	newae(h, "-Wno-implicit-function-declaration");
422 	newae(h, "-Wno-unused");
423 	newae(h, "-Wno-trigraphs");
424 	newae(h, "-Wno-char-subscripts");
425 	newae(h, "-Wno-switch");
426 }
427 
428 static void
429 optim_disable(struct aelist *h, int level)
430 {
431 	if (level >= 2) {
432 		newae(h, "-fno-strict-aliasing");
433 		newae(h, "-fno-unit-at-a-time");
434 		newae(h, "-fno-optimize-sibling-calls");
435 	}
436 }
437 
438 /* ARGSUSED */
439 static void
440 Xamode(struct aelist *h)
441 {
442 }
443 
444 static void
445 Xcmode(struct aelist *h)
446 {
447 	static int xconce;
448 
449 	if (xconce++)
450 		return;
451 
452 	newae(h, "-ansi");
453 	newae(h, "-pedantic-errors");
454 }
455 
456 static void
457 Xsmode(struct aelist *h)
458 {
459 	static int xsonce;
460 
461 	if (xsonce++)
462 		return;
463 
464 	newae(h, "-traditional");
465 	newae(h, "-traditional-cpp");
466 }
467 
468 static void
469 usage()
470 {
471 	(void) fprintf(stderr,
472 	    "usage: %s { -_cc | -_gcc | -_CC | -_g++ } [ -_compiler | ... ]\n",
473 	    progname);
474 	exit(2);
475 }
476 
477 static void
478 xlate(struct aelist *h, const char *xarg, const char **table)
479 {
480 	while (*table != NULL && strcmp(xarg, *table) != 0) {
481 		while (*table != NULL)
482 			table++;
483 		table++;
484 	}
485 
486 	if (*table == NULL)
487 		error(xarg);
488 
489 	table++;
490 
491 	while (*table != NULL) {
492 		newae(h, *table);
493 		table++;
494 	}
495 }
496 
497 static void
498 do_gcc(const char *dir, const char *cmd, int argc, char **argv,
499     struct aelist *h, int cplusplus)
500 {
501 	int c;
502 	int pic = 0;
503 	int nolibc = 0;
504 	char *model = NULL;
505 	char *program;
506 	size_t len = strlen(dir) + strlen(cmd) + 2;
507 
508 	program = malloc(len);
509 	(void) snprintf(program, len, "%s/%s", dir, cmd);
510 
511 	/*
512 	 * Basic defaults for ON compilation
513 	 */
514 	newae(h, program);
515 
516 	newae(h, "-fident");
517 	newae(h, "-finline");
518 	newae(h, "-fno-inline-functions");
519 	newae(h, "-fno-builtin");
520 	newae(h, "-fno-asm");
521 	newae(h, "-nodefaultlibs");
522 
523 #if defined(__sparc)
524 	/*
525 	 * The SPARC ldd and std instructions require 8-byte alignment of
526 	 * their address operand.  gcc correctly uses them only when the
527 	 * ABI requires 8-byte alignment; unfortunately we have a number of
528 	 * pieces of buggy code that doesn't conform to the ABI.  This
529 	 * flag makes gcc work more like Studio with -xmemalign=4.
530 	 */
531 	newae(h, "-mno-integer-ldd-std");
532 #endif
533 
534 	/*
535 	 * This is needed because 'u' is defined
536 	 * under a conditional on 'sun'.  Should
537 	 * probably just remove the conditional,
538 	 * or make it be dependent on '__sun'.
539 	 *
540 	 * -Dunix is also missing in enhanced ANSI mode
541 	 */
542 	newae(h, "-D__sun");
543 
544 	/*
545 	 * Walk the argument list, translating as we go ..
546 	 */
547 
548 	while (--argc > 0) {
549 		char *arg = *++argv;
550 		size_t arglen = strlen(arg);
551 
552 		if (*arg == '-')
553 			arglen--;
554 		else {
555 			/*
556 			 * Discard inline files that gcc doesn't grok
557 			 */
558 			if (arglen > 3 &&
559 			    strcmp(arg + arglen - 3, ".il") == 0)
560 				continue;
561 
562 			/*
563 			 * Otherwise, filenames, and partial arguments
564 			 * are simply passed through for gcc to chew on.
565 			 */
566 			newae(h, arg);
567 			continue;
568 		}
569 
570 		if (cplusplus) {
571 			if (strncmp(arg, "-compat=", 8) == 0) {
572 				/* discard -compat=4 and -compat=5 */
573 				continue;
574 			}
575 			if (strcmp(arg, "-Qoption") == 0) {
576 				/* discard -Qoption and its two arguments */
577 				if (argc < 3)
578 					error(arg);
579 				argc -= 2;
580 				argv += 2;
581 				continue;
582 			}
583 			if (strcmp(arg, "-xwe") == 0) {
584 				/* turn warnings into errors */
585 				/* newae(h, "-Werror"); */
586 				continue;
587 			}
588 			if (strcmp(arg, "-noex") == 0) {
589 				/* no exceptions */
590 				newae(h, "-fno-exceptions");
591 				/* no run time type descriptor information */
592 				newae(h, "-fno-rtti");
593 				continue;
594 			}
595 			if (strcmp(arg, "-pic") == 0) {
596 				newae(h, "-fpic");
597 				pic = 1;
598 				continue;
599 			}
600 			if (strcmp(arg, "-PIC") == 0) {
601 				newae(h, "-fPIC");
602 				pic = 1;
603 				continue;
604 			}
605 			if (strcmp(arg, "-norunpath") == 0) {
606 				/* gcc has no corresponding option */
607 				continue;
608 			}
609 			if (strcmp(arg, "-nolib") == 0) {
610 				/* -nodefaultlibs is on by default */
611 				nolibc = 1;
612 				continue;
613 			}
614 #if defined(__sparc)
615 			if (strcmp(arg, "-cg92") == 0) {
616 				xlate(h, "v8", xarch_tbl);
617 				xlate(h, "super", xchip_tbl);
618 				continue;
619 			}
620 #endif	/* __sparc */
621 		}
622 
623 		switch ((c = arg[1])) {
624 		case '_':
625 			if (strcmp(arg, "-_noecho") == 0)
626 				echo = 0;
627 			else if (strncmp(arg, "-_cc=", 5) == 0 ||
628 			    strncmp(arg, "-_CC=", 5) == 0)
629 				/* EMPTY */;
630 			else if (strncmp(arg, "-_gcc=", 6) == 0 ||
631 			    strncmp(arg, "-_g++=", 6) == 0)
632 				newae(h, arg + 6);
633 			else if (strcmp(arg, "-_compiler") == 0) {
634 				(void) printf("%s\n", program);
635 				exit(0);
636 			} else
637 				error(arg);
638 			break;
639 		case '#':
640 			if (arglen == 1) {
641 				newae(h, "-v");
642 				break;
643 			}
644 			error(arg);
645 			break;
646 		case 'g':
647 			newae(h, "-gdwarf-2");
648 			break;
649 		case 'E':
650 			if (arglen == 1) {
651 				newae(h, "-xc");
652 				newae(h, arg);
653 				nolibc = 1;
654 				break;
655 			}
656 			error(arg);
657 			break;
658 		case 'c':
659 		case 'S':
660 			if (arglen == 1)
661 				nolibc = 1;
662 			/* FALLTHROUGH */
663 		case 'C':
664 		case 'H':
665 		case 'p':
666 			if (arglen == 1) {
667 				newae(h, arg);
668 				break;
669 			}
670 			error(arg);
671 			break;
672 		case 'A':
673 		case 'h':
674 		case 'I':
675 		case 'i':
676 		case 'L':
677 		case 'l':
678 		case 'o':
679 		case 'R':
680 		case 'U':
681 		case 'u':
682 		case 'w':
683 			newae(h, arg);
684 			break;
685 		case 'D':
686 			newae(h, arg);
687 			/*
688 			 * XXX	Clearly a hack ... do we need _KADB too?
689 			 */
690 			if (strcmp(arg, "-D_KERNEL") == 0 ||
691 			    strcmp(arg, "-D_BOOT") == 0)
692 				newae(h, "-ffreestanding");
693 			break;
694 		case 'd':
695 			if (arglen == 2) {
696 				if (strcmp(arg, "-dy") == 0) {
697 					newae(h, "-Wl,-dy");
698 					break;
699 				}
700 				if (strcmp(arg, "-dn") == 0) {
701 					newae(h, "-Wl,-dn");
702 					break;
703 				}
704 			}
705 			if (strcmp(arg, "-dalign") == 0) {
706 				/*
707 				 * -dalign forces alignment in some cases;
708 				 * gcc does not need any flag to do this.
709 				 */
710 				break;
711 			}
712 			error(arg);
713 			break;
714 		case 'e':
715 			if (strcmp(arg,
716 			    "-erroff=E_EMPTY_TRANSLATION_UNIT") == 0) {
717 				/*
718 				 * Accept but ignore this -- gcc doesn't
719 				 * seem to complain about empty translation
720 				 * units
721 				 */
722 				break;
723 			}
724 			/* XX64 -- ignore all -erroff= options, for now */
725 			if (strncmp(arg, "-erroff=", 8) == 0)
726 				break;
727 			if (strcmp(arg, "-errtags=yes") == 0) {
728 				warnings(h);
729 				break;
730 			}
731 			if (strcmp(arg, "-errwarn=%all") == 0) {
732 				newae(h, "-Werror");
733 				break;
734 			}
735 			error(arg);
736 			break;
737 		case 'f':
738 			if (strcmp(arg, "-flags") == 0) {
739 				newae(h, "--help");
740 				break;
741 			}
742 			error(arg);
743 			break;
744 		case 'G':
745 			newae(h, "-shared");
746 			nolibc = 1;
747 			break;
748 		case 'k':
749 			if (strcmp(arg, "-keeptmp") == 0) {
750 				newae(h, "-save-temps");
751 				break;
752 			}
753 			error(arg);
754 			break;
755 		case 'K':
756 			if (arglen == 1) {
757 				if ((arg = *++argv) == NULL || *arg == '\0')
758 					error("-K");
759 				argc--;
760 			} else {
761 				arg += 2;
762 			}
763 			if (strcmp(arg, "pic") == 0) {
764 				newae(h, "-fpic");
765 				pic = 1;
766 				break;
767 			}
768 			if (strcmp(arg, "PIC") == 0) {
769 				newae(h, "-fPIC");
770 				pic = 1;
771 				break;
772 			}
773 			error("-K");
774 			break;
775 		case 'm':
776 			if (strcmp(arg, "-mt") == 0) {
777 				newae(h, "-D_REENTRANT");
778 				break;
779 			}
780 			error(arg);
781 			break;
782 		case 'B':	/* linker options */
783 		case 'M':
784 		case 'z':
785 			{
786 				char *opt;
787 				size_t len;
788 				char *s;
789 
790 				if (arglen == 1) {
791 					opt = *++argv;
792 					if (opt == NULL || *opt == '\0')
793 						error(arg);
794 					argc--;
795 				} else {
796 					opt = arg + 2;
797 				}
798 				len = strlen(opt) + 7;
799 				s = malloc(len);
800 				(void) snprintf(s, len, "-Wl,-%c%s", c, opt);
801 				newae(h, s);
802 				free(s);
803 			}
804 			break;
805 		case 'n':
806 			if (strcmp(arg, "-noqueue") == 0) {
807 				/*
808 				 * Horrid license server stuff - n/a
809 				 */
810 				break;
811 			}
812 			error(arg);
813 			break;
814 		case 'O':
815 			if (arglen == 1) {
816 				newae(h, "-O");
817 				break;
818 			}
819 			error(arg);
820 			break;
821 		case 'P':
822 			/*
823 			 * We could do '-E -o filename.i', but that's hard,
824 			 * and we don't need it for the case that's triggering
825 			 * this addition.  We'll require the user to specify
826 			 * -o in the Makefile.  If they don't they'll find out
827 			 * in a hurry.
828 			 */
829 			newae(h, "-E");
830 			nolibc = 1;
831 			break;
832 		case 'q':
833 			if (strcmp(arg, "-qp") == 0) {
834 				newae(h, "-p");
835 				break;
836 			}
837 			error(arg);
838 			break;
839 		case 's':
840 			if (arglen == 1) {
841 				newae(h, "-Wl,-s");
842 				break;
843 			}
844 			error(arg);
845 			break;
846 		case 't':
847 			if (arglen == 1) {
848 				newae(h, "-Wl,-t");
849 				break;
850 			}
851 			error(arg);
852 			break;
853 		case 'V':
854 			if (arglen == 1) {
855 				echo = 0;
856 				newae(h, "--version");
857 				break;
858 			}
859 			error(arg);
860 			break;
861 		case 'v':
862 			if (arglen == 1) {
863 				warnings(h);
864 				break;
865 			}
866 			error(arg);
867 			break;
868 		case 'W':
869 			if (strncmp(arg, "-Wp,-xc99", 9) == 0) {
870 				/*
871 				 * gcc's preprocessor will accept c99
872 				 * regardless, so accept and ignore.
873 				 */
874 				break;
875 			}
876 			if (strncmp(arg, "-Wa,", 4) == 0 ||
877 			    strncmp(arg, "-Wp,", 4) == 0 ||
878 			    strncmp(arg, "-Wl,", 4) == 0) {
879 				newae(h, arg);
880 				break;
881 			}
882 			if (strcmp(arg, "-W0,-xc99=pragma") == 0) {
883 				/* (undocumented) enables _Pragma */
884 				break;
885 			}
886 			if (strcmp(arg, "-W0,-xc99=%none") == 0) {
887 				/*
888 				 * This is a polite way of saying
889 				 * "no c99 constructs allowed!"
890 				 * For now, just accept and ignore this.
891 				 */
892 				break;
893 			}
894 			if (strcmp(arg, "-W0,-noglobal") == 0) {
895 				/*
896 				 * gcc doesn't prefix local symbols
897 				 * in debug mode, so this is not needed.
898 				 */
899 				break;
900 			}
901 			if (strcmp(arg, "-W0,-Lt") == 0) {
902 				/*
903 				 * Generate tests at the top of loops.
904 				 * There is no direct gcc equivalent, ignore.
905 				 */
906 				break;
907 			}
908 			if (strcmp(arg, "-W0,-xdbggen=no%usedonly") == 0) {
909 				newae(h, "-fno-eliminate-unused-debug-symbols");
910 				newae(h, "-fno-eliminate-unused-debug-types");
911 				break;
912 			}
913 			if (strcmp(arg, "-W2,-Rcond_elim") == 0) {
914 				/*
915 				 * Elimination and expansion of conditionals;
916 				 * gcc has no direct equivalent.
917 				 */
918 				break;
919 			}
920 			if (strcmp(arg, "-Wd,-xsafe=unboundsym") == 0) {
921 				/*
922 				 * Prevents optimizing away checks for
923 				 * unbound weak symbol addresses.  gcc does
924 				 * not do this, so it's not needed.
925 				 */
926 				break;
927 			}
928 			if (strncmp(arg, "-Wc,-xcode=", 11) == 0) {
929 				xlate(h, arg + 11, xcode_tbl);
930 				if (strncmp(arg + 11, "pic", 3) == 0)
931 					pic = 1;
932 				break;
933 			}
934 			if (strncmp(arg, "-Wc,-Qiselect", 13) == 0) {
935 				/*
936 				 * Prevents insertion of register symbols.
937 				 * gcc doesn't do this, so ignore it.
938 				 */
939 				break;
940 			}
941 #if defined(__x86)
942 			if (strcmp(arg, "-Wu,-no_got_reloc") == 0) {
943 				newae(h, "-fno-jump-tables");
944 				newae(h, "-fno-constant-pools");
945 				break;
946 			}
947 			if (strcmp(arg, "-Wu,-xmodel=kernel") == 0) {
948 				newae(h, "-ffreestanding");
949 				newae(h, "-mno-red-zone");
950 				model = "-mcmodel=kernel";
951 				nolibc = 1;
952 				break;
953 			}
954 			if (strcmp(arg, "-Wu,-save_args") == 0) {
955 				newae(h, "-msave-args");
956 				break;
957 			}
958 #endif	/* __x86 */
959 			error(arg);
960 			break;
961 		case 'X':
962 			if (strcmp(arg, "-Xa") == 0 ||
963 			    strcmp(arg, "-Xt") == 0) {
964 				Xamode(h);
965 				break;
966 			}
967 			if (strcmp(arg, "-Xc") == 0) {
968 				Xcmode(h);
969 				break;
970 			}
971 			if (strcmp(arg, "-Xs") == 0) {
972 				Xsmode(h);
973 				break;
974 			}
975 			error(arg);
976 			break;
977 		case 'x':
978 			if (arglen == 1)
979 				error(arg);
980 			switch (arg[2]) {
981 #if defined(__x86)
982 			case '3':
983 				if (strcmp(arg, "-x386") == 0) {
984 					newae(h, "-march=i386");
985 					break;
986 				}
987 				error(arg);
988 				break;
989 			case '4':
990 				if (strcmp(arg, "-x486") == 0) {
991 					newae(h, "-march=i486");
992 					break;
993 				}
994 				error(arg);
995 				break;
996 #endif	/* __x86 */
997 			case 'a':
998 				if (strncmp(arg, "-xarch=", 7) == 0) {
999 					xlate(h, arg + 7, xarch_tbl);
1000 					break;
1001 				}
1002 				error(arg);
1003 				break;
1004 			case 'b':
1005 				if (strncmp(arg, "-xbuiltin=", 10) == 0) {
1006 					if (strcmp(arg + 10, "%all"))
1007 						newae(h, "-fbuiltin");
1008 					break;
1009 				}
1010 				error(arg);
1011 				break;
1012 			case 'C':
1013 				/* Accept C++ style comments -- ignore */
1014 				if (strcmp(arg, "-xCC") == 0)
1015 					break;
1016 				error(arg);
1017 				break;
1018 			case 'c':
1019 				if (strncmp(arg, "-xc99=%all", 10) == 0) {
1020 					newae(h, "-std=gnu99");
1021 					break;
1022 				}
1023 				if (strncmp(arg, "-xc99=%none", 11) == 0) {
1024 					newae(h, "-std=gnu89");
1025 					break;
1026 				}
1027 				if (strncmp(arg, "-xchip=", 7) == 0) {
1028 					xlate(h, arg + 7, xchip_tbl);
1029 					break;
1030 				}
1031 				if (strncmp(arg, "-xcode=", 7) == 0) {
1032 					xlate(h, arg + 7, xcode_tbl);
1033 					if (strncmp(arg + 7, "pic", 3) == 0)
1034 						pic = 1;
1035 					break;
1036 				}
1037 				if (strncmp(arg, "-xcache=", 8) == 0)
1038 					break;
1039 				if (strncmp(arg, "-xcrossfile", 11) == 0)
1040 					break;
1041 				error(arg);
1042 				break;
1043 			case 'd':
1044 				if (strcmp(arg, "-xdepend") == 0)
1045 					break;
1046 				if (strncmp(arg, "-xdebugformat=", 14) == 0)
1047 					break;
1048 				error(arg);
1049 				break;
1050 			case 'F':
1051 				/* compile for mapfile reordering -- ignore */
1052 				if (strcmp(arg, "-xF") == 0)
1053 					break;
1054 				error(arg);
1055 				break;
1056 			case 'i':
1057 				if (strncmp(arg, "-xinline", 8) == 0)
1058 					/* No inlining; ignore */
1059 					break;
1060 				if (strcmp(arg, "-xildon") == 0 ||
1061 				    strcmp(arg, "-xildoff") == 0)
1062 					/* No incremental linking; ignore */
1063 					break;
1064 				error(arg);
1065 				break;
1066 			case 'M':
1067 				if (strcmp(arg, "-xM") == 0) {
1068 					newae(h, "-M");
1069 					break;
1070 				}
1071 				if (strcmp(arg, "-xM1") == 0) {
1072 					newae(h, "-MM");
1073 					break;
1074 				}
1075 				error(arg);
1076 				break;
1077 			case 'n':
1078 				if (strcmp(arg, "-xnolib") == 0) {
1079 					nolibc = 1;
1080 					break;
1081 				}
1082 				error(arg);
1083 				break;
1084 			case 'O':
1085 				if (strncmp(arg, "-xO", 3) == 0) {
1086 					size_t len = strlen(arg);
1087 					char *s = malloc(len);
1088 					int c = *(arg + 3);
1089 					int level;
1090 
1091 					if (len != 4 || !isdigit(c))
1092 						error(arg);
1093 
1094 					level = atoi(arg + 3);
1095 					if (level > 5)
1096 						error(arg);
1097 					if (level >= 2) {
1098 						/*
1099 						 * For gcc-3.4.x at -O2 we
1100 						 * need to disable optimizations
1101 						 * that break ON.
1102 						 */
1103 						optim_disable(h, level);
1104 						/*
1105 						 * limit -xO3 to -O2 as well.
1106 						 */
1107 						level = 2;
1108 					}
1109 					(void) snprintf(s, len, "-O%d", level);
1110 					newae(h, s);
1111 					free(s);
1112 					break;
1113 				}
1114 				error(arg);
1115 				break;
1116 			case 'p':
1117 				if (strcmp(arg, "-xpentium") == 0) {
1118 					newae(h, "-march=pentium");
1119 					break;
1120 				}
1121 				if (strcmp(arg, "-xpg") == 0) {
1122 					newae(h, "-pg");
1123 					break;
1124 				}
1125 				error(arg);
1126 				break;
1127 			case 'r':
1128 				if (strncmp(arg, "-xregs=", 7) == 0) {
1129 					xlate(h, arg + 7, xregs_tbl);
1130 					break;
1131 				}
1132 				error(arg);
1133 				break;
1134 			case 's':
1135 				if (strcmp(arg, "-xs") == 0 ||
1136 				    strcmp(arg, "-xspace") == 0 ||
1137 				    strcmp(arg, "-xstrconst") == 0)
1138 					break;
1139 				error(arg);
1140 				break;
1141 			case 't':
1142 				if (strcmp(arg, "-xtransition") == 0) {
1143 					newae(h, "-Wtransition");
1144 					break;
1145 				}
1146 				if (strcmp(arg, "-xtrigraphs=yes") == 0) {
1147 					newae(h, "-trigraphs");
1148 					break;
1149 				}
1150 				if (strcmp(arg, "-xtrigraphs=no") == 0) {
1151 					newae(h, "-notrigraphs");
1152 					break;
1153 				}
1154 				if (strncmp(arg, "-xtarget=", 9) == 0) {
1155 					xlate(h, arg + 9, xtarget_tbl);
1156 					break;
1157 				}
1158 				error(arg);
1159 				break;
1160 			case 'e':
1161 			case 'h':
1162 			case 'l':
1163 			default:
1164 				error(arg);
1165 				break;
1166 			}
1167 			break;
1168 		case 'Y':
1169 			if (arglen == 1) {
1170 				if ((arg = *++argv) == NULL || *arg == '\0')
1171 					error("-Y");
1172 				argc--;
1173 				arglen = strlen(arg + 1);
1174 			} else {
1175 				arg += 2;
1176 			}
1177 			/* Just ignore -YS,... for now */
1178 			if (strncmp(arg, "S,", 2) == 0)
1179 				break;
1180 			if (strncmp(arg, "l,", 2) == 0) {
1181 				char *s = strdup(arg);
1182 				s[0] = '-';
1183 				s[1] = 'B';
1184 				newae(h, s);
1185 				free(s);
1186 				break;
1187 			}
1188 			if (strncmp(arg, "I,", 2) == 0) {
1189 				char *s = strdup(arg);
1190 				s[0] = '-';
1191 				s[1] = 'I';
1192 				newae(h, "-nostdinc");
1193 				newae(h, s);
1194 				free(s);
1195 				break;
1196 			}
1197 			error(arg);
1198 			break;
1199 		case 'Q':
1200 			/*
1201 			 * We could map -Qy into -Wl,-Qy etc.
1202 			 */
1203 		default:
1204 			error(arg);
1205 			break;
1206 		}
1207 	}
1208 
1209 	if (model && !pic)
1210 		newae(h, model);
1211 	if (!nolibc)
1212 		newae(h, "-lc");
1213 }
1214 
1215 /* ARGSUSED4 */
1216 static void
1217 do_cc(const char *dir, const char *cmd, int argc, char **argv,
1218     struct aelist *h, int cplusplus)
1219 {
1220 	char *program;
1221 	size_t len = strlen(dir) + strlen(cmd) + 2;
1222 
1223 	program = malloc(len);
1224 	(void) snprintf(program, len, "%s/%s", dir, cmd);
1225 
1226 	/*
1227 	 * This is pretty simple.
1228 	 * We just have to recognize -V, -_noecho, -_compiler, -_cc= and -_gcc=
1229 	 */
1230 	newae(h, program);
1231 
1232 	while (--argc > 0) {
1233 		char *arg = *++argv;
1234 
1235 		if (*arg != '-') {
1236 			newae(h, arg);
1237 		} else if (*(arg + 1) != '_') {
1238 			if (strcmp(arg, "-V") == 0)
1239 				echo = 0;
1240 			newae(h, arg);
1241 		} else if (strcmp(arg, "-_noecho") == 0) {
1242 			echo = 0;
1243 		} else if (strcmp(arg, "-_compiler") == 0) {
1244 			(void) printf("%s\n", program);
1245 			exit(0);
1246 		} else if (strncmp(arg, "-_cc=", 5) == 0 ||
1247 		    strncmp(arg, "-_CC=", 5) == 0) {
1248 			newae(h, arg + 5);
1249 		} else if (strncmp(arg, "-_gcc=", 6) != 0 &&
1250 		    strncmp(arg, "-_g++=", 6) != 0) {
1251 			(void) fprintf(stderr,
1252 			    "%s: invalid argument '%s'\n", progname, arg);
1253 			exit(2);
1254 		}
1255 	}
1256 }
1257 
1258 int
1259 main(int argc, char **argv)
1260 {
1261 	struct aelist *h = newael();
1262 	const char *dir;
1263 	int ac;
1264 	char **newargv;
1265 	struct ae *a;
1266 	char cc_buf[MAXPATHLEN], gcc_buf[MAXPATHLEN];
1267 
1268 	if ((progname = strrchr(argv[0], '/')) == NULL)
1269 		progname = argv[0];
1270 	else
1271 		progname++;
1272 
1273 	default_cc_dir = DEFAULT_CC_DIR;
1274 	default_gcc_dir = DEFAULT_GCC_DIR;
1275 	default_cplusplus_dir = DEFAULT_CPLUSPLUS_DIR;
1276 	default_gplusplus_dir = DEFAULT_GPLUSPLUS_DIR;
1277 
1278 	/*
1279 	 * Figure out where to get our tools from.  This depends on
1280 	 * the environment variables set at run time.
1281 	 */
1282 	if ((dir = getenv("SPRO_VROOT")) != NULL) {
1283 		(void) snprintf(cc_buf, MAXPATHLEN, "%s/bin", dir);
1284 	} else if ((dir = getenv("SPRO_ROOT")) != NULL) {
1285 		(void) snprintf(cc_buf, MAXPATHLEN, "%s/SOS10/bin", dir);
1286 	} else if ((dir = getenv("BUILD_TOOLS")) != NULL) {
1287 		(void) snprintf(cc_buf, MAXPATHLEN,
1288 		    "%s/SUNWspro/SOS10/bin", dir);
1289 	}
1290 	if (dir != NULL)
1291 		default_cc_dir = (char *)cc_buf;
1292 
1293 	if ((dir = getenv("GNU_ROOT")) != NULL) {
1294 		(void) snprintf(gcc_buf, MAXPATHLEN, "%s/bin", dir);
1295 		default_gcc_dir = (char *)gcc_buf;
1296 	}
1297 
1298 	default_cplusplus_dir = default_cc_dir;
1299 	default_gplusplus_dir = default_gcc_dir;
1300 
1301 	/*
1302 	 * The first argument must be one of "-_cc", "-_gcc", "-_CC", or "-_g++"
1303 	 */
1304 	if (argc == 1)
1305 		usage();
1306 	argc--;
1307 	argv++;
1308 	if (strcmp(argv[0], "-_cc") == 0) {
1309 		if ((dir = getenv("CW_CC_DIR")) == NULL)
1310 			dir = default_cc_dir;
1311 		do_cc(dir, "cc", argc, argv, h, 0);
1312 	} else if (strcmp(argv[0], "-_gcc") == 0) {
1313 		if ((dir = getenv("CW_GCC_DIR")) == NULL)
1314 			dir = default_gcc_dir;
1315 		do_gcc(dir, "gcc", argc, argv, h, 0);
1316 	} else if (strcmp(argv[0], "-_CC") == 0) {
1317 		if ((dir = getenv("CW_CPLUSPLUS_DIR")) == NULL)
1318 			dir = default_cplusplus_dir;
1319 		do_cc(dir, "CC", argc, argv, h, 1);
1320 	} else if (strcmp(argv[0], "-_g++") == 0) {
1321 		if ((dir = getenv("CW_GPLUSPLUS_DIR")) == NULL)
1322 			dir = default_gplusplus_dir;
1323 		do_gcc(dir, "g++", argc, argv, h, 1);
1324 	} else {
1325 		/* assume "-_gcc" by default */
1326 		argc++;
1327 		argv--;
1328 		if ((dir = getenv("CW_GCC_DIR")) == NULL)
1329 			dir = default_gcc_dir;
1330 		do_gcc(dir, "gcc", argc, argv, h, 0);
1331 	}
1332 
1333 	newargv = calloc(sizeof (*newargv), newargc + 1);
1334 
1335 	if (echo)
1336 		(void) printf("+ ");
1337 
1338 	for (ac = 0, a = h->ael_head; a; a = a->ae_next, ac++) {
1339 		newargv[ac] = a->ae_arg;
1340 		if (echo)
1341 			(void) printf("%s ", a->ae_arg);
1342 		if (a == h->ael_tail)
1343 			break;
1344 	}
1345 
1346 	if (echo) {
1347 		(void) printf("\n");
1348 		(void) fflush(stdout);
1349 	}
1350 
1351 	/*
1352 	 * Here goes ..
1353 	 */
1354 	(void) execvp(newargv[0], newargv);
1355 
1356 	/*
1357 	 * execvp() returns only on error.
1358 	 */
1359 	perror("execvp");
1360 	(void) fprintf(stderr, "%s: couldn't run %s\n",
1361 	    progname, newargv[0]);
1362 	return (4);
1363 }
1364