home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume12 / cake / part04 / Aux / pattern_s.l < prev    next >
Encoding:
Lex Description  |  1987-10-14  |  389 b   |  33 lines
  1. %{
  2. /*
  3. **    Scanner for base
  4. */
  5.  
  6. #include    "std.h"
  7.  
  8. extern    int    more;
  9. %}
  10.  
  11. %%
  12.  
  13. "$"            {    return 1;    }
  14. "[\."            {    return 2;    }
  15. ".\]"            {    return -2;    }
  16. "\\f(as"        {    return 3;    }
  17. "\\f(CW"        {    return 3;    }
  18. "\\fP"            {    return -3;    }
  19. "\\fR"            {    return -3;    }
  20. ".(p"            {    return 3;    }
  21. ".)p"            {    return -3;    }
  22. ".PS"            {    return 4;    }
  23. ".PE"            {    return -4;    }
  24. .|\n            {    return 0;    }
  25.  
  26. %%
  27.  
  28. yywrap()
  29. {
  30.     more = FALSE;
  31.     return 1;
  32. }
  33.