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

merged Prasanth's UWN additions to Dictionary in Fre,Ita,Spa. Unsound verbs and adjectives left out, although manual checking could find valid variants from them. Verbs not always compared with Irreg lists, which means that they can get erroneous regular inflections.

Browse Source
This commit is contained in:
aarne
2014-12-07 16:51:44 +00:00
parent 98856af352
commit 34e3431c32
4 changed files with 25032 additions and 1290 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,20 +15,21 @@ hasError lang ws = case ws of
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"]
"mkV" | head v == '"' -> notElem (dp 2 (stringOf v)) ["ar","er","ir","se"] || elem '_' v
"mkV2" | head v == '"' -> notElem (dp 2 (stringOf v)) ["ar","er","ir","se"] || elem '_' v
"mkA" -> elem '_' (stringOf v)
_ -> False
"Ita" -> case bareOp u 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"]
"Ita" -> case take 3 (bareOp u) of
"mkV" | head v == '"' -> notElem (dp 3 (stringOf v)) ["are","ere","ire","rsi"] || elem '_' v
"mkA" -> elem '_' (stringOf v)
_ -> 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"]
"Fre" -> case take 3 (bareOp u) of
"mkV" | head v == '"' -> notElem (dp 2 (stringOf v)) ["er","ir","re"] || elem '_' v
"mkv" | head v == '"' -> notElem (dp 2 (stringOf v)) ["er","ir","re"] || elem '_' v
_ | bareOp u == "mkA" -> elem '_' (stringOf v)
_ -> 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