2 * Copyright (C) 2009-2010 Red Hat Inc.
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22 let names_mode = ref false
23 let outputdir = ref "."
25 let save_temps = ref false
26 let verbose = ref false
27 let warnings = ref true
28 let yum_config = ref None
30 let print_version () =
31 printf "%s %s\n" Config.package_name Config.package_version;
35 excludes := Str.regexp re :: !excludes
37 let set_yum_config str =
38 yum_config := Some str
40 let argspec = Arg.align [
41 "--exclude", Arg.String add_exclude,
42 "regexp Exclude packages matching regexp";
43 "--names", Arg.Set names_mode,
44 " Specify set of root package names on command line";
45 "--no-warnings", Arg.Clear warnings,
47 "-o", Arg.Set_string outputdir,
48 "outputdir Set output directory (default: \".\")";
49 "--save-temp", Arg.Set save_temps,
50 " Don't delete temporary files and directories on exit.";
51 "--save-temps", Arg.Set save_temps,
52 " Don't delete temporary files and directories on exit.";
53 "-v", Arg.Set verbose,
54 " Enable verbose output";
55 "--verbose", Arg.Set verbose,
56 " Enable verbose output";
57 "-V", Arg.Unit print_version,
58 " Print package name and version, and exit";
59 "--version", Arg.Unit print_version,
60 " Print package name and version, and exit";
61 "--yum-config", Arg.String set_yum_config,
62 "file Set alternate yum configuration file";
65 packages := str :: !packages
69 febootstrap - bootstrapping tool for creating supermin appliances
70 Copyright (C) 2009-2010 Red Hat Inc.
73 febootstrap [-o OUTPUTDIR] --names LIST OF PKGS ...
74 febootstrap [-o OUTPUTDIR] PKG FILE NAMES ...
76 For full instructions see the febootstrap(8) man page.
81 Arg.parse argspec anon_fn usage_msg;
82 if !packages = [] then (
83 eprintf "febootstrap: no packages listed on the command line\n";
87 let excludes = List.rev !excludes
88 let names_mode = !names_mode
89 let outputdir = !outputdir
90 let packages = List.rev !packages
91 let save_temps = !save_temps
92 let verbose = !verbose
93 let warnings = !warnings
94 let yum_config = !yum_config
96 let debug fs = ksprintf (fun str -> if verbose then print_endline str) fs