mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-20 08:46:20 -06:00
(May) add coordination AP, NP and CN
This commit is contained in:
@@ -6,14 +6,31 @@ concrete ConjunctionMay of Conjunction =
|
||||
lincat
|
||||
[Adv],[AdV] = {s1,s2 : Str} ;
|
||||
[S] = {s1,s2 : Str} ;
|
||||
|
||||
[AP] = {s1,s2 : Str} ;
|
||||
[NP] = {s1,s2 : Possession => Str} ;
|
||||
[CN] = {s1,s2 : NForm => Str ; heavyMod : Str} ;
|
||||
|
||||
lin
|
||||
BaseAdv, BaseAdV = twoSS ;
|
||||
ConsAdv, ConsAdV = consrSS comma ;
|
||||
ConjAdv, ConjAdV = conjunctDistrSS ;
|
||||
|
||||
BaseS = twoSS ;
|
||||
ConsS = consrSS comma ;
|
||||
ConjS = conjunctDistrSS ;
|
||||
|
||||
BaseAP = twoSS ;
|
||||
ConsAP = consrSS comma ;
|
||||
ConjAP = conjunctDistrSS ;
|
||||
|
||||
BaseNP = twoTable Possession ;
|
||||
ConsNP = consrTable Possession comma ;
|
||||
ConjNP co nps = emptyNP ** conjunctDistrTable Possession co nps ;
|
||||
|
||||
BaseCN x y = y ** twoTable NForm (mergeCN x) y ;
|
||||
ConsCN x xs = xs ** consrTable NForm comma (mergeCN x) xs ;
|
||||
ConjCN conj ss = ss ** conjunctDistrTable NForm conj ss ;
|
||||
|
||||
oper
|
||||
mergeCN : CNoun -> CNoun = \cn -> cn ** {s = \\nf => linCN cn} ; -- put postmod in s field
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user