Add :tc to signatures for file ops.

Author: donaldh

src/vm/jvm/QAST/Compiler.nqp

@@ -1900,15 +1900,15 @@ QAST::OperationsJAST.map_classlib_core_op('readallfh', $TYPE_OPS, 'readallfh', [
 QAST::OperationsJAST.map_classlib_core_op('eoffh', $TYPE_OPS, 'eoffh', [$RT_OBJ], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('closefh', $TYPE_OPS, 'closefh', [$RT_OBJ], $RT_OBJ, :tc);
 
-QAST::OperationsJAST.map_classlib_core_op('chmod', $TYPE_OPS, 'chmod', [$RT_STR, $RT_INT], $RT_INT);
-QAST::OperationsJAST.map_classlib_core_op('unlink', $TYPE_OPS, 'unlink', [$RT_STR], $RT_INT);
-QAST::OperationsJAST.map_classlib_core_op('rmdir', $TYPE_OPS, 'rmdir', [$RT_STR], $RT_INT);
+QAST::OperationsJAST.map_classlib_core_op('chmod', $TYPE_OPS, 'chmod', [$RT_STR, $RT_INT], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('unlink', $TYPE_OPS, 'unlink', [$RT_STR], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('rmdir', $TYPE_OPS, 'rmdir', [$RT_STR], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('cwd', $TYPE_OPS, 'cwd', [], $RT_STR);
 QAST::OperationsJAST.map_classlib_core_op('chdir', $TYPE_OPS, 'chdir', [$RT_STR], $RT_STR, :tc);
-QAST::OperationsJAST.map_classlib_core_op('mkdir', $TYPE_OPS, 'mkdir', [$RT_STR, $RT_INT], $RT_INT);
-QAST::OperationsJAST.map_classlib_core_op('rename', $TYPE_OPS, 'rename', [$RT_STR, $RT_STR], $RT_INT);
-QAST::OperationsJAST.map_classlib_core_op('copy', $TYPE_OPS, 'copy', [$RT_STR, $RT_STR], $RT_INT);
-QAST::OperationsJAST.map_classlib_core_op('link', $TYPE_OPS, 'link', [$RT_STR, $RT_STR], $RT_INT);
+QAST::OperationsJAST.map_classlib_core_op('mkdir', $TYPE_OPS, 'mkdir', [$RT_STR, $RT_INT], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('rename', $TYPE_OPS, 'rename', [$RT_STR, $RT_STR], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('copy', $TYPE_OPS, 'copy', [$RT_STR, $RT_STR], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('link', $TYPE_OPS, 'link', [$RT_STR, $RT_STR], $RT_INT, :tc);
 
 # Two variants of shell until we deprecate shell1
 QAST::OperationsJAST.map_classlib_core_op('shell1', $TYPE_OPS, 'shell1', [$RT_STR], $RT_INT, :tc);
@@ -1920,7 +1920,7 @@ QAST::OperationsJAST.add_core_op('shell', -> $qastcomp, $op {
         !! QAST::Op.new( :op('shell3'), |@operands ));
 });
 
-QAST::OperationsJAST.map_classlib_core_op('symlink', $TYPE_OPS, 'symlink', [$RT_STR, $RT_STR], $RT_INT);
+QAST::OperationsJAST.map_classlib_core_op('symlink', $TYPE_OPS, 'symlink', [$RT_STR, $RT_STR], $RT_INT, :tc);
 
 QAST::OperationsJAST.map_classlib_core_op('opendir', $TYPE_OPS, 'opendir', [$RT_STR], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('nextfiledir', $TYPE_OPS, 'nextfiledir', [$RT_OBJ], $RT_STR, :tc);

src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java

@@ -604,6 +604,10 @@ public static Set<PosixFilePermission> modeToPosixFilePermission(long mode) {
     }
 
     public static long chmod(String path, long mode) {
+        return chmod(path, mode, null);
+    }
+    
+    public static long chmod(String path, long mode, ThreadContext tc) {
         Path path_o;
         try {
             path_o = Paths.get(path);
@@ -623,6 +627,10 @@ public static long chmod(String path, long mode) {
     }
 
     public static long unlink(String path) {
+        return unlink(path, null);
+    }
+    
+    public static long unlink(String path, ThreadContext tc) {
         try {
             if(!Files.deleteIfExists(Paths.get(path))) {
                 return -2;
@@ -635,6 +643,10 @@ public static long unlink(String path) {
     }
 
     public static long rmdir(String path) {
+        return rmdir(path, null);
+    }
+    
+    public static long rmdir(String path, ThreadContext tc) {
         Path path_o = Paths.get(path);
         try {
             if (!Files.isDirectory(path_o)) {
@@ -656,8 +668,12 @@ public static String chdir(String path, ThreadContext tc) {
     	die_s("chdir is not available on JVM", tc);
     	return null;
     }
-    
+        
     public static long mkdir(String path, long mode) {
+        return mkdir(path, mode, null);
+    }
+    
+    public static long mkdir(String path, long mode, ThreadContext tc) {
         try {
             Files.createDirectory(Paths.get(path),
                         PosixFilePermissions.asFileAttribute(modeToPosixFilePermission(mode)));
@@ -670,6 +686,10 @@ public static long mkdir(String path, long mode) {
     }
 
     public static long rename(String before, String after) {
+        return rename(before, after, null);
+    }
+    
+    public static long rename(String before, String after, ThreadContext tc) {
         Path before_o = Paths.get(before);
         Path after_o = Paths.get(after);
         try {
@@ -682,18 +702,27 @@ public static long rename(String before, String after) {
     }
 
     public static long copy(String before, String after) {
+        return copy(before, after, null);
+    }
+    
+    public static long copy(String before, String after, ThreadContext tc) {
         Path before_o = Paths.get(before);
         Path after_o = Paths.get(after);
         try {
             Files.copy(before_o, after_o);
         }
         catch (Exception e) {
             return -1;
+//            die_s(e.getMessage(), tc);
         }
         return 0;
     }
 
     public static long link(String before, String after) {
+        return link(before, after, null);
+    }
+    
+    public static long link(String before, String after, ThreadContext tc) {
         Path before_o = Paths.get(before);
         Path after_o = Paths.get(after);
         try {
@@ -747,6 +776,10 @@ public static long shell3(String cmd, String dir, SixModelObject envObj, ThreadC
     }
 
     public static long symlink(String before, String after) {
+        return symlink(before, after, null);
+    }
+    
+    public static long symlink(String before, String after, ThreadContext tc) {
         Path before_o = Paths.get(before);
         Path after_o = Paths.get(after);
         try {