DDigraph.hpp

/*
 * Copyright (c) 2011-2016, Matthieu FAESSEL and ARMINES
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in the
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of Matthieu FAESSEL, or ARMINES nor the
 *       names of its contributors may be used to endorse or promote products
 *       derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS AND CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */
 
#ifndef _D_DIGRAPH_HPP
#define _D_DIGRAPH_HPP
 
#include "Core/include/DBaseObject.h"
 
#include <list>
#include <algorithm>
#include <vector>
#include <utility>
#include <iostream>
#include <stdexcept>
#include <set>
#include <queue>
 
namespace smil
{
  //
  // ######  #####    ####   ######
  // #       #    #  #    #  #
  // #####   #    #  #       #####
  // #       #    #  #  ###  #
  // #       #    #  #    #  #
  // ######  #####    ####   ######
  //
  template <class NodeT = size_t, class WeightT = size_t>
  class Diedge
  {
  public:
    typedef WeightT WeightType;
 
    Diedge() : source(0), target(0), weight(1)
    {
    }
 
    Diedge(NodeT a, NodeT b, WeightT w = 1) : source(a), target(b), weight(w)
    {
    }
 
    Diedge(const Diedge &rhs)
        : source(rhs.source), target(rhs.target), weight(rhs.weight)
    {
    }
 
    virtual ~Diedge()
    {
    }
    Diedge &operator=(const Diedge &rhs)
    {
      source = rhs.source;
      target = rhs.target;
      weight = rhs.weight;
      return *this;
    }
 
    NodeT source;
    NodeT target;
    WeightT weight;
 
    bool oriented;
 
    inline bool isActive() const
    {
      return (source != 0 || target != 0);
    }
 
    inline void desactivate()
    {
      source = 0;
      target = 0;
    }
 
    // Don't test the weight values (only to check if the edge exists)
    inline bool operator==(const Diedge &rhs) const
    {
      if (rhs.source == source && rhs.target == target)
        return true;
      if (rhs.source == target && rhs.target == source)
        return true;
      return false;
    }
 
    inline bool operator!=(const Diedge &rhs) const
    {
      return !this->operator==(rhs);
    }
 
    inline bool operator<(const Diedge &rhs) const
    {
      return weight > rhs.weight;
    }
 
    virtual void printSelf(ostream &os = std::cout, string s = "") const
    {
      os << s << (int) source << "-" << (int) target << " (" << (int) weight
         << ")" << endl;
    }
  };
 
  // Compare two vectors of edges (test also the weight values)
  template <class NodeT, class WeightT>
  bool operator==(const vector<Diedge<NodeT, WeightT>> &e1,
                  const vector<Diedge<NodeT, WeightT>> &e2)
  {
    if (e1.size() != e2.size())
      return false;
 
    typedef Diedge<NodeT, WeightT>           DiedgeT;
    typename vector<DiedgeT>::const_iterator it1 = e1.begin(), it2 = e2.begin();
 
    for (; it1 != e1.end() && it2 != e2.end(); it1++, it2++) {
      if ((*it1) != (*it2))
        return false;
      if (it1->weight != it2->weight)
        return false;
    }
 
    return true;
  }
 
  //
  //  ####   #####     ##    #####   #    #
  // #    #  #    #   #  #   #    #  #    #
  // #       #    #  #    #  #    #  ######
  // #  ###  #####   ######  #####   #    #
  // #    #  #   #   #    #  #       #    #
  //  ####   #    #  #    #  #       #    #
  //
  template <class NodeT = size_t, class WeightT = size_t>
  class Digraph : public BaseObject
  {
  public:
    typedef Digraph<NodeT, WeightT> DigraphType;
 
    typedef NodeT                    NodeType;
    typedef WeightT                  NodeWeightType;
    typedef std::map<NodeT, WeightT> NodeValuesType;
    typedef set<NodeT>               NodeListType;
 
    typedef Diedge<NodeT, WeightT> DiedgeType;
    typedef WeightT                DiedgeWeightType;
 
    typedef std::vector<Diedge<NodeT, WeightT>> DiedgeListType;
    typedef std::vector<size_t>                 NodeDiedgesType;
    typedef std::map<NodeT, NodeDiedgesType>    NodeDiedgeListType;
 
  protected:
    size_t             edgeNbr;
    NodeListType       nodes;
    NodeValuesType     nodeValues;
    DiedgeListType     edges;
    NodeDiedgeListType nodeEdgeList;
    bool               oriented;
 
  public:
    Digraph() : BaseObject("Digraph"), edgeNbr(0), oriented(true)
    {
    }
 
    Digraph(const Digraph &rhs)
        : BaseObject("Digraph"), edgeNbr(rhs.edgeNbr), nodes(rhs.nodes),
          nodeValues(rhs.nodeValues), edges(rhs.edges),
          nodeEdgeList(rhs.nodeEdgeList), oriented(rhs.oriented)
    {
    }
 
    virtual ~Digraph()
    {
    }
    Digraph &operator=(const Digraph &rhs)
    {
      nodes        = rhs.nodes;
      nodeValues   = rhs.nodeValues;
      edges        = rhs.edges;
      nodeEdgeList = rhs.nodeEdgeList;
      edgeNbr      = rhs.edgeNbr;
      oriented = rhs.oriented;
      return *this;
    }
 
    void clear()
    {
      nodes.clear();
      nodeValues.clear();
      edges.clear();
      nodeEdgeList.clear();
      edgeNbr = 0;
      oriented = true;
    }
 
    void addNode(const NodeT &ind)
    {
      nodes.insert(ind);
    }
 
    void addNode(const NodeT &ind, const WeightT &val)
    {
      nodes.insert(ind);
      nodeValues[ind] = val;
    }
 
    int findEdge(const DiedgeType &e)
    {
      typename DiedgeListType::iterator foundEdge =
          find(edges.begin(), edges.end(), e);
      if (foundEdge != edges.end())
        return foundEdge - edges.begin();
      else
        return -1;
    }
 
    int findEdge(const NodeT &src, const NodeT &targ)
    {
      return findEdge(DiedgeType(src, targ));
    }
 
    void addEdge(const DiedgeType &e, bool checkIfExists = true)
    {
      if (checkIfExists)
        if (findEdge(e) != -1)
          return;
 
      edges.push_back(e);
      nodes.insert(e.source);
      nodes.insert(e.target);
      nodeEdgeList[e.source].push_back(edgeNbr);
      nodeEdgeList[e.target].push_back(edgeNbr);
 
      edgeNbr++;
    }
 
    void addEdge(const NodeT src, const NodeT targ, WeightT weight = 0,
                 bool checkIfExists = true)
    {
      addEdge(DiedgeType(src, targ, weight), checkIfExists);
    }
 
    void sortEdges(bool reverse = false)
    {
      DiedgeListType sEdges = edges;
      if (!reverse)
        sort(sEdges.begin(), sEdges.end());
      else
        sort(sEdges.rbegin(), sEdges.rend());
 
      nodes.clear();
      edges.clear();
      nodeEdgeList.clear();
      edgeNbr = 0;
 
      for (typename DiedgeListType::const_iterator it = sEdges.begin();
           it != sEdges.end(); it++)
        addEdge(*it, false);
    }
 
    DigraphType clone()
    {
      return DigraphType(*this);
    }
 
    size_t getNodeNbr()
    {
      return nodes.size();
    }
 
    size_t getEdgeNbr()
    {
      return edges.size();
    }
 
  protected:
    void removeNode(const NodeT ind)
    {
      typename NodeListType::iterator fNode = nodes.find(ind);
      if (fNode != nodes.end())
        nodes.erase(fNode);
      removeNodeEdges(ind);
    }
 
    void removeNodeEdge(const NodeT node, const size_t edgeIndex)
    {
      typename NodeDiedgeListType::iterator nEdges = nodeEdgeList.find(node);
      if (nEdges == nodeEdgeList.end())
        return;
 
      NodeDiedgesType &eList = nEdges->second;
 
      typename NodeDiedgesType::iterator ei =
          find(eList.begin(), eList.end(), edgeIndex);
      if (ei != eList.end())
        eList.erase(ei);
    }
 
  public:
    void removeNodeEdges(const NodeT node)
    {
      typename NodeDiedgeListType::iterator fNodeEdges =
          nodeEdgeList.find(node);
      if (fNodeEdges == nodeEdgeList.end())
        return;
 
      NodeDiedgesType &nedges = fNodeEdges->second;
      for (NodeDiedgesType::iterator it = nedges.begin(); it != nedges.end();
           it++) {
        DiedgeType &e = edges[*it];
        if (e.source == node)
          removeNodeEdge(e.target, *it);
        else
          removeNodeEdge(e.source, *it);
        e.desactivate();
      }
      nedges.clear();
    }
 
    void removeEdge(const size_t index)
    {
      if (index >= edges.size())
        return;
 
      DiedgeType &edge = edges[index];
 
      removeNodeEdge(edge.source, index);
      removeNodeEdge(edge.target, index);
      edge.desactivate();
    }
 
    void removeEdge(const NodeT src, const NodeT targ)
    {
      typename DiedgeListType::iterator foundEdge =
          find(edges.begin(), edges.end(), DiedgeType(src, targ));
      if (foundEdge == edges.end())
        return;
 
      return removeEdge(foundEdge - edges.begin());
    }
 
    void removeEdge(const DiedgeType &edge)
    {
      typename DiedgeListType::iterator foundEdge =
          find(edges.begin(), edges.end(), edge);
      if (foundEdge == edges.end())
        return;
 
      return removeEdge(foundEdge - edges.begin());
    }
 
    void removeHighEdges(DiedgeWeightType EdgeThreshold)
    {
      size_t nb_edges = edges.size();
      for (size_t index = 0; index < nb_edges; index++) {
        DiedgeType &e = edges[index];
        if (e.weight > EdgeThreshold)
          removeEdge(index);
      }
    }
 
    void removeLowEdges(DiedgeWeightType EdgeThreshold)
    {
      size_t nb_edges = edges.size();
      for (size_t index = 0; index < nb_edges; index++) {
        DiedgeType &e = edges[index];
        if (e.weight < EdgeThreshold)
          removeEdge(index);
      }
    }
 
#ifndef SWIG
    const NodeListType &getNodes() const
    {
      return nodes;
    } // lvalue
 
    const DiedgeListType &getEdges() const
    {
      return edges;
    } // lvalue
 
    const NodeValuesType &getNodeValues() const
    {
      return nodeValues;
    } // lvalue
 
    const NodeDiedgeListType &getNodeEdges() const
    {
      return nodeEdgeList;
    }  // lvalue
#endif // SWIG
    NodeListType &getNodes()
    {
      return nodes;
    } // rvalue
 
    DiedgeListType &getEdges()
    {
      return edges;
    } // rvalue
 
    NodeValuesType &getNodeValues()
    {
      return nodeValues;
    } // rvalue
 
    NodeDiedgeListType &getNodeEdges()
    {
      return nodeEdgeList;
    } // rvalue
 
    NodeDiedgesType getNodeEdges(const size_t &node)
    {
      typename NodeDiedgeListType::iterator it = nodeEdgeList.find(node);
      if (it != nodeEdgeList.end())
        return it->second;
      else
        return vector<size_t>();
    }
 
    DigraphType computeMST()
    {
      return graphMST(*this);
    }
 
    virtual void printSelf(ostream &os = std::cout, string s = "") const
    {
      os << s << "Number of nodes: " << nodes.size() << endl;
      os << s << "Number of edges: " << edges.size() << endl;
      os << s << "Oriented:        " << (oriented ? "true" : "false") << endl;
      os << s << "Edges: " << endl << "source-target (weight) " << endl;
 
      string s2 = s + "\t";
      for (typename DiedgeListType::const_iterator it = edges.begin();
           it != edges.end(); it++)
        if ((*it).isActive())
          (*it).printSelf(os, s2);
    }
 
    map<NodeT, NodeT> labelizeNodes() const
    {
      map<NodeT, NodeT> lookup;
      set<NodeT>        nodeList(nodes);
 
      while (!nodeList.empty()) {
        propagateLabel(*(nodeList.begin()), *(nodeList.begin()), lookup,
                       nodeList);
      }
      return lookup;
    }
 
  protected:
    void propagateLabel(const NodeT ind, const NodeT lbl,
                        map<NodeT, NodeT> &lookup, set<NodeT> &nList) const
    {
      typename NodeListType::iterator foundNode = nList.find(ind);
      if (foundNode == nList.end())
        return;
 
      lookup[ind] = lbl;
      nList.erase(foundNode);
 
      const NodeDiedgesType &nEdges = nodeEdgeList.at(ind);
 
      for (typename NodeDiedgesType::const_iterator it = nEdges.begin();
           it != nEdges.end(); it++) {
        const DiedgeType &e = edges[*it];
        if (e.source != ind)
          propagateLabel(e.source, lbl, lookup, nList);
        else if (e.target != ind)
          propagateLabel(e.target, lbl, lookup, nList);
      }
    }
  };
 
  template <class digraphT>
  digraphT digraphMST(const digraphT &graph)
  {
    typedef typename digraphT::NodeType           NodeType;
    typedef typename digraphT::DiedgeType         DiedgeType;
    typedef typename digraphT::DiedgeListType     DiedgeListType;
    typedef typename digraphT::NodeDiedgesType    NodeDiedgesType;
    typedef typename digraphT::NodeDiedgeListType NodeDiedgeListType;
 
    std::set<NodeType>              visitedNodes;
    std::priority_queue<DiedgeType> pq;
    digraphT                        mst;
 
    const DiedgeListType &    edges        = graph.getEdges();
    const NodeDiedgeListType &nodeEdgeList = graph.getNodeEdges();
 
    NodeType curNode = (*nodeEdgeList.begin()).first;
    visitedNodes.insert(curNode);
 
    const NodeDiedgesType &nodeEdges = nodeEdgeList.at(curNode);
    for (typename NodeDiedgesType::const_iterator it = nodeEdges.begin();
         it != nodeEdges.end(); it++)
      pq.push(edges[*it]);
 
    while (!pq.empty()) {
      DiedgeType edge = pq.top();
      pq.pop();
 
      if (visitedNodes.find(edge.source) == visitedNodes.end())
        curNode = edge.source;
      else if (visitedNodes.find(edge.target) == visitedNodes.end())
        curNode = edge.target;
      else
        continue;
 
      mst.addEdge(edge, false);
      visitedNodes.insert(curNode);
      NodeDiedgesType const &nodeEdges = nodeEdgeList.at(curNode);
      for (typename NodeDiedgesType::const_iterator it = nodeEdges.begin();
           it != nodeEdges.end(); it++)
        pq.push(edges[*it]);
    }
    // Copy node values
    mst.getNodeValues() = graph.getNodeValues();
 
    return mst;
  }
 
} // namespace smil
 
#endif // _D_DIGRAPH_HPP