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

Romancs reflexives and passives

Browse Source
This commit is contained in:
aarne
2006-01-24 09:59:20 +00:00
parent a9191c404f
commit c8a52e297c
5 changed files with 51 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -51,7 +51,8 @@ oper
vpart : AAgr -> Str = \a -> verb.s ! VPart a.g a.n ;
vinf = verb.s ! VInfin ;
aux = auxVerb verb.vtyp ;
typ = verb.vtyp ;
aux = auxVerb typ ;
habet : TMood -> Agr -> Str = \tm,a -> aux ! VFin tm a.n a.p ;
habere : Str = aux ! VInfin ;
@@ -73,9 +74,12 @@ oper
VPInfinit Simul => vf (\_ -> []) (\_ -> vinf) ;
VPInfinit Anter => vf (\_ -> []) (\a -> habere ++ vpart a)
} ;
agr = partAgr verb.vtyp ;
agr = partAgr typ ;
neg = negation ;
clit1 = \\a => [] ; ----
clit1 = \\a => case isVRefl typ of {
True => reflPron ! a.n ! a.p ! Acc ;
_ => []
} ;
clit2 = [] ;
comp = \\a => [] ;
ext = \\p => []