ekeyword: Add get_architectures_status function to get the architecture status,

0 = unkown, 1 = dev, 2 = exp, 3 = stable.

svn path=/trunk/gentoolkit-dev/; revision=789

diff --git a/ChangeLog b/ChangeLog
index 0c7361d956c58d694973332826e15a1d6900b5e2..ad179bec5cdfbd7399d0d8cb5e3378e18b65e0d3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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@gentoo.org>
        * echangelog: Update copyright in other files too (except binaries and

diff --git a/src/ekeyword/ekeyword b/src/ekeyword/ekeyword
index 3024f0ae46281d594714514ccab41af845f077cc..a485809f5dd137485d4dca54da521c96e1ca1b62 100755 (executable)
--- a/src/ekeyword/ekeyword
+++ b/src/ekeyword/ekeyword
@@ -60,6 +60,18 @@ sub get_architectures() {
        }
 }
 
+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