Module Format822

module Format822: sig .. end

val label : string
include struct ... end
type loc = Lexing.position * Lexing.position 
type stanza = (string * (loc * string)) list 
type doc = stanza list 
val dummy_loc : loc
val extend_loc : 'a * 'b -> 'c * 'd -> 'a * 'd
val loc_of_lexbuf : Lexing.lexbuf -> Lexing.position * Lexing.position
val pp_posfname : Lexing.position -> string
val pp_lpos : Lexing.position -> string
exception Parse_error_822 of string * loc
exception Syntax_error of string * loc
exception Type_error of string
type f822_parser = {
   lexbuf : Lexing.lexbuf;
   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
val timer : Util.Timer.t
module RawInput: 
functor (Set : Set.S) -> sig .. end