with End_of_file ->
dirh.System.closedir ()
end;
Sort.list (<) !files
List.sort compare !files
let ls dir pattern =
Util.convertUnixErrorsToTransient
(* Sorts the paths so that they will be displayed in order *)
let sortPaths pathUpdatesList =
Sort.list
List.sort
(fun (p1, _) (p2, _) -> Path.compare p1 p2 <= 0)
(fun (p1, _) (p2, _) -> Path.compare p1 p2)
pathUpdatesList
let rec enterPath p1 p2 t =
let chmod = Unix.chmod
let chown = Unix.chown
let utimes = Unix.utimes
let link = Unix.link
let link s1 s2 = Unix.link s1 s2
let openfile = Unix.openfile
let opendir f =
let h = Unix.opendir f in
let icon =
let p = GdkPixbuf.create ~width:48 ~height:48 ~has_alpha:true () in
Gpointer.blit
(Gpointer.region_of_string Pixmaps.icon_data) (GdkPixbuf.get_pixels p);
(Gpointer.region_of_bytes Pixmaps.icon_data) (GdkPixbuf.get_pixels p);
p
let leftPtrWatch =