Finish type passing in val2lin, generalise projection case and pass FoodsFre testsuite.

testsuite/lpgf/Projection.gf

@@ -0,0 +1,8 @@
+abstract Projection = {
+  flags startcat = Comment ;
+  cat
+    Comment ; Item ;
+  fun
+    Pred : Item -> Comment ;
+    Wine : Item ;
+}

testsuite/lpgf/Projection.treebank

@@ -0,0 +1,3 @@
+Projection: Pred Wine
+ProjectionCnc: ce vin
+

testsuite/lpgf/Projection.trees

@@ -0,0 +1 @@
+Pred Wine

testsuite/lpgf/ProjectionCnc.gf

@@ -0,0 +1,20 @@
+concrete ProjectionCnc of Projection = {
+  -- param Case = Nom | Acc ;
+
+  lincat
+    Comment = {s : Str} ;
+    Item = {
+      -- s : Case => {comp : Str} ;
+      nom : {comp: Str}
+    } ;
+  lin
+    Wine = {
+      -- s = table {
+      --   Nom => {comp = "ce" ++ "vin"} ;
+      --   Acc => {comp = "ce" ++ "vin"}
+      -- } ;
+      nom = {comp = "ce" ++ "vin"} ;
+    } ;
+    -- Pred item = { s = ((item.s)!Nom).comp } ;
+    Pred item = { s = (item.nom).comp } ;
+}

testsuite/lpgf/run.hs

@@ -19,6 +19,8 @@ main = do
   doGrammar "Tables"
   doGrammar "Params"
   doGrammar "Pre"
+  doGrammar "Projection"
+
   doGrammar "Walking"
   doGrammar "Foods"
   -- doGrammar' "Foods" ["Fre"]