&do_env_datadescni,

&do_env_funcdescni:  New functions.  These support the non-indexing variety
	of the {datadesc} and {funcdesc} environments.

There's still some flakiness with the new indexsubitem support, but that's
low priority.
This commit is contained in:
Fred Drake 1998-02-13 15:08:36 +00:00
parent fb74a463ad
commit 2549249f79
1 changed files with 29 additions and 2 deletions

View File

@ -339,6 +339,21 @@ sub do_env_funcdesc{
"<dl><dt><b>$idx</b> (<var>$arg_list</var>)\n<dd>$'\n</dl>";
}
sub do_env_funcdescni{
local($_) = @_;
local($function_name,$arg_list,$idx) = ('', '', '');
local($funcdesc_rx) = "$next_pair_rx$any_next_pair_rx3";
if (/$funcdesc_rx/o) {
$function_name = "$2";
$arg_list = "$4";
if ($STRIP_INDEX_TT) {
$idx = $function_name; }
else {
$idx = "<tt>$function_name</tt>"; }
}
"<dl><dt><b>$idx</b> (<var>$arg_list</var>)\n<dd>$'\n</dl>";
}
sub do_cmd_funcline{
local($_) = @_;
local($funcdesc_rx) = "$next_pair_pr_rx$OP(\\d+)$CP([\\s\\S]*)$OP\\3$CP";
@ -389,6 +404,18 @@ sub do_env_datadesc{
"<dl><dt><b>$idx</b>\n<dd>$'\n</dl>"
}
sub do_env_datadescni{
local($_) = @_;
local($idx) = '';
if (/$next_pair_rx/o) {
if ($STRING_INDEX_TT) {
$idx = "$2"; }
else {
$idx = "<tt>$2</tt>"; }
}
"<dl><dt><b>$idx</b>\n<dd>$'\n</dl>"
}
sub do_cmd_dataline{
local($_) = @_;