Check if a token is a name

projects/bad-nlp/src/bad_nlp/Main.hx

@@ -0,0 +1,7 @@
+package bad_nlp;
+
+class Main {
+    static function main() {
+        Main_.main();
+    }
+}

projects/bad-nlp/src/bad_nlp/Main_.kiss

@@ -0,0 +1,13 @@
+(doFor name [
+        "Finn"
+        "Miguel"
+        "George"
+        "Ernest"
+        "Crawford"
+        "Howard"
+        "Troy"
+        "Tracy"
+        "Valeria"
+        "Vanessa"
+    ]
+    (Names.isName name))

projects/bad-nlp/src/bad_nlp/Names.hx

@@ -0,0 +1,12 @@
+package bad_nlp;
+
+import kiss.Prelude;
+import kiss.List;
+import yaml.Yaml;
+import yaml.Parser;
+import yaml.util.ObjectMap;
+import sys.FileSystem;
+import bad_nlp.Names;
+
+@:build(kiss.Kiss.build())
+class Names {}

projects/bad-nlp/src/bad_nlp/Names.kiss

@@ -0,0 +1,27 @@
+(var :Map<String,Bool> loadedNameFiles (new Map))
+(var :Map<String,Bool> loadedNames (new Map))
+(var libPath (Prelude.libPath "bad-nlp"))
+(var namesPath (joinPath libPath "name-database"))
+
+(function loadFilesForToken [:String token]
+    (let [firstLetter (token.charAt 0)
+            firstTwoLetters (token.substr 0 2)
+            familyNameFile (joinPath namesPath "family_name" firstLetter "${firstTwoLetters}.yml")
+            givenNameFile (joinPath namesPath "given_name" firstLetter "${firstTwoLetters}.yml")]
+        (loadNameFile familyNameFile)
+        (loadNameFile givenNameFile)))
+
+(function loadNameFile [:String file]
+    (unless (or !(FileSystem.exists file) (loadedNameFiles.exists file))
+        (let [:Array<Dynamic> data (Yaml.read file)]
+            (doFor name (data.iterator)
+                (typeCase [name]
+                    ([:String name] (dictSet loadedNames name true))
+                    ([:AnyObjectMap map]
+                        (dictSet loadedNames (.next (map.keys)) true))))))
+    (dictSet loadedNameFiles file true))
+
+(function isName [:String token]
+    (let [token (token.toLowerCase)]
+        (loadFilesForToken token)
+        (loadedNames.exists token)))