g.p6

use v6;
grammar IRC::Grammar:ver<1.001001> {
    token TOP { <message>+ }
    token SPACE { ' '+ }
    token message { [':' <prefix> <SPACE> ]? <command> <params> \n }
        token prefix  {
            [ <servername> || <nick> ['!' <user>]? ['@' <host>]? ]
            <before <SPACE>>
        }
            token servername { <host> }
            token nick { <letter> [ <letter> | <number> | <special> ]* }
            token user { <-[\ \0\r\n]>+?  <before [<SPACE> | '@']>}
            token host { <-[\s!@]>+ }
        token command { <letter>+ | <number>**3 }
        token params { <SPACE>* [ ':' <trailing> | <middle> <params> ]? }
            token middle { <-[:\ \0\r\n]> <-[\ \0\r\n]>* }
            token trailing { <-[\0\r\n]>* }

        token letter { <[a..zA..Z]> }
        token number { <[0..9]> }
        token special { <[-\[\]\\`^{}]> }
}

class IRC::Grammar::Actions{
    method message ($/) {
        # my $pref = ~$/<prefix>;
        # $/.make: $/;
        # return;
        my %args;
        say ~$/<prefix><servername>.WHAT;
        say ~$/<prefix><servername>.defined ?? "YES" !! "NO";
        if ( ~$/<prefix><servername>.defined ) {
            say "wat?";
            %args<is-server> = True;
            %args<who>       = ~$/<prefix><servername>;
        }
        else {
            %args<who> = ~$/<prefix><nick>
                ~ (~$/<prefix><user>//'')
                ~ (~$/<prefix><host>//'');
            say "Assigning who as user"
        }
        $/.make: %args;
    }

    method TOP ($/) { $/.make: $<message>>>.made }
}

my $res = IRC::Grammar.parse(
":ZoffixW!~ZoffixW\@unaffiliated/zoffix PRIVMSG #perl6bot :test\r\n"
, :actions(IRC::Grammar::Actions) ).made;

say $res[0]<who>