Implement getc funcion in IO, add getc.t to spectest.data

rakudo · Apr 8, 2010 · 8681735 · 8681735
1 parent 6b54693
commit 8681735
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -51,6 +51,12 @@ class IO {
         self.print(@items, "\n");
     }
 
+    multi method getc() {
+        my $c = $!PIO.read(1);
+        fail if $c eq '';
+        $c;
+    }
+
     multi method slurp() {
         $!PIO.readall();
     }
@@ -83,6 +89,8 @@ multi sub prompt($msg) {
 
 multi sub say(Mu *@items) { $*OUT.say(@items); }
 
+sub getc($handle) { $handle.getc(); }
+
 sub open($filename, :$r, :$w, :$a) {
     my $mode = $w ?? 'w' !! ($a ?? 'wa' !! 'r');
     my $PIO = pir::open__PSS($filename, $mode);

diff --git a/t/spectest.data b/t/spectest.data
@@ -428,6 +428,7 @@ S16-filehandles/open.t
 # S16-io/bare-say.t
 S16-io/basic-open.t
 S16-io/say.t
+S16-io/getc.t
 # S16-unfiled/rebindstdhandles.t
 S16-unfiled/slurp.t
 # S28-named-variables/cwd.t