home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / LEX_YACC.ZIP / STRIP.L < prev    next >
Encoding:
Text File  |  1989-05-28  |  461 b   |  19 lines
  1.  
  2.   { A sample Lex program that strips whitespace from stdin and writes result
  3.     to stdout; when running the program you can use DOS I/O redirection, e.g.
  4.       strip <input-file >output-file }
  5.  
  6.   uses LexLib;
  7.  
  8. %%
  9.  
  10. ^[ \t]*\n        ;        { ignore empty lines }
  11. [ \t]+$            ;        { ignore trailing whitespace }
  12. [ \t]+            write(yyout, ' ');
  13.                           { replace remaining whitespace by single blank }
  14. %%
  15.  
  16. begin
  17.   if yylex=0 then { done }
  18. end.
  19.