# -*- sh -*-
# See LICENSE file for copyright and license details.

upper_half=$(getnum SECTION UPPER_HALF)
lower_half=$(getnum SECTION LOWER_HALF)
for os in $(getnamelist OS); do
	osn=$(getnum OS $os)
	for arch in $(getnamelist ARCH); do
		archn=$(getnum ARCH $arch)
		if ! issupported $os $arch; then
			continue
		fi

		for stype in INT64_HIGH_32 INT64_LOW_32 INT64_FRONT_32 INT64_BACK_32; do
			utype=U$stype
			rtype="$(printf '%s\n' "$stype" | sed 's/^\(INT\)[0-9]\+_[A-Z]\+_\([0-9]\+\)$/\1\2/')"
			test ! "$rtype" = "$stype"
			rtypen=$(lookupnum "$types" $rtype)
			stypen=$(lookupnum "$types" $stype)
			utypen=$(lookupnum "$types" $utype)
			test -n "$rtypen"
			test -n "$stypen"
			test -n "$utypen"

			get-datatype-description.tu $osn $archn $rtypen $os $arch $rtype \
			| grep -v "^section = " > $a
			get-datatype-description.tu $osn $archn $stypen $os $arch $stype \
			| grep -v "^section = " > $b
			diff -u $a $b

			get-datatype-description.tu $osn $archn $stypen $os $arch $stype \
			| sed -e 's/^\(is_signed =\) .$/\1 0/' -e 's/^\(is_unsigned =\) .$/\1 1/' > $a
			get-datatype-description.tu $osn $archn $utypen $os $arch $utype > $b
			diff -u $a $b
		done

		type=INT64_HIGH_32
		get-datatype-description.tu $osn $archn $(lookupnum "$types" $type) $os $arch $type \
		| grep "^section = ${upper_half}"\$ >/dev/null

		type=INT64_LOW_32
		get-datatype-description.tu $osn $archn $(lookupnum "$types" $type) $os $arch $type \
		| grep "^section = ${lower_half}"\$ >/dev/null

		endian=$(getendian $arch)
		if test $endian = Little; then

			type=INT64_FRONT_32
			get-datatype-description.tu $osn $archn $(lookupnum "$types" $type) $os $arch $type \
			| grep "^section = ${lower_half}"\$ >/dev/null

			type=INT64_BACK_32
			get-datatype-description.tu $osn $archn $(lookupnum "$types" $type) $os $arch $type \
			| grep "^section = ${upper_half}"\$ >/dev/null

		elif test $endian = Big; then

			type=INT64_FRONT_32
			get-datatype-description.tu $osn $archn $(lookupnum "$types" $type) $os $arch $type \
			| grep "^section = ${upper_half}"\$ >/dev/null

			type=INT64_BACK_32
			get-datatype-description.tu $osn $archn $(lookupnum "$types" $type) $os $arch $type \
			| grep "^section = ${lower_half}"\$ >/dev/null

		else
			false # that's all we have for now
		fi
	done
done