From 951b61710202d7943d77cc4603a4c6ab98643f74 Mon Sep 17 00:00:00 2001 From: idl0r Date: Fri, 2 Jul 2010 15:47:13 +0000 Subject: [PATCH] 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 --- ChangeLog | 2 ++ src/ekeyword/ekeyword | 12 ++++++++++++ 2 files changed, 14 insertions(+) diff --git a/ChangeLog b/ChangeLog index 0c7361d..ad179be 100644 --- 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 * echangelog: Update copyright in other files too (except binaries and diff --git a/src/ekeyword/ekeyword b/src/ekeyword/ekeyword index 3024f0a..a485809 100755 --- 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 -- 2.26.2