* [PATCH 2/2] scripts: dt_to_config: Fix odd formatting
2023-10-26 13:55 [PATCH 0/2] scripts: dt_to_config: Fix nul-separated compatible values Geert Uytterhoeven
2023-10-26 13:55 ` [PATCH 1/2] " Geert Uytterhoeven
@ 2023-10-26 13:55 ` Geert Uytterhoeven
1 sibling, 0 replies; 3+ messages in thread
From: Geert Uytterhoeven @ 2023-10-26 13:55 UTC (permalink / raw)
To: Rob Herring, Frank Rowand; +Cc: devicetree, linux-kernel, Geert Uytterhoeven
The dt_to_config scripts use 7 spaces for the first indentation step,
and 8 spaces for any subsequent step, which is rather uncommon.
Replace spaces by TABs and reformat/realign white-space.
No functional change.
Signed-off-by: Geert Uytterhoeven <geert+renesas@glider.be>
---
scripts/dtc/dt_to_config | 1766 +++++++++++++++++++-------------------
1 file changed, 879 insertions(+), 887 deletions(-)
diff --git a/scripts/dtc/dt_to_config b/scripts/dtc/dt_to_config
index 563362f363e8cec1..024f6fc71602402c 100755
--- a/scripts/dtc/dt_to_config
+++ b/scripts/dtc/dt_to_config
@@ -19,19 +19,19 @@ $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;
+$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;
@@ -42,39 +42,39 @@ $num_pr_flags = $pr_flag_pos_config_test_fail + 1;
@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"
+ "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
+%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',
+ 'none' => '1',
+ 'pci' => '1',
+ 'simple-bus' => '1',
);
# Will not search for drivers for these compatibles.
@@ -88,59 +88,59 @@ $num_pr_flags = $pr_flag_pos_config_test_fail + 1;
# 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'],
+ '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'],
+ # 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'],
);
@@ -152,14 +152,14 @@ $num_pr_flags = $pr_flag_pos_config_test_fail + 1;
# black_list_driver.
@black_list_driver = (
- # kvm no longer a problem after commit 503a62862e8f in 4.7-rc1
- # 'virt/kvm/arm/.*',
+ # kvm no longer a problem after commit 503a62862e8f in 4.7-rc1
+ # 'virt/kvm/arm/.*',
);
sub usage()
{
- print
+ print
"
Usage: $script_name [options] device-tree...
@@ -231,11 +231,11 @@ Valid options:
FLAG values:
";
- for ($k = 0; $k < $num_pr_flags; $k++) {
- printf " %s %s\n", $pr_flag_value[$k], $pr_flag_help[$k];
- }
+ for ($k = 0; $k < $num_pr_flags; $k++) {
+ printf " %s %s\n", $pr_flag_value[$k], $pr_flag_help[$k];
+ }
- print
+ print
"
Upper case letters indicate potential issues or problems.
@@ -243,10 +243,10 @@ Valid options:
";
- $k = $pr_flag_pos_hard_coded;
- printf " %s %s\n", $pr_flag_value[$k], $pr_flag_help[$k];
+ $k = $pr_flag_pos_hard_coded;
+ printf " %s %s\n", $pr_flag_value[$k], $pr_flag_help[$k];
- print
+ 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.
@@ -266,718 +266,715 @@ Valid options:
EXAMPLES:
- dt_to_config arch/arm/boot/dts/my_dts_file.dts
+ dt_to_config arch/arm/boot/dts/my_dts_file.dts
- Basic report.
+ Basic report.
- dt_to_config \\
+ dt_to_config \\
--config \${KBUILD_OUTPUT}/.config \\
arch/\${ARCH}/boot/dts/my_dts_file.dts
- Full report, with config file issues noted.
+ Full report, with config file issues noted.
- dt_to_config --include-suspect \\
+ 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.
+ 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 \\
+ 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.
+ 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
+ # pr_flags_ref is a reference to $pr_flags
- my $pr_flags_ref = shift;
- my $pos = shift;
+ my $pr_flags_ref = shift;
+ my $pos = shift;
- substr $$pr_flags_ref, $pos, 1, $pr_flag_value[$pos];
+ substr $$pr_flags_ref, $pos, 1, $pr_flag_value[$pos];
- return $pr_flags;
+ 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;
+ # 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;
+ # 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);
-
+ 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 $pn_arg_ref = shift;
+ my $driver = shift;
- my $lines_printed = 0;
- my @configs;
+ 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";
- }
- }
+ if (!@{ $driver_config{$driver} }) {
+ &scan_makefile($pn_arg_ref, $driver);
+ if (!@{ $driver_config{$driver} }) {
+ push @{ $driver_config{$driver} }, "no_config";
+ }
+ }
- @configs = @{ $driver_config{$driver} };
+ @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);
- }
+ $$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;
+ 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;
-
- $compatible =~ s/\\0/", "/g;
- 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";
- }
+ 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;
+
+ $compatible =~ s/\\0/", "/g;
+ 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);
+ 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);
+ 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";
+ 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";
}
@@ -987,125 +984,121 @@ sub cmd_line_err()
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;
+ "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;
+ print STDERR "\n$script_name $VUFX\n\n";
+ $exit_after_messages = 1;
}
if ($help) {
- &usage;
- $exit_after_messages = 1;
+ &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;
+ 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;
+ 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 . $exclude_flag;
}
$exclude_flag_pattern = $exclude_flag_pattern . "]";
# clean up if empty
@@ -1114,7 +1107,7 @@ $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 . $include_flag;
}
$include_flag_pattern = $include_flag_pattern . "]";
# clean up if empty
@@ -1122,92 +1115,91 @@ $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
- }
+ 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
- }
+ 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]";
+ $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
+ &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
+ &cmd_line_err("device-tree... is required");
+ exit 1
}
if ($config_file) {
- &read_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;
+ 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} };
- }
- }
- }
+ 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;
- }
- }
- }
+ 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";
+ $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;
+ 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);
+ &read_dts($file);
}
--
2.34.1
^ permalink raw reply [flat|nested] 3+ messages in thread