From 7e602d5ea74206236373230a4620736370b3cc9c Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 2 Jun 2000 17:42:21 +0000
Subject: [PATCH] Killed several bugs in kernel-doc. The most painful one was
 that it was unable to recognize structure markers `&'.

---
 doc/kernel-doc | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/doc/kernel-doc b/doc/kernel-doc
index b09cf564..50a68039 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
 			{