Rename the project to R²C²

[r2c2.git] / source / libr2c2 / block.cpp

diff --git a/source/libr2c2/block.cpp b/source/libr2c2/block.cpp
new file mode 100644 (file)
index 0000000..ca404de
--- /dev/null
+++ b/source/libr2c2/block.cpp
@@ -0,0 +1,222 @@
+/* $Id$
+
+This file is part of R²C²
+Copyright © 2006-2010  Mikkosoft Productions, Mikko Rasa
+Distributed under the GPL
+*/
+
+#include <algorithm>
+#include "block.h"
+#include "layout.h"
+#include "route.h"
+#include "trackiter.h"
+#include "tracktype.h"
+
+using namespace std;
+using namespace Msp;
+
+namespace R2C2 {
+
+Block::Block(Layout &l, Track &start):
+       layout(l),
+       id(0),
+       sensor_id(start.get_sensor_id()),
+       turnout_id(start.get_turnout_id()),
+       train(0)
+{
+       tracks.insert(&start);
+       start.set_block(this);
+
+       list<Track *> queue;
+       queue.push_back(&start);
+
+       while(!queue.empty())
+       {
+               Track *track = queue.front();
+               queue.erase(queue.begin());
+
+               const vector<Track *> &links = track->get_links();
+               for(unsigned i=0; i<links.size(); ++i)
+                       if(links[i] && !tracks.count(links[i]))
+                       {
+                               if(links[i]->get_sensor_id()==sensor_id && links[i]->get_turnout_id()==turnout_id)
+                               {
+                                       queue.push_back(links[i]);
+                                       tracks.insert(links[i]);
+                                       links[i]->set_block(this);
+                               }
+                               else
+                                       endpoints.push_back(Endpoint(track, i));
+                       }
+       }
+
+       determine_id();
+
+       for(unsigned i=0; i<endpoints.size(); ++i)
+       {
+               unsigned path = 1<<i;
+               endpoints[i].paths |= path;
+               find_paths(TrackIter(endpoints[i].track, endpoints[i].track_ep), path);
+       }
+
+       layout.add_block(*this);
+}
+
+Block::~Block()
+{
+       set<Track *> trks = tracks;
+       tracks.clear();
+       for(set<Track *>::iterator i=trks.begin(); i!=trks.end(); ++i)
+               (*i)->set_block(0);
+
+       for(vector<Endpoint>::iterator i=endpoints.begin(); i!=endpoints.end(); ++i)
+               if(Block *blk = i->link)
+               {
+                       i->link = 0;
+                       blk->break_link(*this);
+               }
+
+       layout.remove_block(*this);
+}
+
+bool Block::has_track(Track &t) const
+{
+       return tracks.count(&t);
+}
+
+const Block::Endpoint &Block::get_endpoint(unsigned i) const
+{
+       if(i>=endpoints.size())
+               throw InvalidParameterValue("Endpoint index out of range");
+
+       return endpoints[i];
+}
+
+int Block::get_endpoint_by_link(Block &other) const
+{
+       for(unsigned i=0; i<endpoints.size(); ++i)
+               if(endpoints[i].link==&other)
+                       return i;
+
+       return -1;
+}
+
+float Block::get_path_length(unsigned entry, const Route *route) const
+{
+       if(entry>=endpoints.size())
+               throw InvalidParameterValue("Endpoint index out of range");
+
+       TrackIter t_iter(endpoints[entry].track, endpoints[entry].track_ep);
+
+       float result = 0;
+       while(t_iter && has_track(*t_iter))
+       {
+               unsigned path = (route ? route->get_path(*t_iter) : t_iter->get_active_path());
+               result += t_iter->get_type().get_path_length(path);
+
+               t_iter = t_iter.next(path);
+       }
+
+       return result;
+}
+
+void Block::check_link(Block &other)
+{
+       for(vector<Endpoint>::iterator i=endpoints.begin(); i!=endpoints.end(); ++i)
+       {
+               if(i->link)
+                       continue;
+
+               for(vector<Endpoint>::iterator j=other.endpoints.begin(); j!=other.endpoints.end(); ++j)
+                       if(j->track==i->track->get_link(i->track_ep) && j->track->get_link(j->track_ep)==i->track && !j->link)
+                       {
+                               i->link = &other;
+                               j->link = this;
+
+                               determine_id();
+                               other.determine_id();
+                       }
+       }
+}
+
+void Block::break_link(Block &other)
+{
+       for(vector<Endpoint>::iterator i=endpoints.begin(); i!=endpoints.end(); ++i)
+               if(i->link==&other)
+               {
+                       i->link = 0;
+                       other.break_link(*this);
+                       determine_id();
+               }
+}
+
+Block *Block::get_link(unsigned epi) const
+{
+       if(epi>=endpoints.size())
+               throw InvalidParameterValue("Endpoint index out of range");
+       return endpoints[epi].link;
+}
+
+bool Block::reserve(Train *t)
+{
+       if(!t || !train)
+       {
+               train = t;
+               layout.signal_block_reserved.emit(*this, train);
+               return true;
+       }
+       else
+               return false;
+}
+
+void Block::find_paths(TrackIter track, unsigned path)
+{
+       unsigned mask = track.endpoint().paths;
+       for(unsigned i=0; mask>>i; ++i)
+               if(mask&(1<<i))
+               {
+                       TrackIter next = track.next(i);
+                       if(!next)
+                               continue;
+                       else if(has_track(*next))
+                               find_paths(track.next(i), path);
+                       else
+                       {
+                               next = next.flip();
+                               for(vector<Endpoint>::iterator j=endpoints.begin(); j!=endpoints.end(); ++j)
+                                       if(j->track==next.track() && j->track_ep==next.entry())
+                                               j->paths |= path;
+                       }
+               }
+}
+
+void Block::determine_id()
+{
+       if(sensor_id)
+               id = 0x1000|sensor_id;
+       else if(turnout_id)
+               id = 0x2000|turnout_id;
+       else if(endpoints.size()==2)
+       {
+               unsigned id1 = endpoints[0].link ? endpoints[0].link->get_id() : 1;
+               unsigned id2 = endpoints[1].link ? endpoints[1].link->get_id() : 1;
+               if(id2<id1)
+                       swap(id1, id2);
+               id = (id1<<16)|id2;
+       }
+       else if(endpoints.size()==1)
+       {
+               unsigned id1 = endpoints[0].link ? endpoints[0].link->get_id() : 1;
+               id = 0x10000 | id1;
+       }
+}
+
+
+Block::Endpoint::Endpoint(Track *t, unsigned e):
+       track(t),
+       track_ep(e),
+       link(0),
+       paths(0)
+{ }
+
+} // namespace R2C2