| kernel-doc (0891f959935203e6c0e6c3e62968da56eedba6bf) | kernel-doc (d404d57955a6f67365423f9d0b89ad1881799087) |
|---|---|
| 1#!/usr/bin/env perl 2# SPDX-License-Identifier: GPL-2.0 3 4use warnings; 5use strict; 6 7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## --- 1106 unchanged lines hidden (view full) --- 1115 } else { 1116 my $type; 1117 my $names; 1118 $arg =~ s/^\s+//; 1119 $arg =~ s/\s+$//; 1120 # Handle bitmaps 1121 $arg =~ s/:\s*\d+\s*//g; 1122 # Handle arrays | 1#!/usr/bin/env perl 2# SPDX-License-Identifier: GPL-2.0 3 4use warnings; 5use strict; 6 7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## --- 1106 unchanged lines hidden (view full) --- 1115 } else { 1116 my $type; 1117 my $names; 1118 $arg =~ s/^\s+//; 1119 $arg =~ s/\s+$//; 1120 # Handle bitmaps 1121 $arg =~ s/:\s*\d+\s*//g; 1122 # Handle arrays |
| 1123 $arg =~ s/\[\S+\]//g; | 1123 $arg =~ s/\[.*\]//g; |
| 1124 # The type may have multiple words, 1125 # and multiple IDs can be defined, like: 1126 # const struct foo, *bar, foobar 1127 # So, we remove spaces when parsing the 1128 # names, in order to match just names 1129 # and commas for the names 1130 $arg =~ s/\s*,\s*/,/g; 1131 if ($arg =~ m/(.*)\s+([\S+,]+)/) { --- 1091 unchanged lines hidden --- | 1124 # The type may have multiple words, 1125 # and multiple IDs can be defined, like: 1126 # const struct foo, *bar, foobar 1127 # So, we remove spaces when parsing the 1128 # names, in order to match just names 1129 # and commas for the names 1130 $arg =~ s/\s*,\s*/,/g; 1131 if ($arg =~ m/(.*)\s+([\S+,]+)/) { --- 1091 unchanged lines hidden --- |