plan9port/bin/9c

#!/bin/sh

test -f "$PLAN9/config" && . "$PLAN9/config"
usegcc()
{
	cc=${CC9:-gcc}
	cflags=" \
		-O2 \
		-c \
		-Wall \
		-Wno-parentheses \
		-Wno-missing-braces \
		-Wno-switch \
		-Wno-comment \
		-Wno-sign-compare \
		-Wno-unknown-pragmas \
		-Wno-misleading-indentation \
		-Wno-stringop-truncation \
		-Wno-stringop-overflow \
		-Wno-format-truncation \
		-Wno-deprecated-pragma \
		-Wno-unused-but-set-variable \
		-Wno-deprecated-declarations \
		-fno-omit-frame-pointer \
		-fsigned-char \
		-fcommon \
	"
	# want to put -fno-optimize-sibling-calls here but
	# that option only works with gcc3+ it seems
	cflags="$cflags -ggdb"
	cflags="$cflags $CC9FLAGS"
}

quiet()
{
	# The uniq at the end is for gcc's strcmp/etc. built-in nonsense,
	# which multiplies single errors as a result of its expansion.
	# The "Cursor. is deprecated" kills off warnings from Apple
	# about using SetCursor/InitCursor.  (Okay, they're deprecated,
	# but you could at least tell us what to use instead, Apple!)

	ignore=': error: .Each undeclared identifier'
	ignore=$ignore'|: error: for each function it appears'
	ignore=$ignore'|is dangerous, better use'
	ignore=$ignore'|is almost always misused'
	ignore=$ignore'|: In function '
	ignore=$ignore'|: At top level:'
	ignore=$ignore'|support .long long.'
	ignore=$ignore'|In file included from'
	ignore=$ignore'|        from'
	ignore=$ignore'|use of C99 long long'
	ignore=$ignore'|ISO C forbids conversion'
	ignore=$ignore'|marked deprecated'
	ignore=$ignore'|is deprecated'
	ignore=$ignore'|warn_unused_result'
	ignore=$ignore'|expanded from macro'

	grep -v '__p9l_autolib_' "$1" |
	egrep -v "$ignore" |
	sed 's/ .first use in this function.$//; s/\"\([^\"][^\"]*\)\", line \([0-9][0-9]*\)/\1:\2/g' |
	$(which uniq) 1>&2  # avoid built-in uniq on SunOS
}

useclang()
{
	cc=${CC9:-clang}
	cflags=" \
		-O2 \
		-c \
		-Wall \
		-Wno-parentheses \
		-Wno-missing-braces \
		-Wno-switch \
		-Wno-comment \
		-Wno-sign-compare \
		-Wno-unknown-pragmas \
		-Wno-empty-body \
		-Wno-unused-value \
		-Wno-array-bounds \
		-Wno-gnu-designator \
		-Wno-array-bounds \
		-Wno-unneeded-internal-declaration \
		-Wno-deprecated-pragma \
		-Wno-unused-but-set-variable \
		-fsigned-char \
		-fno-caret-diagnostics \
		-fcommon \
	"
	cflags="$cflags -g"
	cflags="$cflags $CC9FLAGS"
}

usexlc()
{
	cc=${CC9:-xlc_r}
	cflags=" \
		-c \
		-O2 \
		-qmaxmem=-1 \
		-qsuppress=1506-236 \
		-qsuppress=1506-358 \
		-qsuppress=1500-010 \
		-qsuppress=1506-224 \
		-qsuppress=1506-1300 \
		-qsuppress=1506-342 \
	"
	cflags="$cflags -g -qdbxextra -qfullpath"
	cflags="$cflags $CC9FLAGS"
}

tag="${SYSNAME:-`uname`}-${CC9:-cc}"
case "$tag" in
*DragonFly*gcc*|*BSD*gcc*)	usegcc ;;
*DragonFly*clang|*BSD*clang*)	useclang ;;
*Darwin*)
		useclang
		cflags="$cflags -g3 -m64"
		;;
*HP-UX*)	cc=${CC9:-cc}; cflags="-g -O -c -Ae" ;;
*Linux*)	usegcc
		case "${CC9:-gcc}" in
		tcc)
			cc=tcc
			cflags="-c -g"
			;;
		esac
		;;
*OSF1*)		cc=${CC9:-cc}; cflags="-g -O -c" ;;
*SunOS*-cc)	cc=cc;
		cflags="-mt -g -O -c -xCC -D__sun__"
		u=`uname`
		v=`uname -r`
		s=`echo $u$v | tr '. ' '__'`
		cflags="$cflags -D__${s}__"
		;;
*SunOS*-gcc)	usegcc
		u=`uname`
		v=`uname -r`
		s=`echo $u$v | tr '. ' '__'`
		cflags="$cflags -g"
		cflags="$cflags -D__sun__ -D__${s}__"
		;;
*AIX*)		usexlc
		cflags="$cflags -g -D__AIX__"
		;;
*)
	echo 9c does not know how to compile on "$tag" 1>&2
	exit 1
esac

# Must use temp file to avoid pipe; pipe loses status.
xtmp=${TMPDIR-/tmp}/9c.$$.$USER.out
$cc -DPLAN9PORT -I"$PLAN9/include" $cflags "$@" 2>"$xtmp"
status=$?
quiet "$xtmp"
rm -f "$xtmp"
exit $status