blob: 46d71cc0c013a50af2e04806d445fdc882f5bcd6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
# use Grammar::Debugger;
unit 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 { <[-\[\]\\`^{}]> }
# 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 }
|