msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

started Czech with a mini-like coverage

Browse Source
This commit is contained in:
Aarne Ranta
2020-04-01 11:07:09 +02:00
parent 8f46b09647
commit 7c275c1c28
23 changed files with 1492 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/czech/StructuralCze.gf
+25
View File
@@ -0,0 +1,25 @@
concrete StructuralCze of Structural = CatCze **
open ParadigmsCze, ResCze, Prelude in {
lin
and_Conj = mkConj "i" ;
---- by8agent_Prep : Prep
---- few_Det : Det
from_Prep = mkPrep (pre {"s"|"z" => "ze" ; _ => "z"}) Gen ; ---- consonant clusters
have_V2 = mkV2 haveVerbForms ;
in_Prep = mkPrep (pre {"v"|"m" => "ve" ; _ => "v"}) Loc ; ----
---- many_Det : Det
or_Conj = mkConj "nebo" ;
---- somePl_Det : Det
---- something_NP : NP
that_Quant = demPronFormsAdjective (mkDemPronForms "tamt") "" ;
this_Quant = demPronFormsAdjective (mkDemPronForms "t") "to" ;
to_Prep = mkPrep "do" Gen ;
with_Prep = mkPrep (pre {"s"|"z" => "se" ; _ => "s"}) Ins ; ----
i_Pron = personalPron (Ag (Masc Anim) Sg P1) ;
youSg_Pron = personalPron (Ag (Masc Anim) Sg P2) ;
he_Pron = personalPron (Ag (Masc Anim) Sg P3) ;
she_Pron = personalPron (Ag Fem Sg P3) ;
}