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

testing Hrv smart paradigms against Wiktionary

Browse Source
This commit is contained in:
aarneranta
2022-10-12 12:30:24 +02:00
parent 43a742c91e
commit dc19b6a88a
5 changed files with 73 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/croatian/wiktionary/MorphoDictHrv.gf
+19 -3
View File
@@ -1,5 +1,5 @@
concrete MorphoDictHrv of MorphoDictHrvAbs = CatHrv **
open (P=ParadigmsHrv), (R=ResHrv)
open (P=ParadigmsHrv), (R=ResHrv), ResHrv
in {
oper
@@ -13,7 +13,7 @@ oper
gender : R.Gender ;
snom, sgen, sdat, sacc, svoc, sins : Str
} -> PN
= \nfg -> P.mkPN nfg.snom ; ----
= \nfg -> P.mkPN <nfg : P.PNForms> nfg.gender ;
mkA : {
msnom, fsnom, nsnom, msgen,
@@ -29,7 +29,23 @@ oper
ppart_masc_sg, ppart_fem_sg, ppart_neutr_sg,
ppart_masc_pl, ppart_fem_pl, ppart_neutr_pl : Str
} -> V
= \vfs -> P.mkV vfs.infin vfs.pres_sg_1 vfs.ppart_masc_sg ; ----
= \vfs ->
let forms : VerbForms = table {
VInf => vfs.infin ;
VPres Sg P1 => vfs.pres_sg_1 ;
VPres Sg P2 => vfs.pres_sg_2 ;
VPres Sg P3 => vfs.pres_sg_3 ;
VPres Pl P1 => vfs.pres_pl_1 ;
VPres Pl P2 => vfs.pres_pl_2 ;
VPres Pl P3 => vfs.pres_pl_3 ;
VPastPart (Masc _) Sg => vfs.ppart_masc_sg ;
VPastPart (Masc _) Pl => vfs.ppart_masc_pl ;
VPastPart Fem Sg => vfs.ppart_fem_sg ;
VPastPart Fem Pl => vfs.ppart_fem_pl ;
VPastPart Neutr Sg => vfs.ppart_neutr_sg ;
VPastPart Neutr Pl => vfs.ppart_neutr_pl
}
in P.mkV forms ;
lin 'Ćaba_13871_PN' = mkPN {gender = P.feminine ; snom = "Ćaba" ; sgen = "Ćabe" ; sdat = "Ćabi" ; sacc = "Ćabu" ; svoc = "Ćabo" ; sins = "Ćabom"} ;
lin 'ćaknut_44346_A' = mkA {msnom = "ćaknut" ; fsnom = "ćaknuta" ; nsnom = "ćaknuto" ; msgen = "ćaknuta" ; fsgen = "ćaknute" ; msdat = "ćaknutu" ; fsdat = "ćaknutoj" ; fsacc = "ćaknutu" ; msins = "ćaknutim" ; fsins = "ćaknutom" ; mpnom = "ćaknuti" ; mpgen = "ćaknutih" ; cmsnom = "ćaknutiji"} ;