From 9dcc5a94c5f47fe247dfebef478c7826486ac124 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 13 Oct 1997 22:04:17 +0000
Subject: Add support for ctypedesc, cvardesc, seealso, seemodule, seetext.

This seems to take care of everything but tables and equations.
---
 Doc/myformat.perl | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index 768cb21..1a26686 100644
--- a/Doc/myformat.perl
+++ b/Doc/myformat.perl
@@ -196,6 +196,36 @@ sub do_env_cfuncdesc{
     "(<VAR>$arg_list</VAR>)\n<DD>$'\n</DL>"
 }
 
+sub do_env_ctypedesc{
+  local($_) = @_;
+  local($type_name) = ('');
+  local($cfuncdesc_rx) =
+    "$next_pair_rx";
+  $* = 1;
+  if (/$cfuncdesc_rx/o) {
+    $type_name = "$2";
+    &make_index_entry($1,"<TT>$var_name</TT> " . &get_indexsubitem);
+  }
+  $* = 0;
+  "<DL><DT><STRONG><A NAME=\"$1\">$type_name</A></STRONG>\n<DD>$'\n</DL>"
+}
+
+sub do_env_cvardesc{
+  local($_) = @_;
+  local($var_type,$var_name) = ('', '');
+  local($cfuncdesc_rx) =
+    "$next_pair_rx$any_next_pair_rx3";
+  $* = 1;
+  if (/$cfuncdesc_rx/o) {
+    $var_type = "$2";
+    $var_name = "$4";
+    &make_index_entry($3,"<TT>$var_name</TT> " . &get_indexsubitem);
+  }
+  $* = 0;
+  "<DL><DT>$var_type <STRONG><A NAME=\"$3\">$var_name</A></STRONG>\n" .
+    "<DD>$'\n</DL>"
+}
+
 sub do_env_funcdesc{
   local($_) = @_;
   local($function_name,$arg_list) = ('', '');
@@ -227,4 +257,21 @@ sub do_env_datadesc{
 
 sub do_env_excdesc{ &do_env_datadesc(@_); }
 
+sub do_env_seealso{
+  local($_) = @_;
+  "<P><B>See Also:</B></P>\n" . $_;
+}
+
+sub do_cmd_seemodule{
+  local($_) = @_;
+  local($any_next_pair_pr_rx3) = "$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
+  s/$next_pair_pr_rx$any_next_pair_pr_rx3/<P><CODE><B>\2<\/B><\/CODE> (\4)<\/P>/;
+  $_;
+}
+
+sub do_cmd_seetext{
+  local($_) = @_;
+  "<p>" . $_;
+}
+
 1;				# This must be the last line
-- 
cgit v0.12