1
0
forked from GitHub/gf-core

conjunction of AdV

This commit is contained in:
kr.angelov
2013-08-27 12:00:38 +00:00
parent 0ea4c754c0
commit 4369ed9f3f
3 changed files with 15 additions and 1 deletions

View File

@@ -22,6 +22,7 @@ abstract Conjunction = Cat ** {
ConjAP : Conj -> [AP] -> AP ; -- "cold and warm"
ConjNP : Conj -> [NP] -> NP ; -- "she or we"
ConjAdv : Conj -> [Adv] -> Adv ; -- "here or there"
ConjAdV : Conj -> [AdV] -> AdV ;
ConjIAdv : Conj -> [IAdv] -> IAdv ; -- "where and with whom"
ConjCN : Conj -> [CN] -> CN ; -- "man and woman"
@@ -32,7 +33,8 @@ abstract Conjunction = Cat ** {
cat
[S]{2} ;
[RS]{2} ;
[Adv]{2} ;
[Adv]{2} ;
[AdV]{2} ;
[NP]{2} ;
[AP]{2} ;
[IAdv]{2} ;

View File

@@ -14,6 +14,10 @@ concrete ConjunctionBul of Conjunction =
s = (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj;
} ;
ConjAdV conj ss = {
s = (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj;
} ;
ConjIAdv conj ss = {
s = \\qform => (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj!qform;
} ;
@@ -45,6 +49,9 @@ concrete ConjunctionBul of Conjunction =
BaseAdv x y = {s = \\d,t=>x.s++linCoord!t++ y.s} ;
ConsAdv x xs = {s = \\d,t=>x.s++(linCoordSep comma)!d!t++xs.s!d!t} ;
BaseAdV x y = {s = \\d,t=>x.s++linCoord!t++ y.s} ;
ConsAdV x xs = {s = \\d,t=>x.s++(linCoordSep comma)!d!t++xs.s!d!t} ;
BaseIAdv x y = {s = \\d,t,qform=>x.s!qform++linCoord!t++ y.s!qform} ;
ConsIAdv x xs = {s = \\d,t,qform=>x.s!qform++(linCoordSep comma)!d!t++xs.s!d!t!qform} ;
@@ -79,6 +86,7 @@ concrete ConjunctionBul of Conjunction =
lincat
[S] = {s : Bool => Ints 2 => Str} ;
[Adv] = {s : Bool => Ints 2 => Str} ;
[AdV] = {s : Bool => Ints 2 => Str} ;
[IAdv] = {s : Bool => Ints 2 => QForm => Str} ;
[NP] = {s : Bool => Ints 2 => Role => Str; a : Agr} ;
[AP] = {s : Bool => Ints 2 => AForm => Str; adv : Bool => Ints 2 => Str; isPre : Bool} ;

View File

@@ -8,6 +8,7 @@ concrete ConjunctionEng of Conjunction =
ConjS = conjunctDistrSS ;
ConjAdv = conjunctDistrSS ;
ConjAdV = conjunctDistrSS ;
ConjNP conj ss = conjunctDistrTable NPCase conj ss ** {
a = conjAgr (agrP3 conj.n) ss.a
@@ -31,6 +32,8 @@ concrete ConjunctionEng of Conjunction =
ConsS = consrSS comma ;
BaseAdv = twoSS ;
ConsAdv = consrSS comma ;
BaseAdV = twoSS ;
ConsAdV = consrSS comma ;
BaseNP x y = twoTable NPCase x y ** {a = conjAgr x.a y.a} ;
ConsNP xs x = consrTable NPCase comma xs x ** {a = conjAgr xs.a x.a} ;
BaseAP x y = twoTable Agr x y ** {isPre = andB x.isPre y.isPre} ;
@@ -45,6 +48,7 @@ concrete ConjunctionEng of Conjunction =
lincat
[S] = {s1,s2 : Str} ;
[Adv] = {s1,s2 : Str} ;
[AdV] = {s1,s2 : Str} ;
[IAdv] = {s1,s2 : Str} ;
[NP] = {s1,s2 : NPCase => Str ; a : Agr} ;
[AP] = {s1,s2 : Agr => Str ; isPre : Bool} ;