diff options
Diffstat (limited to 'lib/IRC/Grammar.pm6')
-rw-r--r-- | lib/IRC/Grammar.pm6 | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/lib/IRC/Grammar.pm6 b/lib/IRC/Grammar.pm6 index 46d71cc..d26a3dc 100644 --- a/lib/IRC/Grammar.pm6 +++ b/lib/IRC/Grammar.pm6 @@ -1,6 +1,5 @@ -# use Grammar::Debugger; unit grammar IRC::Grammar:ver<1.001001>; -token TOP { <message> } +token TOP { <message>+ } token SPACE { ' '+ } token message { [':' <prefix> <SPACE> ]? <command> <params> \n } token prefix { @@ -19,21 +18,3 @@ token message { [':' <prefix> <SPACE> ]? <command> <params> \n } token letter { <[a..zA..Z]> } token number { <[0..9]> } token special { <[-\[\]\\`^{}]> } - -# unit class IRC::Grammar::Actions:ver<1.001001>; -# method TOP ($/) { $/.make: $<message>».made } -# method message ($/) { $/.make: -# prefix => $<prefix> .made, -# command => $<command>.made, -# params => $<params .made, -# } -# method prefix ($/) { [<servername> | <nick>] [ '!' <user> ]? [ '@' <host> ]? } -# method command ($/) { <letter>+ | <number>**3 } -# method params ($/) { ' '+ [ ':' <trailing> | <middle> <params> ]? } -# method middle ($/) { <-[: \0\r\n]> <-[ \0\r\n]>+ } -# method trailing ($/) { <-[\0\r\n]> } -# -# method class ($/) { $/.make: ~$/ } -# method rules ($/) { $/.make: ~$/ } -# method pair ($/) { $/.make: $<class>.made => $<rules>.made } -# method TOP ($/) { $/.make: $<pair>».made } |