diff options
Diffstat (limited to 'otherlibs/win32unix')
| -rw-r--r-- | otherlibs/win32unix/unix.ml | 9 | ||||
| -rw-r--r-- | otherlibs/win32unix/unix.mli | 9 |
2 files changed, 12 insertions, 6 deletions
diff --git a/otherlibs/win32unix/unix.ml b/otherlibs/win32unix/unix.ml index f07a67302..5fa71cec9 100644 --- a/otherlibs/win32unix/unix.ml +++ b/otherlibs/win32unix/unix.ml @@ -170,10 +170,13 @@ let write fd buf ofs len = then invalid_arg "Unix.write" else unsafe_write fd buf ofs len -external in_channel_of_descr : file_descr -> in_channel = "open_descriptor" -external out_channel_of_descr : file_descr -> out_channel = "open_descriptor" +external in_channel_of_descr : file_descr -> in_channel + = "caml_open_descriptor" +external out_channel_of_descr : file_descr -> out_channel + = "caml_open_descriptor" external descr_of_in_channel : in_channel -> file_descr = "channel_descriptor" -external descr_of_out_channel : out_channel -> file_descr = "channel_descriptor" +external descr_of_out_channel : out_channel -> file_descr + = "channel_descriptor" type seek_command = SEEK_SET diff --git a/otherlibs/win32unix/unix.mli b/otherlibs/win32unix/unix.mli index bfb6db69f..edf6ddaf0 100644 --- a/otherlibs/win32unix/unix.mli +++ b/otherlibs/win32unix/unix.mli @@ -206,13 +206,16 @@ val write : file_descr -> string -> int -> int -> int (*** Interfacing with the standard input/output library. *) -external in_channel_of_descr : file_descr -> in_channel = "open_descriptor" +external in_channel_of_descr : file_descr -> in_channel + = "caml_open_descriptor" (* Create an input channel reading from the given descriptor. *) -external out_channel_of_descr : file_descr -> out_channel = "open_descriptor" +external out_channel_of_descr : file_descr -> out_channel + = "caml_open_descriptor" (* Create an output channel writing on the given descriptor. *) external descr_of_in_channel : in_channel -> file_descr = "channel_descriptor" (* Return the descriptor corresponding to an input channel. *) -external descr_of_out_channel : out_channel -> file_descr = "channel_descriptor" +external descr_of_out_channel : out_channel -> file_descr + = "channel_descriptor" (* Return the descriptor corresponding to an output channel. *) |