GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

passe simple in ExtraRomance

Browse Source
This commit is contained in:
aarne
2006-06-18 19:08:47 +00:00
parent 865d84508f
commit 7dec4c8a89
14 changed files with 41 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/resource-1.0/romance/ResRomance.gf
View File

@@ -193,15 +193,16 @@ oper
} ;
mkClause : Str -> Agr -> VP ->
{s : Tense => Anteriority => Polarity => Mood => Str} =
{s : RTense => Anteriority => Polarity => Mood => Str} =
\subj,agr,vp -> {
s = \\t,a,b,m =>
let
tm = case t of {
Past => VImperf m ; --# notpresent
Fut => VFut ; --# notpresent
Cond => VCondit ; --# notpresent
Pres => VPres m
RPast => VImperf m ; --# notpresent
RFut => VFut ; --# notpresent
RCond => VCondit ; --# notpresent
RPasse => VPasse ; --# notpresent
RPres => VPres m
} ;
vps = vp.s ! VPFinite tm a ;
verb = vps.fin ! agr ;