kernel-doc (3556108eb40a35836df1ef8228eca7ffa7dab764) kernel-doc (7ae281b05c0cebef4ef0643e74300fbe84760c3c)
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> ##

--- 1757 unchanged lines hidden (view full) ---

1766 elsif ($x =~ /([^\{]*)/) {
1767 $prototype .= $1;
1768 }
1769
1770 if (($x =~ /\{/) || ($x =~ /\#\s*define/) || ($x =~ /;/)) {
1771 $prototype =~ s@/\*.*?\*/@@gos; # strip comments.
1772 $prototype =~ s@[\r\n]+@ @gos; # strip newlines/cr's.
1773 $prototype =~ s@^\s+@@gos; # strip leading spaces
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> ##

--- 1757 unchanged lines hidden (view full) ---

1766 elsif ($x =~ /([^\{]*)/) {
1767 $prototype .= $1;
1768 }
1769
1770 if (($x =~ /\{/) || ($x =~ /\#\s*define/) || ($x =~ /;/)) {
1771 $prototype =~ s@/\*.*?\*/@@gos; # strip comments.
1772 $prototype =~ s@[\r\n]+@ @gos; # strip newlines/cr's.
1773 $prototype =~ s@^\s+@@gos; # strip leading spaces
1774
1775 # Handle prototypes for function pointers like:
1776 # int (*pcs_config)(struct foo)
1777 $prototype =~ s@^(\S+\s+)\(\s*\*(\S+)\)@$1$2@gos;
1778
1774 if ($prototype =~ /SYSCALL_DEFINE/) {
1775 syscall_munge();
1776 }
1777 if ($prototype =~ /TRACE_EVENT/ || $prototype =~ /DEFINE_EVENT/ ||
1778 $prototype =~ /DEFINE_SINGLE_EVENT/)
1779 {
1780 tracepoint_munge($file);
1781 }

--- 479 unchanged lines hidden --- 		1779 if ($prototype =~ /SYSCALL_DEFINE/) {
1780 syscall_munge();
1781 }
1782 if ($prototype =~ /TRACE_EVENT/ || $prototype =~ /DEFINE_EVENT/ ||
1783 $prototype =~ /DEFINE_SINGLE_EVENT/)
1784 {
1785 tracepoint_munge($file);
1786 }

--- 479 unchanged lines hidden ---