util/cpp/LLmessage.c

   1 /* $Id: LLmessage.c,v 1.5 1994/06/24 10:17:53 ceriel Exp $ */
   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
   8 #include        "LLlex.h"
   9 #include        "Lpars.h"
  10
  11 extern char *symbol2str();
  12
  13 LLmessage(tk)   {
  14         if (tk < 0)
  15                 error("garbage at end of line");
  16         else if (tk)    {
  17                 error("%s missing", symbol2str(tk));
  18                 skipline();
  19                 DOT = EOF;
  20         }
  21         else
  22                 error("%s deleted", symbol2str(DOT));
  23 }