1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
(* febootstrap 3
* Copyright (C) 2009-2010 Red Hat Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*)
open Unix
open Printf
open Febootstrap_utils
open Febootstrap_cmdline
type package_handler = {
ph_detect : unit -> bool;
ph_resolve_dependencies_and_download : string list -> string list;
ph_list_files : string -> (string * file_type) list;
ph_get_file_from_package : string -> string -> string
}
and file_type = {
ft_dir : bool;
ft_config : bool;
ft_ghost : bool;
ft_mode : int;
ft_size : int;
}
let tmpdir = tmpdir ()
let handlers = ref []
let register_package_handler name ph =
debug "registering package handler: %s" name;
handlers := (name, ph) :: !handlers
let handler = ref None
let check_system () =
try
handler := Some (
List.find (
fun (_, ph) ->
ph.ph_detect ()
) !handlers
)
with Not_found ->
eprintf "\
febootstrap: could not detect package manager used by this system or distro.
If this is a new Linux distro, or not Linux, or a Linux distro that uses
an unusual packaging format then you may need to port febootstrap. If
you are expecting that febootstrap should work on this system or distro
then it may be that the package detection code is not working.
";
exit 1
let rec get_package_handler () =
match !handler with
| Some (_, ph) -> ph
| None ->
check_system ();
get_package_handler ()
let rec get_package_handler_name () =
match !handler with
| Some (name, _) -> name
| None ->
check_system ();
get_package_handler_name ()
|
