GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-22 17:56:21 -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

13
src/czech/ResCze.gf
View File

@@ -441,6 +441,11 @@ oper
pins : Str ;
} ;
invarAdjForms : Str -> AdjForms = \s -> {
msnom, fsnom, nsnom, msgen, fsgen, msdat, fsdat, fsacc,
msloc, msins, fsins, mpnom, fpnom, pgen, pins = s ;
} ;
-- used in PositA but will also work in Compar and Superl by calling their record fields
adjFormsAdjective : AdjForms -> Adjective = \afs -> {
@@ -477,6 +482,14 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
} ;
guessAdjForms : Str -> AdjForms = \s -> case s of {
_ + "ý" => mladyAdjForms s ;
_ + "í" => jarniAdjForms s ;
_ + "ův" => otcuvAdjForms s ;
_ + "in" => matcinAdjForms s ;
_ => matcinAdjForms ("??" + s) -- Predef.error ("no mkA for" ++ s)
} ;
-- hard declension
mladyAdjForms : Str -> AdjForms = \mlady ->