GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-29 22:42:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

"junk verbs" in DictionaryGer converted to something meaningful (but correctness to be checked)

Browse Source
This commit is contained in:
aarne
2014-12-07 15:19:09 +00:00
parent 8451d35ecf
commit 98856af352
3 changed files with 369 additions and 353 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/translator/CheckInflection.hs
View File

@@ -26,6 +26,10 @@ isError lang u v = case lang of
"mkV" | head v == '"' -> notElem (dp 2 (stringOf v)) ["er","ir","re"]
"mkV2" | head v == '"' -> notElem (dp 2 (stringOf v)) ["er","ir","re"]
_ -> False
"Ger" -> case bareOp u of
"mkV" | head v == '"' -> notElem (dp 2 (stringOf v)) ["en","rn","ln"]
"mkV2" | head v == '"' -> notElem (dp 2 (stringOf v)) ["en","rn","ln"]
_ -> False
dp :: Int -> String -> String
dp i s = drop (length s - i) s
@@ -33,3 +37,5 @@ dp i s = drop (length s - i) s
stringOf s = takeWhile (/='"') (tail s)
bareOp = filter (flip notElem "()")
lexs s = case lex s of [(t,cs@(_:_))] -> t:lexs cs ; [(t,[])] -> [t] ; _ -> []