X-Git-Url: https://git.rohieb.name/openwrt.git/blobdiff_plain/d29153dc010840afa45e70ced91c5e558fca6bb6..eb81d2d1629a0ecc62066ca593d55e97485d1408:/scripts/metadata.pm diff --git a/scripts/metadata.pm b/scripts/metadata.pm index f90446298..52ca9895e 100644 --- a/scripts/metadata.pm +++ b/scripts/metadata.pm @@ -2,13 +2,14 @@ package metadata; use base 'Exporter'; use strict; use warnings; -our @EXPORT = qw(%package %srcpackage %category %subdir %preconfig clear_packages parse_package_metadata get_multiline); +our @EXPORT = qw(%package %srcpackage %category %subdir %preconfig %features clear_packages parse_package_metadata get_multiline); our %package; our %preconfig; our %srcpackage; our %category; our %subdir; +our %features; sub get_multiline { my $fh = shift; @@ -16,7 +17,6 @@ sub get_multiline { my $str; while (<$fh>) { last if /^@@/; - s/^\s*//g; $str .= (($_ and $prefix) ? $prefix . $_ : $_); } @@ -29,11 +29,13 @@ sub clear_packages() { %package = (); %srcpackage = (); %category = (); + %features = (); } sub parse_package_metadata($) { my $file = shift; my $pkg; + my $feature; my $makefile; my $preconfig; my $subdir; @@ -54,33 +56,67 @@ sub parse_package_metadata($) { $srcpackage{$src} = []; undef $pkg; }; + next unless $src; /^Package:\s*(.+?)\s*$/ and do { + undef $feature; $pkg = {}; $pkg->{src} = $src; $pkg->{makefile} = $makefile; $pkg->{name} = $1; + $pkg->{title} = ""; $pkg->{default} = "m if ALL"; $pkg->{depends} = []; $pkg->{builddepends} = []; + $pkg->{buildtypes} = []; $pkg->{subdir} = $subdir; + $pkg->{tristate} = 1; $package{$1} = $pkg; push @{$srcpackage{$src}}, $pkg; }; + /^Feature:\s*(.+?)\s*$/ and do { + undef $pkg; + $feature = {}; + $feature->{name} = $1; + $feature->{priority} = 0; + }; + $feature and do { + /^Target-Name:\s*(.+?)\s*$/ and do { + $features{$1} or $features{$1} = []; + push @{$features{$1}}, $feature; + }; + /^Target-Title:\s*(.+?)\s*$/ and $feature->{target_title} = $1; + /^Feature-Priority:\s*(\d+)\s*$/ and $feature->{priority} = $1; + /^Feature-Name:\s*(.+?)\s*$/ and $feature->{title} = $1; + /^Feature-Description:/ and $feature->{description} = get_multiline(\*FILE, "\t\t\t"); + next; + }; + next unless $pkg; /^Version: \s*(.+)\s*$/ and $pkg->{version} = $1; /^Title: \s*(.+)\s*$/ and $pkg->{title} = $1; /^Menu: \s*(.+)\s*$/ and $pkg->{menu} = $1; /^Submenu: \s*(.+)\s*$/ and $pkg->{submenu} = $1; /^Submenu-Depends: \s*(.+)\s*$/ and $pkg->{submenudep} = $1; + /^Source: \s*(.+)\s*$/ and $pkg->{source} = $1; /^Default: \s*(.+)\s*$/ and $pkg->{default} = $1; /^Provides: \s*(.+)\s*$/ and do { my @vpkg = split /\s+/, $1; foreach my $vpkg (@vpkg) { - $package{$vpkg} or $package{$vpkg} = { vdepends => [] }; + $package{$vpkg} or $package{$vpkg} = { + name => $vpkg, + vdepends => [], + src => $src, + subdir => $subdir, + makefile => $makefile + }; push @{$package{$vpkg}->{vdepends}}, $pkg->{name}; } }; /^Depends: \s*(.+)\s*$/ and $pkg->{depends} = [ split /\s+/, $1 ]; + /^Build-Variant: \s*([\w\-]+)\s*/ and $pkg->{variant} = $1; + /^Build-Only: \s*(.+)\s*$/ and $pkg->{buildonly} = 1; /^Build-Depends: \s*(.+)\s*$/ and $pkg->{builddepends} = [ split /\s+/, $1 ]; + /^Build-Depends\/(\w+): \s*(.+)\s*$/ and $pkg->{"builddepends/$1"} = [ split /\s+/, $2 ]; + /^Build-Types:\s*(.+)\s*$/ and $pkg->{buildtypes} = [ split /\s+/, $1 ]; /^Category: \s*(.+)\s*$/ and do { $pkg->{category} = $1; defined $category{$1} or $category{$1} = {}; @@ -88,7 +124,14 @@ sub parse_package_metadata($) { push @{$category{$1}->{$src}}, $pkg; }; /^Description: \s*(.*)\s*$/ and $pkg->{description} = "\t\t $1\n". get_multiline(*FILE, "\t\t "); - /^Config: \s*(.*)\s*$/ and $pkg->{config} = "$1\n".get_multiline(*FILE); + /^Type: \s*(.+)\s*$/ and do { + $pkg->{type} = [ split /\s+/, $1 ]; + undef $pkg->{tristate}; + foreach my $type (@{$pkg->{type}}) { + $type =~ /ipkg/ and $pkg->{tristate} = 1; + } + }; + /^Config:\s*(.*)\s*$/ and $pkg->{config} = "$1\n".get_multiline(*FILE, "\t"); /^Prereq-Check:/ and $pkg->{prereq} = 1; /^Preconfig:\s*(.+)\s*$/ and do { my $pkgname = $pkg->{name}; @@ -107,7 +150,7 @@ sub parse_package_metadata($) { /^Preconfig-Default:\s*(.*?)\s*$/ and $preconfig->{default} = $1; } close FILE; - return %category; + return 1; } 1;