msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

WIP params

Browse Source
This commit is contained in:
John J. Camilleri
2021-02-26 17:18:21 +01:00
parent 9785f8351d
commit 4771d9c356
6 changed files with 99 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
testsuite/lpgf/unittests/Params2Cnc.gf
View File

@@ -1,8 +1,9 @@
concrete Params2Cnc of Params2 = {
param
Boolean = True | False;
AForm = APred | AMod GenNum;
GenNum = GSg Gender | GPl;
GenNum = GSg Gender Boolean | GPl;
Gender = Masc | Fem | Neutr;
lincat
@@ -11,16 +12,19 @@ concrete Params2Cnc of Params2 = {
lin
SuchMassKind qual = {
s = qual.s ! AMod (GSg qual.g)
s = qual.s ! AMod (GSg qual.g True)
};
Good = {
s =
table {APred => "gut";
AMod (GSg Masc) => "guter";
AMod (GSg Fem) => "gute";
AMod (GSg Neutr) => "gutes";
AMod GPl => "gute"} ;
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
};
}