Add IO.open to allow attaching an existing IO object to a file. Also …

…now understands "-" as a filename meaning "standard input".
rakudo · Jun 30, 2010 · 8e7bf30 · 8e7bf30
1 parent 806efc8
commit 8e7bf30
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -35,6 +35,19 @@ class IO is Cool {
         }
     }
 
+    method open($filename, :$r, :$w, :$a) {
+        if $!PIO { $!PIO.close; $!PIO = Nil; }
+        my $mode = $w ?? 'w' !! ($a ?? 'wa' !! 'r');
+        $!PIO = $filename eq '-'
+                ?? pir::getstdin__P()
+                !! pir::open__PSS($filename, $mode);
+        unless pir::istrue__IP($!PIO) {
+            fail("Unable to open file '$filename'");
+        }
+        $!PIO.encoding('utf8');
+        self;
+    }
+
     multi method print(*@items) {
         try {
             for @items -> $item {