[gentoo-commits] gentoolkit r789 - in trunk/gentoolkit-dev: . src/ekeyword

[Christian Ruppert (idl0r)]

Author: idl0r
Date: 2010-07-02 15:47:13 +0000 (Fri, 02 Jul 2010)
New Revision: 789

Modified:
   trunk/gentoolkit-dev/ChangeLog
   trunk/gentoolkit-dev/src/ekeyword/ekeyword
Log:
ekeyword: Add get_architectures_status function to get the architecture status,
0 = unkown, 1 = dev, 2 = exp, 3 = stable.


Modified: trunk/gentoolkit-dev/ChangeLog
===================================================================
--- trunk/gentoolkit-dev/ChangeLog	2010-07-02 15:34:12 UTC (rev 788)
+++ trunk/gentoolkit-dev/ChangeLog	2010-07-02 15:47:13 UTC (rev 789)
@@ -10,6 +10,8 @@
 		available architectures to the %ARCH hash which can be used for
 		validation.
 		Validate user input/arch, bug 326029.
+		Add get_architectures_status function to get the architecture status,
+		0 = unkown, 1 = dev, 2 = exp, 3 = stable.
 
 2010-05-17: Christian Ruppert <idl0r@g.o>
 	* echangelog: Update copyright in other files too (except binaries and

Modified: trunk/gentoolkit-dev/src/ekeyword/ekeyword
===================================================================
--- trunk/gentoolkit-dev/src/ekeyword/ekeyword	2010-07-02 15:34:12 UTC (rev 788)
+++ trunk/gentoolkit-dev/src/ekeyword/ekeyword	2010-07-02 15:47:13 UTC (rev 789)
@@ -60,6 +60,18 @@
 	}
 }
 
+sub get_architectures_status() {
+	foreach my $line (file_parse("${PORTDIR}/profiles/profiles.desc")) {
+		my ($arch, undef, $status) = split(/\s/, $line, 3);
+
+		if(defined($ARCH{$arch})) {
+			$ARCH{$arch} = 1 if $status eq "dev";
+			$ARCH{$arch} = 2 if $status eq "exp";
+			$ARCH{$arch} = 3 if $status eq "stable";
+		}
+	}
+}
+
 # make sure the cmdline consists of keywords and ebuilds
 unless (@ARGV > 0) {
 	# NOTE: ~all will ignore all -arch keywords