[gentoo-commits] gentoo-x86 commit in eclass: gnat.eclass

[George Shapovalov (george)]

george      07/09/26 20:41:34

  Modified:             gnat.eclass
  Log:
  added get_active_profile helper function

Revision  Changes    Path
1.28                 eclass/gnat.eclass

file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/eclass/gnat.eclass?rev=1.28&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/eclass/gnat.eclass?rev=1.28&content-type=text/plain
diff : http://sources.gentoo.org/viewcvs.py/gentoo-x86/eclass/gnat.eclass?r1=1.27&r2=1.28

Index: gnat.eclass
===================================================================
RCS file: /var/cvsroot/gentoo-x86/eclass/gnat.eclass,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- gnat.eclass	26 Sep 2007 20:09:03 -0000	1.27
+++ gnat.eclass	26 Sep 2007 20:41:33 -0000	1.28
@@ -1,6 +1,6 @@
 # Copyright 1999-2004 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/eclass/gnat.eclass,v 1.27 2007/09/26 20:09:03 george Exp $
+# $Header: /var/cvsroot/gentoo-x86/eclass/gnat.eclass,v 1.28 2007/09/26 20:41:33 george Exp $
 #
 # Author: George Shapovalov <george@g.o>
 # Belongs to: ada herd <ada@g.o>
@@ -125,6 +125,34 @@
 }
 
 
+# Returns a name of active gnat profile. Peroroms some validity checks. No input
+# parameters, analyzes the system setup directly.
+get_active_profile() {
+	# get common code and settings
+	. ${GnatCommon} || die "failed to source gnat-common lib"
+
+	local profiles=( $(get_env_list) ) 
+
+	if [[ ${profiles[@]} == "${MARKER}*" ]]; then 
+		exit 
+		# returning empty string
+	fi
+
+	if (( 1 == ${#profiles[@]} )); then
+		local active=${profiles[0]#${MARKER}}
+	else
+		die "${ENVDIR} contains multiple gnat profiles, please cleanup!"
+	fi
+
+	if [[ -f ${SPECSDIR}/${active} ]]; then
+		echo ${active}
+	else
+		die "The profile active in ${ENVDIR} does not correspond to any installed gnat!"
+	fi
+}
+
+
+
 # ------------------------------------
 # Functions
 



-- 
gentoo-commits@g.o mailing list