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

future copula

Browse Source
This commit is contained in:
krangelov
2020-03-29 23:01:28 +02:00
parent a79cb0b655
commit e685d5038e
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/turkish/VerbTur.gf
View File

@@ -1,4 +1,4 @@
concrete VerbTur of Verb = CatTur ** open ResTur, SuffixTur in { concrete VerbTur of Verb = CatTur ** open Prelude, ResTur, SuffixTur, HarmonyTur in {
lin lin
UseV v = v ; UseV v = v ;
@@ -39,7 +39,8 @@ concrete VerbTur of Verb = CatTur ** open ResTur, SuffixTur in {
VProg agr => ap.s ! Nom ; VProg agr => ap.s ! Nom ;
VPast agr => ap.s ! Nom ++ VPast agr => ap.s ! Nom ++
suffixStr ap.h (alethicCopulaSuffixes ! agr); suffixStr ap.h (alethicCopulaSuffixes ! agr);
VFuture agr => ap.s ! Nom ; VFuture agr => ap.s ! Nom ++
addSuffix "olacağ" (mkHar I_Har (SCon Hard)) (verbSuffixes ! agr) ;
VInfinitive => ap.s ! Nom ++ "olmak" ; VInfinitive => ap.s ! Nom ++ "olmak" ;
_ => "TODO" _ => "TODO"
} }
@@ -55,7 +56,8 @@ concrete VerbTur of Verb = CatTur ** open ResTur, SuffixTur in {
VProg agr => ap.s ! agr.n ! Nom ; VProg agr => ap.s ! agr.n ! Nom ;
VPast agr => ap.s ! agr.n ! Nom ++ VPast agr => ap.s ! agr.n ! Nom ++
suffixStr ap.h (alethicCopulaSuffixes ! agr); suffixStr ap.h (alethicCopulaSuffixes ! agr);
VFuture agr => ap.s ! agr.n ! Nom ; VFuture agr => ap.s ! agr.n ! Nom ++
addSuffix "olacağ" (mkHar I_Har (SCon Hard)) (verbSuffixes ! agr) ;
VInfinitive => ap.s ! Sg ! Nom ++ "olmak" ; VInfinitive => ap.s ! Sg ! Nom ++ "olmak" ;
_ => "TODO" _ => "TODO"
} }