!7

cmodule2 QuestionTripleTest > DynPrintLog {

  switchable S multiBotModule;

  switchable long mainPostID;

  transient GazellePost mainPost, variation, q1, q2, a1, a2;

  start-thread {

    mainPost = importPost(dm_call(multiBotModule, "getPost", mainPostID));

    print(+mainPost);

    if (mainPost == null) ret;

    variation = importPost(first((L) dm_call(multiBotModule, "repliesWithTag", mainPost.importedFrom, "variation of")));

    print(+variation);

    if (variation == null) ret;

    q1 = replyWithType(mainPost, "Question");

    print(+q1);

    q2 = replyWithType(variation, "Question");

    print(+q2);

    a1 = replyWithType(q1, "Answer");

    print(+a1);

    a2 = replyWithType(q2, "Answer");

    print(+a2);

  }

  GazellePost importPost(O post) {

    if (post == null) null;

    GazellePost p = cast quickImport(post);

    p.importedFrom = post;

    ret p;

  }

  GazellePost replyWithTag(GazellePost post, S tag) {

    ret post == null ? null : importPost(first((L) dm_call(multiBotModule, "repliesWithTag", post.importedFrom, tag)));

  }

  GazellePost replyWithType(GazellePost post, S type) {

    if (post == null) null;

    ret objectWhereIC(lmap importPost((L) dm_call(multiBotModule, "repliesTo", post.importedFrom)), +type);

  }

}