Ticket #117: slurp.functions.txt

Parrot::BuildUtil::slurp_file

sub slurp_file {
    my ($file_name) = @_;

    open( my $SLURP, '<', $file_name ) or die "open '$file_name': $!";
    local $/ = undef;
    my $file = <$SLURP> . '';
    $file =~ s/\cM\cJ/\n/g;
    close $SLURP;

    return $file;
}

Parrot::Test::slurp_file

sub slurp_file {
    my ($file_name) = @_;

    open( my $SLURP, '<', $file_name ) or die "open '$file_name': $!";
    local $/ = undef;
    my $file = <$SLURP> . '';
    $file    =~ s/\cM\cJ/\n/g;
    close $SLURP;

    return $file;
}

Parrot::Configure::Utils::_slurp

sub _slurp {
    my $filename = shift;

    open( my $fh, '<', $filename ) or die "Can't open $filename: $!";
    my $text = do { local $/; <$fh> };
    close($fh) or die "Can't close $filename: $!";

    return $text;
}

Parrot::Distribution::slurp

sub slurp {
    my $self = shift;
    my $path = shift;
    my $buf;

    # slurp in the file
    open( my $fh, '<', $path )
        or die "Cannot open '$path' for reading: $!\n";
    {
        local $/;
        $buf = <$fh>;
    }
    close $fh;

    return $buf;
}


tools/util/dump_pbc.pl

sub slurp_file {
    my $file = shift;
    my $source;

       open $source, '<', $file
    or open $source, '<', "$PARROT_ROOT/$file"
    or open $source, '<', "$RUNTIME_DIR/$file"
    or die "Could not open source file '$file': $!";

    my @lines = <$source>;

    return \@lines;
}