From 27c082c04663ff18459777e111aca4cde20df265 Mon Sep 17 00:00:00 2001
From: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Date: Tue, 16 Nov 1999 10:29:03 +0000
Subject: leave labltk only in olabl branch

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2536 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 otherlibs/labltk/browser/useunix.ml | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete 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
deleted file mode 100644
index 33dd20f2b..000000000
--- a/otherlibs/labltk/browser/useunix.ml
+++ /dev/null
@@ -1,36 +0,0 @@
-(* $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