file (a ASCII NUL-separated text file), and then calls the
callback function. *)
+val disk_usage : ?fail:exn callback -> source -> string -> int64 callback -> unit
+ (** [disk_usage src pathname cb] calculates the disk usage of
+ directory [pathname] and calls the callback with the answer
+ (size of {b kilobytes}). *)
+
val discard_command_queue : unit -> unit
(** [discard_command_queue ()] discards any commands on the command
queue.
the slave thread stops working on a command {i and} has no
more commands left in the queue to work on. *)
+val set_status_hook : string callback -> unit
+ (** Set the function in the main thread which is called to
+ update the status bar. The slave thread updates the
+ status bar when an operation starts or stops, keeping the
+ user informed of what is happening. *)
+
val set_progress_hook : (int64 * int64) callback -> unit
(** Set the function in the main thread which is called whenever
the slave thread receives a progress notification message