linux-master/scripts/leaking_addresses.pl

8 #  - Walks directory tree and parses each file (for each directory in @DIRS).
39 # Timer for parsing each file, in seconds.
50 my $output_raw = "";	# Write raw results to file.
51 my $input_raw = "";	# Read raw results from file instead of scanning.
55 my $kallsyms_file = "";		# Kernel symbols file.
56 my $kernel_config_file = "";	# Kernel configuration file.
95 	-o, --output-raw=<file>		Save results for future processing.
96 	-i, --input-raw=<file>		Read results from file instead of scanning.
101 	--kernel-config-file=<file>     Kernel configuration file (e.g /boot/config)
102 	--kallsyms=<file>		Read kernel symbol addresses from file (for
125 	'kernel-config-file=s'	=> \$kernel_config_file,
138 	printf "\nSummary reporting only available with --input-raw=<file>\n";
139 	printf "(First run scan with --output-raw=<file>.)\n";
244 # Gets config option value from kernel config file.
254 	# Allow --kernel-config-file to override.
268 		my $file = '/boot/config-' . `uname -r`;
269 		chomp $file;
270 		@config_files = ($file, '/boot/config');
273 	foreach my $file (@config_files) {
274 		dprint("parsing config file: $file\n");
275 		$value = option_from_file($option, $file);
284 # Parses $file and returns kernel configuration option value.
287 	my ($option, $file) = @_;
291 	open(my $fh, "<", $file) or return "";
419 	# CONFIG_PGTABLE_LEVELS.  If config file parsing fails or config option
460 	my ($file) = @_;
465 		parse_file($file);
471 		printf STDERR "timed out parsing: %s\n", $file;
477 	my ($file) = @_;
479 	open my $fh, "<:raw", $file or return;
489 			printf("$file: $symbol @ $offset\n");
496 	my ($file) = @_;
498 	if (! -R $file) {
502 	if (! -T $file) {
503 		if ($file =~ m|^/sys/kernel/btf/| or
504 		    $file =~ m|^/sys/devices/pci| or
505 		    $file =~ m|^/sys/firmware/efi/efivars/| or
506 		    $file =~ m|^/proc/bus/pci/|) {
510 			parse_binary($file);
515 	open my $fh, "<", $file or return;
518 		if (may_leak_address($file, $_)) {
519 			printf("$file: $_\n");
545 		foreach my $file (@files) {
546 			next if ($file eq '.' or $file eq '..');
548 			my $path = "$pwd/$file";
572 	my ($file) = @_;
576 		dump_raw_output($file);
580 	my ($total, $dmesg, $paths, $files) = parse_raw_file($file);
599 	my ($file) = @_;
601 	open (my $fh, '<', $file) or die "$0: $file: $!\n";
615 	my ($file) = @_;
622 	open (my $fh, '<', $file) or die "$0: $file: $!\n";