Minor big fixes to parser.

diff --git a/anag.c b/anag.c
index 724873da8c4a722004bbaf8bac2619676fc55a3f..939f6b890de04a2dbf4f9eb72b1b9b668d100c46 100644 (file)
--- a/anag.c
+++ b/anag.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
 /* -*-c-*-
  *

- * $Id: anag.c,v 1.3 2001/02/16 21:45:19 mdw Exp $
+ * $Id: anag.c,v 1.4 2001/02/19 19:18:50 mdw Exp $

  *
  * Main driver for anag
  *
  *
  * Main driver for anag
  *


@@ -29,6 +29,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: anag.c,v $
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: anag.c,v $

+ * Revision 1.4  2001/02/19 19:18:50  mdw
+ * Minor big fixes to parser.
+ *

  * Revision 1.3  2001/02/16 21:45:19  mdw
  * Be more helpful.  Improve full help message.  Special-case error for
  * empty command strings.
  * Revision 1.3  2001/02/16 21:45:19  mdw
  * Be more helpful.  Improve full help message.  Special-case error for
  * empty command strings.


@@ -320,7 +323,7 @@ static void p_factor(p_ctx *p, node **nn)
     p_next(p);
     p_expr(p, nn);
     if (p->t != O_RPAREN)
     p_next(p);
     p_expr(p, nn);
     if (p->t != O_RPAREN)

-      die("syntax error near `%s': missing `('", *p->a);
+      die("syntax error near `%s': missing `)'", *p->a);

     p_next(p);
   } else if (p->t == O_NOT) {
     n = xmalloc(sizeof(node_un));
     p_next(p);
   } else if (p->t == O_NOT) {
     n = xmalloc(sizeof(node_un));


@@ -350,7 +353,6 @@ static void p_term(p_ctx *p, node **nn)
        p_next(p);
       default:
        break;
        p_next(p);
       default:
        break;

-      case O_LPAREN:

       case O_RPAREN:
       case O_OR:
       case O_EOF:
       case O_RPAREN:
       case O_OR:
       case O_EOF: