kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

add Names exceptions

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-03-20 21:14:15 -06:00
parent 6ccaa78ca2
commit 1a3de48594
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
projects/bad-nlp/src/bad_nlp/Names.kiss
View File

@@ -3,6 +3,13 @@
(var libPath (Prelude.libPath "bad-nlp")) (var libPath (Prelude.libPath "bad-nlp"))
(var namesPath (joinPath libPath "name-database")) (var namesPath (joinPath libPath "name-database"))
(var :Map<String,Bool> notNames (for notName [
"he" // This is in the name database.
"she"
] =>notName true))
(var :Map<String,Bool> yesNames (new Map))
(function loadFilesForToken [:String token] (function loadFilesForToken [:String token]
(let [firstLetter (token.charAt 0) (let [firstLetter (token.charAt 0)
firstTwoLetters (token.substr 0 2) firstTwoLetters (token.substr 0 2)
@@ -24,7 +31,10 @@
(function isName [:String token] (function isName [:String token]
(let [token (token.toLowerCase)] (let [token (token.toLowerCase)]
(loadFilesForToken token) (loadFilesForToken token)
(loadedNames.exists token))) (or (yesNames.exists token)
(and
(loadedNames.exists token)
!(notNames.exists token)))))
(function containsName [:String text] (function containsName [:String text]
(doFor token (Util.splitTokens text) (doFor token (Util.splitTokens text)