hythm-grammar.raku

#!/usr/bin/env raku

use Test;

grammar Command {

  token TOP { [<option>+ % \s \s]? <command> }

  token command { 'command' }

  token option { <option-a> | <option-b> }

  token option-a { 'a' }

  token option-b { 'b' | 'b' \s <val> }
  
  token val { <-option> }

  token anything-but-space  { <-[ \s ]>+ }
}

class Actions {

  method TOP ( $/ ) {

    my %h;

    %h<command> = ~$<command>;
    %h<options> = $<option>».made.hash;

    make %h;

  }

  method option ( $/ )       { make $<option-a> ?? $<option-a>.made !! $<option-b>.made }


  method option-a ( $/ ) { make ( :a ) }

  method option-b ( $/ ) { make ( $<val> ?? b => ~$<val> !! :b )  }

}


my @test = (

 'command'       => ${:command("command"), :options({})},
 'a command'     => ${:command("command"), :options(${:a})},
 'b command'     => ${:command("command"), :options(${:b})},
 'a b command'   => ${:command("command"), :options(${:a, :b})},
 'b a command'   => ${:command("command"), :options(${:a, :b})},
 'b val command' => ${:command("command"), :options(${:b("val")})}, # this one fails probably because <val> matches anything

);

for @test {

  my $cmd      = .key;
  my $expected = .value;

  my $parser  = Command;
  my $actions = Actions;
  my $got =  $parser.parse( $cmd, :$actions ).made;

  is-deeply $got, $expected, $cmd;

}

done-testing;