From 280c04dc2fbc77f607bbd8a30e7ce066105e8238 Mon Sep 17 00:00:00 2001
From: wlemb <wlemb>
Date: Tue, 14 Aug 2001 14:48:12 +0000
Subject: * tmac/doc.tmac (Rv): Implement support for 0 or more than 1
 argument. * tmac/groff_tmac.man: Updated.

---
 tmac/doc.tmac | 61 ++++++++++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 48 insertions(+), 13 deletions(-)

(limited to 'tmac/doc.tmac')

diff --git a/tmac/doc.tmac b/tmac/doc.tmac
index 5b8ec418..db8029f2 100644
--- a/tmac/doc.tmac
+++ b/tmac/doc.tmac
@@ -6124,14 +6124,30 @@
 .\" NS width register `Rv' set in doc-common
 .\" NS
 .\" NS local variables:
-.\" NS   doc-str-Rv-prefix
-.\" NS   doc-str-Rv-suffix
-.
-.ds doc-str-Rv-prefix "The
-.ds doc-str-Rv-suffix "function returns the value\~0 if successful;
-.as doc-str-Rv-suffix " otherwise the value\~-1 is returned and
-.as doc-str-Rv-suffix " the global variable \*[doc-Va-font]errno\f[P]
-.as doc-str-Rv-suffix " is set to indicate the error.
+.\" NS   doc-str-Rv-std-prefix
+.\" NS   doc-str-Rv-std-suffix
+.\" NS   doc-str-Rv-stds-prefix
+.\" NS   doc-str-Rv-stds-and
+.\" NS   doc-str-Rv-stds-suffix
+.\" NS   doc-str-Rv-std0
+.
+.ds doc-str-Rv-std-prefix "The
+.ds doc-str-Rv-std-suffix "function returns the value\~0 if successful;
+.as doc-str-Rv-std-suffix " otherwise the value\~-1 is returned and
+.as doc-str-Rv-std-suffix " the global variable \*[doc-Va-font]errno\f[P]
+.as doc-str-Rv-std-suffix " is set to indicate the error.
+.
+.ds doc-str-Rv-stds-prefix "The
+.ds doc-str-Rv-stds-and    "and
+.ds doc-str-Rv-stds-suffix "functions return the value\~0 if successful;
+.as doc-str-Rv-stds-suffix " otherwise the value\~-1 is returned and
+.as doc-str-Rv-stds-suffix " the global variable \*[doc-Va-font]errno\f[P]
+.as doc-str-Rv-stds-suffix " is set to indicate the error.
+.
+.ds doc-str-Rv-std0 "Upon successful completion, the value\~0 is returned;
+.as doc-str-Rv-std0 " otherwise the value\~-1 is returned and
+.as doc-str-Rv-std0 " the global variable \*[doc-Va-font]errno\f[P]
+.as doc-str-Rv-std0 " is set to indicate the error.
 .
 .de Rv
 .
@@ -6144,7 +6160,7 @@
 .  \}
 .
 .  if !\n[.$] \{\
-.    tm Usage: .Rv [-std] <function> (#\n[.c])
+.    tm Usage: .Rv [-std] [<function> ...] (#\n[.c])
 .    return
 .  \}
 .
@@ -6153,10 +6169,29 @@
 .    if ((\n[doc-reg-Rv] < 2) : (\n[doc-reg-Rv] > 3)) \
 .      tm Usage: .Rv -std in sections 2 and 3 only (#\n[.c])
 .    br
-.    nop \)\*[doc-str-Rv-prefix]
-.    Fn \$2
-.    nop \)\*[doc-str-Rv-suffix]
-.  \}
+.    shift
+.    ie (\n[.$] > 1) \{\
+.      nop \)\*[doc-str-Rv-stds-prefix]
+.      nr doc-reg-Rv 1
+.      while (\n[doc-reg-Rv] < \n[.$]) \{\
+.        ie (\n[.$] > 2) \
+.          Fn \$\n[doc-reg-Rv] ,
+.        el \
+.          Fn \$\n[doc-reg-Rv]
+.        nr doc-reg-Rv +1
+.      \}
+.      nop \)\*[doc-str-Rv-stds-and]
+.      Fn \$\n[.$]
+.      nop \)\*[doc-str-Rv-stds-suffix]
+.    \}
+.    el \{ .ie (\n[.$] == 1) \{\
+.      nop \)\*[doc-str-Rv-std-prefix]
+.      Fn \$1
+.      nop \)\*[doc-str-Rv-std-suffix]
+.    \}
+.    el \{\
+.      nop \)\*[doc-str-Rv-std0]
+.  \}\}\}
 ..
 .
 .
-- 
cgit v1.2.1