%{ #ifndef lint static char rcsid[] = "$Header: mail.l,v 0.0 88/06/22 05:22:14 on Rel $"; #endif #include "pps.h" #define KEYWORD INITIAL %} field ^[^ \t:]+: %Start COMMENT %% {field} { begin(KEYWORD); ECHO; if (!iskw(yytext)) begin(INITIAL); } \n\n+ { begin(COMMENT); REJECT; } ^From { begin(INITIAL); REJECT; } [\t\n\f]+ { space(yytext); } . { ECHO; } %% char *keywords[] = { "", "Date:", "From:", "Subject:", "To:", NULL };