Jerry/bird
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Print out function synopsis as a part of the declaration.

Browse source 
Also, reverted my previous hack for `&' and replaced it by just disabling
the `& -> &' conversions.
This commit is contained in:
Martin Mares 2000-06-05 16:19:27 +00:00
parent 2a5d7caa95
commit b458ce83d7
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
doc/kernel-doc
View file

@ -76,7 +76,7 @@
# #
# 'funcname()' - function # 'funcname()' - function
# '$ENVVAR' - environmental variable # '$ENVVAR' - environmental variable
# '&struct_name' - name of a structure # '&struct_name' - name of a structure or a type
# '@parameter' - name of a parameter # '@parameter' - name of a parameter
# '%CONST' - name of a constant. # '%CONST' - name of a constant.
# '|code|' - literal string # '|code|' - literal string
@ -85,7 +85,7 @@
$type_constant = "\\\%(\\w+)"; $type_constant = "\\\%(\\w+)";
$type_func = "(\\w+\\(\\))"; $type_func = "(\\w+\\(\\))";
$type_param = "\\\@(\\w+)"; $type_param = "\\\@(\\w+)";
$type_struct = "\\\\\\\\\\\\amp;(\\w+)"; $type_struct = "\\\&(\\w+)";
$type_env = "(\\\$\\w+)"; $type_env = "(\\\$\\w+)";
$type_code = "\\|([^|]*)\\|"; $type_code = "\\|([^|]*)\\|";
@ -543,7 +543,12 @@ sub output_bird {
print ", "; print ", ";
} }
} }
print ")\n"; print ")";
if (defined $args{'purpose'}) {
print " -- ";
output_highlight($args{'purpose'});
}
print "\n";
if ($ntyped) { if ($ntyped) {
print "<funcsect>Arguments\n"; print "<funcsect>Arguments\n";
@ -834,7 +839,7 @@ foreach $file (@ARGV) {
$newcontents = $2; $newcontents = $2;
if ($contents ne "") { if ($contents ne "") {
$contents =~ s/\&/\\\\\\amp;/g; # $contents =~ s/\&/\\\\\\amp;/g;
$contents =~ s/\</\\\\\\lt;/g; $contents =~ s/\</\\\\\\lt;/g;
$contents =~ s/\>/\\\\\\gt;/g; $contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents); dump_section($section, $contents);
@ -849,7 +854,7 @@ foreach $file (@ARGV) {
} elsif (/$doc_end/) { } elsif (/$doc_end/) {
if ($contents ne "") { if ($contents ne "") {
$contents =~ s/\&/\\\\\\amp;/g; # $contents =~ s/\&/\\\\\\amp;/g;
$contents =~ s/\</\\\\\\lt;/g; $contents =~ s/\</\\\\\\lt;/g;
$contents =~ s/\>/\\\\\\gt;/g; $contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents); dump_section($section, $contents);
@ -864,7 +869,7 @@ foreach $file (@ARGV) {
# miguel-style comment kludge, look for blank lines after # miguel-style comment kludge, look for blank lines after
# @parameter line to signify start of description # @parameter line to signify start of description
if ($1 eq "" && $section =~ m/^@/) { if ($1 eq "" && $section =~ m/^@/) {
$contents =~ s/\&/\\\\\\amp;/g; # $contents =~ s/\&/\\\\\\amp;/g;
$contents =~ s/\</\\\\\\lt;/g; $contents =~ s/\</\\\\\\lt;/g;
$contents =~ s/\>/\\\\\\gt;/g; $contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents); dump_section($section, $contents);
@ -904,7 +909,7 @@ foreach $file (@ARGV) {
} elsif ($state == 4) { } elsif ($state == 4) {
# Documentation block # Documentation block
if (/$doc_block/) { if (/$doc_block/) {
$contents =~ s/\&/\\\\\\amp;/g; # $contents =~ s/\&/\\\\\\amp;/g;
$contents =~ s/\</\\\\\\lt;/g; $contents =~ s/\</\\\\\\lt;/g;
$contents =~ s/\>/\\\\\\gt;/g; $contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents); dump_section($section, $contents);
@ -927,7 +932,7 @@ foreach $file (@ARGV) {
} }
elsif (/$doc_end/) elsif (/$doc_end/)
{ {
$contents =~ s/\&/\\\\\\amp;/g; # $contents =~ s/\&/\\\\\\amp;/g;
$contents =~ s/\</\\\\\\lt;/g; $contents =~ s/\</\\\\\\lt;/g;
$contents =~ s/\>/\\\\\\gt;/g; $contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents); dump_section($section, $contents);