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

added Extend.SubjunctRelCN

Browse Source
This commit is contained in:
Aarne Ranta
2024-07-30 08:44:01 +02:00
parent 78f333e79e
commit ba2e4a4964
3 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/abstract/Extend.gf
View File

@@ -305,4 +305,7 @@ fun
fun fun
TPastSimple : Tense ; TPastSimple : Tense ;
fun
SubjunctRelCN : CN -> RS -> CN ; -- e.g. Romance languages when subjunctive/conjunctive is needed
} }

2
src/common/ExtendFunctor.gf
View File

@@ -137,6 +137,8 @@ lin
ExistNPQS t p np = UseQCl t p (QuestCl (ExistNP np)) ; ExistNPQS t p np = UseQCl t p (QuestCl (ExistNP np)) ;
ExistIPQS t p np = UseQCl t p (ExistIP np) ; ExistIPQS t p np = UseQCl t p (ExistIP np) ;
SubjunctRelCN cn rs = RelCN cn rs ; -- no difference from indicative
lincat lincat
X = {s : Str} ; X = {s : Str} ;

7
src/romance/ExtendRomanceFunctor.gf
View File

@@ -73,7 +73,12 @@ incomplete concrete ExtendRomanceFunctor of Extend =
.s ! m ! (Ag rp.a.g rp.a.n P3) ! False ; .s ! m ! (Ag rp.a.g rp.a.n P3) ! False ;
c = Nom c = Nom
} ; } ;
SubjunctRelCN cn rs = let g = cn.g in {
s = \\n => cn.s ! n ++ rs.s ! Conjunct ! agrP3 g n ; --- mood
g = g
} ;
MkVPI vp = variants {} ; -- Temp -> Pol -> VP -> VPI ; -- to sleep / hasn't slept MkVPI vp = variants {} ; -- Temp -> Pol -> VP -> VPI ; -- to sleep / hasn't slept
ConjVPI = variants {} ; -- Conj -> [VPI] -> VPI ; -- has walked and won't sleep ConjVPI = variants {} ; -- Conj -> [VPI] -> VPI ; -- has walked and won't sleep