Initial import of Perl5. The king is dead; long live the king!

1 files changed, 46 insertions, 0 deletions

diff --git a/contrib/perl5/pod/splitman b/contrib/perl5/pod/splitman
new file mode 100755
index 0000000..9fe404a
--- /dev/null
+++ b/contrib/perl5/pod/splitman
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+
+while (<>) {
+    if ($seqno = 1 .. /^\.TH/) {
+	unless ($seqno =~ /e/i) {
+	    $header .= $_;
+	} 
+	next;
+    } 
+
+    if ( /^\.Ip\s*"(.*)"\s*\d+$/) {
+	$desking = 0;
+	$desc = $1;
+	if (name($desc) ne $myname) {
+	    $myname = name($desc);
+	    print $myname, "\n";
+	    open(MAN, "> $myname.3pl");
+	    print MAN <<EOALL;
+$header
+.TH $myname 3PL "\\*(RP"
+.SH NAME 
+$myname
+.SH SYNOPSIS 
+.B $desc
+EOALL
+	} else {
+	    print MAN <<EOMORE;
+.br
+.ti +3n
+or
+.br
+.B $desc
+EOMORE
+	} 
+	next;
+    } 
+    unless ($desking) {
+	print MAN ".SH DESCRIPTION\n";
+	$desking = 1;
+    } 
+    print MAN;
+} 
+
+sub name {
+    ($_[0] =~ /(\w+)/)[0];
+}