mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-10 03:32:51 -06:00
37 lines
1.3 KiB
Plaintext
37 lines
1.3 KiB
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 = as.advType} ; ---- ??
|
|
ConjNP c = conjunctDistrSS (c.s ! CPhr CNPhrase) ;
|
|
ConjAP c as = conjunctDistrSS (c.s ! CPhr CAPhrase) as ** {monoSyl = False ; hasAdA = True} ; ---- ??
|
|
ConjRS c = conjunctDistrSS (c.s ! CSent) ;
|
|
ConjCN c ns = conjunctDistrSS (c.s ! CPhr CNPhrase) ns ** {c = ns.c} ;
|
|
|
|
-- These fun's are generated from the list cat's.
|
|
|
|
BaseS = twoSS ;
|
|
ConsS = consrSS duncomma ;
|
|
BaseAdv x y = twoSS x y ** {advType = x.advType} ; ---- ??
|
|
ConsAdv x xs = consrSS duncomma x xs ** {advType = x.advType} ; ---- ??
|
|
BaseNP = twoSS ;
|
|
ConsNP = consrSS duncomma ;
|
|
BaseAP = twoSS ;
|
|
ConsAP = consrSS duncomma ;
|
|
BaseRS = twoSS ;
|
|
ConsRS = consrSS duncomma ;
|
|
BaseCN x y = twoSS x y ** {c = x.c} ; --- classified comes from first part ; should it rather be ge?
|
|
ConsCN x xs = consrSS duncomma x xs ** {c = x.c} ;
|
|
|
|
lincat
|
|
[S] = {s1,s2 : Str} ;
|
|
[Adv] = {s1,s2 : Str ; advType : AdvType} ;
|
|
[NP] = {s1,s2 : Str} ;
|
|
[AP] = {s1,s2 : Str} ;
|
|
[RS] = {s1,s2 : Str} ;
|
|
[CN] = {s1,s2 : Str ; c : Str} ;
|
|
|
|
|
|
}
|