From ed697efc09bed482b1ef3a027212bd8bd724cbfb Mon Sep 17 00:00:00 2001
From: Arthur David Olson <olsona@elsie>
Date: Tue, 4 Nov 2003 09:35:31 -0500
Subject: [PATCH] SCCS-file: workman.sh SCCS-SID: 1.2

---
 workman.sh | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/workman.sh b/workman.sh
index e69de29..6efec31 100644
--- a/workman.sh
+++ b/workman.sh
@@ -0,0 +1,40 @@
+#! /bin/sh
+
+# %W%
+
+tty -s
+ttyval=$?
+
+case $# in
+	0)	nroff -man ;;
+	1)	if [ -f $1 ]
+		then
+			( echo .hy 0; echo .na ) | nroff -man - "$1"
+		else
+			man "$1"
+		fi ;;
+	*)	man ${1+"$@"} ;;
+esac | perl -ne '
+	if (($. % 66) <= 7) {
+		next;
+	}
+	if (($. % 66) > (66 - 7)) {
+		next;
+	}
+	chomp;
+	s/.//g;
+	s/[ 	]*$//;
+	if (/^$/) {
+		$sawblank = 1;
+		next;
+	} else {
+		if ($sawblank) {
+			print "\n";
+			$sawblank = 0;
+		}
+		print "$_\n";
+	}
+' | case $ttyval in
+	0)	more ;;
+	*)	cat ;;
+esac