1 #!/bin/sh
2 
3 test -f $PLAN9/config && . $PLAN9/config
4 usegcc()
5 {
6 	cc=${CC9:-gcc}
7 	ngflags=" \
8 		-O2 \
9 		-c \
10 		-Wall \
11 		-Wno-parentheses \
12 		-Wno-missing-braces \
13 		-Wno-switch \
14 		-Wno-comment \
15 		-Wno-sign-compare \
16 		-Wno-unknown-pragmas \
17 		-fno-omit-frame-pointer \
18 		-fsigned-char \
19 	"
20 	# want to put -fno-optimize-sibling-calls here but
21 	# that option only works with gcc3+ it seems
22 	cflags="$ngflags -ggdb"
23 }
24 
25 quiet()
26 {
27 	# The uniq at the end is for gcc's strcmp/etc. built-in nonsense,
28 	# which multiplies single errors as a result of its expansion.
29 	# The "Cursor. is deprecated" kills off warnings from Apple
30 	# about using SetCursor/InitCursor.  (Okay, they're deprecated,
31 	# but you could at least tell us what to use instead, Apple!)
32 
33 	ignore=': error: .Each undeclared identifier'
34 	ignore=$ignore'|: error: for each function it appears'
35 	ignore=$ignore'|is dangerous, better use'
36 	ignore=$ignore'|is almost always misused'
37 	ignore=$ignore'|: In function '
38 	ignore=$ignore'|: At top level:'
39 	ignore=$ignore'|support .long long.'
40 	ignore=$ignore'|In file included from'
41 	ignore=$ignore'|        from'
42 	ignore=$ignore'|use of C99 long long'
43 	ignore=$ignore'|ISO C forbids conversion'
44 	ignore=$ignore'|marked deprecated'
45 	ignore=$ignore'|is deprecated'
46 	ignore=$ignore'|warn_unused_result'
47 	ignore=$ignore'|expanded from macro'
48 
49 	grep -v '__p9l_autolib_' $1 |
50 	egrep -v "$ignore" |
51 	sed 's/ .first use in this function.$//; s/\"\([^\"][^\"]*\)\", line \([0-9][0-9]*\)/\1:\2/g' |
52 	$(which uniq) 1>&2  # avoid built-in uniq on SunOS
53 }
54 
55 useclang()
56 {
57 	cc=${CC9:-clang}
58 	ngflags=" \
59 		-O2 \
60 		-c \
61 		-Wall \
62 		-Wno-parentheses \
63 		-Wno-missing-braces \
64 		-Wno-switch \
65 		-Wno-comment \
66 		-Wno-sign-compare \
67 		-Wno-unknown-pragmas \
68 		-Wno-empty-body \
69 		-Wno-unused-value \
70 		-Wno-array-bounds \
71 		-Wno-gnu-designator \
72 		-Wno-array-bounds \
73 		-Wno-unneeded-internal-declaration \
74 		-fsigned-char \
75 		-fno-caret-diagnostics \
76 	"
77 	cflags="$ngflags -g"
78 }
79 
80 tag="${SYSNAME:-`uname`}-${OBJTYPE:-`uname -m`}-${CC9:-cc}"
81 case "$tag" in
82 *FreeBSD*gcc*)	usegcc ;;
83 *FreeBSD*clang*)	useclang ;;
84 *DragonFly*|*BSD*)	usegcc ;;
85 *Darwin-x86_64*)
86 		useclang
87 		cflags="$ngflags -g3 -m64"
88 		;;
89 *Darwin*clang*)
90 		useclang
91 		cflags="$ngflags -g3 -m32"
92 		;;
93 *Darwin*)	usegcc 
94 		cflags="$ngflags -g3 -no-cpp-precomp -m32" ;;
95 *HP-UX*)	cc=${CC9:-cc}; cflags="-g -O -c -Ae" ;;
96 *Linux*)	usegcc 
97 		case "${CC9:-gcc}" in
98 		tcc)
99 			cc=tcc
100 			cflags="-c -g"
101 			;;
102 		esac
103 		case "${SYSVERSION:-`uname -r`}" in
104 		2.4.*)
105 			cflags="$cflags -D__Linux24__"
106 			;;
107 		2.6.*)
108 			cflags="$cflags -D__Linux26__"
109 			;;
110 		esac
111 		;;
112 *OSF1*)		cc=${CC9:-cc}; cflags="-g -O -c" ;;
113 *SunOS*-cc)	cc=cc;
114 		cflags="-mt -g -O -c -xCC -D__sun__" 
115 		u=`uname`
116 		v=`uname -r`
117 		s=`echo $u$v | tr '. ' '__'`
118 		cflags="$cflags -D__${s}__"
119 		;;
120 *SunOS*-gcc)	usegcc
121 		u=`uname`
122 		v=`uname -r`
123 		s=`echo $u$v | tr '. ' '__'`
124 		cflags="$ngflags -g"
125 		cflags="$cflags -D__sun__ -D__${s}__"
126 		;;
127 *AIX*)		usegcc
128 		cflags="$ngflags -g -D__AIX__"
129 		;;
130 *)
131 	echo 9c does not know how to compile on "$tag" 1>&2
132 	exit 1
133 esac
134 
135 # N.B. Must use temp file to avoid pipe; pipe loses status.
136 xtmp=/tmp/9c.$$.$USER.out
137 $cc -DPLAN9PORT -I$PLAN9/include $cflags "$@" 2>$xtmp
138 status=$?
139 quiet $xtmp
140 rm -f $xtmp
141 exit $status