1
0
forked from GitHub/gf-rgl

added Extend.AdAdV in Eng,Swe,Bul

This commit is contained in:
Krasimir Angelov
2018-05-30 22:29:18 +02:00
parent 8ad7c58989
commit 3946144833
3 changed files with 7 additions and 1 deletions

View File

@@ -2,6 +2,8 @@
concrete ExtendBul of Extend = CatBul ** open Prelude, ResBul in {
lin
AdAdV = cc2 ;
EmptyRelSlash slash = {
s = \\t,a,p,agr => slash.c2.s ++ whichRP ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
role = RObj Acc

View File

@@ -282,6 +282,8 @@ concrete ExtendEng of Extend =
lin
AdAdV = cc2 ;
AdjAsCN ap = let cn = mkNoun "one" "one's" "ones" "ones'" ** {g = Neutr}
in {
s = \\n,c => preOrPost ap.isPre (ap.s ! agrgP3 n cn.g) (cn.s ! n ! c) ;

View File

@@ -7,7 +7,7 @@ concrete ExtendSwe of Extend = CatSwe **
MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
ICompAP,
PositAdVAdj, PresPartAP, PastPartAP, PastPartAgentAP,
AdAdV, PositAdVAdj, PresPartAP, PastPartAP, PastPartAgentAP,
RNP, RNPList, ReflRNP, ReflPron, ReflPoss, PredetRNP, ConjRNP,
Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP,
CompoundN
@@ -152,6 +152,8 @@ concrete ExtendSwe of Extend = CatSwe **
} ;
lin
AdAdV = cc2 ;
PositAdVAdj a = {s = a.s ! AAdv} ;
PresPartAP vp = {