aboutsummaryrefslogtreecommitdiffstats
path: root/scripts/metadata.pl
diff options
context:
space:
mode:
authorJo-Philipp Wich <jow@openwrt.org>2015-01-29 15:50:53 +0000
committerJo-Philipp Wich <jow@openwrt.org>2015-01-29 15:50:53 +0000
commitf0293eae4f7bf23bedeca56211ae6f99e9acd585 (patch)
treed233e5e40077b77fba2ecd75032651b6fec9c55b /scripts/metadata.pl
parent634e9fe92058c243e377943b7d7e6dfd36d46672 (diff)
downloadupstream-f0293eae4f7bf23bedeca56211ae6f99e9acd585.tar.gz
upstream-f0293eae4f7bf23bedeca56211ae6f99e9acd585.tar.bz2
upstream-f0293eae4f7bf23bedeca56211ae6f99e9acd585.zip
scripts: add version_filter command to metadata.pl
Also support version annotated Kconfig symbols in the kconfig subcommand. Signed-off-by: Jo-Philipp Wich <jow@openwrt.org> SVN-Revision: 44188
Diffstat (limited to 'scripts/metadata.pl')
-rwxr-xr-xscripts/metadata.pl68
1 files changed, 59 insertions, 9 deletions
diff --git a/scripts/metadata.pl b/scripts/metadata.pl
index f3d04dba2d..ea437f5268 100755
--- a/scripts/metadata.pl
+++ b/scripts/metadata.pl
@@ -12,6 +12,47 @@ sub confstr($) {
return $conf;
}
+sub version_to_num($) {
+ my $str = shift;
+ my $num = 0;
+
+ if (defined($str) && $str =~ /^\d+(?:\.\d+)+$/)
+ {
+ my @n = (split(/\./, $str), 0, 0, 0, 0);
+ $num = ($n[0] << 24) | ($n[1] << 16) | ($n[2] << 8) | $n[3];
+ }
+
+ return $num;
+}
+
+sub version_filter_list(@) {
+ my $cmpver = version_to_num(shift @_);
+ my @items;
+
+ foreach my $item (@_)
+ {
+ if ($item =~ s/@(lt|le|gt|ge|eq|ne)(\d+(?:\.\d+)+)\b//)
+ {
+ my $op = $1;
+ my $symver = version_to_num($2);
+
+ if ($symver > 0 && $cmpver > 0)
+ {
+ next unless (($op eq 'lt' && $cmpver < $symver) ||
+ ($op eq 'le' && $cmpver <= $symver) ||
+ ($op eq 'gt' && $cmpver > $symver) ||
+ ($op eq 'ge' && $cmpver >= $symver) ||
+ ($op eq 'eq' && $cmpver == $symver) ||
+ ($op eq 'ne' && $cmpver != $symver));
+ }
+ }
+
+ push @items, $item;
+ }
+
+ return @items;
+}
+
sub parse_target_metadata() {
my $file = shift @ARGV;
my ($target, @target, $profile);
@@ -96,6 +137,7 @@ sub gen_kconfig_overrides() {
my $package;
my $pkginfo = shift @ARGV;
my $cfgfile = shift @ARGV;
+ my $patchver = shift @ARGV;
# parameter 2: build system config
open FILE, "<$cfgfile" or return;
@@ -110,7 +152,7 @@ sub gen_kconfig_overrides() {
/^Package:\s*(.+?)\s*$/ and $package = $1;
/^Kernel-Config:\s*(.+?)\s*$/ and do {
my @config = split /\s+/, $1;
- foreach my $config (@config) {
+ foreach my $config (version_filter_list($patchver, @config)) {
my $val = 'm';
my $override;
if ($config =~ /^(.+?)=(.+)$/) {
@@ -893,6 +935,12 @@ sub gen_package_license($) {
}
}
+sub gen_version_filtered_list() {
+ foreach my $item (version_filter_list(@ARGV)) {
+ print "$item\n";
+ }
+}
+
sub parse_command() {
my $cmd = shift @ARGV;
for ($cmd) {
@@ -904,17 +952,19 @@ sub parse_command() {
/^package_feeds$/ and return gen_package_feeds();
/^package_license$/ and return gen_package_license(0);
/^package_licensefull$/ and return gen_package_license(1);
+ /^version_filter$/ and return gen_version_filtered_list();
}
print <<EOF
Available Commands:
- $0 target_config [file] Target metadata in Kconfig format
- $0 package_mk [file] Package metadata in makefile format
- $0 package_config [file] Package metadata in Kconfig format
- $0 kconfig [file] [config] Kernel config overrides
- $0 package_source [file] Package source file information
- $0 package_feeds [file] Package feed information in makefile format
- $0 package_license [file] Package license information
- $0 package_licensefull [file] Package license information (full list)
+ $0 target_config [file] Target metadata in Kconfig format
+ $0 package_mk [file] Package metadata in makefile format
+ $0 package_config [file] Package metadata in Kconfig format
+ $0 kconfig [file] [config] [patchver] Kernel config overrides
+ $0 package_source [file] Package source file information
+ $0 package_feeds [file] Package feed information in makefile format
+ $0 package_license [file] Package license information
+ $0 package_licensefull [file] Package license information (full list)
+ $0 version_filter [patchver] [list...] Filter list of version tagged strings
EOF
}