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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
(* guestfs-inspection
* Copyright (C) 2009-2020 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.
*)
type fs = {
fs_location : location;
role : role; (** Special cases: root filesystem or /usr *)
}
(** A single filesystem. *)
and root = {
root_location : location;
inspection_data : inspection_data;
}
(** A root (as in "inspect_get_roots"). *)
and location = {
mountable : Mountable.t; (** The device name or other mountable object.*)
vfs_type : string; (** Returned from [vfs_type] API. *)
}
and role =
| RoleRoot of inspection_data
| RoleUsr of inspection_data
| RoleSwap
| RoleOther
(** During inspection, single filesystems are assigned a role which is
one of root, /usr, swap or other. *)
and inspection_data = {
mutable os_type : os_type option;
mutable distro : distro option;
mutable package_format : package_format option;
mutable package_management : package_management option;
mutable product_name : string option;
mutable product_variant : string option;
mutable version : version option;
mutable arch : string option;
mutable hostname : string option;
mutable fstab : fstab_entry list;
mutable windows_systemroot : string option;
mutable windows_software_hive : string option;
mutable windows_system_hive : string option;
mutable windows_current_control_set : string option;
mutable drive_mappings : drive_mapping list;
}
(** During inspection, this data is collected incrementally for each
filesystem. At the end of inspection, inspection data is merged
into the root. *)
and os_type =
| OS_TYPE_DOS
| OS_TYPE_FREEBSD
| OS_TYPE_HURD
| OS_TYPE_LINUX
| OS_TYPE_MINIX
| OS_TYPE_NETBSD
| OS_TYPE_OPENBSD
| OS_TYPE_WINDOWS
and distro =
| DISTRO_ALPINE_LINUX
| DISTRO_ALTLINUX
| DISTRO_ARCHLINUX
| DISTRO_BUILDROOT
| DISTRO_CENTOS
| DISTRO_CIRROS
| DISTRO_COREOS
| DISTRO_DEBIAN
| DISTRO_FEDORA
| DISTRO_FREEBSD
| DISTRO_FREEDOS
| DISTRO_FRUGALWARE
| DISTRO_GENTOO
| DISTRO_KALI_LINUX
| DISTRO_LINUX_MINT
| DISTRO_MAGEIA
| DISTRO_MANDRIVA
| DISTRO_MEEGO
| DISTRO_MSDOS
| DISTRO_NEOKYLIN
| DISTRO_NETBSD
| DISTRO_OPENBSD
| DISTRO_OPENMANDRIVA
| DISTRO_OPENSUSE
| DISTRO_ORACLE_LINUX
| DISTRO_PARDUS
| DISTRO_PLD_LINUX
| DISTRO_REDHAT_BASED
| DISTRO_RHEL
| DISTRO_SCIENTIFIC_LINUX
| DISTRO_SLACKWARE
| DISTRO_SLES
| DISTRO_SUSE_BASED
| DISTRO_TTYLINUX
| DISTRO_UBUNTU
| DISTRO_VOID_LINUX
| DISTRO_WINDOWS
and package_format =
| PACKAGE_FORMAT_APK
| PACKAGE_FORMAT_DEB
| PACKAGE_FORMAT_EBUILD
| PACKAGE_FORMAT_PACMAN
| PACKAGE_FORMAT_PISI
| PACKAGE_FORMAT_PKGSRC
| PACKAGE_FORMAT_RPM
| PACKAGE_FORMAT_XBPS
and package_management =
| PACKAGE_MANAGEMENT_APK
| PACKAGE_MANAGEMENT_APT
| PACKAGE_MANAGEMENT_DNF
| PACKAGE_MANAGEMENT_PACMAN
| PACKAGE_MANAGEMENT_PISI
| PACKAGE_MANAGEMENT_PORTAGE
| PACKAGE_MANAGEMENT_UP2DATE
| PACKAGE_MANAGEMENT_URPMI
| PACKAGE_MANAGEMENT_XBPS
| PACKAGE_MANAGEMENT_YUM
| PACKAGE_MANAGEMENT_ZYPPER
and version = int * int
and fstab_entry = Mountable.t * string (* mountable, mountpoint *)
and drive_mapping = string * string (* drive name, device *)
val merge_inspection_data : inspection_data -> inspection_data -> unit
(** [merge_inspection_data child parent] merges two sets of inspection
data into the parent. The parent inspection data fields, if
present, take precedence over the child inspection data fields.
It's intended that you merge upwards, ie.
[merge_inspection_data usr root] *)
val merge : fs -> fs -> unit
(** [merge child_fs parent_fs] merges two filesystems,
using [merge_inspection_data] to merge the inspection data of
the child into the parent. (Nothing else is merged, only
the inspection data). *)
val string_of_fs : fs -> string
(** Convert [fs] into a multi-line string, for debugging only. *)
val string_of_root : root -> string
(** Convert [root] into a multi-line string, for debugging only. *)
val string_of_location : location -> string
(** Convert [location] into a string, for debugging only. *)
val string_of_inspection_data : inspection_data -> string
(** Convert [inspection_data] into a multi-line string, for debugging only. *)
val string_of_os_type : os_type -> string
(** Convert [os_type] to a string.
The string is part of the public API. *)
val string_of_distro : distro -> string
(** Convert [distro] to a string.
The string is part of the public API. *)
val string_of_package_format : package_format -> string
(** Convert [package_format] to a string.
The string is part of the public API. *)
val string_of_package_management : package_management -> string
(** Convert [package_management] to a string.
The string is part of the public API. *)
val null_inspection_data : unit -> inspection_data
(** {!inspection_data} structure with all fields set to [None].
This is a function: since we mutate this structure, we want
a fresh structure each time (so we're not mutating a common copy). *)
val inspect_fses : fs list ref
(** The global list of filesystems found by the previous call to
inspect_os. *)
|
