1
0
forked from GitHub/gf-core

Support nested parameters, but fails with non-static values (see FoodsBull, ASg kind.g).

This commit is contained in:
John J. Camilleri
2021-02-03 00:11:22 +01:00
parent d09838e97e
commit 153bffdad7
7 changed files with 103 additions and 10 deletions

View File

@@ -0,0 +1,18 @@
concrete ScratchCnc of Scratch = {
param
R = R1 | R2 ;
P = PR R Q | PP ;
Q = Q1 | Q2 ;
lincat
S = Str ;
F = { p : P => Str } ;
lin
f1 = f2 ;
f2 = { p = table {
PR R1 Q1 => "R1 Q1" ;
PR R1 Q2 => "R1 Q2" ;
PR R2 _ => "R2 _" ;
PP => "PP"
} } ;
FtoS f = f.p ! PR R1 Q2 ;
}