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

resource specialized to present tense ; preprocessor flag

Browse Source
This commit is contained in:
aarne
2006-02-25 18:59:32 +00:00
parent 177c6beb9e
commit 7cf0789945
43 changed files with 6530 additions and 8963 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
resource-1.0/romance/ResRomance.gf
View File

@@ -79,11 +79,11 @@ oper
in {
s = table {
VPFinite t Simul => vf (vfin t) (\_ -> []) ;
VPFinite t Anter => vf (habet t) vpart ;
VPFinite t Anter => vf (habet t) vpart ; --# notpresent
VPInfinit Anter => vf (\_ -> []) (\a -> habere ++ vpart a) ; --# notpresent
VPImperat => vf vimp (\_ -> []) ;
VPGerund => vf (\_ -> []) (\_ -> vger) ;
VPInfinit Simul => vf (\_ -> []) (\_ -> vinf) ;
VPInfinit Anter => vf (\_ -> []) (\a -> habere ++ vpart a)
VPInfinit Simul => vf (\_ -> []) (\_ -> vinf)
} ;
agr = partAgr typ ;
neg = negation ;
@@ -174,10 +174,10 @@ oper
s = \\t,a,b,m =>
let
tm = case t of {
Pres => VPres m ;
Past => VImperf m ;
Fut => VFut ;
Cond => VCondit
Past => VImperf m ; --# notpresent
Fut => VFut ; --# notpresent
Cond => VCondit ; --# notpresent
Pres => VPres m
} ;
vps = vp.s ! VPFinite tm a ;
verb = vps.fin ! agr ;