- public TestCase[] ts(Object o1, TestCase[] ts, Object o2) { return ts; }
- public TestCase[] ts(TestCase[] ts) { return ts; }
- public TestCase testcase(String input, String[] output, Union grammar) { return new TestCase(input, output, grammar); }
- public MetaGrammar grammar(Object[] o) { return this; }
- public Object walk(String tag, Object[] args) {
- if ("testcase".equals(tag)) {
- if (args.length==2) return testcase((String)args[0], new String[0], (Union)args[1]);
- return testcase((String)args[0], (String[])args[1], (Union)args[2]); }
- else if ("grammar".equals(tag)) return done("s");
- else return super.walk(tag, args);
+ public Object walk(Tree<String> tree) {
+ try {
+ if ("grammar".equals(tree.head())) { walkChildren(tree); return done("s"); }
+ else if ("output".equals(tree.head())) return string(tree.children());
+ else if ("input".equals(tree.head())) return string(tree.children());
+ else if ("javacase".equals(tree.head()) || "tibcase".equals(tree.head()) || "testcase".equals(tree.head())) {
+ String input = string(tree.child(0));
+ String[] output = tree.numChildren()>2 ? ((String[])walk(tree, 1)) : new String[0];
+ boolean tib = "tibcase".equals(tree.head());
+ boolean jav = "javacase".equals(tree.head());
+ MetaGrammar gram = jav ? new JavaGrammar() : tib ? /*new Tib.Grammar()*/null : new MetaGrammar();
+ Union grammar = (Union)((MetaGrammar)(gram.walk(tree, tree.numChildren()-1))).done("s");
+ return new TestCase(input, output, grammar, tib, jav);
+ } else if ("ts".equals(tree.head())) return walk(tree, 0);
+ else return super.walk(tree);
+ } catch (Exception e) {
+ throw new Error(e);
+ }
+ }
+ }
+
+ public static class JavaGrammar extends MetaGrammar {
+ public Object convertLabel(String label) { return new ClassMark(label); }
+ public Object convertFieldLabel(String label) { return new FieldMark(label); }
+
+ private static class FieldMark {
+ public final String field;
+ public FieldMark(String field) { this.field = field; }
+ public String toString() { return "."+field; }
+ }
+ private static class ClassMark {
+ public final String clazz;
+ public ClassMark(String clazz) { this.clazz = clazz; }
+ public String toString() { return clazz+"$"; }
+ }
+
+ public static Object build(Tree<Object> t, Class c) throws Exception {
+ System.out.println("** build " + c.getName() + " " + t.toPrettyString());
+ Object h = t.head();
+ if (h instanceof ClassMark) return build2(t, Class.forName(JavaGrammar.class.getName()+"$"+((ClassMark)h).clazz));
+ Object o = null;
+ if (t.numChildren()==0) o = t.head();
+ else if (t.head()==null) return build2(t, c);
+ else if (t.head() instanceof FieldMark) {
+ return build2(new Tree(null, new Tree[] { t }), c);
+ } else {
+ throw new Exception("don't know how to cope: " + c.getName() + " <- " + t.toPrettyString());
+ }
+ return Reflection.rebuild(o, c);
+ }
+ private static Object build2(Tree<Object> t, Class c) throws Exception {
+ System.out.println("** build2 " + c.getName() + " " + t.toPrettyString());
+ if (!Reflection.isConcrete(c)) {
+ Field f = c.getField("subclasses");
+ if (f==null) throw new Exception("don't know how to cope: " + c.getName() + " <- " + t.toPrettyString());
+ Class[] subs = (Class[])f.get(null);
+ OUTER: for(int i=0; i<subs.length; i++) {
+ for(Tree<Object> t2 : t) {
+ Object o2 = t2.head();
+ System.out.println("checking " + o2 + " in " + subs[i].getName());
+ if (o2 instanceof FieldMark) {
+ if (subs[i].getField(((FieldMark)o2).field)==null) continue OUTER;
+ }
+ }
+ c = subs[i];
+ break;
+ }
+ }
+ Object o = c.newInstance();
+ for(Tree<Object> t2 : t) {
+ Object o2 = t2.head();
+ if (o2 instanceof FieldMark) {
+ FieldMark f = (FieldMark)o2;
+ Field field = c.getField(ReflectiveWalker.mangle(f.field));
+ Object tgt = build(t2.child(0), field.getType());
+ System.out.println("setting " + f.field +
+ " on a " + o.getClass().getName() +
+ " to " + (tgt==null?"null":tgt.getClass().getName()));
+ field.set(o, tgt);
+ }
+ }
+ System.out.println("returning a " + o.getClass().getName());
+ return o;
+ }
+ public static Object build(Tree<Object> t) throws Exception {
+ Object h = t.head();
+ if (h instanceof ClassMark) {
+ ClassMark cm = (ClassMark)h;
+ Class c = Class.forName(JavaGrammar.class.getName() + "$" + ReflectiveWalker.mangle(cm.clazz));
+ return build2(t, c);
+ }
+
+ return h==null ? null : h.toString();