3 use lib "$FindBin::Bin";
8 sub target_config_features(@) {
11 while ($_ = shift @_) {
12 /arm_v(\w+)/ and $ret .= "\tselect arm_v$1\n";
13 /broken/ and $ret .= "\tdepends on BROKEN\n";
14 /audio/ and $ret .= "\tselect AUDIO_SUPPORT\n";
15 /display/ and $ret .= "\tselect DISPLAY_SUPPORT\n";
16 /dt/ and $ret .= "\tselect USES_DEVICETREE\n";
17 /gpio/ and $ret .= "\tselect GPIO_SUPPORT\n";
18 /pci/ and $ret .= "\tselect PCI_SUPPORT\n";
19 /pcie/ and $ret .= "\tselect PCIE_SUPPORT\n";
20 /usb/ and $ret .= "\tselect USB_SUPPORT\n";
21 /usbgadget/ and $ret .= "\tselect USB_GADGET_SUPPORT\n";
22 /pcmcia/ and $ret .= "\tselect PCMCIA_SUPPORT\n";
23 /rtc/ and $ret .= "\tselect RTC_SUPPORT\n";
24 /squashfs/ and $ret .= "\tselect USES_SQUASHFS\n";
25 /jffs2$/ and $ret .= "\tselect USES_JFFS2\n";
26 /jffs2_nand/ and $ret .= "\tselect USES_JFFS2_NAND\n";
27 /ext4/ and $ret .= "\tselect USES_EXT4\n";
28 /targz/ and $ret .= "\tselect USES_TARGZ\n";
29 /cpiogz/ and $ret .= "\tselect USES_CPIOGZ\n";
30 /minor/ and $ret .= "\tselect USES_MINOR\n";
31 /ubifs/ and $ret .= "\tselect USES_UBIFS\n";
32 /fpu/ and $ret .= "\tselect HAS_FPU\n";
33 /spe_fpu/ and $ret .= "\tselect HAS_SPE_FPU\n";
34 /ramdisk/ and $ret .= "\tselect USES_INITRAMFS\n";
35 /powerpc64/ and $ret .= "\tselect powerpc64\n";
36 /nommu/ and $ret .= "\tselect NOMMU\n";
37 /mips16/ and $ret .= "\tselect HAS_MIPS16\n";
38 /rfkill/ and $ret .= "\tselect RFKILL_SUPPORT\n";
39 /low_mem/ and $ret .= "\tselect LOW_MEMORY_FOOTPRINT\n";
40 /small_flash/ and $ret .= "\tselect SMALL_FLASH\n";
41 /nand/ and $ret .= "\tselect NAND_SUPPORT\n";
48 my $parent = $target->{parent};
50 return $target->{parent}->{name}." - ".$target->{name};
52 return $target->{name};
59 if (substr($v,0,2) eq "2_") {
60 $v =~ /(\d+_\d+_\d+)(_\d+)?/ and $v = $1;
62 $v =~ /(\d+_\d+)(_\d+)?/ and $v = $1;
69 my $features = target_config_features(@{$target->{features}});
70 my $help = $target->{desc};
76 $help =~ s/^\s*/\t /mg;
77 $help = "\thelp\n$help";
82 my $v = kver($target->{version});
83 if (@{$target->{subtargets}} == 0) {
85 config TARGET_$target->{conf}
86 bool "$target->{name}"
92 config TARGET_$target->{conf}
93 bool "$target->{name}"
96 if ($target->{subtarget}) {
97 $confstr .= "\tdepends on TARGET_$target->{boardconf}\n";
99 if (@{$target->{subtargets}} > 0) {
100 $confstr .= "\tselect HAS_SUBTARGETS\n";
101 grep { /broken/ } @{$target->{features}} and $confstr .= "\tdepends on BROKEN\n";
103 $confstr .= $features;
104 if ($target->{arch} =~ /\w/) {
105 $confstr .= "\tselect $target->{arch}\n";
107 if ($target->{has_devices}) {
108 $confstr .= "\tselect HAS_DEVICES\n";
112 foreach my $dep (@{$target->{depends}}) {
113 my $mode = "depends on";
117 $dep =~ /^([@\+\-]+)(.+)$/;
121 next if $name =~ /:/;
122 $flags =~ /-/ and $mode = "deselect";
123 $flags =~ /\+/ and $mode = "select";
124 $flags =~ /@/ and $confstr .= "\t$mode $name\n";
126 $confstr .= "$help\n\n";
130 sub merge_package_lists($$) {
136 foreach my $pkg (@$list1, @$list2) {
139 foreach my $pkg (keys %pkgs) {
140 push @l, $pkg unless ($pkg =~ /^-/ or $pkgs{"-$pkg"});
145 sub gen_target_config() {
146 my $file = shift @ARGV;
147 my @target = parse_target_metadata($file);
150 my @target_sort = sort {
151 target_name($a) cmp target_name($b);
157 prompt "Target System"
158 default TARGET_ar71xx
163 foreach my $target (@target_sort) {
164 next if $target->{subtarget};
165 print_target($target);
172 prompt "Subtarget" if HAS_SUBTARGETS
174 foreach my $target (@target) {
175 next unless $target->{def_subtarget};
177 default TARGET_$target->{conf}_$target->{def_subtarget} if TARGET_$target->{conf}
183 foreach my $target (@target) {
184 next unless $target->{subtarget};
185 print_target($target);
192 prompt "Target Profile"
195 foreach my $target (@target) {
196 my $profile = $target->{profiles}->[0];
199 default TARGET_$target->{conf}_$profile->{id} if TARGET_$target->{conf}
205 config TARGET_MULTI_PROFILE
206 bool "Multiple devices"
207 depends on HAS_DEVICES
211 foreach my $target (@target) {
212 my $profiles = $target->{profiles};
213 foreach my $profile (@{$target->{profiles}}) {
215 config TARGET_$target->{conf}_$profile->{id}
216 bool "$profile->{name}"
217 depends on TARGET_$target->{conf}
219 my @pkglist = merge_package_lists($target->{packages}, $profile->{packages});
220 foreach my $pkg (@pkglist) {
221 print "\tselect DEFAULT_$pkg\n";
224 my $help = $profile->{desc};
225 if ($help =~ /\w+/) {
226 $help =~ s/^\s*/\t /mg;
227 $help = "\thelp\n$help";
238 menu "Target Devices"
239 depends on TARGET_MULTI_PROFILE
242 foreach my $target (@target) {
243 my $profiles = $target->{profiles};
244 foreach my $profile (@{$target->{profiles}}) {
245 next unless $profile->{id} =~ /^DEVICE_/;
247 config TARGET_DEVICE_$target->{conf}_$profile->{id}
248 bool "$profile->{name}"
249 depends on TARGET_$target->{conf}
251 my @pkglist = merge_package_lists($target->{packages}, $profile->{packages});
252 foreach my $pkg (@pkglist) {
253 print "\tselect DEFAULT_$pkg\n";
263 config HAS_SUBTARGETS
273 foreach my $target (@target) {
274 $target->{subtarget} or print "\t\tdefault \"".$target->{board}."\" if TARGET_".$target->{conf}."\n";
277 config TARGET_SUBTARGET
279 default "generic" if !HAS_SUBTARGETS
283 foreach my $target (@target) {
284 foreach my $subtarget (@{$target->{subtargets}}) {
285 print "\t\tdefault \"$subtarget\" if TARGET_".$target->{conf}."_$subtarget\n";
289 config TARGET_PROFILE
292 foreach my $target (@target) {
293 my $profiles = $target->{profiles};
294 foreach my $profile (@$profiles) {
295 print "\tdefault \"$profile->{id}\" if TARGET_$target->{conf}_$profile->{id}\n";
301 config TARGET_ARCH_PACKAGES
305 foreach my $target (@target) {
306 next if @{$target->{subtargets}} > 0;
307 print "\t\tdefault \"".($target->{arch_packages} || $target->{board})."\" if TARGET_".$target->{conf}."\n";
311 config DEFAULT_TARGET_OPTIMIZATION
314 foreach my $target (@target) {
315 next if @{$target->{subtargets}} > 0;
316 print "\tdefault \"".$target->{cflags}."\" if TARGET_".$target->{conf}."\n";
318 print "\tdefault \"-Os -pipe -funit-at-a-time\"\n";
324 foreach my $target (@target) {
325 next if @{$target->{subtargets}} > 0;
326 print "\tdefault \"".$target->{cputype}."\" if TARGET_".$target->{conf}."\n";
328 print "\tdefault \"\"\n";
331 foreach my $target (@target) {
332 my $v = kver($target->{version});
342 foreach my $def (sort keys %defaults) {
343 print "\tconfig DEFAULT_".$def."\n";
344 print "\t\tbool\n\n";
348 sub gen_profile_mk() {
349 my $file = shift @ARGV;
350 my $target = shift @ARGV;
351 my @targets = parse_target_metadata($file);
352 foreach my $cur (@targets) {
353 next unless $cur->{id} eq $target;
354 print "PROFILE_NAMES = ".join(" ", map { $_->{id} } @{$cur->{profiles}})."\n";
355 foreach my $profile (@{$cur->{profiles}}) {
356 print $profile->{id}.'_NAME:='.$profile->{name}."\n";
357 print $profile->{id}.'_PACKAGES:='.join(' ', @{$profile->{packages}})."\n";
362 sub parse_command() {
363 GetOptions("ignore=s", \@ignore);
364 my $cmd = shift @ARGV;
366 /^config$/ and return gen_target_config();
367 /^profile_mk$/ and return gen_profile_mk();
371 $0 config [file] Target metadata in Kconfig format
372 $0 profile_mk [file] [target] Profile metadata in makefile format