let tocudf tables ?(options=Debcudf.default_options) ?(inst=false) pkg =
let options = { options with Debcudf.extras_opt = extras_tocudf } in
let pkg =
if is_installed pkg then
let s =
if is_on_hold pkg then "hold ok installed"
else "install ok installed"
in
{ pkg with Packages.extras = ("status",s)::pkg.Packages.extras }
else pkg
in
Debcudf.tocudf tables ~options (* ~inst:(is_installed pkg) *) pkg