1 files changed, 39 insertions, 0 deletions
diff --git a/lib/IRC/Grammar.pm6 b/lib/IRC/Grammar.pm6
new file mode 100644
index 0000000..2013b9b
--- /dev/null
+++ b/lib/IRC/Grammar.pm6
@@ -0,0 +1,39 @@
+# use Grammar::Debugger;
+unit grammar IRC::Grammar:ver<1.001001>;
+token ws { ' ' }
+token TOP        { [ <message> \r\n ]*                                     }
+token message    { [':' <prefix> ' '+ ]? <command> <params>                }
+token prefix     { [<servername> | <nick>] [ '!' <user> ]? [ '@' <host> ]? }
+token command    { <letter>+ | <number>**3                                 }
+token params     { ' '+ [ ':' <trailing> | <middle> <params> ]?            }
+token middle     { <-[: \0\r\n]> <-[ \0\r\n]>+                             }
+token trailing   { <-[\0\r\n]>+                                            }
+token target     { <to> [ ',' <target> ]?                                  }
+token to         { <channel> | <user> '@' <servername> | <nick> | <mask>   }
+token channel    { ['#' | '&'] <chstring>                                  }
+token servername { \S+ } # see RFC 952 [DNS:4] for details on allowed hostnames
+token nick       { <letter> [ <letter> | <number> | <special> ]+           }
+token mask       { <[#$]> <chstring>                                       }
+token chstring   { <-[ \a\0\r\l,]>                                         }
+token user       { <-[ \0\r\l]>+                                           }
+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                  }