diff options
Diffstat (limited to 'stdlib/filename.ml')
| -rw-r--r-- | stdlib/filename.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/stdlib/filename.ml b/stdlib/filename.ml index af63af08f..d749c1943 100644 --- a/stdlib/filename.ml +++ b/stdlib/filename.ml @@ -1,3 +1,16 @@ +(***********************************************************************) +(* *) +(* Caml Special Light *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1995 Institut National de Recherche en Informatique et *) +(* Automatique. Distributed only by permission. *) +(* *) +(***********************************************************************) + +(* $Id$ *) + let check_suffix name suff = String.length name >= String.length suff & String.sub name (String.length name - String.length suff) (String.length suff) |