From a05b905e44b561679086cdfd485ce5c22bf0946c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dag-Erling=20Sm=C3=B8rgrav?= <des@des.no>
Date: Fri, 22 Feb 2002 21:22:30 +0000
Subject: [PATCH] Don't claim a function conforms to XSSO when it doesn't.

Sponsored by:	DARPA, NAI Labs


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

diff --git a/misc/gendoc.pl b/misc/gendoc.pl
index 48eea36..99440c8 100644
--- a/misc/gendoc.pl
+++ b/misc/gendoc.pl
@@ -236,6 +236,9 @@ sub parse_source($) {
     if ($source =~ m/^ \* NOLIST\s*$/m) {
 	$FUNCTIONS{$func}->{'nolist'} = 1;
     }
+    if ($source !~ m/^ \* XSSO \d/m) {
+	$FUNCTIONS{$func}->{'openpam'} = 1;
+    }
 }
 
 sub expand_errors($);
@@ -339,12 +342,20 @@ on failure.
     while (@xref) {
 	$mdoc .= ".Xr " . shift(@xref) . (@xref ? " ,\n" : "\n");
     }
-    $mdoc .= ".Sh STANDARDS
-.Rs
+    $mdoc .= ".Sh STANDARDS\n";
+    if ($func->{'openpam'}) {
+	$mdoc .= "The
+.Nm
+function is an OpenPAM extension.
+";
+    } else {
+	$mdoc .= ".Rs
 .%T \"X/Open Single Sign-On Service (XSSO) - Pluggable Authentication Modules\"
 .%D \"June 1997\"
 .Re
-.Sh AUTHORS
+";
+    }
+    $mdoc .= ".Sh AUTHORS
 The
 .Nm
 function and this manual page were developed for the FreeBSD Project
@@ -356,7 +367,7 @@ as part of the DARPA CHATS research program.
 
     $fn = "$func->{'name'}.3";
     sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)
- 	or die("$fn: open(): $!\n");
+	or die("$fn: open(): $!\n");
     print(FILE $mdoc);
     close(FILE);
 }
@@ -374,7 +385,7 @@ sub gensummary() {
     my @funcs = sort(keys(%FUNCTIONS));
     while ($func = shift(@funcs)) {
 	next if (defined($FUNCTIONS{$func}->{'nolist'}));
-        print ".Nm $func". (@funcs ? " ,\n" : "\n");
+	print ".Nm $func". (@funcs ? " ,\n" : "\n");
     }
     print ".Nd Pluggable Authentication Modules Library
 .Sh LIBRARY
@@ -384,8 +395,8 @@ sub gensummary() {
 ";
     foreach $func (sort(keys(%FUNCTIONS))) {
 	next if (defined($FUNCTIONS{$func}->{'nolist'}));
-        print ".Ft $FUNCTIONS{$func}->{'type'}\n";
-        print ".Fn $func $FUNCTIONS{$func}->{'args'}\n";
+	print ".Ft $FUNCTIONS{$func}->{'type'}\n";
+	print ".Fn $func $FUNCTIONS{$func}->{'args'}\n";
     }
     print ".Sh DESCRIPTION
 .Sh RETURN VALUES
@@ -402,7 +413,7 @@ header:
 ";
     foreach $func (sort(keys(%FUNCTIONS))) {
 	next if (defined($FUNCTIONS{$func}->{'nolist'}));
-        print ".Xr $func 3 ,\n";
+	print ".Xr $func 3 ,\n";
     }
     print ".Xr pam.conf 5
 .Sh STANDARDS