Nouveaux tests pour commentaires multi-lignes (et meilleure regexp)

src/e_regexp.ml

@@ -103,9 +103,11 @@ let list_regexp =
      fun s -> None);
     (Cat(keyword_regexp "/*",
          Cat(
-           Star (Alt (char_range (List.filter (fun c -> c <> '*') alphabet),
-                      Cat (char_regexp '*',
-                           char_range (List.filter (fun c -> c <> '/') alphabet)))),
+           Star (Alt (
+               char_range (List.filter (fun c -> c <> '*') alphabet),
+               Cat (Star(char_regexp '*'),
+                    plus(char_range (List.filter (fun c -> c <> '/' && c <> '*') alphabet)))
+             )),
            keyword_regexp "*/")),
      fun s -> None);
     (Cat (char_regexp '\'',

tests/basic/comment++.e

+/** /**/
+/** Commentaire ! */
+main(){
+  return 23;
+}

tests/basic/comment++.e.expect_14_12_3_8_12

+{"output": "", "error": null, "retval": 23}
\ No newline at end of file

tests/basic/comment++.e.expect_1_2_3

+{"output": "", "error": null, "retval": 23}
\ No newline at end of file

tests/basic/useless-assigns.e

+main(){
+  x = 8;
+  y = 15;
+  z = 4 * x + y;
+  return 1;
+}

tests/basic/useless-assigns.e.expect_14_12_3_8_12

+{"output": "", "error": null, "retval": 1}
\ No newline at end of file

tests/basic/useless-assigns.e.expect_1_2_3

+{"output": "", "error": null, "retval": 1}
\ No newline at end of file