Image

head

code

item

root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

README

ChangeLog

=begin code
    use IO::String;

    # Using IO to write a Str
    my $buffer = IO::String.new;
    {
        my $*OUT = $buffer;
        say "hello";
    }
    say ~$buffer; # T<hello>

    # Using IO to read a Str
    my $sh = IO::String.new(:$buffer)
    for $sh.lines -> $line {
        say $line; # T<hello>
    }

=end code


Sometimes you want to use code that deals with files (or other
file-like objects), but you don't want to mess around with creating
temporary files.  This includes uses like APIs that for some reason
don't accept strings as well as files as targets, mocking I/O,
or capturing output written to the terminal.  That's why this module
exists.  Loosely based on Perl 5's IO::String.


method new(
        Str :$buffer = '',
        Str :$pos = 0,
        Str :$chomp = True,
        Str :$nl-in = ["\x0a", "\r\n"],
        Str:D :$nl-out = "\n",
    ) returns IO::String:D


This creates a new IO::String handle. Every IO::String is also a L<IO::Handle> and can be used in place of a file handle. The C<$buffer> is the string to read from or write to. The C<$pos> is the current position to start the next read or write.


The C<$chomp>, C<$nl-in>, and C<$nl-out> options are from of IO::Handle. When reading line-by-line, C<$chomp> the chomp setting is used to determine whether the line endings should be chomped or left in place. The C<$nl-in> is an array of strings that will be used to end line records during reads and C<$nl-out> is the string that will be appended for new lines at the end of any output line record.


multi method open(
        Str $buffer is rw,
        Bool :$bind,
    );
    multi method open(Str $buffer)


This tells the IO::String object to start working with a new string. Passing a variable and setting the C<:bind> option will result in that value being bound to the IO::String object. Any write to the handle will result in a change to the original string. For example,


my $s;
    my $h = IO::String.new;
    $h.open($s, :bind);
    $h.say("hello");
    say $s; # T<hello> <-- the original string changed


With C<:bind> set to false or without being passed, the string will not be bound and changes to the handle will I<not> change the original.



#| An L<IO::Handle> implementation that writes to memory.
class IO::String:ver<0.1.0>:auth<hoelzro> is IO::Handle {
    has Str $.buffer = '';
    has Int $.pos = 0;

    multi method open(IO::String:D: Str $buffer is rw, Bool :$bind, :$a) {
        if $bind {
            $!buffer := $buffer;
            $!pos = $a ?? $!buffer.chars !! 0;
        }
        else {
            nextwith("$buffer", :$a);
        }
    }

    multi method open(IO::String:D: Str $buffer = '', :$a) {
        # In case of binding in previous open, bind a new one
        my Str $new-buffer = $buffer;
        $!buffer := $new-buffer;
        $!pos = $a ?? $!buffer.chars !! 0;
    }

    method lines(IO::String:D: $limit? is copy) {
        $limit = Inf if not $limit.DEFINITE or $limit ~~ Whatever;
        gather {
            .take while ++$ <= $limit and ($_ = self.get).DEFINITE
        }
    }

    method get(IO::String:D:) {
        return Nil if $!pos >= $.buffer.chars;

        my $start = $!pos;
        my $next-nl = [min] $.nl-in.map({
            $_ => $^nl with $.buffer.index($^nl, $start)
        }).grep(*.key.defined);

        if $next-nl ~~ Num { # if it's Inf, then there's no minimum
            $!pos = $.buffer.chars;
            return $.buffer.substr($start);
        }

        my $chars = 1 + $next-nl.key - $start;
        $!pos += $chars;
        $chars -= $next-nl.value.chars if $.chomp;
        $.buffer.substr($start, $chars);
    }

    method getc(IO::String:D:) {
        return Nil if $!pos >= $.buffer.chars;

        my $start = $!pos++;
        $.buffer.substr($start, 1);
    }

    method readchars(IO::String:D: Int(Cool:D) $chars = 65536) {
        return Str if $.eof;

        my $start = $!pos;
        $!pos = $!pos + $chars min $.buffer.chars;
        $.buffer.substr($start, $chars);
    }

    multi method seek(IO::String:D: Int:D $offset, SeekType:D $whence = SeekFromBeginning) {
        $!pos = (do given $whence {
            when SeekFromBeginning { $offset }
            when SeekFromCurrent   { $!pos + $offset }
            when SeekFromEnd       { $!buffer.chars + $offset }
        } min $!buffer.chars) max 0;
    }

    method tell(IO::String:D:) { $!pos }

    method flush(IO::String:D:) { }

    method eof(IO::String:D:) { $.pos >= $.buffer.chars }

    method print(IO::String:D: *@what --> True) {
        if $!pos >= $!buffer.chars {
            $!buffer ~= @what.map({ .Str }).join('');
            $!pos = $!buffer.chars;
        }
        else {
            my $chars = [+] @what.map({ .chars });
            substr-rw($!buffer, $!pos, $chars) = @what.map({ .Str }).join('');
            $!pos = $!buffer.chars min ($!pos + $chars);
        }
    }

    method print-nl(IO::String:D: --> True) {
        self.print($.nl-out);
    }

    method put(IO::String:D: *@what --> True) {
        self.print(|@what);
        self.print-nl;
    }

    method say(IO::String:D: **@what is raw --> True) {
        self.print(@what.map: *.gist);
        self.print-nl;
    }

    #| Returns, as a string, everything that's been written to
    #| this object.
    multi method Str(IO::String:D:) { $!buffer }

    multi method gist(IO::String:D:) {
        my $gist-str = $!buffer.chars > 100 ?? $!buffer.chars.substr(0, 100) ~ "..." !! $!buffer;
        "IO::String<$gist-str>(opened at $!pos)"
    }

    multi method perl(IO::String:D:) {
        my @options = ":buffer({$!buffer.perl})";

        @options.push: ":chomp({$.chomp.perl})"  if $.chomp;
        @options.push: ":pos({$!pos.perl})"      if $.pos;

        "IO::String.new(" ~ @options.join(', ') ~ ")"
    }
}


String

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


README

IO::String

SYNOPSIS

DESCRIPTION

TODO

LICENSE

IO::String v0.2.0

Authors

License

Dependencies

Test Dependencies

Provides

Documentation