lang/cem/cpp.ansi/LLmessage.c

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