[js] Implement (or fix) nqp::stat, nqp::stat_time, nqp::lstat_time, n…

…qp::lstat.
Raku · Jan 11, 2016 · a40c4c5 · a40c4c5
1 parent 3baf0b6
commit a40c4c5
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 2 deletions.
diff --git a/src/vm/js/QAST/Compiler.nqp b/src/vm/js/QAST/Compiler.nqp
@@ -1071,6 +1071,10 @@ class QAST::OperationsJS {
     add_simple_op('radix', $T_OBJ, [$T_INT, $T_STR, $T_INT, $T_INT]);
 
     add_simple_op('stat', $T_INT, [$T_STR, $T_INT]);
+    add_simple_op('stat_time', $T_NUM, [$T_STR, $T_INT]);
+
+    add_simple_op('lstat', $T_INT, [$T_STR, $T_INT]);
+    add_simple_op('lstat_time', $T_NUM, [$T_STR, $T_INT]);
 
     add_simple_op('defined', $T_INT, [$T_OBJ]);
     %ops<isconcrete> := %ops<defined>;

diff --git a/src/vm/js/nqp-runtime/io.js b/src/vm/js/nqp-runtime/io.js
@@ -30,7 +30,7 @@ op.say = function(arg) {
   }
 };
 
-op.stat = function(file, code) {
+function stat(file, code, lstat) {
   var EXISTS = 0;
   var FILESIZE = 1;
   var ISDIR = 2;
@@ -54,7 +54,11 @@ op.stat = function(file, code) {
 
   // we can't use fs.existsSync(file) as it follows symlinks
   try {
-    var stats = fs.lstatSync(file);
+    if (lstat) {
+      var stats = fs.lstatSync(file);
+    } else {
+      var stats = fs.statSync(file);
+    }
   } catch (err) {
     if (code == EXISTS && err.code === 'ENOENT') {
       return 0;
@@ -86,6 +90,23 @@ op.stat = function(file, code) {
     case PLATFORM_BLOCKSIZE: return stats.blksize;
     case PLATFORM_BLOCKS: return stats.blocks;
   }
+}
+
+
+op.stat = function(file, code) {
+  return stat(file, code, false) | 0;
+};
+
+op.stat_time = function(file, code) {
+  return stat(file, code, false);
+};
+
+op.lstat = function(file, code) {
+  return stat(file, code, true) | 0;
+};
+
+op.lstat_time = function(file, code) {
+  return stat(file, code, true);
 };
 
 function FileHandle(fd) {