From 4fcbc3669aa997848e15198cc9fb856287a6788c Mon Sep 17 00:00:00 2001
From: markm <markm@FreeBSD.org>
Date: Wed, 9 Sep 1998 07:00:04 +0000
Subject: Initial import of Perl5. The king is dead; long live the king!

---
 contrib/perl5/pod/splitman | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100755 contrib/perl5/pod/splitman

(limited to 'contrib/perl5/pod/splitman')

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];
+} 
-- 
cgit v1.1