GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-16 00:09:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix table selection with meta variables and lambda variables

Browse Source
This commit is contained in:
krangelov
2021-09-28 13:49:35 +02:00
parent 808e8db141
commit fee186feca
3 changed files with 46 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
testsuite/compiler/compute/param_table.gfs
View File

@@ -9,3 +9,6 @@ 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
cc case <Q1,Q2> of {<Q1,Q1> => "11"; <Q1,Q2> => "12"; _ => "??"}
cc case <Q2,Q2> of {<Q1,Q1> => "11"; <Q1,Q2> => "12"; _ => "??"}
cc <\x -> case x of {Q1 => "q1"; Q2 => "q2"} : Q -> Str>
cc <\x -> case P2 x of {P1 => "p1"; P2 q => "p2"} : Q -> Str>
cc <\x -> case P2 x of {P1 => "p1"; P2 q => case q of {Q1 => "q1"; Q2 => "q2"}} : Q -> Str>

9
testsuite/compiler/compute/param_table.gfs.gold
View File

@@ -8,3 +8,12 @@ variants {"p2q1"; "p2q2"}
"p2q1"
"12"
"??"
\v0 -> case <v0 : param_table.Q> of {
param_table.Q1 => "q1";
param_table.Q2 => "q2"
}
\v0 -> "p2"
\v0 -> case <v0 : param_table.Q> of {
param_table.Q1 => "q1";
param_table.Q2 => "q2"
}