mirrors/linux
1
0
Fork 1
mirror of https://github.com/torvalds/linux.git synced 2025-11-04 10:40:15 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: get_abi.pl: Better handle multiple What parameters

Browse source 
Using a comma here is problematic, as some What: expressions
may already contain a comma. So, use \xac character instead.

Signed-off-by: Mauro Carvalho Chehab <mchehab+huawei@kernel.org>
Link: https://lore.kernel.org/r/e83e7ffaf3429f8dfca00d1d01653ecfa36f6119.1631957565.git.mchehab+huawei@kernel.org
Signed-off-by: Greg Kroah-Hartman <gregkh@linuxfoundation.org>
This commit is contained in:
Mauro Carvalho Chehab 2021-09-18 11:52:11 +02:00 committed by Greg Kroah-Hartman
parent eb74c39abd
commit ab9c14805b
1 changed files with 4 additions and 4 deletions
repo.diff.show_diff_stats Download patch file Download diff file Expand all files Collapse all files

8
scripts/get_abi.pl
View file

@ -129,12 +129,12 @@ sub parse_abi {
push @{$symbols{$content}->{file}}, " $file:" . ($ln - 1); push @{$symbols{$content}->{file}}, " $file:" . ($ln - 1);
if ($tag =~ m/what/) { if ($tag =~ m/what/) {
$what .= ", " . $content; $what .= "\xac" . $content;
} else { } else {
if ($what) { if ($what) {
parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description}); parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description});
foreach my $w(split /, /, $what) { foreach my $w(split /\xac/, $what) {
$symbols{$w}->{xref} = $what; $symbols{$w}->{xref} = $what;
}; };
} }
@ -239,7 +239,7 @@ sub parse_abi {
if ($what) { if ($what) {
parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description}); parse_error($file, $ln, "What '$what' doesn't have a description", "") if (!$data{$what}->{description});
foreach my $w(split /, /,$what) { foreach my $w(split /\xac/,$what) {
$symbols{$w}->{xref} = $what; $symbols{$w}->{xref} = $what;
}; };
} }
@ -328,7 +328,7 @@ sub output_rest {
printf ".. _%s:\n\n", $data{$what}->{label}; printf ".. _%s:\n\n", $data{$what}->{label};
my @names = split /, /,$w; my @names = split /\xac/,$w;
my $len = 0; my $len = 0;
foreach my $name (@names) { foreach my $name (@names) {