Module Dose_extra.Format822

include sig ... end
val it : Dose_common__Util.Info.t
val info : ('a, unit, string, unit) Stdlib.format4 -> 'a
val nt : Dose_common__Util.Notice.t
val notice : ('a, unit, string, unit) Stdlib.format4 -> 'a
val wt : Dose_common__Util.Warning.t
val warning : ('a, unit, string, unit) Stdlib.format4 -> 'a
val dt : Dose_common__Util.Debug.t
val debug : ('a, unit, string, unit) Stdlib.format4 -> 'a
val fatal : ('a, unit, string, 'b) Stdlib.format4 -> 'a
type loc = Stdlib.Lexing.position * Stdlib.Lexing.position
type value = loc * string
type field = string * value
type stanza = field list
type doc = stanza list
val dummy_loc : loc
exception Parse_error_822 of string
exception Syntax_error of string
exception Type_error of string
exception ParseError of string list * string * string

ParseError context list, field name * error

val error : Stdlib.Lexing.lexbuf -> string -> string
val raise_error : Stdlib.Lexing.lexbuf -> char -> 'a
val error_wrapper : string -> ('a -> Stdlib.Lexing.lexbuf -> 'b) -> 'a -> Stdlib.Lexing.lexbuf -> 'b
val lexbuf_wrapper : ('a -> Stdlib.Lexing.lexbuf -> 'b) -> 'a -> (string * ('c * string)) -> 'b
val string_of_loc : (Stdlib.Lexing.position * Stdlib.Lexing.position) -> string
type f822_parser = {
  1. lexbuf : Stdlib.Lexing.lexbuf;
  2. fname : string;
}
val from_channel : IO.input -> f822_parser
val parser_wrapper_ch : IO.input -> (f822_parser -> 'a) -> 'a
val parse_from_ch : (f822_parser -> 'a) -> IO.input -> 'a
module RawInput (Set : Stdlib.Set.S) : sig ... end