print "  <void>\n";    }    print "  </funcsynopsis>\n";    if ($#{$args{'parameterlist'}} >= 0) {	print " <informaltable pgwide=\"1\" frame=\"none\" role=\"params\">\n";	print "<tgroup cols=\"2\">\n";	print "<colspec colwidth=\"2*\">\n";	print "<colspec colwidth=\"8*\">\n";	print "<tbody>\n";	foreach $parameter (@{$args{'parameterlist'}}) {	    my $parameter_name = $parameter;	    $parameter_name =~ s/\[.*//; 	    print "  <row><entry align=\"right\"><parameter>$parameter</parameter></entry>\n";	    print "   <entry>\n";	    $lineprefix="     ";	    output_highlight($args{'parameterdescs'}{$parameter_name});	    print "    </entry></row>\n";	}	print " </tbody></tgroup></informaltable>\n";    } else {	print " <para>\n  None\n </para>\n";    }     # print out each section    $lineprefix="   ";    foreach $section (@{$args{'sectionlist'}}) {	print "<simplesect>\n <title>$section</title>\n";	if ($section =~ m/EXAMPLE/i) {	    print "<example><programlisting>\n";	} else {	}	print "<para>\n";	output_highlight($args{'sections'}{$section});	print "</para>\n";	if ($section =~ m/EXAMPLE/i) {	    print "</programlisting></example>\n";	} else {	}	print " </simplesect>\n";    }     print "</sect2>\n\n";} ### output function in mansub output_function_man(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;     print ".TH \"$args{'function'}\" 9 \"$args{'function'}\" \"$man_date\" \"Kernel Hacker's Manual\" LINUX\n";     print ".SH NAME\n";    print $args{'function'} . " \\- " . $args{'purpose'} . "\n";     print ".SH SYNOPSIS\n";    if ($args{'functiontype'} ne "") {	print ".B \"" . $args{'functiontype'} . "\" " . $args{'function'} . "\n";    } else {	print ".B \"" . $args{'function'} . "\n";    }    $count = 0;    my $parenth = "(";    my $post = ",";    foreach my $parameter (@{$args{'parameterlist'}}) {	if ($count == $#{$args{'parameterlist'}}) {	    $post = ");";	}	$type = $args{'parametertypes'}{$parameter};	if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {	    # pointer-to-function	    print ".BI \"" . $parenth . $1 . "\" " . $parameter . " \") (" . $2 . ")" . $post . "\"\n";	} else {	    $type =~ s/([^\*])$/$1 /;	    print ".BI \"" . $parenth . $type . "\" " . $parameter . " \"" . $post . "\"\n";	}	$count++;	$parenth = "";    }     print ".SH ARGUMENTS\n";    foreach $parameter (@{$args{'parameterlist'}}) {	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	print ".IP \"" . $parameter . "\" 12\n";	output_highlight($args{'parameterdescs'}{$parameter_name});    }    foreach $section (@{$args{'sectionlist'}}) {	print ".SH \"", uc $section, "\"\n";	output_highlight($args{'sections'}{$section});    }} ### output enum in mansub output_enum_man(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;     print ".TH \"$args{'module'}\" 9 \"enum $args{'enum'}\" \"$man_date\" \"API Manual\" LINUX\n";     print ".SH NAME\n";    print "enum " . $args{'enum'} . " \\- " . $args{'purpose'} . "\n";     print ".SH SYNOPSIS\n";    print "enum " . $args{'enum'} . " {\n";    $count = 0;    foreach my $parameter (@{$args{'parameterlist'}}) {	print ".br\n.BI \"    $parameter\"\n";	if ($count == $#{$args{'parameterlist'}}) {	    print "\n};\n";	    last;	}	else {	    print ", \n.br\n";	}	$count++;    }     print ".SH Constants\n";    foreach $parameter (@{$args{'parameterlist'}}) {	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	print ".IP \"" . $parameter . "\" 12\n";	output_highlight($args{'parameterdescs'}{$parameter_name});    }    foreach $section (@{$args{'sectionlist'}}) {	print ".SH \"$section\"\n";	output_highlight($args{'sections'}{$section});    }} ### output struct in mansub output_struct_man(%) {    my %args = %{$_[0]};    my ($parameter, $section);     print ".TH \"$args{'module'}\" 9 \"" . $args{'type'} . " " . $args{'struct'} . "\" \"$man_date\" \"API Manual\" LINUX\n";     print ".SH NAME\n";    print $args{'type'} . " " . $args{'struct'} . " \\- " . $args{'purpose'} . "\n";     print ".SH SYNOPSIS\n";    print $args{'type'} . " " . $args{'struct'} . " {\n.br\n";     foreach my $parameter (@{$args{'parameterlist'}}) {	if ($parameter =~ /^#/) {	    print ".BI \"$parameter\"\n.br\n";	    next;	}	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;	$type = $args{'parametertypes'}{$parameter};	if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {	    # pointer-to-function	    print ".BI \"    " . $1 . "\" " . $parameter . " \") (" . $2 . ")" . "\"\n;\n";	} elsif ($type =~ m/^(.*?)\s*(:.*)/) {	    # bitfield	    print ".BI \"    " . $1 . "\ \" " . $parameter . $2 . " \"" . "\"\n;\n";	} else {	    $type =~ s/([^\*])$/$1 /;	    print ".BI \"    " . $type . "\" " . $parameter . " \"" . "\"\n;\n";	}	print "\n.br\n";    }    print "};\n.br\n";     print ".SH Members\n";    foreach $parameter (@{$args{'parameterlist'}}) {	($parameter =~ /^#/) && next; 	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;	print ".IP \"" . $parameter . "\" 12\n";	output_highlight($args{'parameterdescs'}{$parameter_name});    }    foreach $section (@{$args{'sectionlist'}}) {	print ".SH \"$section\"\n";	output_highlight($args{'sections'}{$section});    }} ### output typedef in mansub output_typedef_man(%) {    my %args = %{$_[0]};    my ($parameter, $section);     print ".TH \"$args{'module'}\" 9 \"$args{'typedef'}\" \"$man_date\" \"API Manual\" LINUX\n";     print ".SH NAME\n";    print "typedef " . $args{'typedef'} . " \\- " . $args{'purpose'} . "\n";     foreach $section (@{$args{'sectionlist'}}) {	print ".SH \"$section\"\n";	output_highlight($args{'sections'}{$section});    }} sub output_blockhead_man(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;     print ".TH \"$args{'module'}\" 9 \"$args{'module'}\" \"$man_date\" \"API Manual\" LINUX\n";     foreach $section (@{$args{'sectionlist'}}) {	print ".SH \"$section\"\n";	output_highlight($args{'sections'}{$section});    }} ### output in textsub output_function_text(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $start;     print "Name:\n\n";    print $args{'function'} . " - " . $args{'purpose'} . "\n";     print "\nSynopsis:\n\n";    if ($args{'functiontype'} ne "") {	$start = $args{'functiontype'} . " " . $args{'function'} . " (";    } else {	$start = $args{'function'} . " (";    }    print $start;     my $count = 0;    foreach my $parameter (@{$args{'parameterlist'}}) {	$type = $args{'parametertypes'}{$parameter};	if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {	    # pointer-to-function	    print $1 . $parameter . ") (" . $2;	} else {	    print $type . " " . $parameter;	}	if ($count != $#{$args{'parameterlist'}}) {	    $count++;	    print ",\n";	    print " " x length($start);	} else {	    print ");\n\n";	}    }     print "Arguments:\n\n";    foreach $parameter (@{$args{'parameterlist'}}) {	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	print $parameter . "\n\t" . $args{'parameterdescs'}{$parameter_name} . "\n";    }    output_section_text(@_);} #output sections in textsub output_section_text(%) {    my %args = %{$_[0]};    my $section;     print "\n";    foreach $section (@{$args{'sectionlist'}}) {	print "$section:\n\n";	output_highlight($args{'sections'}{$section});    }    print "\n\n";} # output enum in textsub output_enum_text(%) {    my %args = %{$_[0]};    my ($parameter);    my $count;    print "Enum:\n\n";     print "enum " . $args{'enum'} . " - " . $args{'purpose'} . "\n\n";    print "enum " . $args{'enum'} . " {\n";    $count = 0;    foreach $parameter (@{$args{'parameterlist'}}) {	print "\t$parameter";	if ($count != $#{$args{'parameterlist'}}) {	    $count++;	    print ",";	}	print "\n";    }    print "};\n\n";     print "Constants:\n\n";    foreach $parameter (@{$args{'parameterlist'}}) {	print "$parameter\n\t";	print $args{'parameterdescs'}{$parameter} . "\n";    }     output_section_text(@_);} # output typedef in textsub output_typedef_text(%) {    my %args = %{$_[0]};    my ($parameter);    my $count;    print "Typedef:\n\n";     print "typedef " . $args{'typedef'} . " - " . $args{'purpose'} . "\n";    output_section_text(@_);} # output struct as textsub output_struct_text(%) {    my %args = %{$_[0]};    my ($parameter);     print $args{'type'} . " " . $args{'struct'} . " - " . $args{'purpose'} . "\n\n";    print $args{'type'} . " " . $args{'struct'} . " {\n";    foreach $parameter (@{$args{'parameterlist'}}) {	if ($parameter =~ /^#/) {	    print "$parameter\n";	    next;	} 	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;	$type = $args{'parametertypes'}{$parameter};	if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {	    # pointer-to-function	    print "\t$1 $parameter) ($2);\n";	} elsif ($type =~ m/^(.*?)\s*(:.*)/) {	    # bitfield	    print "\t$1 $parameter$2;\n";	} else {	    print "\t" . $type . " " . $parameter . ";\n";	}    }    print "};\n\n";     print "Members:\n\n";    foreach $parameter (@{$args{'parameterlist'}}) {	($parameter =~ /^#/) && next; 	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;	print "$parameter\n\t";	print $args{'parameterdescs'}{$parameter_name} . "\n";    }    print "\n";    output_section_text(@_);} sub output_blockhead_text(%) {    my %args = %{$_[0]};    my ($parameter, $section);     foreach $section (@{$args{'sectionlist'}}) {	print " $section:\n";	print "    -> ";	output_highlight($args{'sections'}{$section});    }} ## list mode output functions sub output_function_list(%) {    my %args = %{$_[0]};     print $args{'function'} . "\n";} # output enum in listsub output_enum_list(%) {    my %args = %{$_[0]};    print $args{'enum'} . "\n";} # output typedef in listsub output_typedef_list(%) {    my %args = %{$_[0]};    print $args{'typedef'} . "\n";} # output struct as listsub output_struct_list(%) {    my %args = %{$_[0]};     print $args{'struct'} . "\n";} sub output_blockhead_list(%) {    my %args = %{$_[0]};    my ($parameter, $section);     foreach $section (@{$args{'sectionlist'}}) {	print "DOC: $section\n";    }} ### generic output function for all types (function, struct/union, typedef, enum);# calls the generated, variable output_ function name based on# functype and output_modesub output_declaration {    no strict 'refs';    my $name = shift;    my $functype = shift;    my $func = "output_${functype}_$output_mode";    if (($function_only==0) ||	( $function_only == 1 && defined($function_table{$name})) ||	( $function_only == 2 && !defined($function_table{$name})))    {	&$func(@_);	$section_counter++;    }} ### generic output function - calls the right one based on current output mode.sub output_blockhead {    no strict 'refs';    my $func = "output_blockhead_" . $output_mode;    &$func(@_);    $section_counter++;} ### takes a declaration (struct, union, enum, typedef) and# invokes the right handler. NOT called for functions.sub dump_declaration($$) {    no strict 'refs';    my ($prototype, $file) = @_;    my $func = "dump_" . $decl_type;    &$func(@_);} sub dump_union($$) {    dump_struct(@_);} sub dump_struct($$) {    my $x = shift;    my $file = shift;    my $nested;     if ($x =~ /(struct|union)\s+(\w+)\s*{(.*)}/) {	#my $decl_type = $1;	$declaration_name = $2;	my $members = $3; 	# ignore embedded structs or unions	$members =~ s/({.*})//g;	$nested = $1; 	# ignore members marked private:	$members =~ s/\/\*\s*private:.*?\/\*\s*public:.*?\*\///gos;	$members =~ s/\/\*\s*private:.*//gos;	# strip comments:	$members =~ s/\/\*.*?\*\///gos;	$nested =~ s/\/\*.*?\*\///gos;	# strip kmemcheck_bitfield_{begin,end}.*;	$members =~ s/kmemcheck_bitfield_.*?;//gos;	# strip attributes	$members =~ s/__aligned\s*\(\d+\)//gos; 	create_parameterlist($members, ';', $file);	check_sections($file, $declaration_name, "struct", $sectcheck, $struct_actual, $nested); 	output_declaration($declaration_name,			   'struct',			   {'struct' => $declaration_name,			    'module' => $modulename,			    'parameterlist' => \@parameterlist,			    'parameterdescs' => \%parameterdescs,			    'parametertypes' => \%parametertypes,			    'sectionlist' => \@sectionlist,			    'sections' => \%sections,			    'purpose' => $declaration_purpose,			    'type' => $decl_type			   });    }    else {	print STDERR "Error(${file}:$.): Cannot parse struct or union!\n";	++$errors;    }}

Lines 1001–1500 of 2294. Previous lines Load more