Runtime: add Unix.has_symlink

phated · Sep 28, 2021 · b2cf7cb · b2cf7cb
1 parent 7407778
commit b2cf7cb
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/compiler/tests-check-prim/output b/compiler/tests-check-prim/output
@@ -170,6 +170,7 @@ unix_getpwuid
 unix_gettimeofday
 unix_getuid
 unix_gmtime
+unix_has_symlink
 unix_isatty
 unix_localtime
 unix_lstat

diff --git a/runtime/unix.js b/runtime/unix.js
@@ -197,3 +197,9 @@ function unix_getuid(unit) {
 function unix_getpwuid(unit) {
   caml_raise_not_found()
 }
+
+//Provides: unix_has_symlink
+//Requires: fs_node_supported
+function unix_has_symlink(unit) {
+  return fs_node_supported()?1:0
+}