/*************************************************************** * MPIA - MIDI Project * "@(#) $Id: $" * * who when what * ------------------------------ * mathar 18.04.00 created * * * NAME * rm_blank < infile > outfile * * A simple lex source to replace adjacent two or more empty lines * or lines with only white space (blanks and tabs) by one single empty line. * A substitute where 'ssp' or 'cat -r' (HP-UX) is not available. ***************************************************************/ BL [ \t]*$ BS ^({BL}|\n)* %% {BS} printf("\n") ; %%