From c384d7560e0e07fecf4ae0704408d846dddc9a39 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 11 Nov 1996 16:04:35 +0000
Subject: (myformat.perl):  Updated to allow library reference manual to be
 handled by 	latex2html.  Mostly added support for custom environments and
 some 	of the smaller commands used in the library reference (\e, \optional).

---
 Doc/myformat.perl | 85 ++++++++++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 72 insertions(+), 13 deletions(-)

diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index 9d1a2cd..b833ab7 100644
--- a/Doc/myformat.perl
+++ b/Doc/myformat.perl
@@ -22,59 +22,75 @@ sub do_cmd_C{ join('', 'C', @_[0]); }
 sub do_cmd_Cpp{ join('', 'C++', @_[0]); }
 sub do_cmd_EOF{ join('', 'EOF', @_[0]); }
 
+sub do_cmd_e{ "\\" }
+
 # texinfo-like formatting commands: \code{...} etc.
 
+sub do_cmd_optional{
+	local($_) = @_;
+	s/$any_next_pair_pr_rx/<BIG>\[<\/BIG><VAR>\2<\/VAR><BIG>\]<\/BIG>/;
+	$_;
+}
+
+sub do_cmd_varvars{
+	local($_) = @_;
+	s/$any_next_pair_pr_rx/<VAR>\2<\/VAR>/;
+	$_;
+}
+
 sub do_cmd_code{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/<CODE>\2<\/CODE>/;
+	s/$any_next_pair_pr_rx/<CODE>\2<\/CODE>/;
 	$_;
 }
 
+sub do_cmd_sectcode{ &do_cmd_code(@_); }
+
 sub do_cmd_kbd{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/<KBD>\2<\/KBD>/;
+	s/$any_next_pair_pr_rx/<KBD>\2<\/KBD>/;
 	$_;
 }
 
 sub do_cmd_key{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/<TT>\2<\/TT>/;
+	s/$any_next_pair_pr_rx/<TT>\2<\/TT>/;
 	$_;
 }
 
 sub do_cmd_samp{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/`<SAMP>\2<\/SAMP>'/;
+	s/$any_next_pair_pr_rx/`<SAMP>\2<\/SAMP>'/;
 	$_;
 }
 
 sub do_cmd_var{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/<VAR>\2<\/VAR>/;
+	s/$any_next_pair_pr_rx/<VAR>\2<\/VAR>/;
 	$_;
 }
 
 sub do_cmd_file{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/`<CODE>\2<\/CODE>'/;
+	s/$any_next_pair_pr_rx/`<CODE>\2<\/CODE>'/;
 	$_;
 }
 
 sub do_cmd_dfn{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/<I><DFN>\2<\/DFN><\/I>/;
+	s/$any_next_pair_pr_rx/<I><DFN>\2<\/DFN><\/I>/;
 	$_;
 }
 
 sub do_cmd_emph{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/<EM>\2<\/EM>/;
+	s/$any_next_pair_pr_rx/<EM>\2<\/EM>/;
 	$_;
 }
 
 sub do_cmd_strong{
 	local($_) = @_;
-	s/(<#[0-9]+#>)(.*)(\1)/<STRONG>\2<\/STRONG>/;
+	s/$any_next_pair_pr_rx/<STRONG>\2<\/STRONG>/;
 	$_;
 }
 
@@ -143,29 +159,72 @@ sub my_parword_index_helper{
 	local($word, $_) = @_;
 	s/$next_pair_pr_rx//o;
 	local($br_id, $str) = ($1, $2);
-	join('', &make_index_entry($br_id, "$str ($word)"), $_);
+	&make_index_entry($br_id, "$str ($word)");
+	$_;
 }
 
 sub do_cmd_bifuncindex{ &my_parword_index_helper('built-in function', @_); }
 sub do_cmd_bimodindex{ &my_parword_index_helper('built-in module', @_); }
+sub do_cmd_stmodindex{ &my_parword_index_helper('standard module', @_); }
 sub do_cmd_bifuncindex{ &my_parword_index_helper('standard module', @_); }
 
+sub do_cmd_nodename{ &do_cmd_label(@_); }
+
+$any_next_pair_rx3 = "$O(\\d+)$C([\\s\\S]*)$O\\3$C";
+$new_command{"indexsubitem"} = "";
+
+sub get_indexsubitem{
+  local($result) = $new_command{"indexsubitem"};
+  #print "\nget_indexsubitem ==> $result\n";
+  $result;
+}
+
 sub do_env_cfuncdesc{
   local($_) = @_;
   local($return_type,$function_name,$arg_list) = ('', '', '');
-  local($any_next_pair_rx3) = "$O(\\d+)$C([\\s\\S]*)$O\\3$C";
   local($cfuncdesc_rx) =
-    "$any_next_pair_rx$any_next_pair_rx3$any_next_pair_rx5";
+    "$next_pair_rx$any_next_pair_rx3$any_next_pair_rx5";
   $* = 1;
   if (/$cfuncdesc_rx/o) {
     $return_type = "$2";
     $function_name = "$4";
     $arg_list = "$6";
-    &make_index_entry($3,$function_name)
+    &make_index_entry($3,"<TT>$function_name</TT> " . &get_indexsubitem);
   }
   $* = 0;
   "<DL><DT>$return_type <STRONG><A NAME=\"$3\">$function_name</A></STRONG>" .
     "(<VAR>$arg_list</VAR>)\n<DD>$'\n</DL>"
 }
 
+sub do_env_funcdesc{
+  local($_) = @_;
+  local($function_name,$arg_list) = ('', '');
+  local($funcdesc_rx) = "$next_pair_rx$any_next_pair_rx3";
+  $* = 1;
+  if (/$funcdesc_rx/o) {
+    $function_name = "$2";
+    $arg_list = "$4";
+    &make_index_entry($1,"<TT>$function_name</TT> " . &get_indexsubitem);
+  }
+  $* = 0;
+  "<DL><DT><STRONG><A NAME=\"$3\">$function_name</A></STRONG>" .
+    "(<VAR>$arg_list</VAR>)\n<DD>$'\n</DL>"
+}
+
+sub do_env_datadesc{
+  local($_) = @_;
+  local($data_name) = ('', '');
+  local($datadesc_rx) = "$next_pair_rx";
+  $* = 1;
+  if (/$datadesc_rx/o) {
+    $data_name = "$2";
+    &make_index_entry($1,"<TT>$data_name</TT> " . &get_indexsubitem);
+  }
+  $* = 0;
+  "<DL><DT><STRONG><A NAME=\"$3\">$data_name</A></STRONG>" .
+    "\n<DD>$'\n</DL>"
+}
+
+sub do_env_excdesc{ &do_env_datadesc(@_); }
+
 1;				# This must be the last line
-- 
cgit v0.12