add experimental Haskell bindings
[sbp.git] / src / edu / berkeley / sbp / misc / HaskellHelper.java
1 // Copyright 2006 all rights reserved; see LICENSE file for BSD-style license
2
3 package edu.berkeley.sbp.misc;
4
5 import edu.berkeley.sbp.*;
6 import edu.berkeley.sbp.misc.*;
7 import edu.berkeley.sbp.meta.*;
8 import edu.berkeley.sbp.chr.*;
9 import java.io.*;
10
11 public class HaskellHelper {
12
13     public static Tree main(String grammarFile, String targetFile) throws Exception {
14
15         System.err.println("parsing " + grammarFile);
16         Tree<String> res = new CharParser(MetaGrammar.newInstance()).parse(new FileInputStream(grammarFile)).expand1();
17         Union meta = Grammar.create(res, "s", new MetaGrammarBindings());
18         
19         System.err.println("parsing " + targetFile);
20         return new CharParser(meta).parse(new FileInputStream(targetFile)).expand1();
21         
22     }
23
24 }