191103.1 · e775c8afc175b8e414c8396da470261aa5b23b76
Remove support for Parrot
reading declarations
Changes to t/swamp/blib/. All files
t/swamp/blib/ignore.pir
@@ -1,88 +0,0 @@-=head1 INFORMATION--This example shows the usage of C<Stream::read_bytes>.--=head1 FUNCTIONS--=over 4--=item _main---=cut--.sub _main :main- .local pmc stream-- load_bytecode "library/Stream/Sub.pir"- load_bytecode "library/Stream/Replay.pir"-- find_type $I0, "Stream::Sub"- new $P0, $I0- # set the stream's source sub- .const .Sub temp = "_hello"- assign $P0, $P1-- find_type $I0,"Stream::Replay"- stream = new $I0- assign stream, $P0-- $S0 = stream."read_bytes"( 3 )- print "'hel': ["- print $S0- print "]\n"-- stream = clone stream- $P0 = clone stream-- $S0 = stream."read_bytes"( 4 )- print "'lowo': ["- print $S0- print "] = "-- $S0 = $P0."read_bytes"( 4 )- print "["- print $S0- print "]\n"-- $S0 = stream."read"()- print "'rld!': ["- print $S0- print "]\n"-- $S0 = stream."read_bytes"( 100 )- print "'parrotis cool': ["- print $S0- print "]\n"-- end-.end--=item _hello--This sub is used as the source for the stream.--It just writes some text to the stream.--=cut--.sub _hello :method- self."write"( "hello" )- self."write"( "world!" )- self."write"( "parrot" )- self."write"( "is cool" )-.end--=back--=head1 AUTHOR--Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author-and maintainer.-Please send patches and suggestions to the Perl 6 Internals mailing list.--=head1 COPYRIGHT--Copyright (C) 2004, The Perl Foundation.--=cut