mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-01 15:22:50 -06:00
34 lines
987 B
Plaintext
34 lines
987 B
Plaintext
|
|
|
|
concrete ConjunctionAmh of Conjunction =
|
|
CatAmh ** open ResAmh, Coordination, Prelude,ParamX, CommonX in {
|
|
|
|
flags optimize=all_subs ;
|
|
coding = utf8;
|
|
|
|
lin
|
|
|
|
ConjS = conjunctDistrSS ;
|
|
ConjAdv = conjunctDistrSS ;
|
|
ConjNP conj ss = conjunctDistrTable Case conj ss ** { a = {png= conjAgr (agrP3 conj.n) ss.a.png ;isPron =False}};
|
|
ConjAP conj ss = conjunctDistrTable4 Gender Number Species Case conj ss ;
|
|
|
|
|
|
|
|
BaseS = twoSS ;
|
|
ConsS = consrSS "፣" ;
|
|
BaseAdv = twoSS ;
|
|
ConsAdv = consrSS "፣" ;
|
|
BaseNP x y = twoTable Case x y ** {a = {png =conjAgr x.a.png y.a.png ;isPron = False}} ;
|
|
ConsNP xs x = consrTable Case "፣" xs x ** {a = { png = conjAgr xs.a.png x.a.png ;isPron =False} };
|
|
BaseAP x y = twoTable4 Gender Number Species Case x y ;
|
|
ConsAP xs x = consrTable4 Gender Number Species Case "፤" xs x ;
|
|
|
|
lincat
|
|
[S] = {s1,s2 : Str} ;
|
|
[Adv]= {s1,s2 : Str} ;
|
|
[NP] = {s1,s2 : Case => Str ; a : Agr} ;
|
|
[AP] = {s1,s2 : Gender => Number => Species => Case => Str} ;
|
|
|
|
}
|