GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-28 14:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

unsound verbs corrected in DictionaryFre

Browse Source
This commit is contained in:
aarne
2014-12-07 13:45:38 +00:00
parent 4ef0a64fba
commit 8451d35ecf
2 changed files with 24 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,6 +22,10 @@ isError lang u v = case lang of
"mkV" | head v == '"' -> notElem (dp 3 (stringOf v)) ["are","ere","ire","rsi"]
"mkV2" | head v == '"' -> notElem (dp 3 (stringOf v)) ["are","ere","ire","rsi"]
_ -> False
"Fre" -> case bareOp u of
"mkV" | head v == '"' -> notElem (dp 2 (stringOf v)) ["er","ir","re"]
"mkV2" | head v == '"' -> notElem (dp 2 (stringOf v)) ["er","ir","re"]
_ -> False
dp :: Int -> String -> String
dp i s = drop (length s - i) s