Module Dose_extra.Format822

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 ) -> 'c -> Stdlib.Lexing.lexbuf -> 'd
val lexbuf_wrapper : ( 'a -> Stdlib.Lexing.lexbuf -> 'b ) -> 'c -> (string * ('d * string)) -> 'e
val string_of_loc : (Stdlib.Lexing.position * Stdlib.Lexing.position) -> string
type f822_parser = {
lexbuf : Stdlib.Lexing.lexbuf;
fname : string;
}
val from_channel : IO.input -> f822_parser
val parser_wrapper_ch : IO.input -> ( f822_parser -> 'a ) -> 'b
val parse_from_ch : ( f822_parser -> 'a ) -> IO.input -> 'b
module RawInput (Set : Stdlib.Set.S) : sig ... end