forked from GitHub/gf-core
31 lines
801 B
Plaintext
31 lines
801 B
Plaintext
concrete Params2Cnc of Params2 = {
|
|
|
|
param
|
|
Boolean = True | False;
|
|
AForm = APred | AMod GenNum;
|
|
GenNum = GSg Gender Boolean | GPl;
|
|
Gender = Masc | Fem | Neutr;
|
|
|
|
lincat
|
|
Quality = {s : AForm => Str ; g : Gender};
|
|
MassKind = {s : Str};
|
|
|
|
lin
|
|
SuchMassKind qual = {
|
|
s = qual.s ! AMod (GSg qual.g True)
|
|
};
|
|
|
|
Good = {
|
|
s =
|
|
table {APred => "pred";
|
|
AMod (GSg Masc True) => "mod sg masc t";
|
|
AMod (GSg Fem True) => "mod sg fem t";
|
|
AMod (GSg Neutr True) => "mod sg neutr t";
|
|
AMod (GSg Masc False) => "mod sg masc f";
|
|
AMod (GSg Fem False) => "mod sg fem f";
|
|
AMod (GSg Neutr False) => "mod sg neutr f";
|
|
AMod GPl => "mod pl"} ;
|
|
g = Neutr
|
|
};
|
|
}
|