$count++;	    print ",\n";	}	print "<br>";    }    print "};<br>\n";     print "<h3>Constants</h3>\n";    print "<dl>\n";    foreach $parameter (@{$args{'parameterlist'}}) {	print "<dt><b>" . $parameter . "</b>\n";	print "<dd>";	output_highlight($args{'parameterdescs'}{$parameter});    }    print "</dl>\n";    output_section_html(@_);    print "<hr>\n";} # output typedef in htmlsub output_typedef_html(%) {    my %args = %{$_[0]};    my ($parameter);    my $count;    print "<h2>typedef " . $args{'typedef'} . "</h2>\n";     print "<b>typedef " . $args{'typedef'} . "</b>\n";    output_section_html(@_);    print "<hr>\n";} # output struct in htmlsub output_struct_html(%) {    my %args = %{$_[0]};    my ($parameter);     print "<h2>" . $args{'type'} . " " . $args{'struct'} . " - " . $args{'purpose'} . "</h2>\n";    print "<b>" . $args{'type'} . " " . $args{'struct'} . "</b> {<br>\n";    foreach $parameter (@{$args{'parameterlist'}}) {	if ($parameter =~ /^#/) {		print "$parameter<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 "&nbsp; &nbsp; <i>$1</i><b>$parameter</b>) <i>($2)</i>;<br>\n";	} elsif ($type =~ m/^(.*?)\s*(:.*)/) {	    # bitfield	    print "&nbsp; &nbsp; <i>$1</i> <b>$parameter</b>$2;<br>\n";	} else {	    print "&nbsp; &nbsp; <i>$type</i> <b>$parameter</b>;<br>\n";	}    }    print "};<br>\n";     print "<h3>Members</h3>\n";    print "<dl>\n";    foreach $parameter (@{$args{'parameterlist'}}) {	($parameter =~ /^#/) && next; 	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;	print "<dt><b>" . $parameter . "</b>\n";	print "<dd>";	output_highlight($args{'parameterdescs'}{$parameter_name});    }    print "</dl>\n";    output_section_html(@_);    print "<hr>\n";} # output function in htmlsub output_function_html(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;     print "<h2>" . $args{'function'} . " - " . $args{'purpose'} . "</h2>\n";    print "<i>" . $args{'functiontype'} . "</i>\n";    print "<b>" . $args{'function'} . "</b>\n";    print "(";    $count = 0;    foreach $parameter (@{$args{'parameterlist'}}) {	$type = $args{'parametertypes'}{$parameter};	if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {	    # pointer-to-function	    print "<i>$1</i><b>$parameter</b>) <i>($2)</i>";	} else {	    print "<i>" . $type . "</i> <b>" . $parameter . "</b>";	}	if ($count != $#{$args{'parameterlist'}}) {	    $count++;	    print ",\n";	}    }    print ")\n";     print "<h3>Arguments</h3>\n";    print "<dl>\n";    foreach $parameter (@{$args{'parameterlist'}}) {	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;	print "<dt><b>" . $parameter . "</b>\n";	print "<dd>";	output_highlight($args{'parameterdescs'}{$parameter_name});    }    print "</dl>\n";    output_section_html(@_);    print "<hr>\n";} # output DOC: block header in htmlsub output_blockhead_html(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;     foreach $section (@{$args{'sectionlist'}}) {	print "<h3>$section</h3>\n";	print "<ul>\n";	output_highlight($args{'sections'}{$section});	print "</ul>\n";    }    print "<hr>\n";} sub output_section_xml(%) {    my %args = %{$_[0]};    my $section;    # print out each section    $lineprefix="   ";    foreach $section (@{$args{'sectionlist'}}) {	print "<refsect1>\n";	print "<title>$section</title>\n";	if ($section =~ m/EXAMPLE/i) {	    print "<informalexample><programlisting>\n";	} else {	    print "<para>\n";	}	output_highlight($args{'sections'}{$section});	if ($section =~ m/EXAMPLE/i) {	    print "</programlisting></informalexample>\n";	} else {	    print "</para>\n";	}	print "</refsect1>\n";    }} # output function in XML DocBooksub output_function_xml(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;    my $id;     $id = "API-" . $args{'function'};    $id =~ s/[^A-Za-z0-9]/-/g;     print "<refentry id=\"$id\">\n";    print "<refentryinfo>\n";    print " <title>LINUX</title>\n";    print " <productname>Kernel Hackers Manual</productname>\n";    print " <date>$man_date</date>\n";    print "</refentryinfo>\n";    print "<refmeta>\n";    print " <refentrytitle><phrase>" . $args{'function'} . "</phrase></refentrytitle>\n";    print " <manvolnum>9</manvolnum>\n";    print " <refmiscinfo class=\"version\">" . $kernelversion . "</refmiscinfo>\n";    print "</refmeta>\n";    print "<refnamediv>\n";    print " <refname>" . $args{'function'} . "</refname>\n";    print " <refpurpose>\n";    print "  ";    output_highlight ($args{'purpose'});    print " </refpurpose>\n";    print "</refnamediv>\n";     print "<refsynopsisdiv>\n";    print " <title>Synopsis</title>\n";    print "  <funcsynopsis><funcprototype>\n";    print "   <funcdef>" . $args{'functiontype'} . " ";    print "<function>" . $args{'function'} . " </function></funcdef>\n";     $count = 0;    if ($#{$args{'parameterlist'}} >= 0) {	foreach $parameter (@{$args{'parameterlist'}}) {	    $type = $args{'parametertypes'}{$parameter};	    if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {		# pointer-to-function		print "   <paramdef>$1<parameter>$parameter</parameter>)\n";		print "     <funcparams>$2</funcparams></paramdef>\n";	    } else {		print "   <paramdef>" . $type;		print " <parameter>$parameter</parameter></paramdef>\n";	    }	}    } else {	print "  <void/>\n";    }    print "  </funcprototype></funcsynopsis>\n";    print "</refsynopsisdiv>\n";     # print parameters    print "<refsect1>\n <title>Arguments</title>\n";    if ($#{$args{'parameterlist'}} >= 0) {	print " <variablelist>\n";	foreach $parameter (@{$args{'parameterlist'}}) {	    my $parameter_name = $parameter;	    $parameter_name =~ s/\[.*//; 	    print "  <varlistentry>\n   <term><parameter>$parameter</parameter></term>\n";	    print "   <listitem>\n    <para>\n";	    $lineprefix="     ";	    output_highlight($args{'parameterdescs'}{$parameter_name});	    print "    </para>\n   </listitem>\n  </varlistentry>\n";	}	print " </variablelist>\n";    } else {	print " <para>\n  None\n </para>\n";    }    print "</refsect1>\n";     output_section_xml(@_);    print "</refentry>\n\n";} # output struct in XML DocBooksub output_struct_xml(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $id;     $id = "API-struct-" . $args{'struct'};    $id =~ s/[^A-Za-z0-9]/-/g;     print "<refentry id=\"$id\">\n";    print "<refentryinfo>\n";    print " <title>LINUX</title>\n";    print " <productname>Kernel Hackers Manual</productname>\n";    print " <date>$man_date</date>\n";    print "</refentryinfo>\n";    print "<refmeta>\n";    print " <refentrytitle><phrase>" . $args{'type'} . " " . $args{'struct'} . "</phrase></refentrytitle>\n";    print " <manvolnum>9</manvolnum>\n";    print " <refmiscinfo class=\"version\">" . $kernelversion . "</refmiscinfo>\n";    print "</refmeta>\n";    print "<refnamediv>\n";    print " <refname>" . $args{'type'} . " " . $args{'struct'} . "</refname>\n";    print " <refpurpose>\n";    print "  ";    output_highlight ($args{'purpose'});    print " </refpurpose>\n";    print "</refnamediv>\n";     print "<refsynopsisdiv>\n";    print " <title>Synopsis</title>\n";    print "  <programlisting>\n";    print $args{'type'} . " " . $args{'struct'} . " {\n";    foreach $parameter (@{$args{'parameterlist'}}) {	if ($parameter =~ /^#/) {	    my $prm = $parameter;	    # convert data read & converted thru xml_escape() into &xyz; format:	    # This allows us to have #define macros interspersed in a struct.	    $prm =~ s/\\\\\\/\&/g;	    print "$prm\n";	    next;	} 	my $parameter_name = $parameter;	$parameter_name =~ s/\[.*//; 	defined($args{'parameterdescs'}{$parameter_name}) || next;	($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;	$type = $args{'parametertypes'}{$parameter};	if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {	    # pointer-to-function	    print "  $1 $parameter) ($2);\n";	} elsif ($type =~ m/^(.*?)\s*(:.*)/) {	    # bitfield	    print "  $1 $parameter$2;\n";	} else {	    print "  " . $type . " " . $parameter . ";\n";	}    }    print "};";    print "  </programlisting>\n";    print "</refsynopsisdiv>\n";     print " <refsect1>\n";    print "  <title>Members</title>\n";     if ($#{$args{'parameterlist'}} >= 0) {    print "  <variablelist>\n";    foreach $parameter (@{$args{'parameterlist'}}) {      ($parameter =~ /^#/) && next;       my $parameter_name = $parameter;      $parameter_name =~ s/\[.*//;       defined($args{'parameterdescs'}{$parameter_name}) || next;      ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next;      print "    <varlistentry>";      print "      <term>$parameter</term>\n";      print "      <listitem><para>\n";      output_highlight($args{'parameterdescs'}{$parameter_name});      print "      </para></listitem>\n";      print "    </varlistentry>\n";    }    print "  </variablelist>\n";    } else {	print " <para>\n  None\n </para>\n";    }    print " </refsect1>\n";     output_section_xml(@_);     print "</refentry>\n\n";} # output enum in XML DocBooksub output_enum_xml(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;    my $id;     $id = "API-enum-" . $args{'enum'};    $id =~ s/[^A-Za-z0-9]/-/g;     print "<refentry id=\"$id\">\n";    print "<refentryinfo>\n";    print " <title>LINUX</title>\n";    print " <productname>Kernel Hackers Manual</productname>\n";    print " <date>$man_date</date>\n";    print "</refentryinfo>\n";    print "<refmeta>\n";    print " <refentrytitle><phrase>enum " . $args{'enum'} . "</phrase></refentrytitle>\n";    print " <manvolnum>9</manvolnum>\n";    print " <refmiscinfo class=\"version\">" . $kernelversion . "</refmiscinfo>\n";    print "</refmeta>\n";    print "<refnamediv>\n";    print " <refname>enum " . $args{'enum'} . "</refname>\n";    print " <refpurpose>\n";    print "  ";    output_highlight ($args{'purpose'});    print " </refpurpose>\n";    print "</refnamediv>\n";     print "<refsynopsisdiv>\n";    print " <title>Synopsis</title>\n";    print "  <programlisting>\n";    print "enum " . $args{'enum'} . " {\n";    $count = 0;    foreach $parameter (@{$args{'parameterlist'}}) {	print "  $parameter";	if ($count != $#{$args{'parameterlist'}}) {	    $count++;	    print ",";	}	print "\n";    }    print "};";    print "  </programlisting>\n";    print "</refsynopsisdiv>\n";     print "<refsect1>\n";    print " <title>Constants</title>\n";    print "  <variablelist>\n";    foreach $parameter (@{$args{'parameterlist'}}) {      my $parameter_name = $parameter;      $parameter_name =~ s/\[.*//;       print "    <varlistentry>";      print "      <term>$parameter</term>\n";      print "      <listitem><para>\n";      output_highlight($args{'parameterdescs'}{$parameter_name});      print "      </para></listitem>\n";      print "    </varlistentry>\n";    }    print "  </variablelist>\n";    print "</refsect1>\n";     output_section_xml(@_);     print "</refentry>\n\n";} # output typedef in XML DocBooksub output_typedef_xml(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $id;     $id = "API-typedef-" . $args{'typedef'};    $id =~ s/[^A-Za-z0-9]/-/g;     print "<refentry id=\"$id\">\n";    print "<refentryinfo>\n";    print " <title>LINUX</title>\n";    print " <productname>Kernel Hackers Manual</productname>\n";    print " <date>$man_date</date>\n";    print "</refentryinfo>\n";    print "<refmeta>\n";    print " <refentrytitle><phrase>typedef " . $args{'typedef'} . "</phrase></refentrytitle>\n";    print " <manvolnum>9</manvolnum>\n";    print "</refmeta>\n";    print "<refnamediv>\n";    print " <refname>typedef " . $args{'typedef'} . "</refname>\n";    print " <refpurpose>\n";    print "  ";    output_highlight ($args{'purpose'});    print " </refpurpose>\n";    print "</refnamediv>\n";     print "<refsynopsisdiv>\n";    print " <title>Synopsis</title>\n";    print "  <synopsis>typedef " . $args{'typedef'} . ";</synopsis>\n";    print "</refsynopsisdiv>\n";     output_section_xml(@_);     print "</refentry>\n\n";} # output in XML DocBooksub output_blockhead_xml(%) {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;     my $id = $args{'module'};    $id =~ s/[^A-Za-z0-9]/-/g;     # print out each section    $lineprefix="   ";    foreach $section (@{$args{'sectionlist'}}) {	if (!$args{'content-only'}) {		print "<refsect1>\n <title>$section</title>\n";	}	if ($section =~ m/EXAMPLE/i) {	    print "<example><para>\n";	} else {	    print "<para>\n";	}	output_highlight($args{'sections'}{$section});	if ($section =~ m/EXAMPLE/i) {	    print "</para></example>\n";	} else {	    print "</para>";	}	if (!$args{'content-only'}) {		print "\n</refsect1>\n";	}    }     print "\n\n";} # output in XML DocBooksub output_function_gnome {    my %args = %{$_[0]};    my ($parameter, $section);    my $count;    my $id;     $id = $args{'module'} . "-" . $args{'function'};    $id =~ s/[^A-Za-z0-9]/-/g;     print "<sect2>\n";    print " <title id=\"$id\">" . $args{'function'} . "</title>\n";     print "  <funcsynopsis>\n";    print "   <funcdef>" . $args{'functiontype'} . " ";    print "<function>" . $args{'function'} . " ";    print "</function></funcdef>\n";     $count = 0;    if ($#{$args{'parameterlist'}} >= 0) {	foreach $parameter (@{$args{'parameterlist'}}) {	    $type = $args{'parametertypes'}{$parameter};	    if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) {		# pointer-to-function		print "   <paramdef>$1 <parameter>$parameter</parameter>)\n";		print "     <funcparams>$2</funcparams></paramdef>\n";	    } else {		print "   <paramdef>" . $type;		print " <parameter>$parameter</parameter></paramdef>\n";	    }	}    } else {

Lines 501–1000 of 2294. Previous lines Load more