scripts: add version_filter command to metadata.pl
authorJo-Philipp Wich <jow@openwrt.org>
Thu, 29 Jan 2015 15:50:53 +0000 (15:50 +0000)
committerJo-Philipp Wich <jow@openwrt.org>
Thu, 29 Jan 2015 15:50:53 +0000 (15:50 +0000)
Also support version annotated Kconfig symbols in the kconfig subcommand.

Signed-off-by: Jo-Philipp Wich <jow@openwrt.org>
SVN-Revision: 44188

scripts/metadata.pl

index f3d04dba2dd7e0d433bedc3ee4e8eda03557124d..ea437f526866a43062b2dc62e568b70a5f3414e4 100755 (executable)
@@ -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
 }