Vyššie na [Platon] / iotta / Iotta / Input

initial import of iotta into platon cvs

package Iotta::Input::RCS;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");

sub run {
    my $self = shift;
    my $meta = shift;
    my $data;
    my $file = $$meta{input};
    $$meta{input} =~ s/,v$//;
    print STDERR "  loading...\n";
    open (FILE, "co -p $file 2> /dev/null |") || return 1;
    while (<FILE>) {
        $data .= $_;
    }
    close FILE;
    $self->next->run ($meta, $data) if ($self->next);
    return 0;
}

#sub initialize {
#    my $self = shift;
#    $self->SUPER::initialize (@_);
#}

1;