From 5733bc9f272e16a183f0903e7cb7bd21752b941d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dag-Erling=20Sm=C3=B8rgrav?= <des@des.no>
Date: Thu, 9 May 2002 19:50:54 +0000
Subject: [PATCH] Add support for marking up variable names and values.

git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@144 185d5e19-27fe-0310-9dcf-9bff6b9f3609
---
 misc/gendoc.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/misc/gendoc.pl b/misc/gendoc.pl
index e2501e3..cb4c69d 100644
--- a/misc/gendoc.pl
+++ b/misc/gendoc.pl
@@ -32,7 +32,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $P4: //depot/projects/openpam/misc/gendoc.pl#13 $
+# $P4: //depot/projects/openpam/misc/gendoc.pl#14 $
 #
 
 use strict;
@@ -201,6 +201,8 @@ sub parse_source($) {
 	s/\s*=$func\b\s*/\n.Nm\n/gs;
 	s/\s*=$argnames\b\s*/\n.Va $1\n/gs;
 	s/\s*=(struct \w+(?: \*)?)\b\s*/\n.Vt $1\n/gs;
+	s/\s*:([a-z_]+)\b\s*/\n.Va $1\n/gs;
+	s/\s*;([a-z_]+)\b\s*/\n.Dv $1\n/gs;
 	if (s/\s*=([a-z_]+)\b\s*/\n.Xr $1 3\n/gs) {
 	    ++$xref{"$1 3"};
 	}
@@ -378,8 +380,8 @@ as part of the DARPA CHATS research program.
 
     $fn = "$func->{'name'}.3";
     if (sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)) {
-        print(FILE $mdoc);
-        close(FILE);
+	print(FILE $mdoc);
+	close(FILE);
     } else {
 	warn("$fn: open(): $!\n");
     }