: mvs.390 cc wrapper for unix message and exit code semantics : 2009-01-30 :

HOSTTYPE=mvs.390

case " $* " in
*" -dumpmachine "*) echo $HOSTTYPE; exit ;;
esac

ar=ar
cc=/bin/c89
CC=/bin/c++
ccflags="-D_ALL_SOURCE -Wc,dll"
objmax=60
tmpfiles=
unbotch=

# -n as *first* arg shows but does not do
# -Wc,exportall => -Wl,dll
# -Bdynamic => .c,.o dynamic
# -Bstatic => .c,.o static
# *.C => cc=$CC
# *.cpp => cc=$CC
# *.cxx => cc=$CC
# no optimization until the optimizer is fixed:
#	-O	dropped (no optimization)
#	-0	dropped (no optimization)
#	-1	-O (default level 1 optimization)
#	-2	-2 (maximal level 2 optimization)

let argc=0 cmp=0 dll=0 libc=0 dynamic=1 dynamic_objc=0 static_objc=0 relc=0 botched=0
case $1 in
-n)	exec=print
	shift
	;;
*)	exec=
	;;
esac
export _CC_ACCEPTABLE_RC=1
export _C89_ACCEPTABLE_RC=$_CC_ACCEPTABLE_RC
export _CXX_ACCEPTABLE_RC=$_CC_ACCEPTABLE_RC
case " $* " in
*.C" "*)let dll=2
	cc=$CC
	export _CXXSUFFIX=C
	;;
*.cpp" "*)let dll=2
	cc=$CC
	export _CXXSUFFIX=cpp
	;;
*.cxx" "*)let dll=2
	cc=$CC
	export _CXXSUFFIX=cxx
	;;
esac
exe=
xxx=
while	:
do	case $# in
	0)	break ;;
	esac
	arg=$1
	case $arg in
	-1)	arg=-O
		;;
	-Bdynamic)
		let dynamic=1
		;;
	-Bstatic)
		let dynamic=0
		;;
	-c)	let cmp=1
		;;
	-D_ALL_SOURCE|-D_ALL_SOURCE=*)
		arg=
		;;
	-D*[\ \(\)]*)
		arg=${arg#-D}
		botch_macro[botched]=${arg%%=*}
		botch_value[botched]=${arg#*=}
		let botched=botched+1
		arg=
		;;
	-o)	argv[argc]=$arg
		let argc=argc+1
		shift
		arg=$1
		exe=$arg
		rm -f "$exe"
		;;
	-[O0])	arg=
		;;
	-Wc,dll)arg=
		;;
	-Wc,exportall)
		let dll=1
		;;
	-Wl,dll)arg=
		let dll=1
		;;
	*.c)	if	[[ $botched != 0 ]]
		then	src=$arg
			arg=${arg##*/}
			unbotch="$unbotch ${arg%.c}.o"
			arg=__$arg
			tmpfiles="$tmpfiles $arg"
			{
				while	[[ $botched != 0 ]]
				do	let botched=botched-1
					print -r -- "#define ${botch_macro[botched]} ${botch_value[botched]}"
				done
				cat $src
			} > $arg
		fi
		;;
	*.o)	if	test 0 != $dynamic
		then	let dynamic_objc=dynamic_objc+1
		else	let static_objc=static_objc+1
		fi
		;;
	*.x)	a=${arg%.x}.a
		if	test -f $a
		then	argv[argc]=$a
			let argc=argc+1
			xxx=-Wl,dll
			case $a in
			ast.a|*/ast.a)
				cc="$CC -u_ast_init"
				;;
			esac
		fi
		;;
	esac
	case $arg in
	?*)	argv[argc]=$arg
		let argc=argc+1
		;;
	esac
	shift
done

tmp=/tmp/cc$$.err
tmpfiles="$tmp $tmpfiles"

# if any dll .o's are in .a then a .x gets generated
# but the native cc doesn't jcl for the .x
# -Wl,dll does that, so we nuke the .x and keep the exe

test 0 != $dll && xxx=
case $xxx in
?*)	case $exe in
	?*)	a=${exe##*/}
		a=${a%.*}
		case $exe in
		*/*)	tmpfiles="$tmpfiles ${exe%/*}/${a}.x" ;;
		*)	tmpfiles="$tmpfiles ${a}.x" ;;
		esac
		;;
	esac
	;;
esac
if	test 0 != $dll
then	if	test 0 != $cmp
	then	xxx="-D_SHARE_EXT_VARS $xxx"
	else	xxx="-Wl,dll $xxx"
	fi
fi
set -- $xxx "${argv[@]}"

# can't handle more than objmax .o's
# -r into intermediates doesn't work, but the cat trick does
# also, the runtime dll file must be executable but cc -Wl,dll forgets

if	test 0 != $dll -a \( $dynamic_objc -ge $objmax -o 0 != $static_objc \)
then	unset argv
	argc=0 libc=0 dynamic=1 dynamic_objc=0 static_objc=0 endc=0
	while	:
	do	case $# in
		0)	break ;;
		esac
		case $1 in
		-Bdynamic)
			let dynamic=1
			;;
		-Bstatic)
			let dynamic=0
			;;
		*.o)	if	test 0 != $dynamic
			then	dynamic_objv[dynamic_objc]=$1
				let dynamic_objc=dynamic_objc+1
			else	static_objv[static_objc]=$1
				let static_objc=static_objc+1
			fi
			;;
		-l*)	libv[libc]=$1
			let libc=libc+1
			;;
		-o)	argv[argc]=$1
			let argc=argc+1
			shift
			argv[argc]=$1
			let argc=argc+1
			exe=$1
			;;
		*)	argv[argc]=$1
			let argc=argc+1
			;;
		esac
		shift
	done
	if	test 0 != $static_objc
	then	case $exe in
		?*)	$exec $ar cr ${exe%.*}.a "${static_objv[@]}" ;;
		esac
	fi
	if	test 0 != $dynamic_objc
	then	cat=0.0.o
		tmpfiles="$tmpfiles $cat"
		cat "${dynamic_objv[@]}" > $cat || exit
	else	cat=
	fi
	set -- "${argv[@]}" $cat "${libv[@]}"
fi

# grep through the warning/error messages to get the true exit code
# some annoying messages are dropped while we're at it

trap 'rm -f $tmpfiles' 0 1 2 15
$exec $cc $ccflags "$@" 2> $tmp
code=$?
for i in $unbotch
do	test -f __$i && mv __$i $i
done
typeset -l lc
while	:
do	if	read line
	then	lc=$line
		case $lc in
		*'#include file'*'not found'*)
			code=1
			;;
		*'#pragma ignored'*)
			continue
			;;
		*'definition side file is not defined'*)
			continue
			;;
		*'step ended with return code 4'*)
			code=0
			continue
			;;
		*'step ended with return code'*)
			code=1
			continue
			;;
		*'try again'*)
			code=1
			continue
			;;
		*'unknown preprocessing directive'*)
			code=1
			case $lc in
			'warning '*)
				set -- $line
				shift
				line=$*
				;;
			esac
			;;
		*'unresolved writable static references are detected'*)
			test 0 != $dll && continue
			;;
		esac
	else	case $code:$exe in
		0:?*)	$exec chmod +x $exe ;;
		esac
		exit $code
	fi
	echo "$line" >&2
done < $tmp