1 files changed, 106 insertions, 0 deletions
diff --git a/src/pkgbuild-summarize-nonfree b/src/pkgbuild-summarize-nonfree
new file mode 100755
index 0000000..1e39e87
--- /dev/null
+++ b/src/pkgbuild-summarize-nonfree
@@ -0,0 +1,106 @@
+#!/usr/bin/env bash
+# Copyright (C) 2013 Luke Shumaker <lukeshu@sbcglobal.net>
+#
+# License: GNU GPLv3+
+#
+# This file is part of Parabola.
+#
+# Parabola is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Parabola is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Parabola.  If not, see <http://www.gnu.org/licenses/>.
+
+. "$(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 "$@"