kernel-doc (b6c3f456cfed53e9f06f431270c9dcd52010785e) kernel-doc (9e72184b55df2b5b8ebdcf0470bd43ef32dc518f)
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 ##

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

1759# starts by putting out the name of the doc section itself, but that tends
1760# to duplicate a header already in the template file.
1761#
1762sub output_blockhead_rst(%) {
1763 my %args = %{$_[0]};
1764 my ($parameter, $section);
1765
1766 foreach $section (@{$args{'sectionlist'}}) {
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 ##

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

1759# starts by putting out the name of the doc section itself, but that tends
1760# to duplicate a header already in the template file.
1761#
1762sub output_blockhead_rst(%) {
1763 my %args = %{$_[0]};
1764 my ($parameter, $section);
1765
1766 foreach $section (@{$args{'sectionlist'}}) {
1767 print "**$section**\n\n";
1767 if ($output_selection != OUTPUT_INCLUDE) {
1768 print "**$section**\n\n";
1769 }
1768 output_highlight_rst($args{'sections'}{$section});
1769 print "\n";
1770 }
1771}
1772
1773sub output_highlight_rst {
1774 my $contents = join "\n",@_;
1775 my $line;

--- 1240 unchanged lines hidden --- 		1770 output_highlight_rst($args{'sections'}{$section});
1771 print "\n";
1772 }
1773}
1774
1775sub output_highlight_rst {
1776 my $contents = join "\n",@_;
1777 my $line;

--- 1240 unchanged lines hidden ---