mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 11:19:32 -06:00
32 lines
879 B
Plaintext
32 lines
879 B
Plaintext
concrete ConjunctionChi of Conjunction = CatChi ** open ResChi, Prelude, Coordination in {
|
|
|
|
lin
|
|
|
|
ConjS c = conjunctDistrSS (c.s ! CSent) ;
|
|
ConjAdv c as = conjunctDistrSS (c.s ! CSent) as ** {advType = ATPlace} ; ---- ??
|
|
ConjNP c = conjunctDistrSS (c.s ! CPhr CNPhrase) ;
|
|
ConjAP c as = conjunctDistrSS (c.s ! CPhr CAPhrase) as ** {monoSyl = False} ;
|
|
ConjRS c = conjunctDistrSS (c.s ! CSent) ;
|
|
|
|
-- These fun's are generated from the list cat's.
|
|
|
|
BaseS = twoSS ;
|
|
ConsS = consrSS duncomma ;
|
|
BaseAdv = twoSS ;
|
|
ConsAdv = consrSS duncomma ;
|
|
BaseNP = twoSS ;
|
|
ConsNP = consrSS duncomma ;
|
|
BaseAP = twoSS ;
|
|
ConsAP = consrSS duncomma ;
|
|
BaseRS = twoSS ;
|
|
ConsRS = consrSS duncomma ;
|
|
|
|
lincat
|
|
[S] = {s1,s2 : Str} ;
|
|
[Adv] = {s1,s2 : Str} ;
|
|
[NP] = {s1,s2 : Str} ;
|
|
[AP] = {s1,s2 : Str} ;
|
|
[RS] = {s1,s2 : Str} ;
|
|
|
|
}
|