summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMartin Mares <mj@ucw.cz>2000-06-02 19:42:21 +0200
committerMartin Mares <mj@ucw.cz>2000-06-02 19:42:21 +0200
commit7e602d5ea74206236373230a4620736370b3cc9c (patch)
tree1c58e669d30ab45a93b02b941f953f5cd5676a2e
parenta7ed3e557fd1f8c4e56fef9a5238091181c01186 (diff)
downloadbird-7e602d5ea74206236373230a4620736370b3cc9c.tar
bird-7e602d5ea74206236373230a4620736370b3cc9c.zip
Killed several bugs in kernel-doc. The most painful one was that it
was unable to recognize structure markers `&'.
-rwxr-xr-xdoc/kernel-doc10
1 files changed, 8 insertions, 2 deletions
diff --git a/doc/kernel-doc b/doc/kernel-doc
index b09cf56..50a6803 100755
--- a/doc/kernel-doc
+++ b/doc/kernel-doc
@@ -84,7 +84,7 @@
$type_constant = "\\\%(\\w+)";
$type_func = "(\\w+\\(\\))";
$type_param = "\\\@(\\w+)";
-$type_struct = "\\\&(\\w+)";
+$type_struct = "\\\\\\\\\\\\amp;(\\w+)";
$type_env = "(\\\$\\w+)";
@@ -901,6 +901,9 @@ foreach $file (@ARGV) {
} elsif ($state == 4) {
# Documentation block
if (/$doc_block/) {
+ $contents =~ s/\&/\\\\\\amp;/g;
+ $contents =~ s/\</\\\\\\lt;/g;
+ $contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents);
output_intro({'sectionlist' => \@sectionlist,
'sections' => \%sections });
@@ -921,6 +924,9 @@ foreach $file (@ARGV) {
}
elsif (/$doc_end/)
{
+ $contents =~ s/\&/\\\\\\amp;/g;
+ $contents =~ s/\</\\\\\\lt;/g;
+ $contents =~ s/\>/\\\\\\gt;/g;
dump_section($section, $contents);
output_intro({'sectionlist' => \@sectionlist,
'sections' => \%sections });
@@ -939,7 +945,7 @@ foreach $file (@ARGV) {
{
if ( $1 eq "" )
{
- $contents .= $blankline;
+ $contents .= "\n";
}
else
{