&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.
diff --git a/Doc/myformat.perl b/Doc/myformat.perl
index aba1ab1..7f3a843 100644
--- a/Doc/myformat.perl
+++ b/Doc/myformat.perl
@@ -205,7 +205,7 @@
#
$STRIP_INDEX_TT = 0;
-sub make_mod_index_entry {
+sub make_mod_index_entry{
local($br_id,$str,$define) = @_;
local($halfref) = &make_half_href("$CURRENT_FILE#$br_id");
# If TITLE is not yet available (i.e the \index command is in the title
@@ -266,7 +266,7 @@
# similar to make_index_entry(), but includes the string in the result
# instead of the dummy filler.
#
-sub make_str_index_entry {
+sub make_str_index_entry{
local($br_id,$str) = @_;
# If TITLE is not yet available (i.e the \index command is in the title
# of the current section), use $ref_before.
@@ -339,6 +339,21 @@
"<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 @@
"<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($_) = @_;