aboutsummaryrefslogtreecommitdiffstats
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/package-metadata.pl (renamed from scripts/metadata.pl)336
-rwxr-xr-xscripts/target-metadata.pl329
2 files changed, 342 insertions, 323 deletions
diff --git a/scripts/metadata.pl b/scripts/package-metadata.pl
index 822382cd6c..92c989d3a2 100755
--- a/scripts/metadata.pl
+++ b/scripts/package-metadata.pl
@@ -97,298 +97,6 @@ sub gen_kconfig_overrides() {
}
}
-sub merge_package_lists($$) {
- my $list1 = shift;
- my $list2 = shift;
- my @l = ();
- my %pkgs;
-
- foreach my $pkg (@$list1, @$list2) {
- $pkgs{$pkg} = 1;
- }
- foreach my $pkg (keys %pkgs) {
- push @l, $pkg unless ($pkg =~ /^-/ or $pkgs{"-$pkg"});
- }
- return sort(@l);
-}
-
-sub target_config_features(@) {
- my $ret;
-
- while ($_ = shift @_) {
- /arm_v(\w+)/ and $ret .= "\tselect arm_v$1\n";
- /broken/ and $ret .= "\tdepends on BROKEN\n";
- /audio/ and $ret .= "\tselect AUDIO_SUPPORT\n";
- /display/ and $ret .= "\tselect DISPLAY_SUPPORT\n";
- /dt/ and $ret .= "\tselect USES_DEVICETREE\n";
- /gpio/ and $ret .= "\tselect GPIO_SUPPORT\n";
- /pci/ and $ret .= "\tselect PCI_SUPPORT\n";
- /pcie/ and $ret .= "\tselect PCIE_SUPPORT\n";
- /usb/ and $ret .= "\tselect USB_SUPPORT\n";
- /usbgadget/ and $ret .= "\tselect USB_GADGET_SUPPORT\n";
- /pcmcia/ and $ret .= "\tselect PCMCIA_SUPPORT\n";
- /rtc/ and $ret .= "\tselect RTC_SUPPORT\n";
- /squashfs/ and $ret .= "\tselect USES_SQUASHFS\n";
- /jffs2$/ and $ret .= "\tselect USES_JFFS2\n";
- /jffs2_nand/ and $ret .= "\tselect USES_JFFS2_NAND\n";
- /ext4/ and $ret .= "\tselect USES_EXT4\n";
- /targz/ and $ret .= "\tselect USES_TARGZ\n";
- /cpiogz/ and $ret .= "\tselect USES_CPIOGZ\n";
- /ubifs/ and $ret .= "\tselect USES_UBIFS\n";
- /fpu/ and $ret .= "\tselect HAS_FPU\n";
- /spe_fpu/ and $ret .= "\tselect HAS_SPE_FPU\n";
- /ramdisk/ and $ret .= "\tselect USES_INITRAMFS\n";
- /powerpc64/ and $ret .= "\tselect powerpc64\n";
- /nommu/ and $ret .= "\tselect NOMMU\n";
- /mips16/ and $ret .= "\tselect HAS_MIPS16\n";
- /rfkill/ and $ret .= "\tselect RFKILL_SUPPORT\n";
- /low_mem/ and $ret .= "\tselect LOW_MEMORY_FOOTPRINT\n";
- /nand/ and $ret .= "\tselect NAND_SUPPORT\n";
- }
- return $ret;
-}
-
-sub target_name($) {
- my $target = shift;
- my $parent = $target->{parent};
- if ($parent) {
- return $target->{parent}->{name}." - ".$target->{name};
- } else {
- return $target->{name};
- }
-}
-
-sub kver($) {
- my $v = shift;
- $v =~ tr/\./_/;
- if (substr($v,0,2) eq "2_") {
- $v =~ /(\d+_\d+_\d+)(_\d+)?/ and $v = $1;
- } else {
- $v =~ /(\d+_\d+)(_\d+)?/ and $v = $1;
- }
- return $v;
-}
-
-sub print_target($) {
- my $target = shift;
- my $features = target_config_features(@{$target->{features}});
- my $help = $target->{desc};
- my $confstr;
-
- chomp $features;
- $features .= "\n";
- if ($help =~ /\w+/) {
- $help =~ s/^\s*/\t /mg;
- $help = "\thelp\n$help";
- } else {
- undef $help;
- }
-
- my $v = kver($target->{version});
- if (@{$target->{subtargets}} == 0) {
- $confstr = <<EOF;
-config TARGET_$target->{conf}
- bool "$target->{name}"
- select LINUX_$v
-EOF
- }
- else {
- $confstr = <<EOF;
-config TARGET_$target->{conf}
- bool "$target->{name}"
-EOF
- }
- if ($target->{subtarget}) {
- $confstr .= "\tdepends on TARGET_$target->{boardconf}\n";
- }
- if (@{$target->{subtargets}} > 0) {
- $confstr .= "\tselect HAS_SUBTARGETS\n";
- grep { /broken/ } @{$target->{features}} and $confstr .= "\tdepends on BROKEN\n";
- } else {
- $confstr .= $features;
- if ($target->{arch} =~ /\w/) {
- $confstr .= "\tselect $target->{arch}\n";
- }
- }
-
- foreach my $dep (@{$target->{depends}}) {
- my $mode = "depends on";
- my $flags;
- my $name;
-
- $dep =~ /^([@\+\-]+)(.+)$/;
- $flags = $1;
- $name = $2;
-
- next if $name =~ /:/;
- $flags =~ /-/ and $mode = "deselect";
- $flags =~ /\+/ and $mode = "select";
- $flags =~ /@/ and $confstr .= "\t$mode $name\n";
- }
- $confstr .= "$help\n\n";
- print $confstr;
-}
-
-sub gen_target_config() {
- my $file = shift @ARGV;
- my @target = parse_target_metadata($file);
- my %defaults;
-
- my @target_sort = sort {
- target_name($a) cmp target_name($b);
- } @target;
-
-
- print <<EOF;
-choice
- prompt "Target System"
- default TARGET_ar71xx
- reset if !DEVEL
-
-EOF
-
- foreach my $target (@target_sort) {
- next if $target->{subtarget};
- print_target($target);
- }
-
- print <<EOF;
-endchoice
-
-choice
- prompt "Subtarget" if HAS_SUBTARGETS
-EOF
- foreach my $target (@target) {
- next unless $target->{def_subtarget};
- print <<EOF;
- default TARGET_$target->{conf}_$target->{def_subtarget} if TARGET_$target->{conf}
-EOF
- }
- print <<EOF;
-
-EOF
- foreach my $target (@target) {
- next unless $target->{subtarget};
- print_target($target);
- }
-
-print <<EOF;
-endchoice
-
-choice
- prompt "Target Profile"
-
-EOF
-
- foreach my $target (@target) {
- my $profiles = $target->{profiles};
- foreach my $profile (@{$target->{profiles}}) {
- print <<EOF;
-config TARGET_$target->{conf}_$profile->{id}
- bool "$profile->{name}"
- depends on TARGET_$target->{conf}
-EOF
- my @pkglist = merge_package_lists($target->{packages}, $profile->{packages});
- foreach my $pkg (@pkglist) {
- print "\tselect DEFAULT_$pkg\n";
- $defaults{$pkg} = 1;
- }
- my $help = $profile->{desc};
- if ($help =~ /\w+/) {
- $help =~ s/^\s*/\t /mg;
- $help = "\thelp\n$help";
- } else {
- undef $help;
- }
- print "$help\n";
- }
- }
-
- print <<EOF;
-endchoice
-
-config HAS_SUBTARGETS
- bool
-
-config TARGET_BOARD
- string
-
-EOF
- foreach my $target (@target) {
- $target->{subtarget} or print "\t\tdefault \"".$target->{board}."\" if TARGET_".$target->{conf}."\n";
- }
- print <<EOF;
-config TARGET_SUBTARGET
- string
- default "generic" if !HAS_SUBTARGETS
-
-EOF
-
- foreach my $target (@target) {
- foreach my $subtarget (@{$target->{subtargets}}) {
- print "\t\tdefault \"$subtarget\" if TARGET_".$target->{conf}."_$subtarget\n";
- }
- }
- print <<EOF;
-config TARGET_PROFILE
- string
-EOF
- foreach my $target (@target) {
- my $profiles = $target->{profiles};
- foreach my $profile (@$profiles) {
- print "\tdefault \"$profile->{id}\" if TARGET_$target->{conf}_$profile->{id}\n";
- }
- }
-
- print <<EOF;
-
-config TARGET_ARCH_PACKAGES
- string
-
-EOF
- foreach my $target (@target) {
- next if @{$target->{subtargets}} > 0;
- print "\t\tdefault \"".($target->{arch_packages} || $target->{board})."\" if TARGET_".$target->{conf}."\n";
- }
- print <<EOF;
-
-config DEFAULT_TARGET_OPTIMIZATION
- string
-EOF
- foreach my $target (@target) {
- next if @{$target->{subtargets}} > 0;
- print "\tdefault \"".$target->{cflags}."\" if TARGET_".$target->{conf}."\n";
- }
- print "\tdefault \"-Os -pipe -funit-at-a-time\"\n";
- print <<EOF;
-
-config CPU_TYPE
- string
-EOF
- foreach my $target (@target) {
- next if @{$target->{subtargets}} > 0;
- print "\tdefault \"".$target->{cputype}."\" if TARGET_".$target->{conf}."\n";
- }
- print "\tdefault \"\"\n";
-
- my %kver;
- foreach my $target (@target) {
- my $v = kver($target->{version});
- next if $kver{$v};
- $kver{$v} = 1;
- print <<EOF;
-
-config LINUX_$v
- bool
-
-EOF
- }
- foreach my $def (sort keys %defaults) {
- print "\tconfig DEFAULT_".$def."\n";
- print "\t\tbool\n\n";
- }
-}
-
my %dep_check;
sub __find_package_dep($$) {
my $pkg = shift;
@@ -905,46 +613,28 @@ sub gen_version_filtered_list() {
}
}
-sub gen_profile_mk() {
- my $file = shift @ARGV;
- my $target = shift @ARGV;
- my @targets = parse_target_metadata($file);
- foreach my $cur (@targets) {
- next unless $cur->{id} eq $target;
- print "PROFILE_NAMES = ".join(" ", map { $_->{id} } @{$cur->{profiles}})."\n";
- foreach my $profile (@{$cur->{profiles}}) {
- print $profile->{id}.'_NAME:='.$profile->{name}."\n";
- print $profile->{id}.'_PACKAGES:='.join(' ', @{$profile->{packages}})."\n";
- }
- }
-}
-
sub parse_command() {
GetOptions("ignore=s", \@ignore);
my $cmd = shift @ARGV;
for ($cmd) {
- /^target_config$/ and return gen_target_config();
- /^profile_mk$/ and return gen_profile_mk();
- /^package_mk$/ and return gen_package_mk();
- /^package_config$/ and return gen_package_config();
+ /^mk$/ and return gen_package_mk();
+ /^config$/ and return gen_package_config();
/^kconfig/ and return gen_kconfig_overrides();
- /^package_source$/ and return gen_package_source();
- /^package_subdirs$/ and return gen_package_subdirs();
- /^package_license$/ and return gen_package_license(0);
- /^package_licensefull$/ and return gen_package_license(1);
+ /^source$/ and return gen_package_source();
+ /^subdirs$/ and return gen_package_subdirs();
+ /^license$/ and return gen_package_license(0);
+ /^licensefull$/ and return gen_package_license(1);
/^version_filter$/ and return gen_version_filtered_list();
}
- print <<EOF
+ die <<EOF
Available Commands:
- $0 target_config [file] Target metadata in Kconfig format
- $0 profile_mk [file] [target] Profile metadata in makefile format
- $0 package_mk [file] Package metadata in makefile format
- $0 package_config [file] Package metadata in Kconfig format
+ $0 mk [file] Package metadata in makefile format
+ $0 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_subdirs [file] Package subdir information in makefile format
- $0 package_license [file] Package license information
- $0 package_licensefull [file] Package license information (full list)
+ $0 source [file] Package source file information
+ $0 subdirs [file] Package subdir information in makefile format
+ $0 license [file] Package license information
+ $0 licensefull [file] Package license information (full list)
$0 version_filter [patchver] [list...] Filter list of version tagged strings
Options:
diff --git a/scripts/target-metadata.pl b/scripts/target-metadata.pl
new file mode 100755
index 0000000000..16f8a9f356
--- /dev/null
+++ b/scripts/target-metadata.pl
@@ -0,0 +1,329 @@
+#!/usr/bin/env perl
+use FindBin;
+use lib "$FindBin::Bin";
+use strict;
+use metadata;
+use Getopt::Long;
+
+sub target_config_features(@) {
+ my $ret;
+
+ while ($_ = shift @_) {
+ /arm_v(\w+)/ and $ret .= "\tselect arm_v$1\n";
+ /broken/ and $ret .= "\tdepends on BROKEN\n";
+ /audio/ and $ret .= "\tselect AUDIO_SUPPORT\n";
+ /display/ and $ret .= "\tselect DISPLAY_SUPPORT\n";
+ /dt/ and $ret .= "\tselect USES_DEVICETREE\n";
+ /gpio/ and $ret .= "\tselect GPIO_SUPPORT\n";
+ /pci/ and $ret .= "\tselect PCI_SUPPORT\n";
+ /pcie/ and $ret .= "\tselect PCIE_SUPPORT\n";
+ /usb/ and $ret .= "\tselect USB_SUPPORT\n";
+ /usbgadget/ and $ret .= "\tselect USB_GADGET_SUPPORT\n";
+ /pcmcia/ and $ret .= "\tselect PCMCIA_SUPPORT\n";
+ /rtc/ and $ret .= "\tselect RTC_SUPPORT\n";
+ /squashfs/ and $ret .= "\tselect USES_SQUASHFS\n";
+ /jffs2$/ and $ret .= "\tselect USES_JFFS2\n";
+ /jffs2_nand/ and $ret .= "\tselect USES_JFFS2_NAND\n";
+ /ext4/ and $ret .= "\tselect USES_EXT4\n";
+ /targz/ and $ret .= "\tselect USES_TARGZ\n";
+ /cpiogz/ and $ret .= "\tselect USES_CPIOGZ\n";
+ /ubifs/ and $ret .= "\tselect USES_UBIFS\n";
+ /fpu/ and $ret .= "\tselect HAS_FPU\n";
+ /spe_fpu/ and $ret .= "\tselect HAS_SPE_FPU\n";
+ /ramdisk/ and $ret .= "\tselect USES_INITRAMFS\n";
+ /powerpc64/ and $ret .= "\tselect powerpc64\n";
+ /nommu/ and $ret .= "\tselect NOMMU\n";
+ /mips16/ and $ret .= "\tselect HAS_MIPS16\n";
+ /rfkill/ and $ret .= "\tselect RFKILL_SUPPORT\n";
+ /low_mem/ and $ret .= "\tselect LOW_MEMORY_FOOTPRINT\n";
+ /nand/ and $ret .= "\tselect NAND_SUPPORT\n";
+ }
+ return $ret;
+}
+
+sub target_name($) {
+ my $target = shift;
+ my $parent = $target->{parent};
+ if ($parent) {
+ return $target->{parent}->{name}." - ".$target->{name};
+ } else {
+ return $target->{name};
+ }
+}
+
+sub kver($) {
+ my $v = shift;
+ $v =~ tr/\./_/;
+ if (substr($v,0,2) eq "2_") {
+ $v =~ /(\d+_\d+_\d+)(_\d+)?/ and $v = $1;
+ } else {
+ $v =~ /(\d+_\d+)(_\d+)?/ and $v = $1;
+ }
+ return $v;
+}
+
+sub print_target($) {
+ my $target = shift;
+ my $features = target_config_features(@{$target->{features}});
+ my $help = $target->{desc};
+ my $confstr;
+
+ chomp $features;
+ $features .= "\n";
+ if ($help =~ /\w+/) {
+ $help =~ s/^\s*/\t /mg;
+ $help = "\thelp\n$help";
+ } else {
+ undef $help;
+ }
+
+ my $v = kver($target->{version});
+ if (@{$target->{subtargets}} == 0) {
+ $confstr = <<EOF;
+config TARGET_$target->{conf}
+ bool "$target->{name}"
+ select LINUX_$v
+EOF
+ }
+ else {
+ $confstr = <<EOF;
+config TARGET_$target->{conf}
+ bool "$target->{name}"
+EOF
+ }
+ if ($target->{subtarget}) {
+ $confstr .= "\tdepends on TARGET_$target->{boardconf}\n";
+ }
+ if (@{$target->{subtargets}} > 0) {
+ $confstr .= "\tselect HAS_SUBTARGETS\n";
+ grep { /broken/ } @{$target->{features}} and $confstr .= "\tdepends on BROKEN\n";
+ } else {
+ $confstr .= $features;
+ if ($target->{arch} =~ /\w/) {
+ $confstr .= "\tselect $target->{arch}\n";
+ }
+ }
+
+ foreach my $dep (@{$target->{depends}}) {
+ my $mode = "depends on";
+ my $flags;
+ my $name;
+
+ $dep =~ /^([@\+\-]+)(.+)$/;
+ $flags = $1;
+ $name = $2;
+
+ next if $name =~ /:/;
+ $flags =~ /-/ and $mode = "deselect";
+ $flags =~ /\+/ and $mode = "select";
+ $flags =~ /@/ and $confstr .= "\t$mode $name\n";
+ }
+ $confstr .= "$help\n\n";
+ print $confstr;
+}
+
+sub merge_package_lists($$) {
+ my $list1 = shift;
+ my $list2 = shift;
+ my @l = ();
+ my %pkgs;
+
+ foreach my $pkg (@$list1, @$list2) {
+ $pkgs{$pkg} = 1;
+ }
+ foreach my $pkg (keys %pkgs) {
+ push @l, $pkg unless ($pkg =~ /^-/ or $pkgs{"-$pkg"});
+ }
+ return sort(@l);
+}
+
+sub gen_target_config() {
+ my $file = shift @ARGV;
+ my @target = parse_target_metadata($file);
+ my %defaults;
+
+ my @target_sort = sort {
+ target_name($a) cmp target_name($b);
+ } @target;
+
+
+ print <<EOF;
+choice
+ prompt "Target System"
+ default TARGET_ar71xx
+ reset if !DEVEL
+
+EOF
+
+ foreach my $target (@target_sort) {
+ next if $target->{subtarget};
+ print_target($target);
+ }
+
+ print <<EOF;
+endchoice
+
+choice
+ prompt "Subtarget" if HAS_SUBTARGETS
+EOF
+ foreach my $target (@target) {
+ next unless $target->{def_subtarget};
+ print <<EOF;
+ default TARGET_$target->{conf}_$target->{def_subtarget} if TARGET_$target->{conf}
+EOF
+ }
+ print <<EOF;
+
+EOF
+ foreach my $target (@target) {
+ next unless $target->{subtarget};
+ print_target($target);
+ }
+
+print <<EOF;
+endchoice
+
+choice
+ prompt "Target Profile"
+
+EOF
+
+ foreach my $target (@target) {
+ my $profiles = $target->{profiles};
+ foreach my $profile (@{$target->{profiles}}) {
+ print <<EOF;
+config TARGET_$target->{conf}_$profile->{id}
+ bool "$profile->{name}"
+ depends on TARGET_$target->{conf}
+EOF
+ my @pkglist = merge_package_lists($target->{packages}, $profile->{packages});
+ foreach my $pkg (@pkglist) {
+ print "\tselect DEFAULT_$pkg\n";
+ $defaults{$pkg} = 1;
+ }
+ my $help = $profile->{desc};
+ if ($help =~ /\w+/) {
+ $help =~ s/^\s*/\t /mg;
+ $help = "\thelp\n$help";
+ } else {
+ undef $help;
+ }
+ print "$help\n";
+ }
+ }
+
+ print <<EOF;
+endchoice
+
+config HAS_SUBTARGETS
+ bool
+
+config TARGET_BOARD
+ string
+
+EOF
+ foreach my $target (@target) {
+ $target->{subtarget} or print "\t\tdefault \"".$target->{board}."\" if TARGET_".$target->{conf}."\n";
+ }
+ print <<EOF;
+config TARGET_SUBTARGET
+ string
+ default "generic" if !HAS_SUBTARGETS
+
+EOF
+
+ foreach my $target (@target) {
+ foreach my $subtarget (@{$target->{subtargets}}) {
+ print "\t\tdefault \"$subtarget\" if TARGET_".$target->{conf}."_$subtarget\n";
+ }
+ }
+ print <<EOF;
+config TARGET_PROFILE
+ string
+EOF
+ foreach my $target (@target) {
+ my $profiles = $target->{profiles};
+ foreach my $profile (@$profiles) {
+ print "\tdefault \"$profile->{id}\" if TARGET_$target->{conf}_$profile->{id}\n";
+ }
+ }
+
+ print <<EOF;
+
+config TARGET_ARCH_PACKAGES
+ string
+
+EOF
+ foreach my $target (@target) {
+ next if @{$target->{subtargets}} > 0;
+ print "\t\tdefault \"".($target->{arch_packages} || $target->{board})."\" if TARGET_".$target->{conf}."\n";
+ }
+ print <<EOF;
+
+config DEFAULT_TARGET_OPTIMIZATION
+ string
+EOF
+ foreach my $target (@target) {
+ next if @{$target->{subtargets}} > 0;
+ print "\tdefault \"".$target->{cflags}."\" if TARGET_".$target->{conf}."\n";
+ }
+ print "\tdefault \"-Os -pipe -funit-at-a-time\"\n";
+ print <<EOF;
+
+config CPU_TYPE
+ string
+EOF
+ foreach my $target (@target) {
+ next if @{$target->{subtargets}} > 0;
+ print "\tdefault \"".$target->{cputype}."\" if TARGET_".$target->{conf}."\n";
+ }
+ print "\tdefault \"\"\n";
+
+ my %kver;
+ foreach my $target (@target) {
+ my $v = kver($target->{version});
+ next if $kver{$v};
+ $kver{$v} = 1;
+ print <<EOF;
+
+config LINUX_$v
+ bool
+
+EOF
+ }
+ foreach my $def (sort keys %defaults) {
+ print "\tconfig DEFAULT_".$def."\n";
+ print "\t\tbool\n\n";
+ }
+}
+
+sub gen_profile_mk() {
+ my $file = shift @ARGV;
+ my $target = shift @ARGV;
+ my @targets = parse_target_metadata($file);
+ foreach my $cur (@targets) {
+ next unless $cur->{id} eq $target;
+ print "PROFILE_NAMES = ".join(" ", map { $_->{id} } @{$cur->{profiles}})."\n";
+ foreach my $profile (@{$cur->{profiles}}) {
+ print $profile->{id}.'_NAME:='.$profile->{name}."\n";
+ print $profile->{id}.'_PACKAGES:='.join(' ', @{$profile->{packages}})."\n";
+ }
+ }
+}
+
+sub parse_command() {
+ GetOptions("ignore=s", \@ignore);
+ my $cmd = shift @ARGV;
+ for ($cmd) {
+ /^config$/ and return gen_target_config();
+ /^profile_mk$/ and return gen_profile_mk();
+ }
+ die <<EOF
+Available Commands:
+ $0 config [file] Target metadata in Kconfig format
+ $0 profile_mk [file] [target] Profile metadata in makefile format
+
+EOF
+}
+
+parse_command();
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-29 03:11:18 +0000