/* dtkComposerStackUtils.cpp ---
 *
 * Author: Julien Wintz
 * Copyright (C) 2008-2011 - Julien Wintz, Inria.
 * Created: Mon Feb 20 16:08:18 2012 (+0100)
 * Version: $Id: 8978f6a545d0edb2c34e0e54135fb05eb72f9943 $
 * Last-Updated: Thu Mar  1 13:15:11 2012 (+0100)
 *           By: Julien Wintz
 *     Update #: 115
 */

/* Commentary:
 *
 */

/* Change log:
 *
 */

#include "dtkComposerNode.h"
#include "dtkComposerSceneEdge.h"
#include "dtkComposerSceneNode.h"
#include "dtkComposerSceneNodeComposite.h"
#include "dtkComposerSceneNodeControl.h"
#include "dtkComposerSceneNote.h"
#include "dtkComposerScenePort.h"
#include "dtkComposerStackUtils.h"

void dtkComposerPropagateEdgeValidity(dtkComposerSceneNodeComposite *node, const dtkComposerTransmitterLinkList& valid_links, const dtkComposerTransmitterLinkList& invalid_links)
{
    dtkComposerTransmitter *s = NULL;
    dtkComposerTransmitter *d = NULL;

    foreach (dtkComposerSceneEdge *edge, node->edges()) {

        if (node != edge->source()->node())
            s = edge->source()->node()->wrapee()->emitters().at(edge->source()->node()->outputPorts().indexOf(edge->source()));
        else
            s = edge->source()->node()->wrapee()->receivers().at(edge->source()->node()->inputPorts().indexOf(edge->source()));

        if (node != edge->destination()->node())
            d = edge->destination()->node()->wrapee()->receivers().at(edge->destination()->node()->inputPorts().indexOf(edge->destination()));
        else
            d = edge->destination()->node()->wrapee()->emitters().at(edge->destination()->node()->outputPorts().indexOf(edge->destination()));

        foreach (dtkComposerTransmitterLink *link, invalid_links)
            if (link->source() == s && link->destination() == d)
                edge->invalidate();

        foreach (dtkComposerTransmitterLink *link, valid_links)
            if (link->source() == s && link->destination() == d)
                edge->validate();
    }


    foreach (dtkComposerSceneNode *n, node->nodes()) {

        if (dtkComposerSceneNodeComposite *composite = dynamic_cast<dtkComposerSceneNodeComposite *>(n)) {
            dtkComposerPropagateEdgeValidity(composite, valid_links, invalid_links);
        }

        if (dtkComposerSceneNodeControl *control = dynamic_cast<dtkComposerSceneNodeControl *>(n)) {
            foreach (dtkComposerSceneNodeComposite *block, control->blocks())
                dtkComposerPropagateEdgeValidity(block, valid_links, invalid_links);
        }
    }
}

void dtkComposerTransmitterConnection(dtkComposerSceneNodeComposite *root, dtkComposerSceneNodeComposite *node, dtkComposerSceneEdge *edge, bool propagate_edge_validity)
{
    dtkComposerTransmitter *s_t = NULL;

    if (node != edge->source()->node())
        s_t = edge->source()->node()->wrapee()->emitters().at(edge->source()->node()->outputPorts().indexOf(edge->source()));
    else
        s_t = edge->source()->node()->wrapee()->receivers().at(edge->source()->node()->inputPorts().indexOf(edge->source()));

    dtkComposerTransmitter *d_t = NULL;

    if (node != edge->destination()->node())
        d_t = edge->destination()->node()->wrapee()->receivers().at(edge->destination()->node()->inputPorts().indexOf(edge->destination()));
    else
        d_t = edge->destination()->node()->wrapee()->emitters().at(edge->destination()->node()->outputPorts().indexOf(edge->destination()));

    dtkComposerTransmitterLinkList   valid_edges;
    dtkComposerTransmitterLinkList invalid_edges;
    dtkComposerTransmitter::onTransmittersConnected(s_t, d_t, valid_edges, invalid_edges);

    if (propagate_edge_validity)
        dtkComposerPropagateEdgeValidity(root, valid_edges, invalid_edges);
}

void dtkComposerTransmitterDisconnection(dtkComposerSceneNodeComposite *root, dtkComposerSceneNodeComposite *node, dtkComposerSceneEdge *edge, bool propagate_edge_validity)
{
    dtkComposerTransmitter *s_t = NULL;

    if (node != edge->source()->node())
        s_t = edge->source()->node()->wrapee()->emitters().at(edge->source()->node()->outputPorts().indexOf(edge->source()));
    else
        s_t = edge->source()->node()->wrapee()->receivers().at(edge->source()->node()->inputPorts().indexOf(edge->source()));

    dtkComposerTransmitter *d_t = NULL;

    if (node != edge->destination()->node())
        d_t = edge->destination()->node()->wrapee()->receivers().at(edge->destination()->node()->inputPorts().indexOf(edge->destination()));
    else
        d_t = edge->destination()->node()->wrapee()->emitters().at(edge->destination()->node()->outputPorts().indexOf(edge->destination()));

    dtkComposerTransmitterLinkList invalid_edges;
    dtkComposerTransmitter::onTransmittersDisconnected(s_t, d_t, invalid_edges);

    if (propagate_edge_validity) {
        dtkComposerTransmitterLinkList   valid_edges;
        dtkComposerPropagateEdgeValidity(root, valid_edges, invalid_edges);
    }
}

// /////////////////////////////////////////////////////////////////
// Genealogy utils
// /////////////////////////////////////////////////////////////////

bool areBrothers(dtkComposerSceneNodeList nodes)
{
    if (nodes.isEmpty())
        return true;

    dtkComposerSceneNode *parent = nodes.first()->parent();

    foreach (dtkComposerSceneNode *node, nodes)
        if (node->parent() != parent)
            return false;

    return true;
}

bool areBrothers(dtkComposerSceneNoteList notes)
{
    if (notes.isEmpty())
        return true;

    dtkComposerSceneNode *parent = notes.first()->parent();

    foreach (dtkComposerSceneNote *note, notes)
        if (note->parent() != parent)
            return false;

    return true;
}

bool areBrothers(dtkComposerSceneNodeList nodes, dtkComposerSceneNoteList notes)
{
    if (nodes.isEmpty() && notes.isEmpty())
        return true;

    if (nodes.isEmpty())
        return areBrothers(notes);

    if (notes.isEmpty())
        return areBrothers(nodes);

    dtkComposerSceneNode *parent = nodes.first()->parent();

    foreach (dtkComposerSceneNode *node, nodes)
        if (node->parent() != parent)
            return false;

    foreach (dtkComposerSceneNote *note, notes)
        if (note->parent() != parent)
            return false;

    return true;
}