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

FuncBuiltins: maybe-the: do it for all words

Browse Source
This commit is contained in:
Pragmatic Software 2022-08-03 05:19:45 -07:00
parent d824255c6e
commit 7093fa0ae4
2 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lib/PBot/Plugin/FuncBuiltins.pm
View File

@ -76,7 +76,7 @@ sub initialize {
$self->{pbot}->{functions}->register(
'maybe-the',
{
desc => 'prepend "the" in front of text depending on the part-of-speech of the first word in text',
desc => 'prepend "the" in front of words depending on their part-of-speech',
usage => 'maybe-the <text>',
subref => sub { $self->func_maybe_the(@_) }
}
@ -169,26 +169,35 @@ sub func_ana {
sub func_maybe_the {
my $self = shift;
my $text = "@_";
my @words = split ' ', $text;
my @result;
my ($word) = $text =~ m/^\s*([^',.;: ]+)/;
foreach my $part (@words) {
my ($word) = $part =~ m/^\s*([^',.;: ]+)/;
# don't prepend "the" if a proper-noun nick follows
if ($self->{pbot}->{nicklist}->is_present_any_channel($word)) {
return $text;
# don't prepend "the" if a proper-noun nick follows
if ($self->{pbot}->{nicklist}->is_present_any_channel($word)) {
push @result, $part;
next;
}
# special-case some indefinite nouns that Lingua::EN::Tagger treats as plain nouns
if ($word =~ m/(some|any|every|no)(thing|one|body|how|way|where|when|time|place)/i) {
push @result, $part;
next;
}
my $tagged = $self->{tagger}->add_tags($word);
if ($tagged !~ m/^\s*<(?:det|prps?|cd|in|nnp|to|rb|wdt|rbr|jjr)>/) {
push @result, "the $part";
next;
}
push @result, $part;
}
# special-case some indefinite nouns that Lingua::EN::Tagger treats as plain nouns
if ($word =~ m/(some|any|every|no)(thing|one|body|how|way|where|when|time|place)/i) {
return $text;
}
my $tagged = $self->{tagger}->add_tags($word);
if ($tagged !~ m/^\s*<(?:det|prps?|cd|in|nnp|to|rb|wdt|rbr|jjr)>/) {
$text = "the $text";
}
return $text;
return join ' ', @result;
}
1;

2
lib/PBot/VERSION.pm
View File

@ -25,7 +25,7 @@ use PBot::Imports;
# These are set by the /misc/update_version script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4561,
BUILD_REVISION => 4562,
BUILD_DATE => "2022-08-03",
};