fix: ocamlobjinfo parsing for multiple files

Do not stop parsing once we run into an unrecognized lined. Skip it and
continue parsing.

Signed-off-by: Rudi Grinberg <[email protected]>

Author: rgrinberg

src/dune_rules/ocamlobjinfo.mll

@@ -31,10 +31,12 @@ and intfs acc_units acc = parse
   | ws hash ws (name as name) newline { intfs acc_units (add_intf acc name) lexbuf }
   | "Implementations imported:" newline { impls acc_units acc lexbuf }
   | "File " [^ '\n']+ newline { ocamlobjinfo (acc :: acc_units) empty lexbuf }
+  | [^ '\n' ]* newline { intfs acc_units acc lexbuf }
   | _ | eof { acc :: acc_units }
 and impls acc_units acc = parse
   | ws hash ws (name as name) newline { impls acc_units (add_impl acc name) lexbuf }
   | "File " [^ '\n']+ newline { ocamlobjinfo (acc :: acc_units) empty lexbuf }
+  | [^ '\n' ]* newline {  impls acc_units acc lexbuf }
   | _ | eof { acc :: acc_units }
 
 and archive acc = parse

test/expect-tests/ocamlobjinfo_tests.ml

@@ -248,5 +248,9 @@ Required globals:
 Uses unsafe features: no
 Force link: no
 |fixture};
-  [%expect {| [ { impl = set {}; intf = set { "m1"; "m2" } } ] |}]
+  [%expect {|
+    [ { impl = set {}; intf = set { "m1"; "m2" } }
+    ; { impl = set {}; intf = set { "m3"; "m4" } }
+    ]
+    |}]
 ;;