let main () =
let args = OptParse.OptParser.parse_argv Options.options in
let options =
match Option.get (Options.set_options Url.Deb) with
|Boilerplate.Deb o -> o
|_ -> fatal "impossible"
in
Boilerplate.enable_debug (OptParse.Opt.get Options.verbose);
Boilerplate.enable_bars (OptParse.Opt.get Options.progress)
["Depsolver_int.univcheck";"Depsolver_int.init_solver"] ;
Boilerplate.enable_timers (OptParse.Opt.get Options.timers) ["Solver"];
Boilerplate.all_quiet (OptParse.Opt.get Options.quiet);
let checklist = OptParse.Opt.opt Options.checkonly in
let failure = OptParse.Opt.get Options.failure in
let explain = OptParse.Opt.get Options.explain in
let summary = OptParse.Opt.get Options.summary in
let dump = OptParse.Opt.get Options.dump in
let archs =
if options.Debian.Debcudf.native <> "" then
options.Debian.Debcudf.native :: options.Debian.Debcudf.foreign
else []
in
let packagelist = Debian.Packages.input_raw ~archs args in
ignore(outdated ~summary ~failure ~explain ~dump ~checklist ~options packagelist)