GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Extract nested command substitutions and pipes

This commit is contained in:
Pragmatic Software 2017-12-08 20:26:08 -08:00
parent 35aeb6985f
commit b2273d32fb
1 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
PBot/Interpreter.pm
View File

@ -166,7 +166,6 @@ sub process_line {
last if not defined $extracted;
$extracted =~ s/^\{\s*//;
$extracted =~ s/\s*\}$//;
$self->{pbot}->{logger}->log("Extracted embedded command [$extracted]\n");
push @commands, $extracted;
$embedded = 1;
}
@ -251,23 +250,32 @@ sub interpret {
}
# parse out a substituted command
if (defined $arguments && $arguments =~ s/(?<!\\)&\{\s*([^}]+)\}/&{subcmd}/) {
my $command = $1;
push @{$stuff->{subcmd}}, "$keyword $arguments";
$stuff->{command} = $command;
my $result = $self->interpret($stuff);
$stuff->{result} = $result;
return $result;
if (defined $arguments && $arguments =~ m/(?<!\\)&\{/) {
my ($command) = extract_codeblock $arguments, '{}', '(?s).*?(?<!\\\\)&';
if (defined $command) {
$arguments =~ s/&\Q$command\E/&{subcmd}/;
$command =~ s/^\{\s*//;
$command =~ s/\s*\}$//;
push @{$stuff->{subcmd}}, "$keyword $arguments";
$stuff->{command} = $command;
$stuff->{result} = $self->interpret($stuff);
return $stuff->{result};
}
}
# unescape any escaped substituted commands
$arguments =~ s/\\&\{/&{/g if defined $arguments;
# parse out a pipe unless escaped
# parse out a pipe
if (defined $arguments && $arguments =~ m/(?<!\\)\|\s*\{\s*[^}]+\}\s*$/) {
$arguments =~ m/(.*?)\s*(?<!\\)\|\s*\{\s*([^}]+)\}(.*)/s;
my ($args, $pipe, $rest) = ($1, $2, $3);
$pipe =~ s/\s+$//;
my ($pipe, $rest, $args) = extract_codeblock $arguments, '{}', '(?s).*?(?<!\\\\)\|\s*';
$pipe =~ s/^\{\s*//;
$pipe =~ s/\s*\}$//;
$args =~ s/\s*(?<!\\)\|\s*//;
$self->{pbot}->{logger}->log("piping: [$args][$pipe][$rest]\n");