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

Killed several bugs in kernel-doc. The most painful one was that it

Browse source 
was unable to recognize structure markers `&'.
This commit is contained in:
Martin Mares 2000-06-02 17:42:21 +00:00
parent a7ed3e557f
commit 7e602d5ea7
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
doc/kernel-doc
View file

@ -84,7 +84,7 @@
$type_constant = "\\\%(\\w+)"; $type_constant = "\\\%(\\w+)";
$type_func = "(\\w+\\(\\))"; $type_func = "(\\w+\\(\\))";
$type_param = "\\\@(\\w+)"; $type_param = "\\\@(\\w+)";
$type_struct = "\\\&(\\w+)"; $type_struct = "\\\\\\\\\\\\amp;(\\w+)";
$type_env = "(\\\$\\w+)"; $type_env = "(\\\$\\w+)";
@ -901,6 +901,9 @@ 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/\</\\\\\\lt;/g;
$contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents); dump_section($section, $contents);
output_intro({'sectionlist' => \@sectionlist, output_intro({'sectionlist' => \@sectionlist,
'sections' => \%sections }); 'sections' => \%sections });
@ -921,6 +924,9 @@ foreach $file (@ARGV) {
} }
elsif (/$doc_end/) elsif (/$doc_end/)
{ {
$contents =~ s/\&/\\\\\\amp;/g;
$contents =~ s/\</\\\\\\lt;/g;
$contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents); dump_section($section, $contents);
output_intro({'sectionlist' => \@sectionlist, output_intro({'sectionlist' => \@sectionlist,
'sections' => \%sections }); 'sections' => \%sections });
@ -939,7 +945,7 @@ foreach $file (@ARGV) {
{ {
if ( $1 eq "" ) if ( $1 eq "" )
{ {
$contents .= $blankline; $contents .= "\n";
} }
else else
{ {