[pacman-dev] [PATCH 2/2] lint_pkgbuild: increase robustness

[Allan McRae]

Approach the detection of variables of the wrong type using an approach
similar to that used for construction of .SRCINFO files. While doing silly
things in bash could still result in false negatives, this approach should
be very robust to generatinf false positives results.

Signed-off-by: Allan McRae <allan at archlinux.org>
---
 scripts/libmakepkg/lint_pkgbuild/variable.sh.in | 67 ++++++++++++++++++++-----
 1 file changed, 55 insertions(+), 12 deletions(-)

diff --git a/scripts/libmakepkg/lint_pkgbuild/variable.sh.in b/scripts/libmakepkg/lint_pkgbuild/variable.sh.in
index 1daac26..80ef895 100644
--- a/scripts/libmakepkg/lint_pkgbuild/variable.sh.in
+++ b/scripts/libmakepkg/lint_pkgbuild/variable.sh.in
@@ -24,7 +24,7 @@ LIBMAKEPKG_LINT_PKGBUILD_VARIABLE_SH=1
 LIBRARY=${LIBRARY:-'@libmakepkgdir@'}
 
 source "$LIBRARY/util/message.sh"
-
+source "$LIBRARY/util/pkgbuild.sh"
 
 lint_pkgbuild_functions+=('lint_variable')
 
@@ -37,11 +37,16 @@ lint_variable() {
 	                  replaces sha1sums sha256sums sha384sums sha512sums source)
 	local string=(changelog epoch install pkgdesc pkgrel pkgver url)
 
-	local i
-	for i in ${array[@]}; do
-		if grep -w -q -e "$i=[^(]" -e "$i+=[^(]" "$BUILDSCRIPT"; then
-			error "$(gettext "%s should be an array")" "$i"
-			ret=1
+	local i keys out bad
+
+	# global variables
+	for i in ${array[@]} ${arch_array[@]}; do
+		eval "keys=(\"\${!$i[@]}\")"
+		if (( ${#keys[*]} > 0 )); then
+				if ! declare -p $i | grep -q "declare -a"; then
+				error "$(gettext "%s should be an array")" "$i"
+				ret=1
+			fi
 		fi
 	done
 
@@ -49,17 +54,55 @@ lint_variable() {
 		[[ $a == "any" ]] && continue
 
 		for i in ${arch_array[@]}; do
-			if grep -w -q -e "$i_$a=[^(]" -e "$i_$a+=[^(]" "$BUILDSCRIPT"; then
-				error "$(gettext "%s_%s should be an array")" "$i" "$a"
-				ret=1
+			v="${i}_${a}"
+			eval "keys=(\"\${!${v}[@]}\")"
+			if (( ${#keys[*]} > 0 )); then
+				if ! declare -p ${v} | grep -q "declare -a"; then
+					error "$(gettext "%s_%s should be an array")" "$i" "$a"
+					ret=1
+				fi
 			fi
 		done
 	done
 
 	for i in ${string[@]}; do
-		if grep -w -q -e "$i=(" -e "$i+=(" "$BUILDSCRIPT"; then
-			error "$(gettext "%s should not be an array")" "$i"
-			ret=1
+		eval "keys=(\"\${!$i[@]}\")"
+		if (( ${#keys[*]} > 0 )); then
+			if declare -p $i | grep -q "declare -a"; then
+				error "$(gettext "%s should not be an array")" "$i"
+				ret=1
+			fi
 		fi
 	done
+
+	# package function variables
+	for pkg in ${pkgname[@]}; do
+		for i in ${array[@]} ${arch_array[@]}; do
+			if extract_function_variable "package_$pkg" $i 0 out; then
+				error "$(gettext "%s should be an array")" "$i"
+				ret=1
+			fi
+		done
+
+		for a in ${arch[@]}; do
+			[[ $a == "any" ]] && continue
+
+			for i in ${arch_array[@]}; do
+				if extract_function_variable "package_$pkg" "${i}_${a}" 0 out; then
+					error "$(gettext "%s_%s should be an array")" "$i" "$a"
+					ret=1
+				fi
+			done
+		done
+
+		for i in ${string[@]}; do
+			if extract_function_variable "package_$pkg" $i 1 out; then
+				error "$(gettext "%s should not be an array")" "$i"
+				ret=1
+			fi
+		done
+	done
+
+
+
 }
-- 
2.6.2