Module `Merlin_kernel.Mreader`

type parsetree = [

| `Interface of Ocaml_parsing.Parsetree.signature
| `Implementation of Ocaml_parsing.Parsetree.structure

]

type comment = string * Ocaml_parsing.Location.t

type result = {

lexer_keywords : string list;
lexer_errors : exn list;
parser_errors : exn list;
comments : Merlin_kernel.Mreader.comment list;
parsetree : Merlin_kernel.Mreader.parsetree;
no_labels_for_completion : bool;

}

type pretty_parsetree = Merlin_extend.Extend_protocol.Reader.pretty_parsetree

type outcometree = Merlin_extend.Extend_protocol.Reader.outcometree

val with_ambient_reader : 
  Merlin_kernel.Mconfig.t ->
  Merlin_kernel.Msource.t ->
  (unit -> 'a) ->
  'a

val parse : 
  ?for_completion:Merlin_kernel.Msource.position ->
  Merlin_kernel.Mconfig.t ->
  (Merlin_kernel.Msource.t * Merlin_kernel.Mreader.parsetree option) ->
  Merlin_kernel.Mreader.result

val print_pretty : 
  Merlin_kernel.Mconfig.t ->
  Merlin_kernel.Msource.t ->
  Merlin_kernel.Mreader.pretty_parsetree ->
  string

val print_outcome : 
  Merlin_kernel.Mconfig.t ->
  Merlin_kernel.Msource.t ->
  Merlin_kernel.Mreader.outcometree ->
  string

val print_batch_outcome : 
  Merlin_kernel.Mconfig.t ->
  Merlin_kernel.Msource.t ->
  Merlin_kernel.Mreader.outcometree list ->
  string list

val reconstruct_identifier : 
  Merlin_kernel.Mconfig.t ->
  Merlin_kernel.Msource.t ->
  Stdlib.Lexing.position ->
  string Ocaml_parsing.Location.loc list

Module Merlin_kernel.Mreader

Module `Merlin_kernel.Mreader`