1 files changed, 100 insertions, 0 deletions
diff --git a/mk/configure/check-portability.sh b/mk/configure/check-portability.sh
new file mode 100644
index 00000000000..0c65dbb6b99
--- /dev/null
+++ b/mk/configure/check-portability.sh
@@ -0,0 +1,100 @@
+# $NetBSD: check-portability.sh,v 1.1 2006/10/12 17:57:05 rillig Exp $
+#
+# This program checks the extracted files for portability issues that
+# are likely to result in false assumptions by the package.
+#
+# The most prominent example is the "==" operator of test(1), which is
+# only implemented by bash and some versions of the ksh.
+#
+# Note: because this program is run with the tools wrapper directory in
+# the PATH, it calls the utilities by their base names. It also assumes
+# to be interpreted by a POSIX-conforming shell.
+#
+
+set -eu
+
+exitcode=0
+
+error_msg() {
+	echo "ERROR: [check-portability.sh] $*" 1>&2
+	exitcode=1
+}
+
+warning_msg() {
+	echo "WARNING: [check-portability.sh] $*" 1>&2
+}
+
+last_heading=""
+heading() {
+
+	if test "$1" != "$last_heading"; then
+		last_heading="$1"
+		error_msg "=> $1"
+	fi
+}
+
+# usage: check_shell <fname>
+check_shell() {
+	# See the end of the loop for the redirection.
+	while read line; do
+
+		# Note: This code does not find _all_ instances of
+		# unportable code. If a single line contains an unsafe and
+		# a safe usage of $RANDOM, it will pass the test.
+
+		# Strip comments.
+		line="${line%%#*}"
+
+		# Check for $RANDOM, which is specific to ksh and bash.
+		case "$line" in
+		*"\$\$-\$RANDOM"* \
+		| *"\$RANDOM-\$\$"* \
+		| *"\$RANDOM"[A-Z_]*)
+			# When $RANDOM is prefixed by the process ID, it
+			# doesn't matter too much if $RANDOM is empty.
+			# This code is often found in GNU configure scripts.
+			;;
+
+		*\$RANDOM*)
+			heading "Found \$RANDOM:"
+			warning_msg "$fname: $line"
+			;;
+		esac
+
+		#
+		# Split the line into words and check them.
+		#
+		set args $line; shift
+		while [ $# -ge 3 ]; do
+			case "$1" in
+			"test" | "[")
+				if [ "==" = "$3" ]; then
+					heading "Found test ... == ...:"
+					error_msg "$fname: $line"
+				fi
+				;;
+			esac
+			shift
+		done
+
+	done < "$1"
+}
+
+find * -type f -print 2>/dev/null \
+| {
+	while read fname; do
+
+		case "$fname" in
+		*.orig)
+			continue;;
+		esac
+
+		read firstline < "$fname" || continue
+		case "$firstline" in
+		"#!"*"/bin/sh")
+			check_shell "$fname"
+			;;
+		esac
+	done
+	exit $exitcode
+}