| Download_dir_tarball of source * string * download_dir_tarball_format * string * unit callback
| Download_file of source * string * string * bool * unit callback
| File_information of source * string * string callback
+ | List_applications of inspection_os * G.application array callback
| Open_domain of string * inspection_data callback
| Open_images of (string * string option) list * inspection_data callback
| Read_directory of source * string * direntry list callback
(string_of_source src) remotefile localfile check
| File_information (src, pathname, _) ->
sprintf "File_information (%s, %s)" (string_of_source src) pathname
+ | List_applications (os, _) ->
+ sprintf "List_applications %s" os.insp_root
| Open_domain (name, _) -> sprintf "Open_domain %s" name
| Open_images (images, _) ->
sprintf "Open_images %s" (string_of_images images)
send_to_slave ?fail (Download_file (src, remotefile, localfile, true, cb))
let file_information ?fail src pathname cb =
send_to_slave ?fail (File_information (src, pathname, cb))
+let list_applications ?fail os cb =
+ send_to_slave ?fail (List_applications (os, cb))
let open_domain ?fail name cb = send_to_slave ?fail (Open_domain (name, cb))
let open_images ?fail images cb = send_to_slave ?fail (Open_images (images, cb))
let read_directory ?fail src path cb =
status "Finished calculating file information for %s" pathname;
callback_if_not_discarded cb r
+ | List_applications (os, cb) ->
+ status "Listing applications ...";
+
+ let g = get_g () in
+ let r =
+ with_mount_ro g (OS os) (
+ fun () ->
+ g#inspect_list_applications os.insp_root
+ ) in
+
+ status "Finished listing applications";
+ callback_if_not_discarded cb r
+
| Open_domain (name, cb) ->
status "Opening %s ..." name;
ignore (
g#set_event_callback (
fun g event handle buf array ->
- if event == G.EVENT_PROGRESS && Array.length array == 4 then (
+ if event == G.EVENT_PROGRESS && Array.length array >= 4 then (
let proc_nr = array.(0)
and serial = array.(1)
and position = array.(2)
let oses = List.map (
fun root ->
let typ = g#inspect_get_type root in
+ let windows_current_control_set =
+ if typ <> "windows" then None
+ else (
+ try Some (g#inspect_get_windows_current_control_set root)
+ with G.Error _ -> None
+ ) in
let windows_systemroot =
if typ <> "windows" then None
else (
insp_root = root;
insp_arch = g#inspect_get_arch root;
insp_distro = g#inspect_get_distro root;
+ insp_drive_mappings = g#inspect_get_drive_mappings root;
insp_filesystems = g#inspect_get_filesystems root;
insp_hostname = g#inspect_get_hostname root;
insp_major_version = g#inspect_get_major_version root;
insp_package_format = g#inspect_get_package_format root;
insp_package_management = g#inspect_get_package_management root;
insp_product_name = g#inspect_get_product_name root;
+ insp_product_variant = g#inspect_get_product_variant root;
insp_type = typ;
+ insp_windows_current_control_set = windows_current_control_set;
insp_windows_systemroot = windows_systemroot;
insp_winreg_DEFAULT = None; (* incomplete, see below *)
insp_winreg_SAM = None;