GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki 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

4
testsuite/lpgf/unittests/Params.treebank
View File

@@ -1,5 +1,5 @@
Params: FtoS f1
ParamsCnc: PR R1 Q1
ParamsCnc: PRQ _ Q3
Params: FtoS f2
ParamsCnc: PR R2 _
ParamsCnc: PRQ (RT _) Q1

2
testsuite/lpgf/unittests/Params2.treebank
View File

@@ -1,2 +1,2 @@
Params2: SuchMassKind Good
Params2Cnc: gutes
Params2Cnc: mod sg neutr t

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

31
testsuite/lpgf/unittests/ParamsCnc.gf
View File

@@ -1,21 +1,30 @@
concrete ParamsCnc of Params = {
param
R = R1 | R2 ;
P = PR R Q | PP ;
P = Px | PRQ R Q | Py ;
R = R0 | RT T ;
T = T0 | T1 ;
Q = Q3 | Q2 | Q1 ;
lincat
S = Str ;
F = { r : R } ;
F = { r : R; q : Q } ;
lin
f1 = { r = R1 } ;
f2 = { r = R2 } ;
FtoS f = tbl ! PR f.r Q1 ;
f1 = { r = R0 ; q = Q3 } ;
f2 = { r = RT T1 ; q = Q1 } ;
FtoS f = tbl ! PRQ f.r f.q ;
oper
tbl = table {
PR R1 Q2 => "PR R1 Q2" ;
PR R1 Q1 => "PR R1 Q1" ;
PR R1 Q3 => "PR R1 Q3" ;
PR R2 _ => "PR R2 _" ;
PP => "PP"
Px => "Px" ;
Py => "Py" ;
PRQ R0 Q1 => "PRQ R0 Q1" ;
PRQ R0 Q2 => "PRQ R0 Q2" ;
-- PRQ R0 Q3 => "PRQ R0 Q3" ;
PRQ (RT _) Q1 => "PRQ (RT _) Q1" ;
-- PRQ (RT T0) Q1 => "PRQ (RT T0) Q1" ;
PRQ (RT T0) Q2 => "PRQ (RT T0) Q2" ;
-- PRQ (RT T0) Q3 => "PRQ (RT T0) Q3" ;
-- PRQ (RT T1) Q1 => "PRQ (RT T1) Q1" ;
PRQ (RT T1) Q2 => "PRQ (RT T1) Q2" ;
-- PRQ (RT T1) Q3 => "PRQ (RT T1) Q3" ;
PRQ _ Q3 => "PRQ _ Q3"
} ;
}