feat: Support Unary Operation #1

bin/main.ml

@@ -1,7 +1,7 @@
 (* bin/main.ml *)
 
 open Printf
-open Ast
+open Ast.Print
 
 let () =
   let lexbuf = Lexing.from_channel stdin in

dune-project

@@ -3,16 +3,16 @@
 (name croissant)
 (generate_opam_files true)
 (source (github LucasVbr/croissant))
-(authors "LucasVbr")
+(authors "LucasVbr <contact@lucasvbr.dev>")
-(maintainers "LucasVbr")
+(maintainers "LucasVbr <contact@lucasvbr.dev>")
-(license LICENSE)
+(license MIT)
 ;(documentation https://url/to/documentation)
 
 (package
   (name croissant)
   (synopsis "A short synopsis")
   (description "A longer description")
-  (depends ocaml dune alcotest menhir ocamlformat)
+  (depends ocaml dune menhir ocamlformat (alcotest :with-test))
   (tags
     ("Custom programming language" "French")
   )

lib/parser.mly

@@ -1,6 +1,6 @@
 /* lib/parser.mly */
 %{
-   open Ast
+   open Ast.Syntax
 %}
 
 %token <int> INT
@@ -19,7 +19,7 @@
 
 %left "+" "-"
 %left "*" "/"
-//%nonassoc UMINUS
+%nonassoc UMINUS
 
 %start main
 %type <source_file> main
@@ -38,12 +38,16 @@ statement:
 
 expression:
   | literal { $1 }
+  | unary_expression { $1 }
   | binary_expression { $1 }
   | "(" expression ")" { $2 }
 
 literal:
   | INT { IntegerLiteral($1) }
 
+unary_expression:
+ | MINUS expression %prec UMINUS { UnaryExpression(Negate, $2) }
+
 binary_expression:
   | e1=expression PLUS e2=expression { BinaryExpression(Add, e1, e2) }
   | e1=expression MINUS e2=expression { BinaryExpression(Substract, e1, e2) }

test/ast/dune

@@ -0,0 +1,6 @@
+;test/ast/dune
+
+(test
+ (name print)
+ (libraries alcotest ast)
+)