| kernel-doc (e5a5276695b0df12eea8a694afc8bca87a8162a4) | kernel-doc (d2a70e28ef738765f9226731dfdb3b6c06565456) |
|---|---|
| 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> ## --- 1893 unchanged lines hidden (view full) --- 1902} 1903 1904sub process_proto_function($$) { 1905 my $x = shift; 1906 my $file = shift; 1907 1908 $x =~ s@\/\/.*$@@gos; # strip C99-style comments to end of line 1909 | 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> ## --- 1893 unchanged lines hidden (view full) --- 1902} 1903 1904sub process_proto_function($$) { 1905 my $x = shift; 1906 my $file = shift; 1907 1908 $x =~ s@\/\/.*$@@gos; # strip C99-style comments to end of line 1909 |
| 1910 if ($x =~ m#\s*/\*\s+MACDOC\s*#io || ($x =~ /^#/ && $x !~ /^#\s*define/)) { | 1910 if ($x =~ /^#/ && $x !~ /^#\s*define/) { |
| 1911 # do nothing 1912 } 1913 elsif ($x =~ /([^\{]*)/) { 1914 $prototype .= $1; 1915 } 1916 1917 if (($x =~ /\{/) || ($x =~ /\#\s*define/) || ($x =~ /;/)) { 1918 $prototype =~ s@/\*.*?\*/@@gos; # strip comments. --- 622 unchanged lines hidden --- | 1911 # do nothing 1912 } 1913 elsif ($x =~ /([^\{]*)/) { 1914 $prototype .= $1; 1915 } 1916 1917 if (($x =~ /\{/) || ($x =~ /\#\s*define/) || ($x =~ /;/)) { 1918 $prototype =~ s@/\*.*?\*/@@gos; # strip comments. --- 622 unchanged lines hidden --- |