← Back to branch summary

~ubuntu-branches/debian/jessie/coq/jessie

« back to all changes in this revision

Viewing changes to lib/system.ml

  • Committer: Package Import Robot
  • Author(s): Stéphane Glondu
  • Date: 2011-12-25 13:46:09 UTC
  • mfrom: (1.3.6) (6.1.10 sid)
  • Revision ID: package-import@ubuntu.com-20111225134609-zwqkzmeni9g2xlq1
Tags: 8.3.pl3+dfsg-1
* New upstream release
  - remove all patches (applied upstream)

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/system.ml
1
1
(************************************************************************)
2
2
(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
3
 
(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010     *)
 
3
(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2011     *)
4
4
(*   \VV/  **************************************************************)
5
5
(*    //   *      This file is distributed under the terms of the       *)
6
6
(*         *       GNU Lesser General Public License Version 2.1        *)
7
7
(************************************************************************)
8
8
 
9
 
(* $Id: system.ml 13750 2010-12-24 09:55:54Z letouzey $ *)
 
9
(* $Id: system.ml 14641 2011-11-06 11:59:10Z herbelin $ *)
10
10
 
11
11
open Pp
12
12
open Util
103
103
(* All subdirectories, recursively *)
104
104
 
105
105
let exists_dir dir =
106
 
  try let _ = opendir dir in true with Unix_error _ -> false
 
106
  try let _ = closedir (opendir dir) in true with Unix_error _ -> false
107
107
 
108
108
let skipped_dirnames = ref ["CVS"; "_darcs"]
109
109