soundness checks in Romance smart V paradigms to eliminate non-verbs

lib/src/translator/CheckInflection.hs

@@ -0,0 +1,27 @@
+-- elementary soundness check of a dictionary, e.g. if all verbs have verb-like endings
+-- usage: checkSoundness <Filename> <Lang>
+-- comment out bad lines in tmp/file with --UNSOUND
+
+checkSoundness file lang = do
+  dict <- readFile file >>= return . lines
+  let wrongs = [(if has then ("--UNSOUND " ++ d) else d,has) | d <- dict, let has = hasError lang (words d)]
+  putStrLn $ unlines $ [p | (p,h) <- wrongs, h]
+  writeFile ("tmp/" ++ file) $ unlines $ map fst wrongs
+
+hasError lang ws = case ws of
+  u:v:ww | isError lang u v -> True
+  _:v:ww -> hasError lang (v:ww)
+  _ -> False
+
+isError lang u v = case lang of
+  "Spa" -> case bareOp u of
+     "mkV"  | head v == '"' -> notElem (dp 2 (stringOf v)) ["ar","er","ir","se"] 
+     "mkV2" | head v == '"' -> notElem (dp 2 (stringOf v)) ["ar","er","ir","se"] 
+     _ -> False
+
+dp :: Int -> String -> String
+dp i s = drop (length s - i) s
+
+stringOf s = takeWhile (/='"') (tail s)
+
+bareOp = filter (notElem "()")