forked from GitHub/gf-rgl
added Extend.AdAdV in Eng,Swe,Bul
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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) ;
|
||||
|
||||
@@ -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 = {
|
||||
|
||||
Reference in New Issue
Block a user