test.pl

use 5.10.0;
use Marpa::R2 2.053_006;
use Data::Dumper;

my $grammar = Marpa::R2::Scanless::G->new({
    source => \<<'SOURCE',
:start   ::= numbers

event number_found = completed number

numbers  ::= number+        action => ::array

number   ::= digits         action => ::first

digits   ~ [\d]+

:discard ~ ws
ws       ~ [\s]+
SOURCE
});

my $re = Marpa::R2::Scanless::R->new({
    grammar => $grammar,
});

my $input = <<'INPUT';
100 200 300 400 500
INPUT

my $pos = $re->read(\$input);

while ($pos < length $input) {
    for (my $i = 0; my $event = $re->event($i); $i++) {
        print "internal scanner: ", Dumper($event);
    }
    $re->lexeme_read('digits', $pos, 0, '999999');
    for (my $i = 0; my $event = $re->event($i); $i++) {
        print "external scanner: ", Dumper($event);
    }
    $pos = $re->resume($pos);
}

my $v = $re->value;
print Dumper($$v);

sub show_last_subtext {
    my ($slr) = @_;
    my ( $start, $end ) = $slr->last_completed_range('number');
    return 'No expression was successfully parsed' if not defined $start;
    return $slr->range_to_string( $start, $end );
}