Module CamlinternalMenhirLib.ErrorReports

module ErrorReports: sig .. end

---

type 'a buffer 

val wrap : (Lexing.lexbuf -> 'token) ->
       (Lexing.position * Lexing.position)
       buffer * (Lexing.lexbuf -> 'token)

val wrap_supplier : (unit -> 'token * Lexing.position * Lexing.position) ->
       (Lexing.position * Lexing.position)
       buffer *
       (unit -> 'token * Lexing.position * Lexing.position)

val show : ('a -> string) -> 'a buffer -> string

val last : 'a buffer -> 'a

val extract : string -> Lexing.position * Lexing.position -> string

val sanitize : string -> string

val compress : string -> string

val shorten : int -> string -> string

val expand : (int -> string) -> string -> string