1
0
forked from GitHub/gf-core

Add Phrasebook to testsuite. Move grammars into subfolders. Add run-bench script.

This commit is contained in:
John J. Camilleri
2021-02-20 13:22:29 +01:00
parent 5ad5789b31
commit dca2ebaf72
179 changed files with 20169 additions and 26 deletions

View File

@@ -0,0 +1,26 @@
concrete TablesCnc of Tables = {
param
R = R1 | R2 ;
Q = Q3 | Q2 | Q1 ;
oper
ParamRec: Type = { r: R; q: Q } ;
lincat
S = Str ;
F = { pr : ParamRec } ;
lin
f1 = { pr = { r = R1; q = Q1 } } ;
f2 = { pr = { r = R1; q = Q2 } } ;
f3 = { pr = { r = R1; q = Q3 } } ;
f4 = { pr = { r = R2; q = Q1 } } ;
f5 = { pr = { r = R2; q = Q2 } } ;
f6 = { pr = { r = R2; q = Q3 } } ;
FtoS f = tbl ! f.pr ;
oper
tbl = table {
{ r = R1 ; q = _ } => "R1 _" ;
{ r = _ ; q = Q2 } => "_ Q2" ;
{ r = R2 ; q = Q3 } => "R2 Q3" ;
_ => "_ _"
} ;
}