!7

p-exp {

  ObjectNode root = new(mL("English sentence patterns"));

  //processNode_recursive(root, 10);

  ct_process_firstOnly(root, 10, 'ct_objectNodeToListNode);

  showFrame(jDynamicTree(root, ct_getChildren()));

}

svoid ct_process_firstOnly(CTNode n, int depthCounter, S... functions) {

  if (n == null || depthCounter <= 0) ret;

  if (nempty(n.children)) ret;

  for (S f : functions) {

    if (nempty(n.children)) ret;

    pcallF(f, n);

  }

  ct_process_firstOnly(first(n.children), depthCounter-1, functions);

}

svoid ct_objectNodeToListNode(CTNode n) {

  if (n instanceof ObjectNode) {

    ObjectNode on = cast n;

    O o = on.obj;

    if (o instanceof Collection)

      n.add(ListNode(asList((Collection) o)));

  }

}

sclass ListNode > CTNode {

  L list;

  *() {}

  *(L *list) {}

  S toString2() { ret sfu(list); }

  public bool equals(O o) { ret stdEq(this, o, 'list); }

  public int hashCode() { ret stdHash(this, 'list); }

}