From 48ed1c11eb2640e51a61d301f32934280d606695 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Mon, 20 Mar 2023 21:14:15 -0600 Subject: [PATCH] add Names exceptions --- src/bad_nlp/Names.kiss | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/bad_nlp/Names.kiss b/src/bad_nlp/Names.kiss index b686d70..2461c6d 100644 --- a/src/bad_nlp/Names.kiss +++ b/src/bad_nlp/Names.kiss @@ -3,6 +3,13 @@ (var libPath (Prelude.libPath "bad-nlp")) (var namesPath (joinPath libPath "name-database")) +(var :Map notNames (for notName [ + "he" // This is in the name database. + "she" +] =>notName true)) + +(var :Map yesNames (new Map)) + (function loadFilesForToken [:String token] (let [firstLetter (token.charAt 0) firstTwoLetters (token.substr 0 2) @@ -24,7 +31,10 @@ (function isName [:String token] (let [token (token.toLowerCase)] (loadFilesForToken token) - (loadedNames.exists token))) + (or (yesNames.exists token) + (and + (loadedNames.exists token) + !(notNames.exists token))))) (function containsName [:String text] (doFor token (Util.splitTokens text)