Implement IO.move() and move()

rakudo · Aug 28, 2015 · eb6de6d · eb6de6d
1 parent 97ae81f
commit eb6de6d
Show file tree

Hide file tree

Showing 2 changed files with 37 additions and 0 deletions.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -334,6 +334,26 @@ my class IO::Path is Cool {
         self.copy($to.IO(:$!SPEC,:$CWD),|c);
     }
 
+    method move(IO::Path:D: |c) {
+        my $result = self.copy(|c);
+
+        fail X::IO::Move.new(
+            :from($result.exception.from),
+            :to($result.exception.to),
+            :os-error($result.exception.os-error),
+        ) unless $result.defined;
+
+        $result = self.unlink();
+
+        fail X::IO::Move.new(
+            :from($result.exception.from),
+            :to($result.exception.to),
+            :os-error($result.exception.os-error),
+        ) unless $result.defined;
+
+        True
+    }
+
     method chmod(IO::Path:D: Int() $mode) {
         nqp::chmod($.abspath, nqp::unbox_i($mode));
         CATCH { default {

diff --git a/src/core/io_operators.pm b/src/core/io_operators.pm
@@ -242,6 +242,23 @@ sub copy($from, $to, :$SPEC = $*SPEC, :$CWD = $*CWD, :$createonly) {
     my $result := $from.IO(:$SPEC,:$CWD).copy($to,:$SPEC,:$CWD, :$createonly);
     $result // $result.throw;
 }
+sub move($from, $to, :$createonly) {
+    try {
+        copy($from, $to, :$createonly);
+        unlink($from);
+        return True;
+
+        CATCH {
+            when X::IO::Copy|X::IO::Unlink {
+                fail X::IO::Move.new(
+                    :from(.from),
+                    :to(.to),
+                    :os-error(.os-error),
+                );
+            }
+        }
+    }
+}
 sub symlink($target, $name, :$SPEC = $*SPEC, :$CWD = $*CWD) {
     my $result := $target.IO(:$SPEC,:$CWD).symlink($name,:$SPEC,:$CWD);
     $result // $result.throw;