Remove driver for ml parser.

Author: cristianoc

jscomp/syntax/cli/res_cli.ml

@@ -235,7 +235,7 @@ module CliArgProcessor = struct
     let print_engine =
       match target with
       | "binary" -> Res_driver_binary.print_engine
-      | "ml" -> Res_driver_ml_parser.print_engine
+      | "ml" -> Res_driver_ml_printer.print_engine
       | "ast" -> Res_ast_debugger.print_engine
       | "sexp" -> Res_ast_debugger.sexp_print_engine
       | "comments" -> Res_ast_debugger.comments_print_engine

jscomp/syntax/src/res_comment.ml

@@ -47,9 +47,6 @@ let make_multi_line_comment ~loc ~doc_comment ~standalone txt =
     prev_tok_end_pos = Lexing.dummy_pos;
   }
 
-let from_ocaml_comment ~loc ~txt ~prev_tok_end_pos =
-  {txt; loc; style = MultiLine; prev_tok_end_pos}
-
 let trim_spaces s =
   let len = String.length s in
   if len = 0 then s

jscomp/syntax/src/res_comment.mli

@@ -17,6 +17,4 @@ val is_single_line_comment : t -> bool
 val make_single_line_comment : loc:Location.t -> string -> t
 val make_multi_line_comment :
   loc:Location.t -> doc_comment:bool -> standalone:bool -> string -> t
-val from_ocaml_comment :
-  loc:Location.t -> txt:string -> prev_tok_end_pos:Lexing.position -> t
 val trim_spaces : string -> string

jscomp/syntax/src/res_driver_ml_parser.ml

@@ -0,0 +1,10 @@
+let print_engine =
+  Res_driver.
+    {
+      print_implementation =
+        (fun ~width:_ ~filename:_ ~comments:_ structure ->
+          Pprintast.structure Format.std_formatter structure);
+      print_interface =
+        (fun ~width:_ ~filename:_ ~comments:_ signature ->
+          Pprintast.signature Format.std_formatter signature);
+    }

jscomp/syntax/src/res_driver_ml_parser.mli

@@ -0,0 +1 @@
+val print_engine : Res_driver.print_engine