kernel-doc (5a84d159061d914c8dd4aa372ac6e9529c2be453) kernel-doc (262d9b0130edf9aef1819b211d69f48883d2ac10)
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## ##

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

447 print "<hr>\n";
448}
449
450# output struct in html
451sub output_struct_html(%) {
452 my %args = %{$_[0]};
453 my ($parameter);
454
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## ##

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

447 print "<hr>\n";
448}
449
450# output struct in html
451sub output_struct_html(%) {
452 my %args = %{$_[0]};
453 my ($parameter);
454
455 print "<h2>".$args{'type'}." ".$args{'struct'}."</h2>\n";
455 print "<h2>".$args{'type'}." ".$args{'struct'}. " - " .$args{'purpose'}."</h2>\n";
456 print "<b>".$args{'type'}." ".$args{'struct'}."</b> {<br>\n";
457 foreach $parameter (@{$args{'parameterlist'}}) {
458 if ($parameter =~ /^#/) {
459 print "$parameter<br>\n";
460 next;
461 }
462 my $parameter_name = $parameter;
463 $parameter_name =~ s/\[.*//;

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

493 print "<hr>\n";
494}
495
496# output function in html
497sub output_function_html(%) {
498 my %args = %{$_[0]};
499 my ($parameter, $section);
500 my $count;
456 print "<b>".$args{'type'}." ".$args{'struct'}."</b> {<br>\n";
457 foreach $parameter (@{$args{'parameterlist'}}) {
458 if ($parameter =~ /^#/) {
459 print "$parameter<br>\n";
460 next;
461 }
462 my $parameter_name = $parameter;
463 $parameter_name =~ s/\[.*//;

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

493 print "<hr>\n";
494}
495
496# output function in html
497sub output_function_html(%) {
498 my %args = %{$_[0]};
499 my ($parameter, $section);
500 my $count;
501 print "<h2>Function</h2>\n";
502
501
502 print "<h2>" .$args{'function'}." - ".$args{'purpose'}."</h2>\n";
503 print "<i>".$args{'functiontype'}."</i>\n";
504 print "<b>".$args{'function'}."</b>\n";
505 print "(";
506 $count = 0;
507 foreach $parameter (@{$args{'parameterlist'}}) {
508 $type = $args{'parametertypes'}{$parameter};
509 if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {
510 # pointer-to-function

--- 1427 unchanged lines hidden --- 		503 print "<i>".$args{'functiontype'}."</i>\n";
504 print "<b>".$args{'function'}."</b>\n";
505 print "(";
506 $count = 0;
507 foreach $parameter (@{$args{'parameterlist'}}) {
508 $type = $args{'parametertypes'}{$parameter};
509 if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {
510 # pointer-to-function

--- 1427 unchanged lines hidden ---