1 // Copyright 2006 all rights reserved; see LICENSE file for BSD-style license
3 package edu.berkeley.sbp.misc;
5 import edu.berkeley.sbp.*;
6 import edu.berkeley.sbp.misc.*;
7 import edu.berkeley.sbp.meta.*;
8 import edu.berkeley.sbp.chr.*;
11 public class HaskellHelper {
13 public static void main(String[] argv) throws Throwable {
14 main(argv[0], argv[1]);
16 public static Tree main(String grammarFile, String targetFile) throws Throwable {
18 Tree<String> res = new CharParser(MetaGrammar.newInstance()).parse(new FileInputStream(grammarFile)).expand1();
19 Union meta = Grammar.create(res, "s",
20 new Grammar.Bindings() {
22 public Sequence createSequence(Production p) {
23 Sequence ret = super.createSequence(p);
24 if (ret != null) return ret;
25 return Sequence.create(p.nonTerminal, p.elements, p.drops, false);
32 CharInput input = new CharInput(new FileInputStream(targetFile), "", true);
33 Tree ret = new CharParser(meta).parse(input).expand1();
34 if (ret==null) throw new NullPointerException("CharParser returned null");
36 } catch (Throwable e) {