From ca0b21c5adbe660a52e5a9dfe1dda16985fe5f7c Mon Sep 17 00:00:00 2001 From: Jacques Garrigue Date: Tue, 30 Nov 1999 14:59:39 +0000 Subject: Add to HEAD branch git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2649 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/labltk/browser/useunix.ml | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 otherlibs/labltk/browser/useunix.ml (limited to 'otherlibs/labltk/browser/useunix.ml') diff --git a/otherlibs/labltk/browser/useunix.ml b/otherlibs/labltk/browser/useunix.ml new file mode 100644 index 000000000..33dd20f2b --- /dev/null +++ b/otherlibs/labltk/browser/useunix.ml @@ -0,0 +1,36 @@ +(* $Id$ *) + +open Unix + +let get_files_in_directory dir = + try + let dirh = opendir dir in + let rec get_them () = + try + let x = readdir dirh in + x :: get_them () + with + _ -> closedir dirh; [] + in + Sort.list order:(<) (get_them ()) + with Unix_error _ -> [] + +let is_directory name = + try + (stat name).st_kind = S_DIR + with _ -> false + +let get_directories_in_files :path = + List.filter pred:(fun x -> is_directory (path ^ "/" ^ x)) + +(************************************************** Subshell call *) +let subshell :cmd = + let rc = open_process_in cmd in + let rec it () = + try + let x = input_line rc in x :: it () + with _ -> [] + in + let answer = it () in + ignore (close_process_in rc); + answer -- cgit v1.2.3-70-g09d2