LLmessage.c 499 B

123456789101112131415161718192021222324
  1. /* $Header$ */
  2. /*
  3. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. * See the copyright notice in the ACK home directory, in the file "Copyright".
  5. */
  6. /* PARSER ERROR ADMINISTRATION */
  7. #include "LLlex.h"
  8. #include "Lpars.h"
  9. extern char *symbol2str();
  10. LLmessage(tk) {
  11. err_occurred = 1;
  12. if (tk < 0)
  13. error("garbage at end of line");
  14. else if (tk) {
  15. error("%s missing", symbol2str(tk));
  16. skipline();
  17. DOT = EOF;
  18. }
  19. else
  20. error("%s deleted", symbol2str(DOT));
  21. }