New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Implemetation of list assignment for IOIterator #475
Comments
From @bacekHello. There is (temporary) patch for support list assignment for IOIterator. -- |
From @bacekio_assign.patchcommit 9e88b83f206a5b36af6e6c0d718ad9e1df3c4c3c
Author: Vasily Chekalkin <bacek@bacek.com>
Date: Tue Dec 9 21:55:17 2008 +1100
Implement 'infix:=(List,IOIterator)'
diff --git a/languages/perl6/src/classes/IO.pir b/languages/perl6/src/classes/IO.pir
index be67b70..3d5484d 100644
--- a/languages/perl6/src/classes/IO.pir
+++ b/languages/perl6/src/classes/IO.pir
@@ -235,6 +235,24 @@ Return the value inside this container in item context.
.return(self)
.end
+.namespace []
+
+=item infix:=
+
+Assign IOIterator to List
+
+FIXME: This method should be removed after implementing LazyLists
+
+=cut
+
+.sub 'infix:=' :multi(['List'], ['IOIterator'])
+ .param pmc list
+ .param pmc it
+ $P0 = getattribute it, '$!IO'
+ $P1 = $P0.'lines'()
+ .tailcall 'infix:='(list, $P1)
+.end
+
=back
|
From @jnthnOn Tue Dec 09 03:11:55 2008, bacek wrote:
This isn't, I don't think, the right approach; instead, IOIterator Thanks, Jonathan |
The RT System itself - Status changed from 'new' to 'open' |
@jnthn - Status changed from 'open' to 'rejected' |
Migrated from rt.perl.org#61216 (status was 'rejected')
Searchable as RT61216$
The text was updated successfully, but these errors were encountered: