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();