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