diff options
author | des <des@FreeBSD.org> | 2003-06-01 12:54:03 +0000 |
---|---|---|
committer | des <des@FreeBSD.org> | 2003-06-01 12:54:03 +0000 |
commit | 3409f2d5db068fa23d2344776412b86150352336 (patch) | |
tree | 6198c196f6c160a3b6c1800a13a74dbaf48a8cb8 /contrib/openpam/misc | |
parent | 1b2b5956a02e1d56168e372dc96807d70b3ca363 (diff) | |
download | FreeBSD-src-3409f2d5db068fa23d2344776412b86150352336.zip FreeBSD-src-3409f2d5db068fa23d2344776412b86150352336.tar.gz |
Vendor import of OpenPAM Digitalis.
Diffstat (limited to 'contrib/openpam/misc')
-rw-r--r-- | contrib/openpam/misc/gendoc.pl | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/contrib/openpam/misc/gendoc.pl b/contrib/openpam/misc/gendoc.pl index 3d29f0e..945c224 100644 --- a/contrib/openpam/misc/gendoc.pl +++ b/contrib/openpam/misc/gendoc.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w #- -# Copyright (c) 2002 Networks Associates Technology, Inc. +# Copyright (c) 2002-2003 Networks Associates Technology, Inc. # All rights reserved. # # This software was developed for the FreeBSD Project by ThinkSec AS and @@ -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#19 $ +# $P4: //depot/projects/openpam/misc/gendoc.pl#25 $ # use strict; @@ -42,7 +42,7 @@ use POSIX qw(strftime); use vars qw($COPYRIGHT $TODAY %FUNCTIONS %PAMERR); $COPYRIGHT = ".\\\"- -.\\\" Copyright (c) 2002 Networks Associates Technology, Inc. +.\\\" Copyright (c) 2001-2003 Networks Associates Technology, Inc. .\\\" All rights reserved. .\\\" .\\\" This software was developed for the FreeBSD Project by ThinkSec AS and @@ -235,7 +235,7 @@ sub parse_source($) { 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) { + while (s/\s*=([a-z_]+)\b\s*/\n.Xr $1 3\n/s) { ++$xref{"$1 3"}; } s/\s*\"(?=\w)/\n.Do\n/gs; @@ -274,10 +274,6 @@ sub parse_source($) { }; if ($source =~ m/^ \* NODOC\s*$/m) { $FUNCTIONS{$func}->{'nodoc'} = 1; - $FUNCTIONS{$func}->{'nolist'} = 1; - } - if ($source =~ m/^ \* NOLIST\s*$/m) { - $FUNCTIONS{$func}->{'nolist'} = 1; } if ($source !~ m/^ \* XSSO \d/m) { $FUNCTIONS{$func}->{'openpam'} = 1; @@ -498,7 +494,7 @@ sub gensummary($) { while (<STDIN>) { if (m/^\.Xr (\S+)\s*(\d)\s*$/) { $xref{$1} = $2; - } + } print FILE $_; } @@ -518,14 +514,14 @@ The following return codes are defined by print FILE ".Xr openpam 3\n" if ($page eq 'pam'); foreach $func (keys(%FUNCTIONS)) { - $xref{$func} = 3; + $xref{$func} = 3; } my @refs = sort(keys(%xref)); while ($_ = shift(@refs)) { print FILE ".Xr $_ $xref{$_}"; - print FILE " ," + print FILE " ," if (@refs); - print FILE "\n"; + print FILE "\n"; } print FILE ".Sh STANDARDS .Rs |