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

More work on params: pass all tests except params1 (!)

Browse Source
This commit is contained in:
John J. Camilleri
2021-02-27 23:13:02 +01:00
parent f42b5ec9ef
commit 83bc3c9c6e
10 changed files with 144 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
testsuite/lpgf/unittests/Params1Cnc.gf Normal file
View File

@@ -0,0 +1,30 @@
concrete Params1Cnc of Params1 = {
param
P = Px | PRQ R Q | Py ;
R = R0 | RT T ;
T = T0 | T1 ;
Q = Q3 | Q2 | Q1 ;
lincat
S = Str ;
F = { r : R; q : Q } ;
lin
f1 = { r = R0 ; q = Q3 } ;
f2 = { r = RT T1 ; q = Q1 } ;
FtoS f = tbl ! PRQ f.r f.q ;
oper
tbl = table {
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"
} ;
}