From 34eeaf1a6548710a7f9496be2e4ca71acb0c6be2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luc=C3=ADa=20Andrea=20Illanes=20Albornoz?=
 <lucia@luciaillanes.de>
Date: Tue, 28 Mar 2023 12:47:20 +0200
Subject: Fix printing of package variables in ./pkgtool.sh -i.

---
 subr.ex/ex_pkg.subr | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'subr.ex')

diff --git a/subr.ex/ex_pkg.subr b/subr.ex/ex_pkg.subr
index 6f326e1b..c064b408 100644
--- a/subr.ex/ex_pkg.subr
+++ b/subr.ex/ex_pkg.subr
@@ -157,6 +157,29 @@ ex_pkg_get_packages() {
 	fi;
 };
 
+#
+# ex_pkg_get_package_vars() - get package variable names
+# @_rpkg_vnames:		out reference to package variable names variable
+# @_build_vars_default:		list of default build variables
+# @_pkg_name:			single package name
+#
+# Returns:			zero (0) on success, non-zero (>0) on failure, list of package names on stdout on success.
+#
+ex_pkg_get_package_vars() {
+	local	_epgpv_rpkg_vnames="${1#\$}" _epgpv_build_vars_default="${2}" _epgpv_pkg_name="${3}"	\
+		_epgpv_pkg_name_uc="" _epgpv_vname="" _epgpv_vnames="";
+	rtl_toupper2 \$_epgpv_pkg_name \$_epgpv_pkg_name_uc;
+
+	for _epgpv_vname in ${_epgpv_build_vars_default}; do
+		if eval [ \"\${PKG_${_epgpv_pkg_name_uc}_${_epgpv_vname}:+1}\" = 1 ]; then
+			rtl_lconcat \$_epgpv_vnames "PKG_${_epgpv_pkg_name_uc}_${_epgpv_vname}";
+		fi;
+	done;
+
+	eval ${_epgpv_rpkg_vnames}='${_epgpv_vnames}';
+	return 0;
+}
+
 #
 # ex_pkg_load_vars() - load build variables
 # @_rstatus:		out reference to status string
-- 
cgit v1.2.3