package-metadata.pl 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683
  1. #!/usr/bin/env perl
  2. use FindBin;
  3. use lib "$FindBin::Bin";
  4. use strict;
  5. use metadata;
  6. use Getopt::Long;
  7. my %board;
  8. sub version_to_num($) {
  9. my $str = shift;
  10. my $num = 0;
  11. if (defined($str) && $str =~ /^\d+(?:\.\d+)+$/)
  12. {
  13. my @n = (split(/\./, $str), 0, 0, 0, 0);
  14. $num = ($n[0] << 24) | ($n[1] << 16) | ($n[2] << 8) | $n[3];
  15. }
  16. return $num;
  17. }
  18. sub version_filter_list(@) {
  19. my $cmpver = version_to_num(shift @_);
  20. my @items;
  21. foreach my $item (@_)
  22. {
  23. if ($item =~ s/@(lt|le|gt|ge|eq|ne)(\d+(?:\.\d+)+)\b//)
  24. {
  25. my $op = $1;
  26. my $symver = version_to_num($2);
  27. if ($symver > 0 && $cmpver > 0)
  28. {
  29. next unless (($op eq 'lt' && $cmpver < $symver) ||
  30. ($op eq 'le' && $cmpver <= $symver) ||
  31. ($op eq 'gt' && $cmpver > $symver) ||
  32. ($op eq 'ge' && $cmpver >= $symver) ||
  33. ($op eq 'eq' && $cmpver == $symver) ||
  34. ($op eq 'ne' && $cmpver != $symver));
  35. }
  36. }
  37. push @items, $item;
  38. }
  39. return @items;
  40. }
  41. sub gen_kconfig_overrides() {
  42. my %config;
  43. my %kconfig;
  44. my $package;
  45. my $pkginfo = shift @ARGV;
  46. my $cfgfile = shift @ARGV;
  47. my $patchver = shift @ARGV;
  48. # parameter 2: build system config
  49. open FILE, "<$cfgfile" or return;
  50. while (<FILE>) {
  51. /^(CONFIG_.+?)=(.+)$/ and $config{$1} = 1;
  52. }
  53. close FILE;
  54. # parameter 1: package metadata
  55. open FILE, "<$pkginfo" or return;
  56. while (<FILE>) {
  57. /^Package:\s*(.+?)\s*$/ and $package = $1;
  58. /^Kernel-Config:\s*(.+?)\s*$/ and do {
  59. my @config = split /\s+/, $1;
  60. foreach my $config (version_filter_list($patchver, @config)) {
  61. my $val = 'm';
  62. my $override;
  63. if ($config =~ /^(.+?)=(.+)$/) {
  64. $config = $1;
  65. $override = 1;
  66. $val = $2;
  67. }
  68. if ($config{"CONFIG_PACKAGE_$package"} and ($config ne 'n')) {
  69. next if $kconfig{$config} eq 'y';
  70. $kconfig{$config} = $val;
  71. } elsif (!$override) {
  72. $kconfig{$config} or $kconfig{$config} = 'n';
  73. }
  74. }
  75. };
  76. };
  77. close FILE;
  78. foreach my $kconfig (sort keys %kconfig) {
  79. if ($kconfig{$kconfig} eq 'n') {
  80. print "# $kconfig is not set\n";
  81. } else {
  82. print "$kconfig=$kconfig{$kconfig}\n";
  83. }
  84. }
  85. }
  86. my %dep_check;
  87. sub __find_package_dep($$) {
  88. my $pkg = shift;
  89. my $name = shift;
  90. my $deps = ($pkg->{vdepends} or $pkg->{depends});
  91. return 0 unless defined $deps;
  92. foreach my $dep (@{$deps}) {
  93. next if $dep_check{$dep};
  94. $dep_check{$dep} = 1;
  95. return 1 if $dep eq $name;
  96. return 1 if ($package{$dep} and (__find_package_dep($package{$dep},$name) == 1));
  97. }
  98. return 0;
  99. }
  100. # wrapper to avoid infinite recursion
  101. sub find_package_dep($$) {
  102. my $pkg = shift;
  103. my $name = shift;
  104. %dep_check = ();
  105. return __find_package_dep($pkg, $name);
  106. }
  107. sub package_depends($$) {
  108. my $a = shift;
  109. my $b = shift;
  110. my $ret;
  111. return 0 if ($a->{submenu} ne $b->{submenu});
  112. if (find_package_dep($a, $b->{name}) == 1) {
  113. $ret = 1;
  114. } elsif (find_package_dep($b, $a->{name}) == 1) {
  115. $ret = -1;
  116. } else {
  117. return 0;
  118. }
  119. return $ret;
  120. }
  121. sub mconf_depends {
  122. my $pkgname = shift;
  123. my $depends = shift;
  124. my $only_dep = shift;
  125. my $res;
  126. my $dep = shift;
  127. my $seen = shift;
  128. my $parent_condition = shift;
  129. $dep or $dep = {};
  130. $seen or $seen = {};
  131. my @t_depends;
  132. $depends or return;
  133. my @depends = @$depends;
  134. foreach my $depend (@depends) {
  135. my $m = "depends on";
  136. my $flags = "";
  137. $depend =~ s/^([@\+]+)// and $flags = $1;
  138. my $vdep;
  139. my $condition = $parent_condition;
  140. next if $condition eq $depend;
  141. next if $seen->{"$parent_condition:$depend"};
  142. next if $seen->{":$depend"};
  143. $seen->{"$parent_condition:$depend"} = 1;
  144. if ($depend =~ /^(.+):(.+)$/) {
  145. if ($1 ne "PACKAGE_$pkgname") {
  146. if ($condition) {
  147. $condition = "$condition && $1";
  148. } else {
  149. $condition = $1;
  150. }
  151. }
  152. $depend = $2;
  153. }
  154. next if $package{$depend} and $package{$depend}->{buildonly};
  155. if ($flags =~ /\+/) {
  156. if ($vdep = $package{$depend}->{vdepends}) {
  157. my @vdeps;
  158. $depend = undef;
  159. foreach my $v (@$vdep) {
  160. if ($package{$v} && $package{$v}->{variant_default}) {
  161. $depend = $v;
  162. } else {
  163. push @vdeps, $v;
  164. }
  165. }
  166. if (!$depend) {
  167. $depend = shift @vdeps;
  168. }
  169. if (@vdeps > 1) {
  170. $condition = ($condition ? "$condition && " : '') . '!('.join("||", map { "PACKAGE_".$_ } @vdeps).')';
  171. } elsif (@vdeps > 0) {
  172. $condition = ($condition ? "$condition && " : '') . '!PACKAGE_'.$vdeps[0];
  173. }
  174. }
  175. # Menuconfig will not treat 'select FOO' as a real dependency
  176. # thus if FOO depends on other config options, these dependencies
  177. # will not be checked. To fix this, we simply emit all of FOO's
  178. # depends here as well.
  179. $package{$depend} and push @t_depends, [ $package{$depend}->{depends}, $condition ];
  180. $m = "select";
  181. next if $only_dep;
  182. $flags =~ /@/ or $depend = "PACKAGE_$depend";
  183. } else {
  184. if ($vdep = $package{$depend}->{vdepends}) {
  185. $depend = join("||", map { "PACKAGE_".$_ } @$vdep);
  186. } else {
  187. $flags =~ /@/ or $depend = "PACKAGE_$depend";
  188. }
  189. }
  190. if ($condition) {
  191. if ($m =~ /select/) {
  192. next if $depend eq $condition;
  193. $depend = "$depend if $condition";
  194. } else {
  195. next if $dep->{"$depend if $condition"};
  196. $depend = "!($condition) || $depend" unless $dep->{$condition} eq 'select';
  197. }
  198. }
  199. $dep->{$depend} =~ /select/ or $dep->{$depend} = $m;
  200. }
  201. foreach my $tdep (@t_depends) {
  202. mconf_depends($pkgname, $tdep->[0], 1, $dep, $seen, $tdep->[1]);
  203. }
  204. foreach my $depend (keys %$dep) {
  205. my $m = $dep->{$depend};
  206. $res .= "\t\t$m $depend\n";
  207. }
  208. return $res;
  209. }
  210. sub mconf_conflicts {
  211. my $pkgname = shift;
  212. my $depends = shift;
  213. my $res = "";
  214. foreach my $depend (@$depends) {
  215. next unless $package{$depend};
  216. $res .= "\t\tdepends on m || (PACKAGE_$depend != y)\n";
  217. }
  218. return $res;
  219. }
  220. sub print_package_config_category($) {
  221. my $cat = shift;
  222. my %menus;
  223. my %menu_dep;
  224. return unless $category{$cat};
  225. print "menu \"$cat\"\n\n";
  226. my %spkg = %{$category{$cat}};
  227. foreach my $spkg (sort {uc($a) cmp uc($b)} keys %spkg) {
  228. foreach my $pkg (@{$spkg{$spkg}}) {
  229. next if $pkg->{buildonly};
  230. my $menu = $pkg->{submenu};
  231. if ($menu) {
  232. $menu_dep{$menu} or $menu_dep{$menu} = $pkg->{submenudep};
  233. } else {
  234. $menu = 'undef';
  235. }
  236. $menus{$menu} or $menus{$menu} = [];
  237. push @{$menus{$menu}}, $pkg;
  238. }
  239. }
  240. my @menus = sort {
  241. ($a eq 'undef' ? 1 : 0) or
  242. ($b eq 'undef' ? -1 : 0) or
  243. ($a cmp $b)
  244. } keys %menus;
  245. foreach my $menu (@menus) {
  246. my @pkgs = sort {
  247. package_depends($a, $b) or
  248. ($a->{name} cmp $b->{name})
  249. } @{$menus{$menu}};
  250. if ($menu ne 'undef') {
  251. $menu_dep{$menu} and print "if $menu_dep{$menu}\n";
  252. print "menu \"$menu\"\n";
  253. }
  254. foreach my $pkg (@pkgs) {
  255. next if $pkg->{ignore};
  256. my $title = $pkg->{name};
  257. my $c = (72 - length($pkg->{name}) - length($pkg->{title}));
  258. if ($c > 0) {
  259. $title .= ("." x $c). " ". $pkg->{title};
  260. }
  261. $title = "\"$title\"";
  262. print "\t";
  263. $pkg->{menu} and print "menu";
  264. print "config PACKAGE_".$pkg->{name}."\n";
  265. $pkg->{hidden} and $title = "";
  266. print "\t\t".($pkg->{tristate} ? 'tristate' : 'bool')." $title\n";
  267. print "\t\tdefault y if DEFAULT_".$pkg->{name}."\n";
  268. unless ($pkg->{hidden}) {
  269. my @def = ("ALL");
  270. if (!exists($pkg->{repository})) {
  271. push @def, "ALL_NONSHARED";
  272. }
  273. if ($pkg->{name} =~ /^kmod-/) {
  274. push @def, "ALL_KMODS";
  275. }
  276. $pkg->{default} ||= "m if " . join("||", @def);
  277. }
  278. if ($pkg->{default}) {
  279. foreach my $default (split /\s*,\s*/, $pkg->{default}) {
  280. print "\t\tdefault $default\n";
  281. }
  282. }
  283. print mconf_depends($pkg->{name}, $pkg->{depends}, 0);
  284. print mconf_depends($pkg->{name}, $pkg->{mdepends}, 0);
  285. print mconf_conflicts($pkg->{name}, $pkg->{conflicts});
  286. print "\t\thelp\n";
  287. print $pkg->{description};
  288. print "\n";
  289. $pkg->{config} and print $pkg->{config}."\n";
  290. }
  291. if ($menu ne 'undef') {
  292. print "endmenu\n";
  293. $menu_dep{$menu} and print "endif\n";
  294. }
  295. }
  296. print "endmenu\n\n";
  297. undef $category{$cat};
  298. }
  299. sub print_package_features() {
  300. keys %features > 0 or return;
  301. print "menu \"Package features\"\n";
  302. foreach my $n (keys %features) {
  303. my @features = sort { $b->{priority} <=> $a->{priority} or $a->{title} cmp $b->{title} } @{$features{$n}};
  304. print <<EOF;
  305. choice
  306. prompt "$features[0]->{target_title}"
  307. default FEATURE_$features[0]->{name}
  308. EOF
  309. foreach my $feature (@features) {
  310. print <<EOF;
  311. config FEATURE_$feature->{name}
  312. bool "$feature->{title}"
  313. EOF
  314. $feature->{description} =~ /\w/ and do {
  315. print "\t\thelp\n".$feature->{description}."\n";
  316. };
  317. }
  318. print "endchoice\n"
  319. }
  320. print "endmenu\n\n";
  321. }
  322. sub print_package_overrides() {
  323. keys %overrides > 0 or return;
  324. print "\tconfig OVERRIDE_PKGS\n";
  325. print "\t\tstring\n";
  326. print "\t\tdefault \"".join(" ", sort keys %overrides)."\"\n\n";
  327. }
  328. sub gen_package_config() {
  329. parse_package_metadata($ARGV[0]) or exit 1;
  330. print "menuconfig IMAGEOPT\n\tbool \"Image configuration\"\n\tdefault n\n";
  331. foreach my $preconfig (keys %preconfig) {
  332. foreach my $cfg (keys %{$preconfig{$preconfig}}) {
  333. my $conf = $preconfig{$preconfig}->{$cfg}->{id};
  334. $conf =~ tr/\.-/__/;
  335. print <<EOF
  336. config UCI_PRECONFIG_$conf
  337. string "$preconfig{$preconfig}->{$cfg}->{label}" if IMAGEOPT
  338. depends on PACKAGE_$preconfig
  339. default "$preconfig{$preconfig}->{$cfg}->{default}"
  340. EOF
  341. }
  342. }
  343. print "source \"package/*/image-config.in\"\n";
  344. if (scalar glob "package/feeds/*/*/image-config.in") {
  345. print "source \"package/feeds/*/*/image-config.in\"\n";
  346. }
  347. print_package_features();
  348. print_package_config_category 'Base system';
  349. foreach my $cat (sort {uc($a) cmp uc($b)} keys %category) {
  350. print_package_config_category $cat;
  351. }
  352. print_package_overrides();
  353. }
  354. sub get_conditional_dep($$) {
  355. my $condition = shift;
  356. my $depstr = shift;
  357. if ($condition) {
  358. if ($condition =~ /^!(.+)/) {
  359. return "\$(if \$(CONFIG_$1),,$depstr)";
  360. } else {
  361. return "\$(if \$(CONFIG_$condition),$depstr)";
  362. }
  363. } else {
  364. return $depstr;
  365. }
  366. }
  367. sub gen_package_mk() {
  368. my %conf;
  369. my %dep;
  370. my %done;
  371. my $line;
  372. parse_package_metadata($ARGV[0]) or exit 1;
  373. foreach my $name (sort {uc($a) cmp uc($b)} keys %package) {
  374. my $config;
  375. my $pkg = $package{$name};
  376. my @srcdeps;
  377. next if defined $pkg->{vdepends};
  378. $config = "\$(CONFIG_PACKAGE_$name)";
  379. if ($config) {
  380. $pkg->{buildonly} and $config = "";
  381. print "package-$config += $pkg->{subdir}$pkg->{src}\n";
  382. if ($pkg->{variant}) {
  383. if (!defined($done{$pkg->{src}}) or $pkg->{variant_default}) {
  384. print "\$(curdir)/$pkg->{subdir}$pkg->{src}/default-variant := $pkg->{variant}\n";
  385. }
  386. print "\$(curdir)/$pkg->{subdir}$pkg->{src}/variants += \$(if $config,$pkg->{variant})\n"
  387. }
  388. $pkg->{prereq} and print "prereq-$config += $pkg->{subdir}$pkg->{src}\n";
  389. }
  390. next if $done{$pkg->{src}};
  391. $done{$pkg->{src}} = 1;
  392. if (@{$pkg->{buildtypes}} > 0) {
  393. print "buildtypes-$pkg->{subdir}$pkg->{src} = ".join(' ', @{$pkg->{buildtypes}})."\n";
  394. }
  395. foreach my $spkg (@{$srcpackage{$pkg->{src}}}) {
  396. foreach my $dep (@{$spkg->{depends}}, @{$spkg->{builddepends}}) {
  397. $dep =~ /@/ or do {
  398. $dep =~ s/\+//g;
  399. push @srcdeps, $dep;
  400. };
  401. }
  402. }
  403. foreach my $type (@{$pkg->{buildtypes}}) {
  404. my @extra_deps;
  405. my %deplines;
  406. next unless $pkg->{"builddepends/$type"};
  407. foreach my $dep (@{$pkg->{"builddepends/$type"}}) {
  408. my $suffix = "";
  409. my $deptype = "";
  410. my $condition;
  411. if ($dep =~ /^(.+):(.+)/) {
  412. $condition = $1;
  413. $dep = $2;
  414. }
  415. if ($dep =~ /^(.+)\/(.+)/) {
  416. $dep = $1;
  417. $deptype = $2;
  418. $suffix = "/$2";
  419. }
  420. my $idx = "";
  421. my $pkg_dep = $package{$dep};
  422. if (defined($pkg_dep) && defined($pkg_dep->{src})) {
  423. unless (!$deptype || grep { $_ eq $deptype } @{$pkg_dep->{buildtypes}}) {
  424. warn sprintf "WARNING: Makefile '%s' has a %s build dependency on '%s/%s' but '%s' does not implement a '%s' build type\n",
  425. $pkg->{makefile}, $type, $pkg_dep->{src}, $deptype, $pkg_dep->{makefile}, $deptype;
  426. next;
  427. }
  428. $idx = $pkg_dep->{subdir}.$pkg_dep->{src};
  429. } elsif (defined($srcpackage{$dep})) {
  430. $idx = $subdir{$dep}.$dep;
  431. } else {
  432. next;
  433. }
  434. my $depstr = "\$(curdir)/$idx$suffix/compile";
  435. my $depline = get_conditional_dep($condition, $depstr);
  436. if ($depline) {
  437. $deplines{$depline}++;
  438. }
  439. }
  440. my $depline = join(" ", sort keys %deplines);
  441. if ($depline) {
  442. $line .= "\$(curdir)/".$pkg->{subdir}."$pkg->{src}/$type/compile += $depline\n";
  443. }
  444. }
  445. my $hasdeps = 0;
  446. my %deplines;
  447. foreach my $deps (@srcdeps) {
  448. my $idx;
  449. my $condition;
  450. my $prefix = "";
  451. my $suffix = "";
  452. my $deptype = "";
  453. if ($deps =~ /^(.+):(.+)/) {
  454. $condition = $1;
  455. $deps = $2;
  456. }
  457. if ($deps =~ /^(.+)\/(.+)/) {
  458. $deps = $1;
  459. $deptype = $2;
  460. $suffix = "/$2";
  461. }
  462. my $pkg_dep = $package{$deps};
  463. my @deps;
  464. if ($pkg_dep->{vdepends}) {
  465. @deps = @{$pkg_dep->{vdepends}};
  466. } else {
  467. @deps = ($deps);
  468. }
  469. foreach my $dep (@deps) {
  470. $pkg_dep = $package{$deps};
  471. if (defined $pkg_dep->{src}) {
  472. unless (!$deptype || grep { $_ eq $deptype } @{$pkg_dep->{buildtypes}}) {
  473. warn sprintf "WARNING: Makefile '%s' has a build dependency on '%s/%s' but '%s' does not implement a '%s' build type\n",
  474. $pkg->{makefile}, $pkg_dep->{src}, $deptype, $pkg_dep->{makefile}, $deptype;
  475. next;
  476. }
  477. unless ($pkg->{src} ne $pkg_dep->{sec}.$suffix) {
  478. warn sprintf "WARNING: Makefile '%s' has a build dependency on itself\n",
  479. $pkg->{makefile};
  480. next;
  481. }
  482. $idx = $pkg_dep->{subdir}.$pkg_dep->{src};
  483. } elsif (defined($srcpackage{$dep})) {
  484. $idx = $subdir{$dep}.$dep;
  485. }
  486. undef $idx if $idx eq 'base-files';
  487. if ($idx) {
  488. $idx .= $suffix;
  489. my $depline;
  490. next if $pkg->{src} eq $pkg_dep->{src}.$suffix;
  491. next if $dep{$condition.":".$pkg->{src}."->".$idx};
  492. next if $dep{$pkg->{src}."->($dep)".$idx} and $pkg_dep->{vdepends};
  493. my $depstr;
  494. if ($pkg_dep->{vdepends}) {
  495. $depstr = "\$(if \$(CONFIG_PACKAGE_$dep),\$(curdir)/$idx/compile)";
  496. $dep{$pkg->{src}."->($dep)".$idx} = 1;
  497. } else {
  498. $depstr = "\$(curdir)/$idx/compile";
  499. $dep{$pkg->{src}."->".$idx} = 1;
  500. }
  501. $depline = get_conditional_dep($condition, $depstr);
  502. if ($depline) {
  503. $deplines{$depline}++;
  504. }
  505. }
  506. }
  507. }
  508. my $depline = join(" ", sort keys %deplines);
  509. if ($depline) {
  510. $line .= "\$(curdir)/".$pkg->{subdir}."$pkg->{src}/compile += $depline\n";
  511. }
  512. }
  513. if ($line ne "") {
  514. print "\n$line";
  515. }
  516. foreach my $preconfig (keys %preconfig) {
  517. my $cmds;
  518. foreach my $cfg (keys %{$preconfig{$preconfig}}) {
  519. my $conf = $preconfig{$preconfig}->{$cfg}->{id};
  520. $conf =~ tr/\.-/__/;
  521. $cmds .= "\techo \"uci set '$preconfig{$preconfig}->{$cfg}->{id}=\$(subst \",,\$(CONFIG_UCI_PRECONFIG_$conf))'\"; \\\n";
  522. }
  523. next unless $cmds;
  524. print <<EOF
  525. ifndef DUMP_TARGET_DB
  526. \$(TARGET_DIR)/etc/uci-defaults/$preconfig: FORCE
  527. ( \\
  528. $cmds \\
  529. ) > \$@
  530. ifneq (\$(IMAGEOPT)\$(CONFIG_IMAGEOPT),)
  531. package/preconfig: \$(TARGET_DIR)/etc/uci-defaults/$preconfig
  532. endif
  533. endif
  534. EOF
  535. }
  536. }
  537. sub gen_package_source() {
  538. parse_package_metadata($ARGV[0]) or exit 1;
  539. foreach my $name (sort {uc($a) cmp uc($b)} keys %package) {
  540. my $pkg = $package{$name};
  541. if ($pkg->{name} && $pkg->{source}) {
  542. print "$pkg->{name}: ";
  543. print "$pkg->{source}\n";
  544. }
  545. }
  546. }
  547. sub gen_package_subdirs() {
  548. parse_package_metadata($ARGV[0]) or exit 1;
  549. foreach my $name (sort {uc($a) cmp uc($b)} keys %package) {
  550. my $pkg = $package{$name};
  551. if ($pkg->{name} && $pkg->{repository}) {
  552. print "Package/$name/subdir = $pkg->{repository}\n";
  553. }
  554. }
  555. }
  556. sub gen_package_license($) {
  557. my $level = shift;
  558. parse_package_metadata($ARGV[0]) or exit 1;
  559. foreach my $name (sort {uc($a) cmp uc($b)} keys %package) {
  560. my $pkg = $package{$name};
  561. if ($pkg->{name}) {
  562. if ($pkg->{license}) {
  563. print "$pkg->{name}: ";
  564. print "$pkg->{license}\n";
  565. if ($pkg->{licensefiles} && $level == 0) {
  566. print "\tFiles: $pkg->{licensefiles}\n";
  567. }
  568. } else {
  569. if ($level == 1) {
  570. print "$pkg->{name}: Missing license! ";
  571. print "Please fix $pkg->{makefile}\n";
  572. }
  573. }
  574. }
  575. }
  576. }
  577. sub gen_version_filtered_list() {
  578. foreach my $item (version_filter_list(@ARGV)) {
  579. print "$item\n";
  580. }
  581. }
  582. sub parse_command() {
  583. GetOptions("ignore=s", \@ignore);
  584. my $cmd = shift @ARGV;
  585. for ($cmd) {
  586. /^mk$/ and return gen_package_mk();
  587. /^config$/ and return gen_package_config();
  588. /^kconfig/ and return gen_kconfig_overrides();
  589. /^source$/ and return gen_package_source();
  590. /^subdirs$/ and return gen_package_subdirs();
  591. /^license$/ and return gen_package_license(0);
  592. /^licensefull$/ and return gen_package_license(1);
  593. /^version_filter$/ and return gen_version_filtered_list();
  594. }
  595. die <<EOF
  596. Available Commands:
  597. $0 mk [file] Package metadata in makefile format
  598. $0 config [file] Package metadata in Kconfig format
  599. $0 kconfig [file] [config] [patchver] Kernel config overrides
  600. $0 source [file] Package source file information
  601. $0 subdirs [file] Package subdir information in makefile format
  602. $0 license [file] Package license information
  603. $0 licensefull [file] Package license information (full list)
  604. $0 version_filter [patchver] [list...] Filter list of version tagged strings
  605. Options:
  606. --ignore <name> Ignore the source package <name>
  607. EOF
  608. }
  609. parse_command();