X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=src%2Fedu%2Fberkeley%2Fsbp%2Fmisc%2FHaskellHelper.java;h=f98c3cf145a839a84a360872ba96b88567da96af;hp=18f5f6ae17c7bb6f0d2488c97316a4fae0c666c9;hb=44f1ba1ec309f9be850bd9c9400dfc5289f85dd0;hpb=e84029a8b861075d6d0ed5040f919b2e4da4c98f

diff --git a/src/edu/berkeley/sbp/misc/HaskellHelper.java b/src/edu/berkeley/sbp/misc/HaskellHelper.java
index 18f5f6a..f98c3cf 100644
--- a/src/edu/berkeley/sbp/misc/HaskellHelper.java
+++ b/src/edu/berkeley/sbp/misc/HaskellHelper.java
@@ -6,31 +6,17 @@ import edu.berkeley.sbp.*;
 import edu.berkeley.sbp.misc.*;
 import edu.berkeley.sbp.meta.*;
 import edu.berkeley.sbp.chr.*;
+import edu.berkeley.sbp.tib.*;
 import java.io.*;
 
 public class HaskellHelper {
-
-    public static void main(String[] argv) throws Throwable {
-        help(argv[0], argv[1]);
-    }
+    public static void main(String[] argv) throws Throwable { help(argv[0], argv[1]); }
     public static boolean isNull(Object o) { return o==null; }
     public static Tree help(String grammarFile, String targetFile) throws Throwable {
         try {
             Tree<String> res = new CharParser(MetaGrammar.newInstance()).parse(new FileInputStream(grammarFile)).expand1();
-            Union meta = Grammar.create(res, "s",
-                                        new Grammar.Bindings() {
-                                            /*
-                                            public Sequence createSequence(Production p) {
-                                                Sequence ret = super.createSequence(p);
-                                                if (ret != null) return ret;
-                                                return Sequence.create(p.nonTerminal, p.elements, p.drops, false);
-                                            }
-                                            */
-                                        });
-            System.out.println();
-            System.out.println();
-            System.out.println();
-            CharInput input = new CharInput(new FileInputStream(targetFile), "", true);
+            Union meta = GrammarBuilder.buildFromAST(res, "s", new File[0]);
+            Input input = new Tib(new FileInputStream(targetFile));
             Tree ret = new CharParser(meta).parse(input).expand1();
             if (ret==null) throw new NullPointerException("CharParser returned null");
             return ret;
@@ -39,6 +25,4 @@ public class HaskellHelper {
             throw e;
         }
     }
-
-
 }