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 = {

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 buildprofile = 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 *
       (bool * buildprofile) 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