+ | File_xattrs (src, pathname, cb) ->
+ status "Getting file xattrs for %s ..." pathname;
+
+ let g = get_g () in
+ let r =
+ with_mount_ro g src (
+ fun () ->
+ g#getxattrs pathname
+ ) in
+
+ 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) as cmd ->