Ajout de Pervasives.set_binary_mode_{in,out}

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2007 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 10 insertions, 0 deletions

diff --git a/byterun/io.c b/byterun/io.c
index 41d20a9da4..4201944661 100644
--- a/byterun/io.c
+++ b/byterun/io.c
@@ -416,6 +416,16 @@ value caml_channel_size(value vchannel)      /* ML */
   return Val_long(channel_size(Channel(vchannel)));
 }
 
+value caml_set_binary_mode(value vchannel, value mode) /* ML */
+{
+#ifdef _WIN32
+  struct channel * channel = Channel(vchannel);
+  if (setmode(channel->fd, Bool_val(mode) ? O_BINARY : O_TEXT) == -1)
+    sys_error(NO_ARG);
+#endif
+  return Val_unit;
+}
+
 value caml_flush_partial(value vchannel)            /* ML */
 {
   struct channel * channel = Channel(vchannel);