| kernel-doc (14e77332e74603efab8347c89d3cda447c3b97c9) | kernel-doc (03699f271de1f4df6369cd379506539cd7d590d3) |
|---|---|
| 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> ## --- 1434 unchanged lines hidden (view full) --- 1443 my $arg_expr = qr{\([^\),]+}; 1444 while ($args =~ /$arg_expr,/) { 1445 $args =~ s/($arg_expr),/$1#/g; 1446 } 1447 1448 foreach my $arg (split($splitter, $args)) { 1449 # strip comments 1450 $arg =~ s/\/\*.*\*\///; | 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> ## --- 1434 unchanged lines hidden (view full) --- 1443 my $arg_expr = qr{\([^\),]+}; 1444 while ($args =~ /$arg_expr,/) { 1445 $args =~ s/($arg_expr),/$1#/g; 1446 } 1447 1448 foreach my $arg (split($splitter, $args)) { 1449 # strip comments 1450 $arg =~ s/\/\*.*\*\///; |
| 1451 # ignore argument attributes 1452 $arg =~ s/\sPOS0?\s/ /; |
|
| 1451 # strip leading/trailing spaces 1452 $arg =~ s/^\s*//; 1453 $arg =~ s/\s*$//; 1454 $arg =~ s/\s+/ /; 1455 1456 if ($arg =~ /^#/) { 1457 # Treat preprocessor directive as a typeless variable just to fill 1458 # corresponding data structures "correctly". Catch it later in --- 193 unchanged lines hidden (view full) --- 1652 $prototype =~ s/^static +//; 1653 $prototype =~ s/^extern +//; 1654 $prototype =~ s/^asmlinkage +//; 1655 $prototype =~ s/^inline +//; 1656 $prototype =~ s/^__inline__ +//; 1657 $prototype =~ s/^__inline +//; 1658 $prototype =~ s/^__always_inline +//; 1659 $prototype =~ s/^noinline +//; | 1453 # strip leading/trailing spaces 1454 $arg =~ s/^\s*//; 1455 $arg =~ s/\s*$//; 1456 $arg =~ s/\s+/ /; 1457 1458 if ($arg =~ /^#/) { 1459 # Treat preprocessor directive as a typeless variable just to fill 1460 # corresponding data structures "correctly". Catch it later in --- 193 unchanged lines hidden (view full) --- 1654 $prototype =~ s/^static +//; 1655 $prototype =~ s/^extern +//; 1656 $prototype =~ s/^asmlinkage +//; 1657 $prototype =~ s/^inline +//; 1658 $prototype =~ s/^__inline__ +//; 1659 $prototype =~ s/^__inline +//; 1660 $prototype =~ s/^__always_inline +//; 1661 $prototype =~ s/^noinline +//; |
| 1662 $prototype =~ s/^__FORTIFY_INLINE +//; |
|
| 1660 $prototype =~ s/__init +//; 1661 $prototype =~ s/__init_or_module +//; 1662 $prototype =~ s/__deprecated +//; 1663 $prototype =~ s/__flatten +//; 1664 $prototype =~ s/__meminit +//; 1665 $prototype =~ s/__must_check +//; 1666 $prototype =~ s/__weak +//; 1667 $prototype =~ s/__sched +//; 1668 $prototype =~ s/__printf\s*\(\s*\d*\s*,\s*\d*\s*\) +//; | 1663 $prototype =~ s/__init +//; 1664 $prototype =~ s/__init_or_module +//; 1665 $prototype =~ s/__deprecated +//; 1666 $prototype =~ s/__flatten +//; 1667 $prototype =~ s/__meminit +//; 1668 $prototype =~ s/__must_check +//; 1669 $prototype =~ s/__weak +//; 1670 $prototype =~ s/__sched +//; 1671 $prototype =~ s/__printf\s*\(\s*\d*\s*,\s*\d*\s*\) +//; |
| 1669 $prototype =~ s/__alloc_size\s*\(\s*\d+\s*(?:,\s*\d+\s*)?\) +//; | 1672 $prototype =~ s/__(?:re)?alloc_size\s*\(\s*\d+\s*(?:,\s*\d+\s*)?\) +//; 1673 $prototype =~ s/__diagnose_as\s*\(\s*\S+\s*(?:,\s*\d+\s*)*\) +//; |
| 1670 my $define = $prototype =~ s/^#\s*define\s+//; #ak added 1671 $prototype =~ s/__attribute_const__ +//; 1672 $prototype =~ s/__attribute__\s*\(\( 1673 (?: 1674 [\w\s]++ # attribute name 1675 (?:\([^)]*+\))? # attribute arguments 1676 \s*+,? # optional comma at the end 1677 )+ --- 814 unchanged lines hidden --- | 1674 my $define = $prototype =~ s/^#\s*define\s+//; #ak added 1675 $prototype =~ s/__attribute_const__ +//; 1676 $prototype =~ s/__attribute__\s*\(\( 1677 (?: 1678 [\w\s]++ # attribute name 1679 (?:\([^)]*+\))? # attribute arguments 1680 \s*+,? # optional comma at the end 1681 )+ --- 814 unchanged lines hidden --- |