Add support for pre

testsuite/lpgf/Pre.gf

@@ -0,0 +1,7 @@
+abstract Pre = {
+  cat S; N; Det;
+  fun
+    ant, dog: N ;
+    a, the: Det ;
+    mkS : Det -> N -> S;
+}

testsuite/lpgf/Pre.treebank

@@ -0,0 +1,12 @@
+Pre: mkS a ant
+PreCnc: an ant
+
+Pre: mkS the ant
+PreCnc: the ant
+
+Pre: mkS a dog
+PreCnc: a dog
+
+Pre: mkS the dog
+PreCnc: the dog
+

testsuite/lpgf/Pre.trees

@@ -0,0 +1,4 @@
+mkS a ant
+mkS the ant
+mkS a dog
+mkS the dog

testsuite/lpgf/PreCnc.gf

@@ -0,0 +1,15 @@
+concrete PreCnc of Pre = {
+  lincat
+    S = { s : Str } ;
+    N = { s : Str } ;
+    Det = { s : Str } ;
+  lin
+    ant = { s = "ant" } ;
+    dog = { s = "dog" } ;
+    a = { s = pre {
+      "a"|"e"|"i"|"o"|"u" => "an" ;
+      _ => "a"
+    } } ;
+    the = { s = "the" } ;
+    mkS det n = { s = det.s ++ n.s } ;
+}

testsuite/lpgf/run.hs

@@ -18,6 +18,7 @@ main = do
   doGrammar "Bind"
   doGrammar "Tables"
   doGrammar "Params"
+  doGrammar "Pre"
   doGrammar "Walking"
   doGrammar "Foods"
   -- doGrammar' "Foods" ["Fre"]