kernel-doc (9ddf9071ea17b83954358b2dac42b34e5857a9af) kernel-doc (23aebb3c05f3b3fb06a68bf6b1539a05a5f8aaab)
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2012 Randy Dunlap ##

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

1741# functype and output_mode
1742sub output_declaration {
1743 no strict 'refs';
1744 my $name = shift;
1745 my $functype = shift;
1746 my $func = "output_${functype}_$output_mode";
1747 if (($function_only==0) ||
1748 ( $function_only == 1 && defined($function_table{$name})) ||
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2012 Randy Dunlap ##

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

1741# functype and output_mode
1742sub output_declaration {
1743 no strict 'refs';
1744 my $name = shift;
1745 my $functype = shift;
1746 my $func = "output_${functype}_$output_mode";
1747 if (($function_only==0) ||
1748 ( $function_only == 1 && defined($function_table{$name})) ||
1749 ( $function_only == 2 && !defined($function_table{$name})))
1749 ( $function_only == 2 && !($functype eq "function" && defined($function_table{$name}))))
1750 {
1751 &$func(@_);
1752 $section_counter++;
1753 }
1754}
1755
1756##
1757# generic output function - calls the right one based on current output mode.

--- 946 unchanged lines hidden --- 		1750 {
1751 &$func(@_);
1752 $section_counter++;
1753 }
1754}
1755
1756##
1757# generic output function - calls the right one based on current output mode.

--- 946 unchanged lines hidden ---