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

a draft for Copula verbs

Browse Source
This commit is contained in:
krangelov
2020-03-29 21:39:17 +02:00
parent 1f316bf5c3
commit a79cb0b655
9 changed files with 257 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/turkish/VerbTur.gf
+35 -4
View File
@@ -1,4 +1,4 @@
concrete VerbTur of Verb = CatTur ** open ResTur in {
concrete VerbTur of Verb = CatTur ** open ResTur, SuffixTur in {
lin
UseV v = v ;
@@ -26,10 +26,41 @@ concrete VerbTur of Verb = CatTur ** open ResTur in {
ComplVV _ _ = variants {} ;
ComplVQ _ _ = variants {} ;
UseComp _ = variants {} ;
UseComp comp = comp ;
CompCN _ = variants {} ;
CompNP _ = variants {} ;
CompAP _ = variants {} ;
CompNP ap = lin VP {
s = table {
VPres agr => ap.s ! Nom ++
case agr of {
{n=Sg; p=P3} => [] ;
_ => suffixStr ap.h (verbSuffixes ! agr)
} ;
VProg agr => ap.s ! Nom ;
VPast agr => ap.s ! Nom ++
suffixStr ap.h (alethicCopulaSuffixes ! agr);
VFuture agr => ap.s ! Nom ;
VInfinitive => ap.s ! Nom ++ "olmak" ;
_ => "TODO"
}
} ;
CompAP ap = lin VP {
s = table {
VPres agr => ap.s ! agr.n ! Nom ++
case agr of {
{n=Sg; p=P3} => [] ;
_ => suffixStr ap.h (verbSuffixes ! agr)
} ;
VProg agr => ap.s ! agr.n ! Nom ;
VPast agr => ap.s ! agr.n ! Nom ++
suffixStr ap.h (alethicCopulaSuffixes ! agr);
VFuture agr => ap.s ! agr.n ! Nom ;
VInfinitive => ap.s ! Sg ! Nom ++ "olmak" ;
_ => "TODO"
}
} ;
CompAdv _ = variants {} ;
ReflVP = variants {} ;