Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (12 sloc) 469 Bytes
(*
* Copyright (c) 2016 Jeremy Yallop.
*
* This file is distributed under the terms of the MIT License.
* See the file LICENSE for details.
*)
external nativeint_of_dir_handle : Unix.dir_handle -> nativeint
= "nativeint_of_dir_handle_stub"
external dir_handle_of_nativeint : nativeint -> Unix.dir_handle
= "dir_handle_of_nativeint_stub"
let int_of_file_descr : Unix.file_descr -> int = Obj.magic
let file_descr_of_int : int -> Unix.file_descr = Obj.magic
You can’t perform that action at this time.