Properly terminate literal sections that appear at the end of the
DESCRIPTION section. Sponsored by: DARPA, NAI Labs git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@134 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
parent
0dc4389568
commit
43c4dfb014
|
@ -32,7 +32,7 @@
|
||||||
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||||
# SUCH DAMAGE.
|
# SUCH DAMAGE.
|
||||||
#
|
#
|
||||||
# $P4: //depot/projects/openpam/misc/gendoc.pl#11 $
|
# $P4: //depot/projects/openpam/misc/gendoc.pl#12 $
|
||||||
#
|
#
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
@ -212,10 +212,17 @@ sub parse_source($) {
|
||||||
$man .= "$_\n";
|
$man .= "$_\n";
|
||||||
}
|
}
|
||||||
if (defined($man)) {
|
if (defined($man)) {
|
||||||
|
if ($inlist) {
|
||||||
|
$man .= ".El\n";
|
||||||
|
}
|
||||||
|
if ($inliteral) {
|
||||||
|
$man .= ".Ed\n";
|
||||||
|
}
|
||||||
$man =~ s/(\n\.[A-Z][a-z] [\w ]+)\n([\.,:;-]\S*)\s*/$1 $2\n/gs;
|
$man =~ s/(\n\.[A-Z][a-z] [\w ]+)\n([\.,:;-]\S*)\s*/$1 $2\n/gs;
|
||||||
$man =~ s/\s*$/\n/gm;
|
$man =~ s/\s*$/\n/gm;
|
||||||
$man =~ s/\n+/\n/gs;
|
$man =~ s/\n+/\n/gs;
|
||||||
$man =~ s/\0//gs;
|
$man =~ s/\0//gs;
|
||||||
|
$man =~ s/\n\n\./\n\./gs;
|
||||||
chomp($man);
|
chomp($man);
|
||||||
} else {
|
} else {
|
||||||
$man = "No description available.";
|
$man = "No description available.";
|
||||||
|
@ -367,10 +374,12 @@ as part of the DARPA CHATS research program.
|
||||||
";
|
";
|
||||||
|
|
||||||
$fn = "$func->{'name'}.3";
|
$fn = "$func->{'name'}.3";
|
||||||
sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)
|
if (sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)) {
|
||||||
or die("$fn: open(): $!\n");
|
print(FILE $mdoc);
|
||||||
print(FILE $mdoc);
|
close(FILE);
|
||||||
close(FILE);
|
} else {
|
||||||
|
warn("$fn: open(): $!\n");
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
sub gensummary() {
|
sub gensummary() {
|
||||||
|
|
Loading…
Reference in New Issue