OpenPAM/OpenPAM
OpenPAM
/
OpenPAM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Dag-Erling Smørgrav 2002-05-09 19:50:54 +00:00
parent e8af376306
commit 5733bc9f27
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
misc/gendoc.pl
View File

@ -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");
}