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 void main(String[] argv) throws Throwable {
  14         main(argv[0], argv[1]);
  15     }
  16     public static Tree main(String grammarFile, String targetFile) throws Throwable {
  17         try {
  18             Tree<String> res = new CharParser(MetaGrammar.newInstance()).parse(new FileInputStream(grammarFile)).expand1();
  19             Union meta = Grammar.create(res, "s",
  20                                         new Grammar.Bindings() {
  21                                             /*
  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);
  26                                             }
  27                                             */
  28                                         });
  29             System.out.println();
  30             System.out.println();
  31             System.out.println();
  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");
  35             return ret;
  36         } catch (Throwable e) {
  37             e.printStackTrace();
  38             throw e;
  39         }
  40     }
  41
  42
  43 }