module Format822: sig
.. end
include struct ... end
type
loc = Lexing.position * Lexing.position
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
deb_parser = {
|
lexbuf : Lexing.lexbuf ; |
|
fname : string ; |
}
val from_channel : IO.input -> deb_parser
val parser_wrapper_ch : IO.input -> (deb_parser -> 'a) -> 'a
val parse_from_ch : (deb_parser -> 'a) -> IO.input -> 'a
type
name = string
type
version = string
type
architecture = string
type
vpkgname = string * architecture option
type
multiarch = [ `Allowed | `Foreign | `None | `Same ]
type
source = name * version option
type
relop = string
type
constr = relop * version
type
vpkg = vpkgname * constr option
type
vpkglist = vpkg list
type
vpkgformula = vpkg list list
type
builddep = vpkg * (bool * architecture) list
type
builddepslist = builddep list
type
builddepsformula = builddep list list
type
action =
type
suite = string
type
vpkgreq = action option * vpkg * suite option
module RawInput: functor (
Set
:
Set.S
) ->
sig
.. end