blob: 7093b99b7ab9447965d2a2b401f79849628ba6d0 (
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
|
unit class IRC::Grammar::Actions:ver<1.001001>;
method TOP ($/) { $/.make: $<message>>>.made }
method message ($/) {
my $pref = $/<prefix>;
my %args = command => ~$/<command>;
if ( $pref<servername>.defined ) {
%args<who><host> = ~$pref<servername>;
}
else {
%args<who><nick user host> = $pref<nick user host>ยป.Str;
}
my $p = $/<params>;
loop {
if ( $p<middle>.defined ) {
%args<params>.append: ~$p<middle>;
}
if ( $p<trailing>.defined ) {
%args<params>.append: ~$p<trailing>;
last;
}
$p = $p<params>;
}
$/.make: %args;
}
|