Lines Matching full:my
36 # Here's what I did with my Debian distribution.
51 my $debugprint = 0;
59 my $uname = `uname -r`;
62 my @searchconfigs = (
103 foreach my $conf (@searchconfigs) {
104 my $file = $conf->{"file"};
113 my $exec = $conf->{"exec"};
117 open(my $infile, '-|', "$exec $file") || die "Failed to run $exec $file";
118 my @x = <$infile>;
125 my @config_file = read_config;
128 my $localmodconfig = 0;
129 my $localyesconfig = 0;
135 my $ksource = ($ARGV[0] ? $ARGV[0] : '.');
136 my $kconfig = $ARGV[1];
137 my $lsmod_file = $ENV{'LSMOD'};
139 my @makefiles = `find $ksource -name Makefile -or -name Kbuild 2>/dev/null`;
142 my %depends;
143 my %selects;
144 my %prompts;
145 my %objects;
146 my %config2kfile;
147 my %defaults;
148 my $var;
149 my $iflevel = 0;
150 my @ifdeps;
153 my %read_kconfigs;
156 my ($kconfig) = @_;
158 my $state = "NONE";
159 my $config;
161 my $cont = 0;
162 my $line;
164 my $source = "$ksource/$kconfig";
165 my $last_source = "";
169 my $env = $1;
174 open(my $kinfile, '<', $source) || die "Can't open $source";
193 my $kconfig = $1;
209 for (my $i = 0; $i < $iflevel; $i++) {
225 my $dep = $3;
235 my $conf = $1;
249 my $deps = $1;
254 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
276 my ($line, %vars) = @_;
278 my $process = "";
281 my $start = $1;
282 my $variable = $2;
283 my $var = $3;
298 foreach my $makefile (@makefiles) {
300 my $line = "";
301 my %make_vars;
303 open(my $infile, '<', $makefile) || die "Can't open $makefile";
316 my $objs;
331 foreach my $obj (split /\s+/,$objs) {
336 my @arr;
354 my %modules;
355 my $linfile;
366 my $otype = ( -x $lsmod_file) ? '-|' : '<';
372 my $lsmod;
374 foreach my $dir ( ("/sbin", "/bin", "/usr/sbin", "/usr/bin") ) {
399 my %configs;
400 foreach my $module (keys(%modules)) {
402 my @arr = @{$objects{$module}};
403 foreach my $conf (@arr) {
407 my $c=$conf;
425 my %orig_configs;
426 my $valid = "A-Za-z_0-9";
428 foreach my $line (@config_file) {
436 my $repeat = 1;
438 my $depconfig;
450 my ($p) = @_;
455 my $conf = "CONFIG_" . $1;
489 my ($config, $p) = @_;
491 my $next_config;
496 my $conf = "CONFIG_" . $1;
549 my %process_selects;
559 foreach my $config (keys %configs) {
585 foreach my $config (keys %process_selects) {
605 my %setconfigs;
606 my @preserved_kconfigs;
612 my $kconfig = $config2kfile{$_[0]};
616 foreach my $excl (@preserved_kconfigs) {
626 foreach my $line (@config_file) {
642 my $orig_cert = $1;
643 my $default_cert = "certs/signing_key.pem";
663 my $orig_keys = $1;
700 foreach my $module (keys(%modules)) {
702 my @arr = @{$objects{$module}};
703 foreach my $conf (@arr) {
709 foreach my $conf (@arr) {