Module Format822


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 =
| I
| R
type suite = string 
type vpkgreq = action option * vpkg * suite option 
module RawInput: 
functor (Set : Set.S) -> sig .. end