X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=src%2Fedu%2Fberkeley%2Fsbp%2Fmisc%2FHaskellHelper.java;h=d4f43a73cec6b83e9708ab22f6894f93d8303354;hp=b8a600665349949544fb9c02bd43511ff2077e27;hb=c042bb0dcce5d64f09b2788b2dfb722145162d2b;hpb=2e1363821e64a4295ab237e5e610fc9fe0e4efe7 diff --git a/src/edu/berkeley/sbp/misc/HaskellHelper.java b/src/edu/berkeley/sbp/misc/HaskellHelper.java index b8a6006..d4f43a7 100644 --- a/src/edu/berkeley/sbp/misc/HaskellHelper.java +++ b/src/edu/berkeley/sbp/misc/HaskellHelper.java @@ -10,15 +10,27 @@ import java.io.*; public class HaskellHelper { - public static Tree main(String grammarFile, String targetFile) throws Exception { - - System.err.println("parsing " + grammarFile); - Tree res = new CharParser(MetaGrammar.newInstance()).parse(new FileInputStream(grammarFile)).expand1(); - Union meta = Grammar.create(res, "s", new MetaGrammarBindings()); - - System.err.println("parsing " + targetFile); - return new CharParser(meta).parse(new FileInputStream(targetFile)).expand1(); - + public static Tree main(String grammarFile, String targetFile) throws Throwable { + try { + Tree 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); + } + */ + }); + Tree ret = new CharParser(meta).parse(new FileInputStream(targetFile)).expand1(); + if (ret==null) throw new NullPointerException("CharParser returned null"); + return ret; + } catch (Throwable e) { + e.printStackTrace(); + throw e; + } } + }