Fixed problems separator in parser: now it is $

A separable problem's label may start with '!', a not separable's with '?'

diff --git a/ocaml/parser.ml b/ocaml/parser.ml
index 379fb2edff3697e3e8c9740909223b1d705f61b6..726d076357f77539add48e69cdb04b9efb975367 100644 (file)
--- a/ocaml/parser.ml
+++ b/ocaml/parser.ml
@@ -182,7 +182,9 @@ prerr_endline (s);
   if line = "" then chr, name, div, conv, ps else\r
   let rec aux' chr line =\r
    if chr = "#"\r
-    then chr, line, div, conv, ps\r
+    then chr, name, div, conv, ps\r
+   else if chr = "$"\r
+    then "#", line, div, conv, ps\r
    else if chr = "D"\r
     then chr, name, line, conv, ps\r
    else if chr = "C"\r
@@ -258,6 +260,6 @@ let from_file path =
  with End_of_file ->\r
   close_in chan in\r
  let txt = String.concat "\n" (List.rev !lines) in\r
- let problems = Str.split (Str.regexp "\r?\n\r?\n\\#") txt in\r
- List.map problem_of_string problems\r
+ let problems = Str.split (Str.regexp "\\$") txt in\r
+ List.map problem_of_string (List.tl (List.map ((^) "$") problems))\r
 ;;\r