"Committed_by_peb"

grammars/ljung/variants/TestVars.gf

@@ -0,0 +1,14 @@
+
+concrete TestVars of TestVarsA = open TestVarsR in {
+
+lincat S = { s : XYZ => Str; p : { s : Str; a : AB } };
+
+lin a = { s = table { X _ => variants { "x1" ; "x2" };
+      	      	      Y   => variants { "y1" ; "y2" };
+		      _   => variants { "z1" ; "z2" } };
+          p = variants { { s = "s1" ; a = A } ;
+	      	       	 { s = "s2" ; a = B } };
+        };
+
+}
+

grammars/ljung/variants/TestVarsA.gf

@@ -0,0 +1,9 @@
+
+abstract TestVarsA = {
+
+cat S;
+
+fun a : S;
+
+}
+

grammars/ljung/variants/TestVarsR.gf

@@ -0,0 +1,27 @@
+
+resource TestVarsR = {
+
+param AB = A | B;
+param XYZ = X AB | Y | Z AB;
+
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+