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

Plang can now be used with persistent state via plangrepl

Browse Source
This commit is contained in:
Pragmatic Software 2020-07-20 13:37:41 -07:00
parent 0d74dc69d2
commit 517b376231
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Plugins/Plang.pm
View File

@ -58,6 +58,9 @@ sub initialize {
# register the `plang` command # register the `plang` command
$self->{pbot}->{commands}->register(sub { $self->cmd_plang(@_) }, "plang", 0); $self->{pbot}->{commands}->register(sub { $self->cmd_plang(@_) }, "plang", 0);
# register the `plangrepl` command (does not reset environment)
$self->{pbot}->{commands}->register(sub { $self->cmd_plangrepl(@_) }, "plangrepl", 0);
} }
sub unload { sub unload {
@ -81,6 +84,22 @@ sub cmd_plang {
return length $self->{output} ? $self->{output} : "No output."; return length $self->{output} ? $self->{output} : "No output.";
} }
sub cmd_plangrepl {
my ($self, $context) = @_;
my $usage = "Usage: plangrepl <code>; see https://github.com/pragma-/Plang";
return $usage if not length $context->{arguments};
$self->{output} = ""; # collect output of the embedded Plang program
my $result = $self->{plang}->interpret_string($context->{arguments}, repl => 1);
# check to see if we need to append final result to output
$self->{output} .= $self->{plang}->{interpreter}->output_value($result, repl => 1) if defined $result->[1];
# return the output
return length $self->{output} ? $self->{output} : "No output.";
}
# overridden `print` built-in # overridden `print` built-in
sub print_override { sub print_override {