From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from weis@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id IAA09624 for caml-red; Fri, 27 Oct 2000 08:36:30 +0200 (MET DST)
Date: Fri, 27 Oct 2000 08:36:28 +0200 (MET DST)
From: Pierre Weis <weis@pauillac.inria.fr>
Message-Id: <200010270636.IAA09624@pauillac.inria.fr>
Sender: weis@pauillac.inria.fr

ng a directory. *)

let read_directory name =
  let hand = opendir name in
  let names = ref [] in
  begin
    try
      while true do
        let name = readdir hand in
        if name <> "." && name <> ".." then
          names := name :: !names
      done
    with
      End_of_file ->
        ()
  end;
  List.rev (!names)