Runtime: caml_ml_is_binary_mode

compiler/tests-full/stdlib.cma.expected.js

@@ -1136,8 +1136,8 @@
     caml_maybe_attach_backtrace = runtime.caml_maybe_attach_backtrace,
     caml_wrap_exception = runtime.caml_wrap_exception,
     global_data = runtime.caml_get_global_data(),
-    ocaml_version = "5.2.0+dev0-2023-04-11",
-    ocaml_release = [0, 5, 2, 0, [0, [0, 0, "dev0-2023-04-11"]]],
+    ocaml_version = "5.2.0+dev2-2023-12-22",
+    ocaml_release = [0, 5, 2, 0, [0, [0, 0, "dev2-2023-12-22"]]],
     Stdlib = global_data.Stdlib,
      /*<<sys.ml.in:36:22>>*/ executable_name =
        /*<<sys.ml.in:36:22>>*/ runtime.caml_sys_executable_name(0),
@@ -23889,6 +23889,7 @@
        pos,
        length,
        set_binary_mode,
+       runtime.caml_ml_is_binary_mode,
        runtime.caml_sys_isatty];
    runtime.caml_register_global(9, Stdlib_In_channel, "Stdlib__In_channel");
    return;
@@ -24001,6 +24002,7 @@
        pos,
        length,
        set_binary_mode,
+       runtime.caml_ml_is_binary_mode,
        runtime.caml_ml_set_buffered,
        runtime.caml_ml_is_buffered,
        runtime.caml_sys_isatty];

runtime/io.js

@@ -187,6 +187,13 @@ function caml_ml_set_binary_mode(chanid,mode){
   return 0;
 }
 
+//Provides: caml_ml_is_binary_mode
+//Requires: caml_ml_channels
+function caml_ml_is_binary_mode(chanid) {
+  var chan = caml_ml_channels[chanid];
+  return chan.file.flags.binary 
+}
+
 //Input from in_channel
 
 //Provides: caml_ml_close_channel