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

invarA in Cze and Slo

Browse Source
This commit is contained in:
aarneranta
2020-05-07 11:24:03 +02:00
parent 344b91c68f
commit e50cc6f6e4
4 changed files with 24 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/czech/ParadigmsCze.gf
+4 -7
View File
@@ -92,13 +92,7 @@ oper
mkA = overload {
mkA : Str -> A
= \s -> lin A (case s of {
_ + "ý" => mladyAdjForms s ;
_ + "í" => jarniAdjForms s ;
_ + "ův" => otcuvAdjForms s ;
_ + "in" => matcinAdjForms s ;
_ => matcinAdjForms ("??" + s) -- Predef.error ("no mkA for" ++ s)
}) ;
= \s -> lin A (guessAdjForms s) ;
} ;
mladyA : Str -> A
@@ -110,6 +104,9 @@ oper
matcinA : Str -> A
= \s -> lin A (matcinAdjForms s) ;
invarA : Str -> A
= \s -> lin A (invarAdjForms s) ;
mkA2 : A -> Prep -> A2
= \a,p -> lin A2 (a ** {c = p}) ;