3 files changed, 45 insertions, 2 deletions
diff --git a/doc/sbase/dist/birddoc/html/mapping b/doc/sbase/dist/birddoc/html/mapping
index e703fb47..9d05a76a 100644
--- a/doc/sbase/dist/birddoc/html/mapping
+++ b/doc/sbase/dist/birddoc/html/mapping
@@ -182,6 +182,12 @@
 <funcdef>		"<B>"
 </funcdef>		"</B>"
 
+<function>		"<HR><H3>Function</H3>\n"
+</function>		"\n"
+
+<funcsect>		"<H3>"
+</funcsect>		"</H3>\n"
+
 % url support by HG
 
 <url>		+	"<@@url>[URL]\n"
diff --git a/doc/sbase/dist/birddoc/latex2e/mapping b/doc/sbase/dist/birddoc/latex2e/mapping
index e12ef7d3..2875c6dd 100644
--- a/doc/sbase/dist/birddoc/latex2e/mapping
+++ b/doc/sbase/dist/birddoc/latex2e/mapping
@@ -190,6 +190,9 @@
 <tag>		+	"\\item\[{\\ttfamily "
 </tag>			"}\] \\mbox{}\n\n"
 
+<tagp>		+	"\\item\[ "
+</tagp>			"\] \\mbox{}\n\n"
+
 <cite>			"\\cite{[ID]"
 </cite>			"}"
 
@@ -250,6 +253,32 @@
 <cf>			"{\\ttfamily "
 </cf>			"}"
 
+<const>			"{\\tt "
+</const>		"}"
+
+<func>			"{\\it "
+</func>			"\\/}"
+
+<struct>		"{\\tt "
+</struct>		"}"
+
+<param>			"{\\it "
+</param>		"}"
+
+<type>			"{\\rm "
+</type>			"}"
+
+<funcdef>		"{\\it "
+</funcdef>		"\\/}"
+
+<function>		"\\bigbreak\\hrule\\nobreak\\bigskip\\nobreak\\leftline{\\bf Function}\\nobreak\\smallskip\\nobreak{\\parskip=0pt "
+</function>		"}\n\n"
+
+<funcsect>		"\n\\medbreak\\leftline{\\bf "
+</funcsect>		"}\\nobreak "
+
+<hrule>			"\\hrule"
+
 % Added by mdw
 <cparam>		"\\cparam{"
 </cparam>		"}"
diff --git a/doc/sbase/dtd/birddoc.dtd b/doc/sbase/dtd/birddoc.dtd
index 4e818ab8..f7fbcc67 100644
--- a/doc/sbase/dtd/birddoc.dtd
+++ b/doc/sbase/dtd/birddoc.dtd
@@ -12,7 +12,12 @@ anywhere else. <pavel@ucw.cz>
      Tom Gordon.
 
      $Log$
-     Revision 1.2  2000-05-31 11:28:52  mj
+     Revision 1.3  2000-05-31 14:24:21  mj
+     Formatting of progdoc works in both HTML and LaTeX. The LaTeX output
+     still has somewhat weird spacing, but it will be hopefully easy
+     to fix.
+
+     Revision 1.2  2000/05/31 11:28:52  mj
      Added tags for markup of programmer's documentation.
 
      Revision 1.1  2000/05/29 12:05:21  mj
@@ -108,7 +113,7 @@ anywhere else. <pavel@ucw.cz>
 
 <!entity % sectpar 
         " %par; | figure | tabular | table | %mathpar; | 
-	  %thrm; | %litprog; ">
+	  %thrm; | %litprog; | function ">
 <!element birddoc o o 
         (sect | chapt | article | report | 
 	 book | letter | telefax | slides | notes | manpage ) >
@@ -172,6 +177,9 @@ anywhere else. <pavel@ucw.cz>
 <!element type - - (%inline)>
 <!element funcdef - - (%inline)>
 
+<!element function - - (%inline | p | funcsect)*>
+<!element funcsect - o (%inline)>
+
 <!entity   ftag     '<f>'    -- formula begin -- >
 <!entity   qendtag  '</sq>'>