home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
qtawkos2.zip
/
QTAUTL.ZIP
/
compress.exp
< prev
next >
Wrap
Text File
|
1990-04-23
|
307b
|
12 lines
# QTAwk utility to compress multiple blank lines to one blank line
#
/^{_w}*$/ { # find blank lines
if ( !i++ ) print ""; # check if first blank line - print if it is
next; # skip to next line
}
{
i = FALSE; # reset blank line counter
print; # print non-blank lines
}