fmt

flap/src/hopix/hopixParser.mly

@@ -1,7 +1,6 @@
 %{ (* -*- tuareg -*- *)
 
   open HopixAST
-  (* open Position *)
 
 %}
 
@@ -16,29 +15,23 @@
 %token<char> CHAR
 
 
-
-
 %start<HopixAST.t> program
 
 /* TODO: Résoudre tout les shift/reduce conflits */
-
 %left FUN
-%left STRING 
+%left STRING
 %left INT
-%right WHILE REF DO 
+%right WHILE REF DO
 %left LET MATCH IF FOR
-%right ARROW 
-%right SEMICOLON 
-%left ASSIGN 
+%right ARROW
+%right SEMICOLON
+%left ASSIGN
 %left LPAREN
 %left BACKSLASH
 
+%left EXCLA COLON
 
-
-%left EXCLA COLON 
-
-/* priorités binop */
-
+/* Priorités binop */
 %left D_OR
 %left D_AND
 %left EQUAL_OP INF_EQUAL_OP INF_OP SUP_EQUAL_OP SUP_OP
@@ -123,7 +116,7 @@ vdefinition:
 /* Valeur simple */
 | LET i=located(identifier) ts=option(vdef_type_scheme)
   EQUAL e=located(expression) %prec let1 {
-    SimpleValue(i, ts, e) 
+    SimpleValue(i, ts, e)
   }
 /* Fonction(s)
  * Exemple :
@@ -332,16 +325,13 @@ expression:
   }
 /* Sequence - Séquencement *
  * Pas sûr, voir s'il ne faut pas une troisième couche d'expression */
- 
 | e=located(simple_expression)
   SEMICOLON e_list=separated_nonempty_list(SEMICOLON, located(simple_expression)) {
     Sequence(e :: e_list)
   }
-  /*
-  |e1=located(expression) SEMICOLON e2=located(expression){
-    Sequence([e1;e2])
-  }*/
-
+/* | e1=located(expression) SEMICOLON e2=located(expression) {
+    Sequence([e1; e2])
+  } */
 /* Definition locale */
 | vd=vdefinition SEMICOLON e=located(expression) {
     Define(vd, e)