scripts/feeds: display "X" as revision of uninitialized feeds
[openwrt/staging/wigyori.git] / scripts / target-metadata.pl
1 #!/usr/bin/env perl
2 use FindBin;
3 use lib "$FindBin::Bin";
4 use strict;
5 use metadata;
6 use Getopt::Long;
7
8 sub target_config_features(@) {
9 my $ret;
10
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";
42 /virtio/ and $ret .= "\tselect VIRTIO_SUPPORT\n";
43 }
44 return $ret;
45 }
46
47 sub target_name($) {
48 my $target = shift;
49 my $parent = $target->{parent};
50 if ($parent) {
51 return $target->{parent}->{name}." - ".$target->{name};
52 } else {
53 return $target->{name};
54 }
55 }
56
57 sub kver($) {
58 my $v = shift;
59 $v =~ tr/\./_/;
60 if (substr($v,0,2) eq "2_") {
61 $v =~ /(\d+_\d+_\d+)(_\d+)?/ and $v = $1;
62 } else {
63 $v =~ /(\d+_\d+)(_\d+)?/ and $v = $1;
64 }
65 return $v;
66 }
67
68 sub print_target($) {
69 my $target = shift;
70 my $features = target_config_features(@{$target->{features}});
71 my $help = $target->{desc};
72 my $confstr;
73
74 chomp $features;
75 $features .= "\n";
76 if ($help =~ /\w+/) {
77 $help =~ s/^\s*/\t /mg;
78 $help = "\thelp\n$help";
79 } else {
80 undef $help;
81 }
82
83 my $v = kver($target->{version});
84 if (@{$target->{subtargets}} == 0) {
85 $confstr = <<EOF;
86 config TARGET_$target->{conf}
87 bool "$target->{name}"
88 select LINUX_$v
89 EOF
90 }
91 else {
92 $confstr = <<EOF;
93 config TARGET_$target->{conf}
94 bool "$target->{name}"
95 EOF
96 }
97 if ($target->{subtarget}) {
98 $confstr .= "\tdepends on TARGET_$target->{boardconf}\n";
99 }
100 if (@{$target->{subtargets}} > 0) {
101 $confstr .= "\tselect HAS_SUBTARGETS\n";
102 grep { /broken/ } @{$target->{features}} and $confstr .= "\tdepends on BROKEN\n";
103 } else {
104 $confstr .= $features;
105 if ($target->{arch} =~ /\w/) {
106 $confstr .= "\tselect $target->{arch}\n";
107 }
108 if ($target->{has_devices}) {
109 $confstr .= "\tselect HAS_DEVICES\n";
110 }
111 }
112
113 foreach my $dep (@{$target->{depends}}) {
114 my $mode = "depends on";
115 my $flags;
116 my $name;
117
118 $dep =~ /^([@\+\-]+)(.+)$/;
119 $flags = $1;
120 $name = $2;
121
122 next if $name =~ /:/;
123 $flags =~ /-/ and $mode = "deselect";
124 $flags =~ /\+/ and $mode = "select";
125 $flags =~ /@/ and $confstr .= "\t$mode $name\n";
126 }
127 $confstr .= "$help\n\n";
128 print $confstr;
129 }
130
131 sub merge_package_lists($$) {
132 my $list1 = shift;
133 my $list2 = shift;
134 my @l = ();
135 my %pkgs;
136
137 foreach my $pkg (@$list1, @$list2) {
138 $pkgs{$pkg} = 1;
139 }
140 foreach my $pkg (keys %pkgs) {
141 push @l, $pkg unless ($pkg =~ /^-/ or $pkgs{"-$pkg"});
142 }
143 return sort(@l);
144 }
145
146 sub gen_target_config() {
147 my $file = shift @ARGV;
148 my @target = parse_target_metadata($file);
149 my %defaults;
150
151 my @target_sort = sort {
152 target_name($a) cmp target_name($b);
153 } @target;
154
155 foreach my $target (@target_sort) {
156 next if @{$target->{subtargets}} > 0;
157 print <<EOF;
158 config DEFAULT_TARGET_$target->{conf}
159 bool
160 depends on TARGET_PER_DEVICE_ROOTFS
161 default y if TARGET_$target->{conf}
162 EOF
163 foreach my $pkg (@{$target->{packages}}) {
164 print "\tselect DEFAULT_$pkg if TARGET_PER_DEVICE_ROOTFS\n";
165 }
166 }
167
168 print <<EOF;
169 choice
170 prompt "Target System"
171 default TARGET_ar71xx
172 reset if !DEVEL
173
174 EOF
175
176 foreach my $target (@target_sort) {
177 next if $target->{subtarget};
178 print_target($target);
179 }
180
181 print <<EOF;
182 endchoice
183
184 choice
185 prompt "Subtarget" if HAS_SUBTARGETS
186 EOF
187 foreach my $target (@target) {
188 next unless $target->{def_subtarget};
189 print <<EOF;
190 default TARGET_$target->{conf}_$target->{def_subtarget} if TARGET_$target->{conf}
191 EOF
192 }
193 print <<EOF;
194
195 EOF
196 foreach my $target (@target) {
197 next unless $target->{subtarget};
198 print_target($target);
199 }
200
201 print <<EOF;
202 endchoice
203
204 choice
205 prompt "Target Profile"
206
207 EOF
208 foreach my $target (@target) {
209 my $profile = $target->{profiles}->[0];
210 $profile or next;
211 print <<EOF;
212 default TARGET_$target->{conf}_$profile->{id} if TARGET_$target->{conf}
213 EOF
214 }
215
216 print <<EOF;
217
218 config TARGET_MULTI_PROFILE
219 bool "Multiple devices"
220 depends on HAS_DEVICES
221 help
222 Instead of only building a single image, or all images, this allows you
223 to select images to be built for multiple devices in one build.
224
225 EOF
226
227 foreach my $target (@target) {
228 my $profiles = $target->{profiles};
229 foreach my $profile (@{$target->{profiles}}) {
230 print <<EOF;
231 config TARGET_$target->{conf}_$profile->{id}
232 bool "$profile->{name}"
233 depends on TARGET_$target->{conf}
234 EOF
235 my @pkglist = merge_package_lists($target->{packages}, $profile->{packages});
236 foreach my $pkg (@pkglist) {
237 print "\tselect DEFAULT_$pkg\n";
238 $defaults{$pkg} = 1;
239 }
240 my $help = $profile->{desc};
241 if ($help =~ /\w+/) {
242 $help =~ s/^\s*/\t /mg;
243 $help = "\thelp\n$help";
244 } else {
245 undef $help;
246 }
247 print "$help\n";
248 }
249 }
250
251 print <<EOF;
252 endchoice
253
254 menu "Target Devices"
255 depends on TARGET_MULTI_PROFILE
256
257 config TARGET_ALL_PROFILES
258 bool "Enable all profiles by default"
259
260 config TARGET_PER_DEVICE_ROOTFS
261 bool "Use a per-device root filesystem that adds profile packages"
262 help
263 When disabled, all device packages from all selected devices
264 will be included in all images by default. (Marked as <*>) You will
265 still be able to manually deselect any/all packages.
266 When enabled, each device builds it's own image, including only the
267 profile packages for that device. (Marked as {M}) You will be able
268 to change a package to included in all images by marking as {*}, but
269 will not be able to disable a profile package completely.
270
271 To get the most use of this setting, you must set in a .config stub
272 before calling "make defconfig". Selecting TARGET_MULTI_PROFILE and
273 then manually selecting (via menuconfig for instance) this option
274 will have pre-defaulted all profile packages to included, making this
275 option appear to have had no effect.
276
277 EOF
278 foreach my $target (@target) {
279 my @profiles = sort {
280 my $x = $a->{name};
281 my $y = $b->{name};
282 "\L$x" cmp "\L$y";
283 } @{$target->{profiles}};
284 foreach my $profile (@profiles) {
285 next unless $profile->{id} =~ /^DEVICE_/;
286 print <<EOF;
287 menuconfig TARGET_DEVICE_$target->{conf}_$profile->{id}
288 bool "$profile->{name}"
289 depends on TARGET_$target->{conf}
290 default y if TARGET_ALL_PROFILES
291 EOF
292 my @pkglist = merge_package_lists($target->{packages}, $profile->{packages});
293 foreach my $pkg (@pkglist) {
294 print "\tselect DEFAULT_$pkg if !TARGET_PER_DEVICE_ROOTFS\n";
295 print "\tselect MODULE_DEFAULT_$pkg if TARGET_PER_DEVICE_ROOTFS\n";
296 $defaults{$pkg} = 1;
297 }
298
299 print <<EOF;
300
301
302 config TARGET_DEVICE_PACKAGES_$target->{conf}_$profile->{id}
303 string "$profile->{name} additional packages"
304 default ""
305 depends on TARGET_PER_DEVICE_ROOTFS
306 depends on TARGET_DEVICE_$target->{conf}_$profile->{id}
307
308 EOF
309 }
310 }
311
312 print <<EOF;
313
314 endmenu
315
316 config HAS_SUBTARGETS
317 bool
318
319 config HAS_DEVICES
320 bool
321
322 config TARGET_BOARD
323 string
324
325 EOF
326 foreach my $target (@target) {
327 $target->{subtarget} or print "\t\tdefault \"".$target->{board}."\" if TARGET_".$target->{conf}."\n";
328 }
329 print <<EOF;
330 config TARGET_SUBTARGET
331 string
332 default "generic" if !HAS_SUBTARGETS
333
334 EOF
335
336 foreach my $target (@target) {
337 foreach my $subtarget (@{$target->{subtargets}}) {
338 print "\t\tdefault \"$subtarget\" if TARGET_".$target->{conf}."_$subtarget\n";
339 }
340 }
341 print <<EOF;
342 config TARGET_PROFILE
343 string
344 EOF
345 foreach my $target (@target) {
346 my $profiles = $target->{profiles};
347 foreach my $profile (@$profiles) {
348 print "\tdefault \"$profile->{id}\" if TARGET_$target->{conf}_$profile->{id}\n";
349 }
350 }
351
352 print <<EOF;
353
354 config TARGET_ARCH_PACKAGES
355 string
356
357 EOF
358 foreach my $target (@target) {
359 next if @{$target->{subtargets}} > 0;
360 print "\t\tdefault \"".($target->{arch_packages} || $target->{board})."\" if TARGET_".$target->{conf}."\n";
361 }
362 print <<EOF;
363
364 config DEFAULT_TARGET_OPTIMIZATION
365 string
366 EOF
367 foreach my $target (@target) {
368 next if @{$target->{subtargets}} > 0;
369 print "\tdefault \"".$target->{cflags}."\" if TARGET_".$target->{conf}."\n";
370 }
371 print "\tdefault \"-Os -pipe -funit-at-a-time\"\n";
372 print <<EOF;
373
374 config CPU_TYPE
375 string
376 EOF
377 foreach my $target (@target) {
378 next if @{$target->{subtargets}} > 0;
379 print "\tdefault \"".$target->{cputype}."\" if TARGET_".$target->{conf}."\n";
380 }
381 print "\tdefault \"\"\n";
382
383 my %kver;
384 foreach my $target (@target) {
385 my $v = kver($target->{version});
386 next if $kver{$v};
387 $kver{$v} = 1;
388 print <<EOF;
389
390 config LINUX_$v
391 bool
392
393 EOF
394 }
395 foreach my $def (sort keys %defaults) {
396 print <<EOF;
397 config DEFAULT_$def
398 bool
399
400 config MODULE_DEFAULT_$def
401 tristate
402 depends on TARGET_PER_DEVICE_ROOTFS
403 depends on m
404 default m if DEFAULT_$def
405 select PACKAGE_$def
406
407 EOF
408 }
409 }
410
411 sub gen_profile_mk() {
412 my $file = shift @ARGV;
413 my $target = shift @ARGV;
414 my @targets = parse_target_metadata($file);
415 foreach my $cur (@targets) {
416 next unless $cur->{id} eq $target;
417 print "PROFILE_NAMES = ".join(" ", map { $_->{id} } @{$cur->{profiles}})."\n";
418 foreach my $profile (@{$cur->{profiles}}) {
419 print $profile->{id}.'_NAME:='.$profile->{name}."\n";
420 print $profile->{id}.'_PACKAGES:='.join(' ', @{$profile->{packages}})."\n";
421 }
422 }
423 }
424
425 sub parse_command() {
426 GetOptions("ignore=s", \@ignore);
427 my $cmd = shift @ARGV;
428 for ($cmd) {
429 /^config$/ and return gen_target_config();
430 /^profile_mk$/ and return gen_profile_mk();
431 }
432 die <<EOF
433 Available Commands:
434 $0 config [file] Target metadata in Kconfig format
435 $0 profile_mk [file] [target] Profile metadata in makefile format
436
437 EOF
438 }
439
440 parse_command();