rainlance/amiga-tz
1
0
Fork 0
mirror of https://frontier.innolan.net/rainlance/amiga-tz.git synced 2025-11-23 13:19:48 +00:00
Code Releases Activity

SCCS-file: workman.sh

Browse Source 
SCCS-SID: 1.5
This commit is contained in:
Arthur David Olson
2003-11-20 08:51:04 -05:00
committed by Paul Eggert
parent b91421fd8d
commit 358047d36e
1 changed files with 19 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
workman.sh
View File

@ -3,22 +3,23 @@
# %W%
echo ".hy 0
.pl 99i
.na" |
nroff -man - ${1+"$@"} |
perl -ne '
chomp;
s/.\010//g;
s/[ ]*$//;
if (/^$/) {
$sawblank = 1;
next;
} else {
if ($sawblank && $didprint) {
print "\n";
$sawblank = 0;
}
print "$_\n";
$didprint = 1;
.na
.de }H
..
.de }F
.." | nroff -man - ${1+"$@"} | perl -ne '
chomp;
s/.\010//g;
s/\s*$//;
if (/^$/) {
$sawblank = 1;
next;
} else {
if ($sawblank && $didprint) {
print "\n";
$sawblank = 0;
}
'
print "$_\n";
$didprint = 1;
}
'