forked from GitHub/gf-rgl
added GenRP to Extend Fin,Fre,Ger,Ita,Swe
This commit is contained in:
@@ -3,7 +3,7 @@
|
||||
concrete ExtendGer of Extend =
|
||||
CatGer ** ExtendFunctor
|
||||
- [ -- remove the default implementations of:
|
||||
GenNP, EmptyRelSlash,
|
||||
GenNP, GenRP, EmptyRelSlash,
|
||||
VPS, ListVPS, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
|
||||
VPI, ListVPI, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
|
||||
ICompAP, IAdvAdv, CompIQuant, PrepCN,
|
||||
@@ -36,6 +36,13 @@ concrete ExtendGer of Extend =
|
||||
delCardOne = False
|
||||
} ;
|
||||
|
||||
GenRP nu cn = {
|
||||
s = \\gn,c => relPron ! gn ! Gen ++ cn.s ! Weak ! nu.n ! c ;
|
||||
a = RAg nu.n P3
|
||||
} ;
|
||||
|
||||
|
||||
|
||||
EmptyRelSlash slash = {
|
||||
s = \\m,t,a,p,gn =>
|
||||
appPrep slash.c2 (relPron ! gn) ++ slash.s ! m ! t ! a ! p ! Sub ;
|
||||
|
||||
Reference in New Issue
Block a user