Merge pkgbuild-check-{nonfree,licenses}, add a summarize tool for it.

This should fix a number of bugs in those two scripts, and the summarize
script simplifies aur and libremakepkg:hooks-check.sh

1 files changed, 88 insertions, 0 deletions

diff --git a/src/pkgbuild-summarize-nonfree b/src/pkgbuild-summarize-nonfree
new file mode 100755
index 0000000..7b005d5
--- /dev/null
+++ b/src/pkgbuild-summarize-nonfree
@@ -0,0 +1,88 @@
+#!/bin/bash
+
+. $(librelib messages)
+
+# Make sure these match pkgbuild-check-nonfree
+declare -ri _E_OK=0
+declare -ri _E_ERROR=1
+declare -ri _E_LIC_UNKNOWN=2
+declare -ri _E_LIC_NOGPL=4
+declare -ri _E_LIC_NONFREE=8
+declare -ri _E_DEP_NONFREE=16
+declare -ri _E_PKG_NONFREE=32
+
+usage() {
+	print "Usage: %s [OPTIONS] STATUS" "${0##*/}"
+	print "Summarizes a status code from pkgbuild-check-nonfree"
+	echo
+	prose 'It thresholds the issues it finds, only failing for error-level
+	       issues, and ignoring warnings.  Unless `-q` is specified, it also
+	       prints a summary of the issues it found.'
+	echo
+	print 'Options:'
+	flag '-q' 'Be quiet'
+	flag '-h' 'Show this message'
+}
+
+main() {
+	local quiet=false
+	while getopts 'qh' arg; do
+		case "$arg" in
+			q) quiet=true;;
+			h) usage; return 0;;
+			*) usage >&2; return 1;;
+		esac
+	done
+	shift $(($OPTIND - 1))
+	if [[ $# -ne 1 ]]; then
+		usage >&2
+		return 1
+	fi
+	if ! [[ $1 =~ ^[0-9]+$ ]]; then
+		error 'STATUS must be an integer'
+		usage >&2
+		return 1
+	fi
+
+	if $quiet; then
+		error() { :; }
+		warning() { :; }
+	fi
+
+	parse $1;
+	return $?
+}
+
+parse() {
+	[[ $# == 1 ]] || panic 'malformed call to parse'
+	declare -i s=$1;
+
+	declare -i ret=0
+	declare -i i
+	for i in 1 2 4 8 16 32; do
+		if [[ $(($s & $i)) -gt 0 ]]; then
+			case $i in
+				$_E_ERROR)
+					# could be anything, assume the worst
+					error "There was an error processing the PKGBUILD"
+					ret=1;;
+				$_E_LIC_UNKNOWN)
+					warning "This PKGBUILD has an unknown license";;
+				$_E_LIC_NOGPL)
+					warning "This PKGBUILD has a GPL-incompatible license";;
+				$_E_LIC_NONFREE)
+					error "This PKGBUILD has a known nonfree license"
+					ret=1;;
+				$_E_DEP_NONFREE)
+					error "This PKGBUILD depends on known nonfree packages"
+					ret=1;;
+				$_E_PKG_NONFREE)
+					error "This PKGBUILD is for a known nonfree package"
+					ret=1;;
+			esac
+		fi
+	done
+	return $ret
+}
+
+main "$@"