| #!/usr/bin/env perl |
| |
| # Copyright 2016 by Frank Rowand |
| # Copyright 2016 by Gaurav Minocha |
| # |
| # This file is subject to the terms and conditions of the GNU General Public |
| # License v2. |
| |
| use strict 'refs'; |
| use strict subs; |
| |
| use Getopt::Long; |
| |
| $VUFX = "160610a"; |
| |
| $script_name = $0; |
| $script_name =~ s|^.*/||; |
| |
| |
| # ----- constants for print_flags() |
| |
| # Position in string $pr_flags. Range of 0..($num_pr_flags - 1). |
| $pr_flag_pos_mcompatible = 0; |
| $pr_flag_pos_driver = 1; |
| $pr_flag_pos_mdriver = 2; |
| $pr_flag_pos_config = 3; |
| $pr_flag_pos_mconfig = 4; |
| $pr_flag_pos_node_not_enabled = 5; |
| $pr_flag_pos_white_list = 6; |
| $pr_flag_pos_hard_coded = 7; |
| $pr_flag_pos_config_hard_coded = 8; |
| $pr_flag_pos_config_none = 9; |
| $pr_flag_pos_config_m = 10; |
| $pr_flag_pos_config_y = 11; |
| $pr_flag_pos_config_test_fail = 12; |
| |
| $num_pr_flags = $pr_flag_pos_config_test_fail + 1; |
| |
| # flags in @pr_flag_value must be unique values to allow simple regular |
| # expessions to work for --include_flags and --exclude_flags. |
| # Convention: use upper case letters for potential issues or problems. |
| |
| @pr_flag_value = ('M', 'd', 'D', 'c', 'C', 'E', 'W', 'H', 'x', 'n', 'm', 'y', 'F'); |
| |
| @pr_flag_help = ( |
| "multiple compatibles found for this node", |
| "driver found for this compatible", |
| "multiple drivers found for this compatible", |
| "kernel config found for this driver", |
| "multiple config options found for this driver", |
| "node is not enabled", |
| "compatible is white listed", |
| "matching driver and/or kernel config is hard coded", |
| "kernel config hard coded in Makefile", |
| "one or more kernel config file options is not set", |
| "one or more kernel config file options is set to 'm'", |
| "one or more kernel config file options is set to 'y'", |
| "one of more kernel config file options fails to have correct value" |
| ); |
| |
| |
| # ----- |
| |
| %driver_config = (); # driver config array, indexed by driver source file |
| %driver_count = (); # driver_cnt, indexed by compatible |
| %compat_driver = (); # compatible driver array, indexed by compatible |
| %existing_config = (); # existing config symbols present in given config file |
| # expected values are: "y", "m", a decimal number, a |
| # hex number, or a string |
| |
| # ----- magic compatibles, do not have a driver |
| # |
| # Will not search for drivers for these compatibles. |
| |
| %compat_white_list = ( |
| 'none' => '1', |
| 'pci' => '1', |
| 'simple-bus' => '1', |
| ); |
| |
| # Will not search for drivers for these compatibles. |
| # |
| # These compatibles have a very large number of false positives. |
| # |
| # 'hardcoded_no_driver' is a magic value. Other code knows this |
| # magic value. Do not use 'no_driver' here! |
| # |
| # Revisit each 'hardcoded_no_driver' to see how the compatible |
| # is used. Are there drivers that can be provided? |
| |
| %driver_hard_code_list = ( |
| 'cache' => ['hardcoded_no_driver'], |
| 'eeprom' => ['hardcoded_no_driver'], |
| 'gpio' => ['hardcoded_no_driver'], |
| 'gpio-keys' => ['drivers/input/keyboard/gpio_keys.c'], |
| 'i2c-gpio' => ['drivers/i2c/busses/i2c-gpio.c'], |
| 'isa' => ['arch/mips/mti-malta/malta-dt.c', |
| 'arch/x86/kernel/devicetree.c'], |
| 'led' => ['hardcoded_no_driver'], |
| 'm25p32' => ['hardcoded_no_driver'], |
| 'm25p64' => ['hardcoded_no_driver'], |
| 'm25p80' => ['hardcoded_no_driver'], |
| 'mtd-ram' => ['drivers/mtd/maps/physmap_of.c'], |
| 'pwm-backlight' => ['drivers/video/backlight/pwm_bl.c'], |
| 'spidev' => ['hardcoded_no_driver'], |
| 'syscon' => ['drivers/mfd/syscon.c'], |
| 'tlv320aic23' => ['hardcoded_no_driver'], |
| 'wm8731' => ['hardcoded_no_driver'], |
| ); |
| |
| # Use these config options instead of searching makefiles |
| |
| %driver_config_hard_code_list = ( |
| |
| # this one needed even if %driver_hard_code_list is empty |
| 'no_driver' => ['no_config'], |
| 'hardcoded_no_driver' => ['no_config'], |
| |
| # drivers/usb/host/ehci-ppc-of.c |
| # drivers/usb/host/ehci-xilinx-of.c |
| # are included from: |
| # drivers/usb/host/ehci-hcd.c |
| # thus the search of Makefile for the included .c files is incorrect |
| # ehci-hcd.c wraps the includes with ifdef CONFIG_USB_EHCI_HCD_..._OF |
| # |
| # similar model for ohci-hcd.c (but no ohci-xilinx-of.c) |
| # |
| # similarly, uhci-hcd.c includes uhci-platform.c |
| |
| 'drivers/usb/host/ehci-ppc-of.c' => ['CONFIG_USB_EHCI_HCD', |
| 'CONFIG_USB_EHCI_HCD_PPC_OF'], |
| 'drivers/usb/host/ohci-ppc-of.c' => ['CONFIG_USB_OHCI_HCD', |
| 'CONFIG_USB_OHCI_HCD_PPC_OF'], |
| |
| 'drivers/usb/host/ehci-xilinx-of.c' => ['CONFIG_USB_EHCI_HCD', |
| 'CONFIG_USB_EHCI_HCD_XILINX'], |
| |
| 'drivers/usb/host/uhci-platform.c' => ['CONFIG_USB_UHCI_HCD', |
| 'CONFIG_USB_UHCI_PLATFORM'], |
| |
| # scan_makefile will find only one of these config options: |
| # ifneq ($(CONFIG_SOC_IMX6)$(CONFIG_SOC_LS1021A),) |
| 'arch/arm/mach-imx/platsmp.c' => ['CONFIG_SOC_IMX6 && CONFIG_SMP', |
| 'CONFIG_SOC_LS1021A && CONFIG_SMP'], |
| ); |
| |
| |
| # 'virt/kvm/arm/.*' are controlled by makefiles in other directories, |
| # using relative paths, such as 'KVM := ../../../virt/kvm'. Do not |
| # add complexity to find_kconfig() to deal with this. There is a long |
| # term intent to change the kvm related makefiles to the normal kernel |
| # style. After that is done, this entry can be removed from the |
| # black_list_driver. |
| |
| @black_list_driver = ( |
| # kvm no longer a problem after commit 503a62862e8f in 4.7-rc1 |
| # 'virt/kvm/arm/.*', |
| ); |
| |
| |
| sub usage() |
| { |
| print |
| " |
| Usage: $script_name [options] device-tree... |
| |
| device_tree is: dts_file | dtb_file | proc_device-tree |
| |
| |
| Valid options: |
| -c FILE Read kernel config options from FILE |
| --config FILE synonym for 'c' |
| --config-format config file friendly output format |
| --exclude-flag FLAG exclude entries with a matching flag |
| -h Display this message and exit |
| --help synonym for 'h' |
| --black-list-driver use driver black list |
| --white-list-config use config white list |
| --white-list-driver use driver white list |
| --include-flag FLAG include only entries with a matching flag |
| --include-suspect include only entries with an uppercase flag |
| --short-name do not show the path portion of the node name |
| --show-lists report of white and black lists |
| --version Display program version and exit |
| |
| |
| Report driver source files that match the compatibles in the device |
| tree file and the kernel config options that enable the driver source |
| files. |
| |
| This program must be run in the root directory of a Linux kernel |
| source tree. |
| |
| The default format is a report that is intended to be easily human |
| scannable. |
| |
| An alternate format can be selected by --config-format. This will |
| create output that can easily be edited to create a fragment that can |
| be appended to the existing kernel config file. Each entry consists of |
| multiple lines. The first line reports flags, the node path, compatible |
| value, driver file matching the compatible, configuration options, and |
| current values of the configuration options. For each configuration |
| option, the following lines report the current value and the value that |
| is required for the driver file to be included in the kernel. |
| |
| If a large number of drivers or config options is listed for a node, |
| and the '$pr_flag_value[$pr_flag_pos_hard_coded]' flag is set consider using --white-list-config and/or |
| --white-list-driver. If the white list option suppresses the correct |
| entry please report that as a bug. |
| |
| CAUTION: |
| This program uses heuristics to guess which driver(s) support each |
| compatible string and which config option(s) enables the driver(s). |
| Do not believe that the reported information is fully correct. |
| This program is intended to aid the process of determining the |
| proper kernel configuration for a device tree, but this is not |
| a fully automated process -- human involvement may still be |
| required! |
| |
| The driver match heuristic used is to search for source files |
| containing the compatible string enclosed in quotes. |
| |
| This program might not be able to find all drivers matching a |
| compatible string. |
| |
| Some makefiles are overly clever. This program was not made |
| complex enough to handle them. If no config option is listed |
| for a driver, look at the makefile for the driver source file. |
| Even if a config option is listed for a driver, some other |
| available config options may not be listed. |
| |
| FLAG values: |
| "; |
| |
| for ($k = 0; $k < $num_pr_flags; $k++) { |
| printf " %s %s\n", $pr_flag_value[$k], $pr_flag_help[$k]; |
| } |
| |
| print |
| " |
| Upper case letters indicate potential issues or problems. |
| |
| The flag: |
| |
| "; |
| |
| $k = $pr_flag_pos_hard_coded; |
| printf " %s %s\n", $pr_flag_value[$k], $pr_flag_help[$k]; |
| |
| print |
| " |
| will be set if the config or driver is in the white lists, even if |
| --white-list-config and --white-list-driver are not specified. |
| This is a hint that 1) many of these reported lines are likely to |
| be incorrect, and 2) using those options will reduce the number of |
| drivers and/or config options reported. |
| |
| --white-list-config and --white-list-driver may not be accurate if this |
| program is not well maintained. Use them with appropriate skepticism. |
| Use the --show-lists option to report the values in the list. |
| |
| Return value: |
| 0 if no error |
| 1 error processing command line |
| 2 unable to open or read kernel config file |
| 3 unable to open or process input device tree file(s) |
| |
| EXAMPLES: |
| |
| dt_to_config arch/arm/boot/dts/my_dts_file.dts |
| |
| Basic report. |
| |
| dt_to_config \\ |
| --config \${KBUILD_OUTPUT}/.config \\ |
| arch/\${ARCH}/boot/dts/my_dts_file.dts |
| |
| Full report, with config file issues noted. |
| |
| dt_to_config --include-suspect \\ |
| --config \${KBUILD_OUTPUT}/.config \\ |
| arch/\${ARCH}/boot/dts/my_dts_file.dts |
| |
| Report of node / compatible string / driver tuples that should |
| be further investigated. A node may have multiple compatible |
| strings. A compatible string may be matched by multiple drivers. |
| A driver may have config file issues noted. The compatible string |
| and/or driver may be in the white lists. |
| |
| dt_to_config --include-suspect --config-format \\ |
| --config ${KBUILD_OUTPUT}/.config \\ |
| arch/\${ARCH}/boot/dts/my_dts_file.dts |
| |
| Report of node / compatible string / driver tuples that should |
| be further investigated. The report can be edited to uncomment |
| the config options to select the desired tuple for a given node. |
| A node may have multiple compatible strings. A compatible string |
| may be matched by multiple drivers. A driver may have config file |
| issues noted. The compatible string and/or driver may be in the |
| white lists. |
| |
| "; |
| } |
| |
| sub set_flag() |
| { |
| # pr_flags_ref is a reference to $pr_flags |
| |
| my $pr_flags_ref = shift; |
| my $pos = shift; |
| |
| substr $$pr_flags_ref, $pos, 1, $pr_flag_value[$pos]; |
| |
| return $pr_flags; |
| } |
| |
| sub print_flags() |
| { |
| # return 1 if anything printed, else 0 |
| |
| # some fields of pn_arg_ref might not be used in this function, but |
| # extract all of them anyway. |
| my $pn_arg_ref = shift; |
| |
| my $compat = $pn_arg_ref->{compat}; |
| my $compatible_cnt = $pn_arg_ref->{compatible_cnt}; |
| my $config = $pn_arg_ref->{config}; |
| my $config_cnt = $pn_arg_ref->{config_cnt}; |
| my $driver = $pn_arg_ref->{driver}; |
| my $driver_cnt = $pn_arg_ref->{driver_cnt}; |
| my $full_node = $pn_arg_ref->{full_node}; |
| my $node = $pn_arg_ref->{node}; |
| my $node_enabled = $pn_arg_ref->{node_enabled}; |
| my $white_list = $pn_arg_ref->{white_list}; |
| |
| my $pr_flags = '-' x $num_pr_flags; |
| |
| |
| # ----- set flags in $pr_flags |
| |
| if ($compatible_cnt > 1) { |
| &set_flag(\$pr_flags, $pr_flag_pos_mcompatible); |
| } |
| |
| if ($config_cnt > 1) { |
| &set_flag(\$pr_flags, $pr_flag_pos_mconfig); |
| } |
| |
| if ($driver_cnt >= 1) { |
| &set_flag(\$pr_flags, $pr_flag_pos_driver); |
| } |
| |
| if ($driver_cnt > 1) { |
| &set_flag(\$pr_flags, $pr_flag_pos_mdriver); |
| } |
| |
| # These strings are the same way the linux kernel tests. |
| # The ePapr lists of values is slightly different. |
| if (!( |
| ($node_enabled eq "") || |
| ($node_enabled eq "ok") || |
| ($node_enabled eq "okay") |
| )) { |
| &set_flag(\$pr_flags, $pr_flag_pos_node_not_enabled); |
| } |
| |
| if ($white_list) { |
| &set_flag(\$pr_flags, $pr_flag_pos_white_list); |
| } |
| |
| if (exists($driver_hard_code_list{$compat}) || |
| (exists($driver_config_hard_code_list{$driver}) && |
| ($driver ne "no_driver"))) { |
| &set_flag(\$pr_flags, $pr_flag_pos_hard_coded); |
| } |
| |
| my @configs = split(' && ', $config); |
| for $configs (@configs) { |
| $not = $configs =~ /^!/; |
| $configs =~ s/^!//; |
| |
| if (($configs ne "no_config") && ($configs ne "no_makefile")) { |
| &set_flag(\$pr_flags, $pr_flag_pos_config); |
| } |
| |
| if (($config_cnt >= 1) && |
| ($configs !~ /CONFIG_/) && |
| (($configs ne "no_config") && ($configs ne "no_makefile"))) { |
| &set_flag(\$pr_flags, $pr_flag_pos_config_hard_coded); |
| } |
| |
| my $existing_config = $existing_config{$configs}; |
| if ($existing_config eq "m") { |
| &set_flag(\$pr_flags, $pr_flag_pos_config_m); |
| # Possible fail, depends on whether built in or |
| # module is desired. |
| &set_flag(\$pr_flags, $pr_flag_pos_config_test_fail); |
| } elsif ($existing_config eq "y") { |
| &set_flag(\$pr_flags, $pr_flag_pos_config_y); |
| if ($not) { |
| &set_flag(\$pr_flags, $pr_flag_pos_config_test_fail); |
| } |
| } elsif (($config_file) && ($configs =~ /CONFIG_/)) { |
| &set_flag(\$pr_flags, $pr_flag_pos_config_none); |
| if (!$not) { |
| &set_flag(\$pr_flags, $pr_flag_pos_config_test_fail); |
| } |
| } |
| } |
| |
| # ----- include / exclude filters |
| |
| if ($include_flag_pattern && ($pr_flags !~ m/$include_flag_pattern/)) { |
| return 0; |
| } |
| |
| if ($exclude_flag_pattern && ($pr_flags =~ m/$exclude_flag_pattern/)) { |
| return 0; |
| } |
| |
| if ($config_format) { |
| print "# "; |
| } |
| print "$pr_flags : "; |
| |
| return 1; |
| } |
| |
| |
| sub print_node() |
| { |
| # return number of lines printed |
| |
| # some fields of pn_arg_ref might not be used in this function, but |
| # extract all of them anyway. |
| my $pn_arg_ref = shift; |
| |
| my $compat = $pn_arg_ref->{compat}; |
| my $compatible_cnt = $pn_arg_ref->{compatible_cnt}; |
| my $config = $pn_arg_ref->{config}; |
| my $config_cnt = $pn_arg_ref->{config_cnt}; |
| my $driver = $pn_arg_ref->{driver}; |
| my $driver_cnt = $pn_arg_ref->{driver_cnt}; |
| my $full_node = $pn_arg_ref->{full_node}; |
| my $node = $pn_arg_ref->{node}; |
| my $node_enabled = $pn_arg_ref->{node_enabled}; |
| my $white_list = $pn_arg_ref->{white_list}; |
| |
| my $separator; |
| |
| if (! &print_flags($pn_arg_ref)) { |
| return 0; |
| } |
| |
| |
| if ($short_name) { |
| print "$node"; |
| } else { |
| print "$full_node"; |
| } |
| print " : $compat : $driver : $config : "; |
| |
| my @configs = split(' && ', $config); |
| |
| if ($config_file) { |
| for $configs (@configs) { |
| $configs =~ s/^!//; |
| my $existing_config = $existing_config{$configs}; |
| if (!$existing_config) { |
| # check for /-m/, /-y/, or /-objs/ |
| if ($configs !~ /CONFIG_/) { |
| $existing_config = "x"; |
| }; |
| }; |
| if ($existing_config) { |
| print "$separator", "$existing_config"; |
| $separator = ", "; |
| } else { |
| print "$separator", "n"; |
| $separator = ", "; |
| } |
| } |
| } else { |
| print "none"; |
| } |
| |
| print "\n"; |
| |
| if ($config_format) { |
| for $configs (@configs) { |
| $not = $configs =~ /^!/; |
| $configs =~ s/^!//; |
| my $existing_config = $existing_config{$configs}; |
| |
| if ($not) { |
| if ($configs !~ /CONFIG_/) { |
| print "# $configs\n"; |
| } elsif ($existing_config eq "m") { |
| print "# $configs is m\n"; |
| print "# $configs=n\n"; |
| } elsif ($existing_config eq "y") { |
| print "# $configs is set\n"; |
| print "# $configs=n\n"; |
| } else { |
| print "# $configs is not set\n"; |
| print "# $configs=n\n"; |
| } |
| |
| } else { |
| if ($configs !~ /CONFIG_/) { |
| print "# $configs\n"; |
| } elsif ($existing_config eq "m") { |
| print "# $configs is m\n"; |
| print "# $configs=y\n"; |
| } elsif ($existing_config eq "y") { |
| print "# $configs is set\n"; |
| print "# $configs=y\n"; |
| } else { |
| print "# $configs is not set\n"; |
| print "# $configs=y\n"; |
| } |
| } |
| } |
| } |
| |
| return 1; |
| } |
| |
| |
| sub scan_makefile |
| { |
| my $pn_arg_ref = shift; |
| my $driver = shift; |
| |
| # ----- Find Kconfig symbols that enable driver |
| |
| my ($dir, $base) = $driver =~ m{(.*)/(.*).c}; |
| |
| my $makefile = $dir . "/Makefile"; |
| if (! -r $makefile) { |
| $makefile = $dir . "/Kbuild"; |
| } |
| if (! -r $makefile) { |
| my $config; |
| |
| $config = 'no_makefile'; |
| push @{ $driver_config{$driver} }, $config; |
| return; |
| } |
| |
| if (!open(MAKEFILE_FILE, "<", "$makefile")) { |
| return; |
| } |
| |
| my $line; |
| my @config; |
| my @if_config; |
| my @make_var; |
| |
| NEXT_LINE: |
| while ($next_line = <MAKEFILE_FILE>) { |
| my $config; |
| my $if_config; |
| my $ifdef; |
| my $ifeq; |
| my $ifndef; |
| my $ifneq; |
| my $ifdef_config; |
| my $ifeq_config; |
| my $ifndef_config; |
| my $ifneq_config; |
| |
| chomp($next_line); |
| $line = $line . $next_line; |
| if ($next_line =~ /\\$/) { |
| $line =~ s/\\$/ /; |
| next NEXT_LINE; |
| } |
| if ($line =~ /^\s*#/) { |
| $line = ""; |
| next NEXT_LINE; |
| } |
| |
| # ----- condition ... else ... endif |
| |
| if ($line =~ /^([ ]\s*|)else\b/) { |
| $if_config = "!" . pop @if_config; |
| $if_config =~ s/^!!//; |
| push @if_config, $if_config; |
| $line =~ s/^([ ]\s*|)else\b//; |
| } |
| |
| ($null, $ifeq_config, $ifeq_config_val ) = $line =~ /^([ ]\s*|)ifeq\b.*\b(CONFIG_[A-Za-z0-9_]*)(.*)/; |
| ($null, $ifneq_config, $ifneq_config_val) = $line =~ /^([ ]\s*|)ifneq\b.*\b(CONFIG_[A-Za-z0-9_]*)(.*)/; |
| ($null, $ifdef_config) = $line =~ /^([ ]\s*|)ifdef\b.*\b(CONFIG_[A-Za-z0-9_]*)/; |
| ($null, $ifndef_config) = $line =~ /^([ ]\s*|)ifndef\b.*\b(CONFIG_[A-Za-z0-9_]*)/; |
| |
| ($null, $ifeq) = $line =~ /^([ ]\s*|)ifeq\b\s*(.*)/; |
| ($null, $ifneq) = $line =~ /^([ ]\s*|)ifneq\b\s*(.*)/; |
| ($null, $ifdef) = $line =~ /^([ ]\s*|)ifdef\b\s*(.*)/; |
| ($null, $ifndef) = $line =~ /^([ ]\s*|)ifndef\b\s*(.*)/; |
| |
| # Order of tests is important. Prefer "CONFIG_*" regex match over |
| # less specific regex match. |
| if ($ifdef_config) { |
| $if_config = $ifdef_config; |
| } elsif ($ifeq_config) { |
| if ($ifeq_config_val =~ /y/) { |
| $if_config = $ifeq_config; |
| } else { |
| $if_config = "!" . $ifeq_config; |
| } |
| } elsif ($ifndef_config) { |
| $if_config = "!" . $ifndef_config; |
| } elsif ($ifneq_config) { |
| if ($ifneq_config_val =~ /y/) { |
| $if_config = "!" . $ifneq_config; |
| } else { |
| $if_config = $ifneq_config; |
| } |
| } elsif ($ifdef) { |
| $if_config = $ifdef; |
| } elsif ($ifeq) { |
| $if_config = $ifeq; |
| } elsif ($ifndef) { |
| $if_config = "!" . $ifndef; |
| } elsif ($ifneq) { |
| $if_config = "!" . $ifneq; |
| } else { |
| $if_config = ""; |
| } |
| $if_config =~ s/^!!//; |
| |
| if ($if_config) { |
| push @if_config, $if_config; |
| $line = ""; |
| next NEXT_LINE; |
| } |
| |
| if ($line =~ /^([ ]\s*|)endif\b/) { |
| pop @if_config; |
| $line = ""; |
| next NEXT_LINE; |
| } |
| |
| # ----- simple CONFIG_* = *.[co] or xxx [+:?]*= *.[co] |
| # Most makefiles select on *.o, but |
| # arch/powerpc/boot/Makefile selects on *.c |
| |
| ($config) = $line =~ /(CONFIG_[A-Za-z0-9_]+).*\b$base.[co]\b/; |
| |
| # ----- match a make variable instead of *.[co] |
| # Recursively expanded variables are not handled. |
| |
| if (!$config) { |
| my $make_var; |
| ($make_var) = $line =~ /\s*(\S+?)\s*[+:\?]*=.*\b$base.[co]\b/; |
| if ($make_var) { |
| if ($make_var =~ /[a-zA-Z0-9]+-[ym]/) { |
| $config = $make_var; |
| } elsif ($make_var =~ /[a-zA-Z0-9]+-objs/) { |
| $config = $make_var; |
| } else { |
| push @make_var, $make_var; |
| } |
| } |
| } |
| |
| if (!$config) { |
| for $make_var (@make_var) { |
| ($config) = $line =~ /(CONFIG_[A-Za-z0-9_]+).*\b$make_var\b/; |
| last if ($config); |
| } |
| } |
| |
| if (!$config) { |
| for $make_var (@make_var) { |
| ($config) = $line =~ /\s*(\S+?)\s*[+:\?]*=.*\b$make_var\b/; |
| last if ($config); |
| } |
| } |
| |
| # ----- next if no config found |
| |
| if (!$config) { |
| $line = ""; |
| next NEXT_LINE; |
| } |
| |
| for $if_config (@if_config) { |
| $config = $if_config . " && " . $config; |
| } |
| |
| push @{ $driver_config{$driver} }, $config; |
| |
| $line = ""; |
| } |
| |
| close(MAKEFILE_FILE); |
| |
| } |
| |
| |
| sub find_kconfig |
| { |
| my $pn_arg_ref = shift; |
| my $driver = shift; |
| |
| my $lines_printed = 0; |
| my @configs; |
| |
| if (!@{ $driver_config{$driver} }) { |
| &scan_makefile($pn_arg_ref, $driver); |
| if (!@{ $driver_config{$driver} }) { |
| push @{ $driver_config{$driver} }, "no_config"; |
| } |
| } |
| |
| @configs = @{ $driver_config{$driver} }; |
| |
| $$pn_arg_ref{config_cnt} = $#configs + 1; |
| for my $config (@configs) { |
| $$pn_arg_ref{config} = $config; |
| $lines_printed += &print_node($pn_arg_ref); |
| } |
| |
| return $lines_printed; |
| } |
| |
| |
| sub handle_compatible() |
| { |
| my $full_node = shift; |
| my $node = shift; |
| my $compatible = shift; |
| my $node_enabled = shift; |
| |
| my $compat; |
| my $lines_printed = 0; |
| my %pn_arg = (); |
| |
| return if (!$node or !$compatible); |
| |
| # Do not process compatible property of root node, |
| # it is used to match board, not to bind a driver. |
| return if ($node eq "/"); |
| |
| $pn_arg{full_node} = $full_node; |
| $pn_arg{node} = $node; |
| $pn_arg{node_enabled} = $node_enabled; |
| |
| my @compatibles = split('", "', $compatible); |
| |
| $compatibles[0] =~ s/^"//; |
| $compatibles[$#compatibles] =~ s/"$//; |
| |
| $pn_arg{compatible_cnt} = $#compatibles + 1; |
| |
| COMPAT: |
| for $compat (@compatibles) { |
| |
| $pn_arg{compat} = $compat; |
| $pn_arg{driver_cnt} = 0; |
| $pn_arg{white_list} = 0; |
| |
| if (exists($compat_white_list{$compat})) { |
| $pn_arg{white_list} = 1; |
| $pn_arg{driver} = "no_driver"; |
| $pn_arg{config_cnt} = 1; |
| $pn_arg{config} = "no_config"; |
| $lines_printed += &print_node(\%pn_arg); |
| next COMPAT; |
| } |
| |
| # ----- if compat previously seen, use cached info |
| |
| if (exists($compat_driver{$compat})) { |
| for my $driver (@{ $compat_driver{$compat} }) { |
| $pn_arg{driver} = $driver; |
| $pn_arg{driver_cnt} = $driver_count{$compat}; |
| $pn_arg{config_cnt} = $#{ $driver_config{$driver}} + 1; |
| |
| for my $config (@{ $driver_config{$driver} }) { |
| $pn_arg{config} = $config; |
| $lines_printed += &print_node(\%pn_arg); |
| } |
| |
| if (!@{ $driver_config{$driver} }) { |
| # no config cached yet |
| # $driver in %driver_hard_code_list |
| # but not %driver_config_hard_code_list |
| $lines_printed += &find_kconfig(\%pn_arg, $driver); |
| } |
| } |
| next COMPAT; |
| } |
| |
| |
| # ----- Find drivers (source files that contain compatible) |
| |
| # this will miss arch/sparc/include/asm/parport.h |
| # It is better to move the compatible out of the .h |
| # than to add *.h. to the files list, because *.h generates |
| # a lot of false negatives. |
| my $files = '"*.c"'; |
| my $drivers = `git grep -l '"$compat"' -- $files`; |
| chomp($drivers); |
| if ($drivers eq "") { |
| $pn_arg{driver} = "no_driver"; |
| $pn_arg{config_cnt} = 1; |
| $pn_arg{config} = "no_config"; |
| push @{ $compat_driver{$compat} }, "no_driver"; |
| $lines_printed += &print_node(\%pn_arg); |
| next COMPAT; |
| } |
| |
| my @drivers = split("\n", $drivers); |
| $driver_count{$compat} = $#drivers + 1; |
| $pn_arg{driver_cnt} = $#drivers + 1; |
| |
| DRIVER: |
| for my $driver (@drivers) { |
| push @{ $compat_driver{$compat} }, $driver; |
| $pn_arg{driver} = $driver; |
| |
| # ----- if driver previously seen, use cached info |
| |
| $pn_arg{config_cnt} = $#{ $driver_config{$driver} } + 1; |
| for my $config (@{ $driver_config{$driver} }) { |
| $pn_arg{config} = $config; |
| $lines_printed += &print_node(\%pn_arg); |
| } |
| if (@{ $driver_config{$driver} }) { |
| next DRIVER; |
| } |
| |
| if ($black_list_driver) { |
| for $black (@black_list_driver) { |
| next DRIVER if ($driver =~ /^$black$/); |
| } |
| } |
| |
| |
| # ----- Find Kconfig symbols that enable driver |
| |
| $lines_printed += &find_kconfig(\%pn_arg, $driver); |
| |
| } |
| } |
| |
| # White space (line) between nodes for readability. |
| # Each node may report several compatibles. |
| # For each compatible, multiple drivers may be reported. |
| # For each driver, multiple CONFIG_ options may be reported. |
| if ($lines_printed) { |
| print "\n"; |
| } |
| } |
| |
| sub read_dts() |
| { |
| my $file = shift; |
| |
| my $compatible = ""; |
| my $line; |
| my $node = ""; |
| my $node_enabled = ""; |
| |
| if (! -r $file) { |
| print STDERR "file '$file' is not readable or does not exist\n"; |
| exit 3; |
| } |
| |
| if (!open(DT_FILE, "-|", "$dtx_diff $file")) { |
| print STDERR "\n"; |
| print STDERR "shell command failed:\n"; |
| print STDERR " $dtx_diff $file\n"; |
| print STDERR "\n"; |
| exit 3; |
| } |
| |
| FILE: |
| while ($line = <DT_FILE>) { |
| chomp($line); |
| |
| if ($line =~ /{/) { |
| |
| &handle_compatible($full_node, $node, $compatible, |
| $node_enabled); |
| |
| while ($end_node_count-- > 0) { |
| pop @full_node; |
| }; |
| $end_node_count = 0; |
| $full_node = @full_node[-1]; |
| |
| $node = $line; |
| $node =~ s/^\s*(.*)\s+\{.*/$1/; |
| $node =~ s/.*: //; |
| if ($node eq '/' ) { |
| $full_node = '/'; |
| } elsif ($full_node ne '/') { |
| $full_node = $full_node . '/' . $node; |
| } else { |
| $full_node = '/' . $node; |
| } |
| push @full_node, $full_node; |
| |
| $compatible = ""; |
| $node_enabled = ""; |
| next FILE; |
| } |
| |
| if ($line =~ /}/) { |
| $end_node_count++; |
| } |
| |
| if ($line =~ /(\s+|^)status =/) { |
| $node_enabled = $line; |
| $node_enabled =~ s/^\t*//; |
| $node_enabled =~ s/^status = "//; |
| $node_enabled =~ s/";$//; |
| next FILE; |
| } |
| |
| if ($line =~ /(\s+|^)compatible =/) { |
| # Extract all compatible entries for this device |
| # White space matching here and in handle_compatible() is |
| # precise, because input format is the output of dtc, |
| # which is invoked by dtx_diff. |
| $compatible = $line; |
| $compatible =~ s/^\t*//; |
| $compatible =~ s/^compatible = //; |
| $compatible =~ s/;$//; |
| } |
| } |
| |
| &handle_compatible($full_node, $node, $compatible, $node_enabled); |
| |
| close(DT_FILE); |
| } |
| |
| |
| sub read_config_file() |
| { |
| if (! -r $config_file) { |
| print STDERR "file '$config_file' is not readable or does not exist\n"; |
| exit 2; |
| } |
| |
| if (!open(CONFIG_FILE, "<", "$config_file")) { |
| print STDERR "open $config_file failed\n"; |
| exit 2; |
| } |
| |
| my @line; |
| |
| LINE: |
| while ($line = <CONFIG_FILE>) { |
| chomp($line); |
| next LINE if ($line =~ /^\s*#/); |
| next LINE if ($line =~ /^\s*$/); |
| @line = split /=/, $line; |
| $existing_config{@line[0]} = @line[1]; |
| } |
| |
| close(CONFIG_FILE); |
| } |
| |
| |
| sub cmd_line_err() |
| { |
| my $msg = shift; |
| |
| print STDERR "\n"; |
| print STDERR " ERROR processing command line options\n"; |
| print STDERR " $msg\n" if ($msg ne ""); |
| print STDERR "\n"; |
| print STDERR " For help, type '$script_name --help'\n"; |
| print STDERR "\n"; |
| } |
| |
| |
| # ----------------------------------------------------------------------------- |
| # program entry point |
| |
| Getopt::Long::Configure("no_ignore_case", "bundling"); |
| |
| if (!GetOptions( |
| "c=s" => \$config_file, |
| "config=s" => \$config_file, |
| "config-format" => \$config_format, |
| "exclude-flag=s" => \@exclude_flag, |
| "h" => \$help, |
| "help" => \$help, |
| "black-list-driver" => \$black_list_driver, |
| "white-list-config" => \$white_list_config, |
| "white-list-driver" => \$white_list_driver, |
| "include-flag=s" => \@include_flag, |
| "include-suspect" => \$include_suspect, |
| "short-name" => \$short_name, |
| "show-lists" => \$show_lists, |
| "version" => \$version, |
| )) { |
| |
| &cmd_line_err(); |
| |
| exit 1; |
| } |
| |
| |
| my $exit_after_messages = 0; |
| |
| if ($version) { |
| print STDERR "\n$script_name $VUFX\n\n"; |
| $exit_after_messages = 1; |
| } |
| |
| |
| if ($help) { |
| &usage; |
| $exit_after_messages = 1; |
| } |
| |
| |
| if ($show_lists) { |
| |
| print "\n"; |
| print "These compatibles are hard coded to have no driver.\n"; |
| print "\n"; |
| for my $compat (sort keys %compat_white_list) { |
| print " $compat\n"; |
| } |
| |
| |
| print "\n\n"; |
| print "The driver for these compatibles is hard coded (white list).\n"; |
| print "\n"; |
| my $max_compat_len = 0; |
| for my $compat (sort keys %driver_hard_code_list) { |
| if (length $compat > $max_compat_len) { |
| $max_compat_len = length $compat; |
| } |
| } |
| for my $compat (sort keys %driver_hard_code_list) { |
| if (($driver ne "hardcoded_no_driver") && ($driver ne "no_driver")) { |
| my $first = 1; |
| for my $driver (@{ $driver_hard_code_list{$compat} }) { |
| if ($first) { |
| print " $compat"; |
| print " " x ($max_compat_len - length $compat); |
| $first = 0; |
| } else { |
| print " ", " " x $max_compat_len; |
| } |
| print " $driver\n"; |
| } |
| } |
| } |
| |
| |
| print "\n\n"; |
| print "The configuration option for these drivers is hard coded (white list).\n"; |
| print "\n"; |
| my $max_driver_len = 0; |
| for my $driver (sort keys %driver_config_hard_code_list) { |
| if (length $driver > $max_driver_len) { |
| $max_driver_len = length $driver; |
| } |
| } |
| for my $driver (sort keys %driver_config_hard_code_list) { |
| if (($driver ne "hardcoded_no_driver") && ($driver ne "no_driver")) { |
| my $first = 1; |
| for my $config (@{ $driver_config_hard_code_list{$driver} }) { |
| if ($first) { |
| print " $driver"; |
| print " " x ($max_driver_len - length $driver); |
| $first = 0; |
| } else { |
| print " ", " " x $max_driver_len; |
| } |
| print " $config\n"; |
| } |
| } |
| } |
| |
| |
| print "\n\n"; |
| print "These drivers are black listed.\n"; |
| print "\n"; |
| for my $driver (@black_list_driver) { |
| print " $driver\n"; |
| } |
| |
| print "\n"; |
| |
| $exit_after_messages = 1; |
| } |
| |
| |
| if ($exit_after_messages) { |
| exit 0; |
| } |
| |
| |
| $exclude_flag_pattern = "["; |
| for my $exclude_flag (@exclude_flag) { |
| $exclude_flag_pattern = $exclude_flag_pattern . $exclude_flag; |
| } |
| $exclude_flag_pattern = $exclude_flag_pattern . "]"; |
| # clean up if empty |
| $exclude_flag_pattern =~ s/^\[\]$//; |
| |
| |
| $include_flag_pattern = "["; |
| for my $include_flag (@include_flag) { |
| $include_flag_pattern = $include_flag_pattern . $include_flag; |
| } |
| $include_flag_pattern = $include_flag_pattern . "]"; |
| # clean up if empty |
| $include_flag_pattern =~ s/^\[\]$//; |
| |
| |
| if ($exclude_flag_pattern) { |
| my $found = 0; |
| for $pr_flag_value (@pr_flag_value) { |
| if ($exclude_flag_pattern =~ m/$pr_flag_value/) { |
| $found = 1; |
| } |
| } |
| if (!$found) { |
| &cmd_line_err("invalid value for FLAG in --exclude-flag\n"); |
| exit 1 |
| } |
| } |
| |
| if ($include_flag_pattern) { |
| my $found = 0; |
| for $pr_flag_value (@pr_flag_value) { |
| if ($include_flag_pattern =~ m/$pr_flag_value/) { |
| $found = 1; |
| } |
| } |
| if (!$found) { |
| &cmd_line_err("invalid value for FLAG in --include-flag\n"); |
| exit 1 |
| } |
| } |
| |
| if ($include_suspect) { |
| $include_flag_pattern =~ s/\[//; |
| $include_flag_pattern =~ s/\]//; |
| $include_flag_pattern = "[" . $include_flag_pattern . "A-Z]"; |
| } |
| |
| if ($exclude_flag_pattern =~ m/$include_flag_pattern/) { |
| &cmd_line_err("the same flag appears in both --exclude-flag and --include-flag or --include-suspect\n"); |
| exit 1 |
| } |
| |
| |
| # ($#ARGV < 0) is valid for --help, --version |
| if ($#ARGV < 0) { |
| &cmd_line_err("device-tree... is required"); |
| exit 1 |
| } |
| |
| |
| if ($config_file) { |
| &read_config_file(); |
| } |
| |
| |
| # avoid pushing duplicates for this value |
| $driver = "hardcoded_no_driver"; |
| for $config ( @{ $driver_config_hard_code_list{$driver} } ) { |
| push @{ $driver_config{$driver} }, $config; |
| } |
| |
| if ($white_list_driver) { |
| for my $compat (keys %driver_hard_code_list) { |
| for my $driver (@{ $driver_hard_code_list{$compat} }) { |
| push @{ $compat_driver{$compat} }, $driver; |
| if ($driver ne "hardcoded_no_driver") { |
| $driver_count{$compat} = scalar @{ $compat_driver{$compat} }; |
| } |
| } |
| } |
| } |
| |
| if ($white_list_config) { |
| for my $driver (keys %driver_config_hard_code_list) { |
| if ($driver ne "hardcoded_no_driver") { |
| for $config ( @{ $driver_config_hard_code_list{$driver} } ) { |
| push @{ $driver_config{$driver} }, $config; |
| } |
| } |
| } |
| } |
| |
| if (-x "scripts/dtc/dtx_diff") { |
| $dtx_diff = "scripts/dtc/dtx_diff"; |
| } else { |
| |
| print STDERR "\n"; |
| print STDERR "$script_name must be run from the root directory of a Linux kernel tree\n"; |
| print STDERR "\n"; |
| exit 3; |
| } |
| |
| for $file (@ARGV) { |
| &read_dts($file); |
| } |
