scripts: fix ubinize-image on OS X

[openwrt/staging/wigyori.git] / scripts / metadata.pl

diff --git a/scripts/metadata.pl b/scripts/metadata.pl
index 366e61cb63030843a9cd3a6f7e10a8cfe036a4ad..abf8248d35622b8658a3c6392c04ba4ca0e41bcb 100755 (executable)
--- 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 =~ /^(.+?)=(.+)$/) {
@@ -637,6 +679,13 @@ EOF
        print "endmenu\n\n";
 }
 
+sub print_package_overrides() {
+       keys %overrides > 0 or return;
+       print "\tconfig OVERRIDE_PKGS\n";
+       print "\t\tstring\n";
+       print "\t\tdefault \"".join(" ", keys %overrides)."\"\n\n";
+}
+
 sub gen_package_config() {
        parse_package_metadata($ARGV[0]) or exit 1;
        print "menuconfig IMAGEOPT\n\tbool \"Image configuration\"\n\tdefault n\n";
@@ -662,6 +711,7 @@ EOF
        foreach my $cat (sort {uc($a) cmp uc($b)} keys %category) {
                print_package_config_category $cat;
        }
+       print_package_overrides();
 }
 
 sub get_conditional_dep($$) {
@@ -871,6 +921,34 @@ sub gen_package_feeds() {
        }
 }
 
+sub gen_package_license($) {
+       my $level = shift;
+       parse_package_metadata($ARGV[0]) or exit 1;
+       foreach my $name (sort {uc($a) cmp uc($b)} keys %package) {
+               my $pkg = $package{$name};
+               if ($pkg->{name}) {
+                       if ($pkg->{license}) {
+                               print "$pkg->{name}: ";
+                               print "$pkg->{license}\n";
+                               if ($pkg->{licensefiles} && $level == 0) {
+                                       print "\tFiles: $pkg->{licensefiles}\n";
+                               }
+                       } else {
+                               if ($level == 1) {
+                                       print "$pkg->{name}: Missing license! ";
+                                       print "Please fix $pkg->{makefile}\n";
+                               }
+                       }
+               }
+       }
+}
+
+sub gen_version_filtered_list() {
+       foreach my $item (version_filter_list(@ARGV)) {
+               print "$item\n";
+       }
+}
+
 sub parse_command() {
        my $cmd = shift @ARGV;
        for ($cmd) {
@@ -880,15 +958,21 @@ sub parse_command() {
                /^kconfig/ and return gen_kconfig_overrides();
                /^package_source$/ and return gen_package_source();
                /^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 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
 }