GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-24 11:42:35 +01:00
Code Issues Projects Releases Wiki Activity

Interpreter: minor formatting clean-up

Browse Source
This commit is contained in:
Pragmatic Software 2020-06-20 20:52:54 -07:00
parent da43217d3e
commit bd04feda81
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
PBot/Interpreter.pm
View File

@ -267,8 +267,12 @@ sub interpret {
$arguments =~ s/\s*(?<!\\)\|\s*{(\Q$pipe\E)}.*$//s; $arguments =~ s/\s*(?<!\\)\|\s*{(\Q$pipe\E)}.*$//s;
$pipe =~ s/^\s+|\s+$//g; $pipe =~ s/^\s+|\s+$//g;
if (exists $context->{pipe}) { $context->{pipe_rest} = "$rest | { $context->{pipe} }$context->{pipe_rest}"; } if (exists $context->{pipe}) {
else { $context->{pipe_rest} = $rest; } $context->{pipe_rest} = "$rest | { $context->{pipe} }$context->{pipe_rest}";
} else {
$context->{pipe_rest} = $rest;
}
$context->{pipe} = $pipe; $context->{pipe} = $pipe;
} }
@ -793,11 +797,11 @@ sub handle_result {
if ($result =~ s#^(/say|/me) ##) { $context->{prepend} = $1; } if ($result =~ s#^(/say|/me) ##) { $context->{prepend} = $1; }
elsif ($result =~ s#^(/msg \S+) ##) { $context->{prepend} = $1; } elsif ($result =~ s#^(/msg \S+) ##) { $context->{prepend} = $1; }
if ($context->{pipe}) { if (exists $context->{pipe}) {
my ($pipe, $pipe_rest) = (delete $context->{pipe}, delete $context->{pipe_rest}); my ($pipe, $pipe_rest) = (delete $context->{pipe}, delete $context->{pipe_rest});
if (not $context->{alldone}) { if (not $context->{alldone}) {
$context->{command} = "$pipe $result $pipe_rest"; $context->{command} = "$pipe $result $pipe_rest";
$result = $self->interpret($context); $result = $self->interpret($context);
$context->{result} = $result; $context->{result} = $result;
} }
$self->handle_result($context, $result); $self->handle_result($context, $result);
@ -813,7 +817,7 @@ sub handle_result {
if (not $context->{alldone}) { if (not $context->{alldone}) {
$context->{command} = $command; $context->{command} = $command;
$result = $self->interpret($context); $result = $self->interpret($context);
$context->{result} = $result; $context->{result} = $result;
} }
$self->handle_result($context); $self->handle_result($context);