1 #!/bin/sh
2 
3 test -f $PLAN9/config && . $PLAN9/config
4 usegcc()
5 {
6 	cc=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 	"
19 	# want to put -fno-optimize-sibling-calls here but
20 	# that option only works with gcc3+ it seems
21 	cflags="$ngflags -ggdb"
22 }
23 
24 tag="${SYSNAME:-`uname`}-${OBJTYPE:-`uname -m`}-${CC9:-cc}"
25 case "$tag" in
26 *BSD*)	usegcc ;;
27 *Darwin*)	usegcc 
28 		cflags="$ngflags -g3 -no-cpp-precomp" ;;
29 *HP-UX*)	cc=cc; cflags="-g -O -c -Ae" ;;
30 *Linux*)	usegcc 
31 		case "${CC9:-gcc}" in
32 		tcc)
33 			cc=tcc
34 			cflags="-c -g"
35 			;;
36 		esac
37 		case "${SYSVERSION:-`uname -r`}" in
38 		2.4.*)
39 			cflags="$cflags -D__Linux24__"
40 			;;
41 		2.6.*)
42 			cflags="$cflags -D__Linux26__"
43 			;;
44 		esac
45 		;;
46 *OSF1*)		cc=cc; cflags="-g -O -c" ;;
47 *SunOS*-cc)	cc=cc;
48 		cflags="-mt -g -O -c -xCC -D__sun__" 
49 		u=`uname`
50 		v=`uname -r`
51 		s=`echo $u$v | tr '. ' '__'`
52 		cflags="$cflags -D__${s}__"
53 		;;
54 *SunOS*-gcc)	usegcc
55 		u=`uname`
56 		v=`uname -r`
57 		s=`echo $u$v | tr '. ' '__'`
58 		cflags="$ngflags -g"
59 		cflags="$cflags -D__${s}__"
60 		;;
61 *)
62 	echo 9c does not know how to compile on "$tag" 1>&2
63 	exit 1
64 esac
65 
66 # N.B. Must use temp file to avoid pipe; pipe loses status.
67 # The uniq at the end is for gcc's strcmp/etc. built-in nonsense,
68 # which multiplies single errors as a result of its expansion.
69 xtmp=/tmp/9c.$$.$USER.out
70 $cc -DPLAN9PORT -I$PLAN9/include $cflags "$@" 2>$xtmp
71 status=$?
72 grep -v '__p9l_autolib_' $xtmp |
73 egrep -v ': error: .Each undeclared identifier|: error: for each function it appears|is dangerous, better use|is almost always misused|: In function |: At top level:|support .long long.|In file included from|        from|use of C99 long long|ISO C forbids conversion' |
74 sed 's/ .first use in this function.$//; s/\"\([^\"][^\"]*\)\", line \([0-9][0-9]*\)/\1:\2/g' |
75 uniq 1>&2
76 rm -f $xtmp $xtmp.status
77 exit $status