GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-11-13 04:57:26 +01:00
Code Issues Projects Releases Wiki Activity

Rename IsAbbrev to Abbrev; add deabbrev()

Browse Source 
deabbrev() operates on a list of items and returns an expansion list
which can be used to detect items needing disambiguation.
This commit is contained in:
Pragmatic Software 2025-11-09 21:07:16 -08:00
parent 2afc6210c5
commit ace9991d94
No known key found for this signature in database
GPG Key ID: CC916B6E3C84ECCE
12 changed files with 46 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/PBot/Core/Commands/AntiSpam.pm
View File

@ -9,7 +9,7 @@ package PBot::Core::Commands::AntiSpam;
use parent 'PBot::Core::Class'; use parent 'PBot::Core::Class';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
use Time::HiRes qw/gettimeofday/; use Time::HiRes qw/gettimeofday/;
use POSIX qw/strftime/; use POSIX qw/strftime/;

2
lib/PBot/Core/Commands/BanList.pm
View File

@ -10,7 +10,7 @@ use parent 'PBot::Core::Class';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
use PBot::Core::MessageHistory::Constants ':all'; use PBot::Core::MessageHistory::Constants ':all';
use Time::HiRes qw/gettimeofday/; use Time::HiRes qw/gettimeofday/;

2
lib/PBot/Core/Commands/BlackList.pm
View File

@ -10,7 +10,7 @@ package PBot::Core::Commands::BlackList;
use parent 'PBot::Core::Class'; use parent 'PBot::Core::Class';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
sub initialize($self, %conf) { sub initialize($self, %conf) {
$self->{pbot}->{commands}->register(sub { $self->cmd_blacklist(@_) }, "blacklist", 1); $self->{pbot}->{commands}->register(sub { $self->cmd_blacklist(@_) }, "blacklist", 1);

2
lib/PBot/Core/Commands/Capabilities.pm
View File

@ -10,7 +10,7 @@ package PBot::Core::Commands::Capabilities;
use PBot::Imports; use PBot::Imports;
use parent 'PBot::Core::Class'; use parent 'PBot::Core::Class';
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
sub initialize($self, %conf) { sub initialize($self, %conf) {
$self->{pbot}->{commands}->register(sub { $self->cmd_cap(@_) }, "cap"); $self->{pbot}->{commands}->register(sub { $self->cmd_cap(@_) }, "cap");

2
lib/PBot/Core/Commands/EventQueue.pm
View File

@ -10,7 +10,7 @@ package PBot::Core::Commands::EventQueue;
use PBot::Imports; use PBot::Imports;
use parent 'PBot::Core::Class'; use parent 'PBot::Core::Class';
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
use Time::Duration; use Time::Duration;

35
lib/PBot/Core/Utils/Abbrev.pm Normal file
View File

@ -0,0 +1,35 @@
# File: Abbrev.pm
#
# Purpose: Utils to check is a string is an abbreviation of another string.
# SPDX-FileCopyrightText: 2017-2023 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
package PBot::Core::Utils::Abbrev;
use PBot::Imports;
require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw/isabbrev deabbrev/;
sub isabbrev($str1, $str2) {
return 0 if !length $str1 || !length $str2;
return (substr($str1, 0, length $str1) eq substr($str2, 0, length $str1));
}
sub deabbrev($abbrev, @list) {
return () if !length $abbrev || !@list;
my @expansions;
foreach my $item (@list) {
if (isabbrev($abbrev, $item)) {
push @expansions, $item;
}
}
return @expansions;
}
1;

21
lib/PBot/Core/Utils/IsAbbrev.pm
View File

@ -1,21 +0,0 @@
# File: IsAbbrev.pm
#
# Purpose: Check is a string is an abbreviation of another string.
# SPDX-FileCopyrightText: 2017-2023 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
package PBot::Core::Utils::IsAbbrev;
use PBot::Imports;
require Exporter;
our @ISA = qw/Exporter/;
our @EXPORT = qw/isabbrev/;
sub isabbrev($str1, $str2) {
return 0 if !length $str1 || !length $str2;
return (substr($str1, 0, length $str1) eq substr($str2, 0, length $str1));
}
1;

2
lib/PBot/Plugin/ActionTrigger.pm
View File

@ -38,7 +38,7 @@ package PBot::Plugin::ActionTrigger;
use parent 'PBot::Plugin::Base'; use parent 'PBot::Plugin::Base';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
use DBI; use DBI;
use Time::Duration qw/duration/; use Time::Duration qw/duration/;

2
lib/PBot/Plugin/Battleship.pm
View File

@ -28,7 +28,7 @@ package PBot::Plugin::Battleship;
use parent 'PBot::Plugin::Base'; use parent 'PBot::Plugin::Base';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
use Time::Duration; use Time::Duration;
use Time::HiRes qw/time/; use Time::HiRes qw/time/;

2
lib/PBot/Plugin/WordMorph.pm
View File

@ -10,7 +10,7 @@ package PBot::Plugin::WordMorph;
use parent 'PBot::Plugin::Base'; use parent 'PBot::Plugin::Base';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
use Storable; use Storable;
use Text::Levenshtein::XS 'distance'; use Text::Levenshtein::XS 'distance';

2
lib/PBot/Plugin/Wordle.pm
View File

@ -10,7 +10,7 @@ package PBot::Plugin::Wordle;
use parent 'PBot::Plugin::Base'; use parent 'PBot::Plugin::Base';
use PBot::Imports; use PBot::Imports;
use PBot::Core::Utils::IsAbbrev; use PBot::Core::Utils::Abbrev;
use Storable qw(dclone); use Storable qw(dclone);
use Time::HiRes qw/time/; use Time::HiRes qw/time/;

4
lib/PBot/VERSION.pm
View File

@ -25,8 +25,8 @@ use PBot::Imports;
# These are set by the /misc/update_version script # These are set by the /misc/update_version script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 4923, BUILD_REVISION => 4924,
BUILD_DATE => "2025-11-05", BUILD_DATE => "2025-11-09",
}; };
sub initialize {} sub initialize {}