p
/
xK
1
1
Fork 0
Code Issues 1 Pull Requests Releases 10 Wiki Activity

factoids: allow querying definitions by number

This commit is contained in:
Přemysl Eric Janouch 2016-02-29 03:11:33 +01:00
parent f492592735
commit fb0b0c4cf0
1 changed files with 30 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
plugins/zyklonb/factoids
View File

@ -72,9 +72,11 @@ my %db = %{db_load $db_path};
sub learn { sub learn {
my ($respond, $input) = @_; my ($respond, $input) = @_;
return &$respond("usage: <name> = <definition>") return &$respond("usage: <name> = <definition>")
unless $input =~ /^([^=]+?)\s*=\s*(.+?)\s*$/; unless $input =~ /^([^=]+?)(?:\s+(\d+))?\s*=\s*(.+?)\s*$/;
my ($name, $definition) = ($1, $2); my ($name, $number, $definition) = ($1, $2, $3);
return &$respond("trailing numbers in names are disallowed")
if defined $2;
$db{$name} = [] unless exists $db{$name}; $db{$name} = [] unless exists $db{$name};
my $entries = $db{$name}; my $entries = $db{$name};
@ -86,6 +88,19 @@ sub learn {
db_save $db_path, \%db; db_save $db_path, \%db;
} }
sub check_number {
my ($respond, $name, $number) = @_;
my $entries = $db{$name};
if ($number > @$entries) {
&$respond(qq/"$name" has only ${\scalar @$entries} definitions/);
} elsif (not $number) {
&$respond("number must not be zero");
} else {
return 1;
}
return 0;
}
sub forget { sub forget {
my ($respond, $input) = @_; my ($respond, $input) = @_;
return &$respond("usage: <name> <number>") return &$respond("usage: <name> <number>")
@ -96,10 +111,7 @@ sub forget {
unless exists $db{$name}; unless exists $db{$name};
my $entries = $db{$name}; my $entries = $db{$name};
return &$respond(qq/"$name" has only ${\scalar @$entries} definitions/) return unless check_number $respond, $name, $number;
if $number > @$entries;
return &$respond("number must not be zero")
unless $number;
splice @$entries, --$number, 1; splice @$entries, --$number, 1;
&$respond("forgotten"); &$respond("forgotten");
@ -108,17 +120,23 @@ sub forget {
sub whatis { sub whatis {
my ($respond, $input) = @_; my ($respond, $input) = @_;
return &$respond("usage: <name>") return &$respond("usage: <name> [<number>]")
unless $input =~ /^([^=]+?)\s*$/; unless $input =~ /^([^=]+?)(?:\s+(\d+))?\s*$/;
my ($name) = ($1); my ($name, $number) = ($1, $2);
return &$respond(qq/"$name" is undefined/) return &$respond(qq/"$name" is undefined/)
unless exists $db{$name}; unless exists $db{$name};
my $entries = $db{$name};
if (defined $number) {
return unless check_number $respond, $name, $number;
&$respond(qq/"$name" is #$number $entries->[$number - 1]/);
} else {
my $i = 1; my $i = 1;
my $definition = join ", ", map { "#${\$i++} $_" } @{$db{$name}}; my $definition = join ", ", map { "#${\$i++} $_" } @{$entries};
&$respond(qq/"$name" is $definition/); &$respond(qq/"$name" is $definition/);
} }
}
sub wildcard { sub wildcard {
my ($respond, $input) = @_; my ($respond, $input) = @_;