ghc/utils/ugen/yyerror.c

   1 #include <stdio.h>
   2 extern int lineno;
   3 extern char *yytext;
   4
   5 void yyerror(s)
   6      char *s;
   7 {
   8   fprintf(stderr, "\n%s", s);
   9   if (lineno) fprintf(stderr, ", line %d, ", lineno);
  10   fprintf(stderr, "on input: ");
  11   fprintf(stderr, "%s\n", yytext);
  12 }