mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-01 03:28:34 -06:00
generalize infVP to support negative VP in Romance
This commit is contained in:
@@ -122,14 +122,14 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
|
||||
SSlash = \ss -> ss.s ! aagr Masc Sg ! Indic ++ ss.c2.s ;
|
||||
ClSlash = \cls -> cls.s ! aagr Masc Sg ! DDir ! RPres ! Simul ! RPos ! Indic ++ cls.c2.s ;
|
||||
|
||||
VP = \vp -> infVP vp (agrP3 Masc Sg) ;
|
||||
VPSlash = \vps -> infVP vps (agrP3 Masc Sg) ++ vps.c2.s ;
|
||||
VP = \vp -> infVP vp RPos (agrP3 Masc Sg) ;
|
||||
VPSlash = \vps -> infVP vps RPos (agrP3 Masc Sg) ++ vps.c2.s ;
|
||||
|
||||
V, VS, VQ, VA = \v -> infVP (predV v) (agrP3 Masc Sg);
|
||||
V2, V2A, V2Q, V2S = \v -> infVP (predV v) (agrP3 Masc Sg) ++ v.c2.s ;
|
||||
V3 = \v -> infVP (predV v) (agrP3 Masc Sg) ++ v.c2.s ++ v.c3.s ;
|
||||
VV = \v -> infVP (predV v) (agrP3 Masc Sg) ;
|
||||
V2V = \v -> infVP (predV v) (agrP3 Masc Sg) ;
|
||||
V, VS, VQ, VA = \v -> infVP (predV v) RPos (agrP3 Masc Sg);
|
||||
V2, V2A, V2Q, V2S = \v -> infVP (predV v) RPos (agrP3 Masc Sg) ++ v.c2.s ;
|
||||
V3 = \v -> infVP (predV v) RPos (agrP3 Masc Sg) ++ v.c2.s ++ v.c3.s ;
|
||||
VV = \v -> infVP (predV v) RPos (agrP3 Masc Sg) ;
|
||||
V2V = \v -> infVP (predV v) RPos (agrP3 Masc Sg) ;
|
||||
|
||||
NP = \np -> (np.s ! Nom).comp ;
|
||||
Conj = \c -> c.s2 ;
|
||||
|
||||
Reference in New Issue
Block a user