Wasm runtime: add Sys.rmdir

ocsigen · Jan 25, 2025 · 06fc2d5 · 06fc2d5
1 parent a54d8b1
commit 06fc2d5
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/runtime/wasm/fs.wat b/runtime/wasm/fs.wat
@@ -20,6 +20,7 @@
    (import "bindings" "getcwd" (func $getcwd (result anyref)))
    (import "bindings" "chdir" (func $chdir (param anyref)))
    (import "bindings" "mkdir" (func $mkdir (param anyref) (param i32)))
+   (import "bindings" "rmdir" (func $rmdir (param anyref)))
    (import "bindings" "unlink" (func $unlink (param anyref)))
    (import "bindings" "readdir"
       (func $readdir (param anyref) (result (ref extern))))
@@ -83,6 +84,16 @@
             (call $caml_handle_sys_error (pop externref))
             (return (ref.i31 (i32.const 0))))))
 
+   (func (export "caml_sys_rmdir")
+      (param $name (ref eq)) (result (ref eq))
+      (try
+         (do
+            (call $rmdir
+               (call $unwrap (call $caml_jsstring_of_string (local.get $name)))))
+         (catch $javascript_exception
+            (call $caml_handle_sys_error (pop externref))))
+      (ref.i31 (i32.const 0)))
+
    (func (export "caml_sys_remove")
       (param $name (ref eq)) (result (ref eq))
       (try

diff --git a/runtime/wasm/runtime.js b/runtime/wasm/runtime.js
@@ -412,6 +412,7 @@
     getcwd: () => (isNode ? process.cwd() : "/static"),
     chdir: (x) => process.chdir(x),
     mkdir: (p, m) => fs.mkdirSync(p, m),
+    rmdir: (p) => fs.rmdirSync(p),
     unlink: (p) => fs.unlinkSync(p),
     readdir: (p) => fs.readdirSync(p),
     file_exists: (p) => +fs.existsSync(p),