Merge branch 'anri' of gaufre.informatique.univ-paris-diderot.fr:Anri/compilation-m1-2023 into anri

flap/src/hopix/hopixLexer.mll

@@ -19,29 +19,26 @@
     error msg (lex_join lexbuf.lex_start_p lexbuf.lex_curr_p)
 
 
-  (*Fonction qui va convertir une string de caractère ascii en vrai caractère. 
+  (* Fonction qui convertie une chaîne de caractère ascii en vrai caractère.
-On en a besoin pour certains test *)
+   * Notamment les escapes : "\n" ou "\000" *)
-(*)
   let recup_char charac lexbuf =
   let taille = String.length charac in
     match charac with
-  | "\\n" -> '\n'
+    | "\\n" -> Some '\n'
-  | "\\r" -> '\r'
+    | "\\r" -> Some '\r'
-  | "\\t" -> '\t'
+    | "\\t" -> Some '\t'
-  | "\\\'" -> '\''
+    | "\\\'" -> Some '\''
-  | "\\\\" -> '\\'
+    | "\\\\" -> Some '\\'
-  | _ ->
+    | _ -> (
-  (let s2 = String.get charac 1 in 
+    let s2 = String.get charac 1 in
-  if s2 = '0' || s2 = '1' || s2 = '2' then 
+    if s2 = '0' || s2 = '1' || s2 = '2' then (
-  (let s=String.sub charac 1 (taille - 1) in
+      let s = String.sub charac 1 (taille - 1) in
       let i = int_of_string s in
-  Char.chr i)
+      Some (Char.chr i))
-  else error lexbuf )
+    else None )
-*)
 }
 
 
-
 let newline = ('\010' | '\013' | "\013\010")
 let blank   = [' ' '\009' '\012']
 
@@ -153,14 +150,13 @@ rule token = parse
 
   (* Characters *)
   | "'" (letter as c) "'" { CHAR c                          }
-  (*| "'" (atom as c) "'"   {CHAR (recup_char c lexbuf )} (* On retire le \ du début
+  | "'" (atom as a) "'"   { match recup_char a lexbuf with
-                             * TODO: fix *)
+                            | Some c -> CHAR c
-                             (*)
+                            | None -> error lexbuf None ""  }
-                            let code = int_of_string (String.sub c 1 ((String.length c) - 2))
-                            in CHAR (Char.chr (code)) } *) *)
 
   (** Lexing error *)
-  (* erreur qui advient pour le test 22-char-literal, le code renvoie bizarrement que "Error (during lexing) "*)
+  (* erreur qui advient pour le test 22-char-literal,
+   * le code renvoie bizarrement que "Error (during lexing)" *)
   | "'" ascii_trop_grand "'" { error lexbuf None "" }
   | _  as _c                 { error lexbuf None (* (Some _c) *) "unexpected character." }
 

flap/src/hopix/hopixParser.mly

@@ -1,7 +1,6 @@
 %{ (* -*- tuareg -*- *)
 
   open HopixAST
-  (* open Position *)
 
 %}
 
@@ -16,12 +15,9 @@
 %token<char> CHAR
 
 
-
-
 %start<HopixAST.t> program
 
 /* TODO: Résoudre tout les shift/reduce conflits */
-
 %left FUN
 %left STRING
 %left INT
@@ -33,12 +29,9 @@
 %left LPAREN
 %left BACKSLASH
 
-
-
 %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
@@ -338,16 +331,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) {
-  |e1=located(expression) SEMICOLON e2=located(expression){
     Sequence([e1; e2])
   } */
-
 /* Definition locale */
 | vd=vdefinition SEMICOLON e=located(expression) {
     Define(vd, e)