add symlink and link

src/core/Exception.pm

@@ -296,6 +296,22 @@ my class X::IO::Copy does X::IO is Exception {
     }
 }
 
+my class X::IO::Symlink does X::IO is Exception {
+    has $.target;
+    has $.name;
+    method message() {
+        "Failed to create symlink called '$.name' on target '$.target': $.os-error"
+    }
+}
+
+my class X::IO::Link does X::IO is Exception {
+    has $.target;
+    has $.name;
+    method message() {
+        "Failed to create link called '$.name' on target '$.target': $.os-error"
+    }
+}
+
 my class X::IO::Mkdir does X::IO is Exception {
     has $.path;
     has $.mode;

src/core/IO.pm

@@ -507,5 +507,33 @@ sub copy(Cool $from as Str, Cool $to as Str) {
         }
     }
 }
+my class X::IO::Symlink { ... }
+my class X::IO::Link    { ... }
+sub symlink(Cool $target as Str, Cool $name as Str) {
+    nqp::symlink(nqp::unbox_s($target), nqp::unbox_s($name));
+    return True;
+    CATCH {
+        default {
+            X::IO::Symlink.new(
+                :$target,
+                :$name,
+                os-error => .Str,
+            ).throw;
+        }
+    }
+}
+sub link(Cool $target as Str, Cool $name as Str) {
+    nqp::link(nqp::unbox_s($target), nqp::unbox_s($name));
+    return True;
+    CATCH {
+        default {
+            X::IO::Link.new(
+                :$target,
+                :$name,
+                os-error => .Str,
+            ).throw;
+        }
+    }
+}
 
 sub chmod($mode, $filename) { $filename.IO.chmod($mode); $filename }

tools/build/NQP_REVISION

@@ -1 +1 @@
-2013.03-14-g8a6373f
+2013.03-15-g5104c2e