implemented tables and parameters

This commit is contained in:
krangelov
2021-09-24 17:20:25 +02:00
parent ad9fbdef6f
commit c5b6432016
6 changed files with 75 additions and 35 deletions

View File

@@ -1,2 +1,9 @@
i -retain testsuite/compiler/compute/param_table.gf
cc P2 Q1
cc table {P1 => "p1"; P2 _ => "p2"} ! P1
cc table {P1 => "p1"; P2 _ => "p2"} ! P2 Q1
cc table {P1 => "p1"; P2 _ => "p2"} ! P2 (Q1|Q2)
cc table {P1 => "p1"; P2 q => "p2"} ! P2 (Q1|Q2)
cc table {P1 => "p1"; P2 Q1 => "p2q1"; P2 Q2 => "p2q2"} ! P2 (Q1|Q2)
cc table {P1 => "p1"; P2 Q1 => "p2q1"; P2 Q2 => "p2q2"} ! P2 Q1
cc table {P1 => "p1"; P2 q => case q of {Q1 => "p2q1"; Q2 => "p2q2"}} ! P2 Q1

View File

@@ -1 +1,8 @@
param_table.P2 param_table.Q1
"p1"
"p2"
"p2"
"p2"
variants {"p2q1"; "p2q2"}
"p2q1"
"p2q1"