Author: jonathan
Date: Tue Jul 29 03:35:05 2008
New Revision: 29840
Modified:
trunk/languages/perl6/src/classes/IO.pir
Log:
[rakudo] Implement .eof on file handles, and make IOIterator do something
closer to the write thing in item/string contexts.
Modified: trunk/languages/perl6/src/classes/IO.pir
==============================================================================
--- trunk/languages/perl6/src/classes/IO.pir (original)
+++ trunk/languages/perl6/src/classes/IO.pir Tue Jul 29 03:35:05 2008
@@ -90,6 +90,24 @@
.end
+=item eof
+
+Tests if we have reached the end of the file.
+
+=cut
+
+.sub 'eof' :method
+ .local pmc PIO
+ PIO = getattribute self, "$!PIO"
+ if PIO goto not_eof
+ $P0 = get_hll_global [ 'Bool' ], 'True'
+ .return ($P0)
+ not_eof:
+ $P0 = get_hll_global [ 'Bool' ], 'False'
+ .return ($P0)
+.end
+
+
=item close
Closes the file.
@@ -146,7 +164,7 @@
.return(1)
.end
-.sub shift_pmc :method :vtable
+.sub 'item' :method :vtable('shift_pmc')
.local pmc pio
$P0 = getattribute self, "$!IO"
pio = getattribute $P0, "$!PIO"
@@ -154,7 +172,11 @@
.return($P0)
.end
-.sub get_iter :method :vtable
+.sub 'get_string' :vtable
+ .return self.'item'()
+.end
+
+.sub 'get_iter' :method :vtable
.return(self)
.end
