Add support for BIND

testsuite/lpgf/Bind.gf

@@ -0,0 +1,7 @@
+abstract Bind = {
+  cat S ; F ;
+  fun
+    FtoS : F -> S ;
+    f1 : F ;
+    f2 : F ;
+}

testsuite/lpgf/Bind.treebank

@@ -0,0 +1,6 @@
+Bind: FtoS f1
+BindCnc: hello there
+
+Bind: FtoS f2
+BindCnc: good bye
+

testsuite/lpgf/Bind.trees

@@ -0,0 +1,2 @@
+FtoS f1
+FtoS f2

testsuite/lpgf/BindCnc.gf

@@ -0,0 +1,9 @@
+concrete BindCnc of Bind = open Prelude in {
+  lincat
+    S = Str ;
+    F = { s : Str } ;
+  lin
+    f1 = { s = "hello the" ++ BIND ++ "re" } ;
+    f2 = { s = "good" ++ "bye" } ;
+    FtoS f = f.s ;
+}

testsuite/lpgf/mkTreebank.sh

@@ -12,7 +12,7 @@ TREEBANK="$ABSNAME.treebank"
 
 : > $TREEBANK
 while read tree; do
-  echo "linearize -treebank $tree | write_file -file=$TREEBANK -append" | gf --run $ABSNAME*.gf > /dev/null
+  echo "linearize -treebank -bind $tree | write_file -file=$TREEBANK -append" | gf --run $ABSNAME*.gf | awk NF
   echo "" >> $TREEBANK
 done < $TREES
 

testsuite/lpgf/run.hs

@@ -15,6 +15,7 @@ dir = "testsuite" </> "lpgf"
 
 main :: IO ()
 main = do
+  doGrammar "Bind"
   doGrammar "Tables"
   doGrammar "Params"
   doGrammar "Walking"