feat: Add Assign

lib/ast/print.ml

@@ -25,6 +25,7 @@ let string_of_binary_operator = function
   | LessThanEquals -> "LessThanEquals"
   | GreaterThan -> "GreaterThan"
   | GreaterThanEquals -> "GreaterThanEquals"
+  | Assign -> "Assign"
 
 (** [string_of_unary_operator op] returns a string representation of the unary operator [op]. *)
 let string_of_unary_operator = function Negate -> "Negate" | Not -> "Not"

lib/ast/syntax.ml

@@ -29,6 +29,7 @@ type binary_operator =
   | LessThanEquals
   | GreaterThan
   | GreaterThanEquals
+  | Assign
 
 type unary_operator = Negate | Not
 

lib/parser.mly

@@ -114,3 +114,4 @@ binary_expression:
   | e1=expression "<=" e2=expression { BinaryExpression(LessThanEquals, e1, e2) }
   | e1=expression ">" e2=expression { BinaryExpression(GreaterThan, e1, e2) }
   | e1=expression ">=" e2=expression { BinaryExpression(GreaterThanEquals, e1, e2) }
+  | e1=expression "=" e2=expression { BinaryExpression(Assign, e1, e2) }

test/ast/print.ml

@@ -61,6 +61,7 @@ let test_string_of_binary_operator () =
       ("<=", "LessThanEquals", LessThanEquals);
       (">", "GreaterThan", GreaterThan);
       (">=", "GreaterThanEquals", GreaterThanEquals);
+      ("=", "Assign", Assign);
     ]
   in
   List.iter