Runtime: jsoo_is_win32

Author: hhugo

runtime/js/fs.js

@@ -50,6 +50,7 @@ function MlFile() {}
 
 //Provides: path_is_absolute
 //Requires: fs_node_supported
+//Requires: jsoo_is_win32
 function make_path_is_absolute() {
   function posix(path) {
     if (path.charAt(0) === "/") return ["", path.slice(1)];
@@ -72,13 +73,7 @@ function make_path_is_absolute() {
     }
     return;
   }
-  if (
-    fs_node_supported() &&
-    globalThis.process &&
-    globalThis.process.platform
-  ) {
-    return globalThis.process.platform === "win32" ? win32 : posix;
-  } else return posix;
+  return jsoo_is_win32 ? win32 : posix;
 }
 var path_is_absolute = make_path_is_absolute();
 

runtime/js/fs_node.js

@@ -17,6 +17,11 @@
 // along with this program; if not, write to the Free Software
 // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
+//Provides: jsoo_is_win32
+var jsoo_is_win32 =
+  globalThis.Deno?.build?.os === "windows" ||
+  globalThis.process?.platform === "win32";
+
 //Provides: fs_node_supported
 function fs_node_supported() {
   return globalThis.process?.versions?.node !== undefined;
@@ -30,6 +35,7 @@ function fs_node_supported() {
 //Provides: MlNodeDevice
 //Requires: MlNodeFd, caml_raise_sys_error, caml_string_of_jsstring
 //Requires: caml_raise_nodejs_error, fs_node_stats_from_js
+//Requires: jsoo_is_win32
 class MlNodeDevice {
   constructor(root) {
     this.fs = require("node:fs");
@@ -133,10 +139,7 @@ class MlNodeDevice {
           res |= consts.W_OK;
           break;
         case "x":
-          res |=
-            globalThis.process?.platform === "win32"
-              ? consts.R_OK
-              : consts.X_OK;
+          res |= jsoo_is_win32 ? consts.R_OK : consts.X_OK;
           break;
         case "f":
           res |= consts.F_OK;
@@ -210,7 +213,7 @@ class MlNodeDevice {
   }
 
   rename(o, n, raise_unix) {
-    if (globalThis.process?.platform === "win32") {
+    if (jsoo_is_win32) {
       try {
         var target = this.nm(n);
         var source = this.nm(o);

runtime/js/sys.js

@@ -298,7 +298,8 @@ function caml_sys_const_backend_type() {
 }
 
 //Provides: os_type
-var os_type = globalThis.process?.platform === "win32" ? "Win32" : "Unix";
+//Requires: jsoo_is_win32
+var os_type = jsoo_is_win32 ? "Win32" : "Unix";
 
 //Provides: caml_sys_get_config const
 //Requires: caml_string_of_jsbytes, os_type