let pkglist_option ?default ?(metavar = "VPKGLST") () =
let parse_vpkglist s =
let _loc = Debian.Format822.dummy_loc in
List.map (function
|((n,a),Some("=",v)) -> (n,a,v)
|_ -> raise (Debian.Packages.ParseError (s,""))
) (Debian.Packages.parse_vpkglist (_loc,s))
in
OptParse.Opt.value_option metavar default
parse_vpkglist (fun _ s -> Printf.sprintf "invalid package list '%s'" s)