/* $Header: quic.l,v 1.1 88/01/15 13:05:21 simpson Rel $ */ %{ /* $Log: quic.l,v $ * Revision 1.1 88/01/15 13:05:21 simpson * initial release * * Revision 0.1 87/12/11 21:37:40 simpson * beta test * */ /* Scans the data going by the "if" filter */ %} %% \^P[YN]\^- { QuicMode = (yytext[2] == 'Y' ? TRUE : FALSE); if (QuicMode) EnteredQuic = TRUE; fputs(yytext, stdout); } \^[OF] { if (QuicMode) FreeForm = (yytext[1] == 'F' ? TRUE : FALSE); fputs(yytext, stdout); } "^," { if (QuicMode) { NumPages++; if (!Raw) LineNum = 1; } fputs(yytext, stdout); } \f { if (!QuicMode || (QuicMode && !FreeForm)) NumPages++; fputs(yytext, stdout); } \n { if (!Raw) { putchar('\r'); if (++LineNum > Length) { NumPages++; LineNum -= Length; } CharCount = 1; } fputs(yytext, stdout); } . { short i; if (!Raw) { if (CharCount++ == 1 && Indent > 0) for (i = 0; i < Indent; i++) putchar(' '); } fputs(yytext, stdout); } %%