diff options
| author | Emilio Jesus Gallego Arias | 2018-11-09 13:01:53 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-11-12 03:32:32 +0100 |
| commit | a8a3aeb49f3627a65c86c92b0ed743f7bfcf9ffb (patch) | |
| tree | 9f0e929522f2c46249200ff4e270833c014c0ec9 /clib | |
| parent | 186d67228018a84a93de024971356249ddbde668 (diff) | |
[clib] Remove unneeded `get_extension` function.
This has been in OCaml since 4.04.
Diffstat (limited to 'clib')
| -rw-r--r-- | clib/cUnix.ml | 4 | ||||
| -rw-r--r-- | clib/cUnix.mli | 4 |
2 files changed, 0 insertions, 8 deletions
diff --git a/clib/cUnix.ml b/clib/cUnix.ml index 6b42e3041d..eedd878f93 100644 --- a/clib/cUnix.ml +++ b/clib/cUnix.ml @@ -74,10 +74,6 @@ let canonical_path_name p = let make_suffix name suffix = if Filename.check_suffix name suffix then name else (name ^ suffix) -let get_extension f = - let pos = try String.rindex f '.' with Not_found -> String.length f in - String.sub f pos (String.length f - pos) - let correct_path f dir = if Filename.is_relative f then Filename.concat dir f else f diff --git a/clib/cUnix.mli b/clib/cUnix.mli index 1b185345be..896ccd4ea7 100644 --- a/clib/cUnix.mli +++ b/clib/cUnix.mli @@ -38,10 +38,6 @@ val path_to_list : string -> string list [file] does not already end with [suf]. *) val make_suffix : string -> string -> string -(** Return the extension of a file, i.e. its smaller suffix starting - with "." if any, or "" otherwise. *) -val get_extension : string -> string - val file_readable_p : string -> bool (** {6 Executing commands } *) |