let debvpkg ?(native_arch="") to_cudf ((n,a),c) =
let name =
CudfAdd.encode (
if Option.is_none a then
if native_arch <> "" then
(native_arch^":"^n)
else n
else
((Option.get a)^":"^n)
)
in
let constr =
match CudfAdd.cudfop c with
|None -> None
|Some(op,v) -> Some(op,snd(to_cudf (name,v)))
in
(name,constr)