MintberryCruNCH question on Marpa IRC

number.pl

use 5.010;
use strict;
use warnings;
 
use Data::Dumper;
 
use Marpa::R2;
 
my $g = Marpa::R2::Scanless::G->new( {
bless_package => 'main',
source => \(<<'END_OF_SOURCE'),
:default ::= action => [name, values]
lexeme default = action => [name, value]
 
Numbers ::= Number+
 
Number ::= BinDigits | HexDigits

HexDigits ~ '0' 'x':i _HexDigitsRight
BinDigits ~ '0' 'b':i _BinDigitsRight

_HexDigitsRight ~ [0-9A-Fa-f]+
_BinDigitsRight ~ [01]+
 
:discard ~ whitespace
whitespace ~ [\s]+
END_OF_SOURCE
} );
 
my $input = <<EOI;
0b0101
0x0f01
EOI
 
my $r = Marpa::R2::Scanless::R->new( { grammar => $g, trace_terminals => 1 } );
eval {$r->read(\$input)} || die "Parse failure, progress report is:\n" . $r->show_progress;
say Dumper ${ $r->value() };