Seeking directory traversal example

Seeking directory traversal example

[Francisco Reyes]

Anyone has sample code I could use for Ocaml to traverse a
directory?

Basically I am trying to create a program to clean old files.
This program will accept two parameters date and days. Any files
older than "days" will be deleted.


francisco
Moderator of the Corporate BSD list
http://www.egroups.com/group/BSD_Corporate

Re: Seeking directory traversal example

[Michel Quercia]

Le Thu, 26 Oct 2000, vous avez écrit :
> Anyone has sample code I could use for Ocaml to traverse a
> directory?

Here is a small example

(* body = what to do with a filename *)
(* root = root of the directory tree, with a trailing slash *)

let rec dir_iter body root =
  let h = Unix.opendir root in
  try while true do
    let f = Unix.readdir h in
    if (f <> ".") && (f <> "..") then begin
      let fn = root ^ f in
      body fn;
      if (Unix.lstat fn).Unix.st_kind = Unix.S_DIR then dir_iter body (fn ^ "/")
    end
  done
  with End_of_file -> Unix.closedir h
;;

val dir_iter : (string -> 'a) -> string -> unit = <fun>

Note that you may need to catch more exceptions than just Eno_of_file, for
example trying to browse a directory for which you don't have read permission
will trigger the exception : Unix.Unix_error (Unix.EACCES, "opendir", "...")
-- 
Michel Quercia
57 rue abbé Grégoire, 38000 Grenoble
http://pauillac.inria.fr/~quercia
mailto:quercia@cal.enst.fr