Support dynamic param values

2026-05-20 16:42:51 -06:00 · 2021-02-03 13:16:10 +01:00
parent 132f693713
commit 42b9e7036e
7 changed files with 110 additions and 39 deletions
--- a/testsuite/lpgf/ParamsCnc.gf
+++ b/testsuite/lpgf/ParamsCnc.gf
@@ -0,0 +1,20 @@
+concrete ParamsCnc of Params = {
+  param
+    R = R1 | R2 ;
+    P = PR R Q | PP ;
+    Q = Q1 | Q2 ;
+  lincat
+    S = Str ;
+    F = { r : R } ;
+  lin
+    f1 = { r = R1 } ;
+    f2 = { r = R2 } ;
+    FtoS f = tbl ! PR f.r Q2 ;
+  oper
+    tbl = table {
+      PR R1 Q1 => "PR R1 Q1" ;
+      PR R1 Q2 => "PR R1 Q2" ;
+      PR R2 _ => "PR R2 _" ;
+      PP => "PP"
+    } ;
+}