let packages = ref []
let verbose = ref false
let warnings = ref true
+let yum_config = ref None
let print_version () =
printf "%s %s\n" Config.package_name Config.package_version;
let add_exclude re =
excludes := Str.regexp re :: !excludes
+let set_yum_config str =
+ yum_config := Some str
+
let argspec = Arg.align [
"--exclude", Arg.String add_exclude,
"regexp Exclude packages matching regexp";
" Print package name and version, and exit";
"--version", Arg.Unit print_version,
" Print package name and version, and exit";
+ "--yum-config", Arg.String set_yum_config,
+ "file Set alternate yum configuration file";
]
let anon_fn str =
packages := str :: !packages
let packages = List.rev !packages
let verbose = !verbose
let warnings = !warnings
+let yum_config = !yum_config
let debug fs = ksprintf (fun str -> if verbose then print_endline str) fs