Files
gf-core/lib/src/amharic/ConjunctionAmh.gf
2010-11-10 17:01:12 +00:00

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} ;
}