From 971681afb1c9518d232d5d234800ab5da209a222 Mon Sep 17 00:00:00 2001
From: "Christopher L. Conway" <christopherleeconway@gmail.com>
Date: Tue, 6 Jul 2010 16:21:27 +0000
Subject: [PATCH] Adding arithmetic symbols to CVC parser (Fixes: #176)

---
 src/parser/cvc/Cvc.g | 86 +++++++++++++++++++++++++++++++++++++-------
 1 file changed, 74 insertions(+), 12 deletions(-)

diff --git a/src/parser/cvc/Cvc.g b/src/parser/cvc/Cvc.g
index 4fd22a079..979f2a7c3 100644
--- a/src/parser/cvc/Cvc.g
+++ b/src/parser/cvc/Cvc.g
@@ -208,6 +208,8 @@ baseType[CVC4::Type& t]
   Debug("parser-extra") << "base type: " << AntlrInput::tokenText(LT(1)) << std::endl;
 }
   : BOOLEAN_TOK { t = EXPR_MANAGER->booleanType(); }
+  | INT_TOK { t = EXPR_MANAGER->integerType(); }
+  | REAL_TOK { t = EXPR_MANAGER->realType(); }
   | typeSymbol[t]
   ;
 
@@ -338,24 +340,68 @@ notFormula[CVC4::Expr& f]
     NOT_TOK notFormula[f]
     { f = MK_EXPR(CVC4::kind::NOT, f); }
   | /* a boolean atom */
-    predFormula[f]
+    comparisonFormula[f]
   ;
 
-predFormula[CVC4::Expr& f]
+/** Parses a comparison formula (non-associative).
+    NOTE: equality should technically have higher precedence than
+    greater-than, less-than, etc., but I don't think this will ever
+    be relevant in a well-typed formula.
+*/
+comparisonFormula[CVC4::Expr& f]
 @init {
   Expr e;
+  Kind op;
   Debug("parser-extra") << "predicate formula: " << AntlrInput::tokenText(LT(1)) << std::endl;
 }
-  : term[f]
-    (EQUAL_TOK term[e]
-      { f = MK_EXPR(CVC4::kind::EQUAL, f, e); }
+  : plusTerm[f]
+    ( ( EQUAL_TOK { op = CVC4::kind::EQUAL; }
+      | GT_TOK { op = CVC4::kind::GT; }
+      | GEQ_TOK { op = CVC4::kind::GEQ; } 
+      | LT_TOK { op = CVC4::kind::LT; }
+      | LEQ_TOK { op = CVC4::kind::LEQ; }) 
+      plusTerm[e]
+      { f = MK_EXPR(op, f, e); }
     )?
-  ; // TODO: lt, gt, etc.
+  ;
+
+/** Parses a plus/minus term (left-associative). 
+    TODO: This won't take advantage of n-ary PLUS's. */
+plusTerm[CVC4::Expr& f]
+@init {
+  Expr e;
+  Kind op;
+  std::vector<Expr> exprs;
+  Debug("parser-extra") << "plus term: " << AntlrInput::tokenText(LT(1)) << std::endl;
+}
+  : multTerm[f]
+    ( ( PLUS_TOK { op = CVC4::kind::PLUS; }
+      | MINUS_TOK { op = CVC4::kind::MINUS; } ) 
+      multTerm[e]
+      { f = MK_EXPR(op, f, e); }
+    )*
+  ;
+
+/** Parses a multiply/divide term (left-associative). 
+    TODO: This won't take advantage of n-ary MULT's. */
+multTerm[CVC4::Expr& f]
+@init {
+  Expr e;
+  Kind op;
+  Debug("parser-extra") << "multiplication term: " << AntlrInput::tokenText(LT(1)) << std::endl;
+}
+  : unaryTerm[f]
+    ( ( STAR_TOK { op = CVC4::kind::MULT; }
+      | DIV_TOK { op = CVC4::kind::DIVISION; } ) 
+      unaryTerm[e]
+      { f = MK_EXPR(op, f, e); }
+    )*
+  ;
 
 /**
- * Parses a term.
+ * Parses a unary term.
  */
-term[CVC4::Expr& f]
+unaryTerm[CVC4::Expr& f]
 @init {
   std::string name;
   std::vector<Expr> args;
@@ -372,6 +418,10 @@ term[CVC4::Expr& f]
   | /* if-then-else */
     iteTerm[f]
 
+    
+  | /* Unary minus */
+    MINUS_TOK unaryTerm[f] { f = MK_EXPR(CVC4::kind::UMINUS, f); }
+
   | /* parenthesized sub-formula */
     LPAREN formula[f] RPAREN
 
@@ -379,6 +429,8 @@ term[CVC4::Expr& f]
   | TRUE_TOK  { f = MK_CONST(true); }
   | FALSE_TOK { f = MK_CONST(false); }
 
+  | NUMERAL_TOK { f = MK_CONST( AntlrInput::tokenToInteger($NUMERAL_TOK) ); }
+
   | /* variable */
     identifier[name,CHECK_DECLARED,SYM_VARIABLE]
     { f = PARSER_STATE->getVariable(name); }
@@ -442,6 +494,7 @@ ELSE_TOK : 'ELSE';
 ENDIF_TOK : 'ENDIF';
 FALSE_TOK : 'FALSE';
 IF_TOK : 'IF';
+INT_TOK : 'INT';
 NOT_TOK : 'NOT';
 OR_TOK : 'OR';
 POPTO_TOK : 'POPTO';
@@ -449,6 +502,7 @@ POP_TOK : 'POP';
 PRINT_TOK : 'PRINT';
 PUSH_TOK : 'PUSH';
 QUERY_TOK : 'QUERY';
+REAL_TOK : 'REAL';
 THEN_TOK : 'THEN';
 TRUE_TOK : 'TRUE';
 TYPE_TOK : 'TYPE';
@@ -464,10 +518,18 @@ SEMICOLON : ';';
 
 // Operators
 
-IMPLIES_TOK : '=>';
-IFF_TOK     : '<=>';
 ARROW_TOK : '->';
-EQUAL_TOK   : '=';
+DIV_TOK : '/';
+EQUAL_TOK : '=';
+GT_TOK : '>';
+GEQ_TOK : '>=';
+IFF_TOK : '<=>';
+IMPLIES_TOK : '=>';
+LT_TOK : '<';
+LEQ_TOK : '<=';
+MINUS_TOK : '-';
+PLUS_TOK : '+';
+STAR_TOK : '*';
 
 /**
  * Matches an identifier from the input. An identifier is a sequence of letters,
@@ -478,7 +540,7 @@ IDENTIFIER : ALPHA (ALPHA | DIGIT | '_' | '\'' | '.')*;
 /**
  * Matches a numeral from the input (non-empty sequence of digits).
  */
-NUMERAL: (DIGIT)+;
+NUMERAL_TOK: (DIGIT)+;
 
 /**
  * Matches any letter ('a'-'z' and 'A'-'Z').
-- 
2.30.2