diff options
Diffstat (limited to 'lib/system.mli')
| -rw-r--r-- | lib/system.mli | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/system.mli b/lib/system.mli index b887f5eb5..f89e128cb 100644 --- a/lib/system.mli +++ b/lib/system.mli @@ -6,6 +6,17 @@ val add_path : string -> unit val del_path : string -> unit +val find_file_in_path : string -> string + +(*s Generic input and output functions, parameterized by a magic number + and a suffix. The intern functions raise the exception [Bad_magic_number] + when the check fails, with the full file name. *) + +exception Bad_magic_number of string + +val raw_extern_intern : int -> string -> + (string -> string * out_channel) * (string -> string * in_channel) + val extern_intern : int -> string -> (string -> 'a -> unit) * (string -> 'a) (*s Time stamps. *) |