关于OpenWrt metadata.pl脚本文件中的几个函数说明_part1

-->>gen_kconfig_overrides()

metadata.pl ---->> gen_kconfig_overrides()

查看metadata.pl脚本，查看parse_command()，发现有以下几种用法：

                   /^target_config$/ and returngen_target_config();

                   /^package_mk$/ and returngen_package_mk();

                   /^package_config$/ and returngen_package_config();

                   /^kconfig/ and returngen_kconfig_overrides();

                   /^package_source$/ and returngen_package_source();

 

我这里主要关注的是以kconfig开头的参数数组；

通过执行make V=s，可以看到其中有这样一条语句：

scripts/metadata.plkconfig /tmp/.packageinfo .config > /build_dir/linux-ipq806x/linux-3.4.0/.config.override

上述语句以/tmp/.packageinfo 和 .config 两个文件作为输入源，最终生成目标是/build_dir/linux-ipq806x/linux-3.4.0/.config.override

 

现在我要追寻的答案是：根据.config中选取的CONFIG_PACKAGE_*=y的PACKAGE，其对应的depends中+kmod-*下面的内核配置选项是否在.config.override中全部进行了设置？

 

那就要看一下gen_kconfig_overrides()这个函数了。

subgen_kconfig_overrides() {

         my %config;

         my %kconfig;

         my $package;

         my $pkginfo = shift @ARGV;

         my $cfgfile = shift @ARGV;

 

         # parameter 2: build system config

         open FILE, "<$cfgfile" orreturn;

         while (<FILE>) {

                   /^(CONFIG_.+?)=(.+)$/ and$config{$1} = 1;

         }

         close FILE;

 

         # parameter 1: package metadata

         open FILE, "<$pkginfo" orreturn;

         while (<FILE>) {

                   /^Package:\s*(.+?)\s*$/ and$package = $1;

                   /^Kernel-Config:\s*(.+?)\s*$/and do {

                            my @config = split/\s+/, $1;

                            foreach my $config(@config) {

                                     my $val ='m';

                                     my$override;

                                     if ($config=~ /^(.+?)=(.+)$/) {

                                               $config= $1;

                                               $override= 1;

                                               $val= $2;

                                     }

                                     if($config{"CONFIG_PACKAGE_$package"} and ($config ne 'n')) {

                                               nextif $kconfig{$config} eq 'y';

                                               $kconfig{$config}= $val;

                                     } elsif(!$override) {

                                               $kconfig{$config}or $kconfig{$config} = 'n';

                                     }

                            }

                   };

         };

         close FILE;

 

         foreach my $kconfig (sort keys%kconfig) {

                   if ($kconfig{$kconfig} eq'n') {

                            print "#$kconfig is not set\n";

                   } else {

                            print"$kconfig=$kconfig{$kconfig}\n";

                   }

         }

}

该函数明显分为4个小部分；

第一个部分：

my %config; 应该是声明了hash数组，也可以说关联数组，更好理解，一个键紧跟一个值组成的列表，如%fred=(one, “zmd”, two, “cxm”), $fred{one}=”zmd”；

my$package; 声明了一个package变量；

my $pkginfo= shift @ARGV;

@ARGV是当前运行的命令行参数列表；

shift是把数组的第一个元素移出并返回它，然后把数组长度减1，并顺移剩下的元素。如果不再存在元素，返回undef。

所以，package为第一个参数，cfgfile为第一个参数，即$packge=/tmp/.packageinfo，$cfgfile=.config。

 

第二个部分：

         open FILE, "<$cfgfile" orreturn;

         while (<FILE>) {

                   /^(CONFIG_.+?)=(.+)$/ and$config{$1} = 1;

         }

         close FILE;

打开文件$cfgfile，即.config文件，且.config文件必须存在，否则直接返回。

读取.config文件的每一行，判断是否以CONFIG_开头，CONFIG_后的“.+”表示匹配1次或多次的任何字符，“(.+)$”表示结尾，即提取每行的“CONFIG_*=*”选项，后面的$1表示“CONFIG_.+?)”。

注意：Perl的正则表达式中如果出现()，则发生匹配或替换后，()内的模式被Perl解释器自动依次赋给系统$1，$2，……

然后对$config数组进行设置，$1即CONFIG_作为数组键，值为1

 

 

第三个部分：

         openFILE, "<$pkginfo" or return;

         while(<FILE>) {

                   /^Package:\s*