X-Git-Url: http://git.tdb.fi/?a=blobdiff_plain;f=source%2Flibmarklin%2Froute.cpp;h=6dc7ae51e13350efe01269c06c199fde829675f8;hb=2bb6ce8ada216c0b2caa48f4639d03f2c581098e;hp=7db3f324b61e9ce5d753786aac251982cff6ec90;hpb=651698847d5293cfb15b6fb23a394701388c0151;p=r2c2.git

diff --git a/source/libmarklin/route.cpp b/source/libmarklin/route.cpp
index 7db3f32..6dc7ae5 100644
--- a/source/libmarklin/route.cpp
+++ b/source/libmarklin/route.cpp
@@ -5,94 +5,182 @@ Copyright © 2007-2010  Mikkosoft Productions, Mikko Rasa
 Distributed under the GPL
 */
 
+#include <queue>
+#include <msp/strings/formatter.h>
 #include "layout.h"
 #include "route.h"
 #include "track.h"
+#include "trackiter.h"
 #include "tracktype.h"
 
 using namespace std;
 using namespace Msp;
 
-namespace Marklin {
+namespace {
 
-Route::Route(Layout &l, const string &n):
-	layout(l),
-	name(n)
+using namespace Marklin;
+
+typedef std::pair<Track *, unsigned> Key;
+
+struct Node
 {
-	layout.add_route(*this);
-	layout.signal_track_removed.connect(sigc::mem_fun(this, &Route::track_removed));
-}
+	Track *track;
+	unsigned ep;
+	Node *prev;
+	float dist;
 
-Route::~Route()
+	Node():
+		track(0), ep(0), prev(0), dist(0)
+	{ }
+
+	Node(Track &t, unsigned e):
+		track(&t), ep(e), prev(0), dist(0)
+	{ }
+
+	Node(Track &t, unsigned e, Node &r, float d):
+		track(&t), ep(e), prev(&r), dist(prev->dist+d)
+	{ }
+
+	bool operator<(const Node &other) const
+	{ return dist>other.dist; }
+};
+
+struct TrackMatch
 {
-	layout.remove_route(*this);
-}
+	Track &track;
 
-int Route::get_turnout(unsigned id) const
+	TrackMatch(Track &t): track(t) { }
+
+	bool operator()(Track &t) const { return &t==&track; }
+};
+
+struct TrackInSet
 {
-	map<unsigned, int>::const_iterator i = turnouts.find(id);
-	if(i!=turnouts.end())
-		return i->second;
-	return -1;
-}
+	const set<Track *> &tracks;
+
+	TrackInSet(const set<Track *> &t): tracks(t) { }
 
-void Route::add_track(const Track &trk)
+	bool operator()(Track &t) const { return tracks.count(&t); }
+};
+
+template<typename Pred>
+list<Track *> dijkstra(Track &from, unsigned ep, const Pred &goal)
 {
-	if(tracks.count(&trk))
-		return;
+	map<Key, Node> track_nodes;
+	priority_queue<Node> nodes;
+	Node *final = 0;
 
-	if(!tracks.empty())
+	nodes.push(Node(from, ep));
+
+	while(!nodes.empty())
 	{
-		unsigned valid = check_validity(trk);
-		if(!(valid&1))
-			throw Exception("Not linked to existing tracks");
-		else if(!(valid&2))
-			throw Exception("Branching routes not allowed");
-		else if(!(valid&4))
-			throw Exception("Route must be smooth");
+		Node lowest = nodes.top();
+		nodes.pop();
+
+		Key key(lowest.track, lowest.ep);
+		if(track_nodes.count(key))
+			continue;
+
+		Node &ref = track_nodes[key] = lowest;
+		if(goal(*lowest.track))
+		{
+			final = &ref;
+			break;
+		}
+
+		const TrackType &type = lowest.track->get_type();
+		const vector<Endpoint> &eps = type.get_endpoints();
+		const vector<Track *> &links = lowest.track->get_links();
+		for(unsigned i=0; i<eps.size(); ++i)
+		{
+			if(i==lowest.ep || !links[i])
+				continue;
+
+			unsigned link_ep = links[i]->get_endpoint_by_link(*lowest.track);
+			if(track_nodes.count(Key(links[i], link_ep)))
+				continue;
+
+			unsigned mask = eps[i].paths&eps[lowest.ep].paths;
+			if(!mask)
+				continue;
+
+			unsigned path=0;
+			for(; !(mask&1); ++path, mask>>=1) ;
+			nodes.push(Node(*links[i], links[i]->get_endpoint_by_link(*lowest.track), ref, type.get_path_length(path)));
+		}
 	}
 
-	tracks.insert(&trk);
-	update_turnouts();
+	if(!final)
+		throw InvalidParameterValue("Could not find a route");
+
+	list<Track *> result;
+	for(Node *node=final; node; node=node->prev)
+		result.push_front(node->track);
+
+	return result;
 }
 
-void Route::add_tracks(const set<const Track *> &trks)
+template<typename Pred>
+Route *create_route(Track &from, unsigned ep, const Pred &goal)
 {
-	set<const Track *> pending;
-	for(set<const Track *>::const_iterator i=trks.begin(); i!=trks.end(); ++i)
-		if(!tracks.count(*i))
-			pending.insert(*i);
+	list<Track *> tracks = dijkstra(from, ep, goal);
 
-	while(!pending.empty())
-	{
-		bool found = false;
-		for(set<const Track *>::const_iterator i=pending.begin(); i!=pending.end(); ++i)
-			if(tracks.empty() || check_validity(**i)==7)
-			{
-				tracks.insert(*i);
-				pending.erase(*i);
-				found = true;
-				break;
-			}
+	Route *route = new Route(from.get_layout());
+	for(list<Track *>::iterator i=tracks.begin(); i!=tracks.end(); ++i)
+		route->add_track(**i);
 
-		if(!found)
-			throw Exception("Could not add all tracks to route");
-	}
+	route->set_name("Pathfinder");
+	route->set_temporary(true);
 
-	update_turnouts();
+	return route;
 }
 
-void Route::save(list<DataFile::Statement> &st) const
+}
+
+
+namespace Marklin {
+
+Route::Route(Layout &l):
+	layout(l),
+	temporary(false)
 {
-	for(map<unsigned, int>::const_iterator i=turnouts.begin(); i!=turnouts.end(); ++i)
-		st.push_back((DataFile::Statement("turnout"), i->first, i->second));
+	layout.add_route(*this);
+	layout.signal_track_removed.connect(sigc::mem_fun(this, &Route::track_removed));
+}
+
+Route::~Route()
+{
+	layout.remove_route(*this);
+}
+
+void Route::set_name(const string &n)
+{
+	name = n;
+	signal_name_changed.emit(name);
+}
+
+void Route::set_temporary(bool t)
+{
+	temporary = t;
+}
+
+void Route::set_turnout(unsigned addr, unsigned path)
+{
+	if(!addr)
+		throw InvalidParameterValue("Invalid turnout address");
+	map<unsigned, int>::iterator i = turnouts.find(addr);
+	if(i==turnouts.end())
+		throw KeyError("Turnout is not in this route");
+	if(i->second>=0 && path!=static_cast<unsigned>(i->second))
+		throw InvalidState("Setting conflicts with route");
+	i->second = path;
 }
 
 void Route::update_turnouts()
 {
 	set<unsigned> found;
-	for(set<const Track *>::const_iterator i=tracks.begin(); i!=tracks.end(); ++i)
-		if(unsigned tid=(*i)->get_turnout_id())
+	for(set<Track *>::const_iterator i=tracks.begin(); i!=tracks.end(); ++i)
+		if(unsigned tid = (*i)->get_turnout_id())
 		{
 			found.insert(tid);
 
@@ -106,7 +194,7 @@ void Route::update_turnouts()
 				if(!tracks.count(links[j]))
 					continue;
 
-				if(unsigned tid2=links[j]->get_turnout_id())
+				if(unsigned tid2 = links[j]->get_turnout_id())
 				{
 					const Endpoint &ep = links[j]->get_type().get_endpoints()[links[j]->get_endpoint_by_link(**i)];
 					int p = get_turnout(tid2);
@@ -142,10 +230,103 @@ void Route::update_turnouts()
 	}
 }
 
-unsigned Route::check_validity(const Track &trk) const
+int Route::get_turnout(unsigned id) const
+{
+	map<unsigned, int>::const_iterator i = turnouts.find(id);
+	if(i!=turnouts.end())
+		return i->second;
+	return -1;
+}
+
+void Route::add_track(Track &trk)
+{
+	if(tracks.count(&trk))
+		return;
+
+	if(!tracks.empty())
+	{
+		unsigned valid = check_validity(trk);
+		if(!(valid&1))
+			throw Exception("Not linked to existing tracks");
+		else if(!(valid&2))
+			throw Exception("Branching routes not allowed");
+		else if(!(valid&4))
+			throw Exception("Route must be smooth");
+	}
+
+	tracks.insert(&trk);
+	update_turnouts();
+}
+
+void Route::add_tracks(const set<Track *> &trks)
+{
+	set<Track *> pending;
+	for(set<Track *>::const_iterator i=trks.begin(); i!=trks.end(); ++i)
+		if(!tracks.count(*i))
+			pending.insert(*i);
+
+	while(!pending.empty())
+	{
+		bool found = false;
+		for(set<Track *>::const_iterator i=pending.begin(); i!=pending.end(); ++i)
+			if(tracks.empty() || check_validity(**i)==7)
+			{
+				tracks.insert(*i);
+				pending.erase(*i);
+				found = true;
+				break;
+			}
+
+		if(!found)
+			throw Exception("Could not add all tracks to route");
+	}
+
+	update_turnouts();
+}
+
+void Route::add_track_chain(Track &start, unsigned ep, const TurnoutMap &trnts)
+{
+	TrackIter iter(&start, ep);
+	while(iter)
+	{
+		if(iter->get_type().is_dead_end())
+			break;
+
+		if(has_track(*iter))
+			break;
+
+		int path = 0;
+		if(iter->get_turnout_id())
+		{
+			TurnoutMap::const_iterator i = trnts.find(iter->get_turnout_id());
+			if(i==trnts.end())
+				break;
+
+			path = i->second;
+		}
+
+		add_track(*iter);
+
+		iter = iter.next(path);
+	}
+}
+
+bool Route::has_track(Track &t) const
+{
+	return tracks.count(&t);
+}
+
+void Route::save(list<DataFile::Statement> &st) const
+{
+	st.push_back((DataFile::Statement("name"), name));
+	for(map<unsigned, int>::const_iterator i=turnouts.begin(); i!=turnouts.end(); ++i)
+		st.push_back((DataFile::Statement("turnout"), i->first, i->second));
+}
+
+unsigned Route::check_validity(Track &trk) const
 {
 	unsigned result = 4;
-	for(set<const Track *>::const_iterator i=tracks.begin(); i!=tracks.end(); ++i)
+	for(set<Track *>::const_iterator i=tracks.begin(); i!=tracks.end(); ++i)
 	{
 		int epi=(*i)->get_endpoint_by_link(trk);
 		if(epi>=0)
@@ -199,16 +380,62 @@ void Route::track_removed(Track &t)
 	tracks.erase(&t);
 }
 
+Route *Route::find(Track &from, unsigned ep, Track &to)
+{
+	return create_route(from, ep, TrackMatch(to));
+}
+
+Route *Route::find(Track &from, unsigned ep, const Route &to)
+{
+	return create_route(from, ep, TrackInSet(to.get_tracks()));
+}
+
+Route *Route::find(Track &from, unsigned ep, const set<Track *> &to)
+{
+	return create_route(from, ep, TrackInSet(to));
+}
+
 
 Route::Loader::Loader(Route &r):
 	DataFile::BasicLoader<Route>(r)
 {
+	add("name",    &Route::name);
 	add("turnout", &Loader::turnout);
 }
 
+void Route::Loader::finish()
+{
+	const set<Track *> &ltracks = obj.layout.get_tracks();
+	for(set<Track *>::const_iterator i=ltracks.begin(); i!=ltracks.end(); ++i)
+	{
+		unsigned tid = (*i)->get_turnout_id();
+		if(!tid)
+			continue;
+
+		TurnoutMap::iterator j = turnouts.find(tid);
+		if(j==turnouts.end())
+			continue;
+
+		unsigned path_mask = 1<<j->second;
+		const vector<Endpoint> &eps = (*i)->get_type().get_endpoints();
+		for(unsigned k=0; k<eps.size(); ++k)
+			if(eps[k].paths&path_mask)
+			{
+				Track *link = (*i)->get_link(k);
+				if(!obj.tracks.count(link))
+					obj.add_track_chain(*link, link->get_endpoint_by_link(**i), turnouts);
+				if(!obj.tracks.count(*i))
+					obj.add_track_chain(**i, k, turnouts);
+				break;
+			}
+
+		break;
+	}
+}
+
 void Route::Loader::turnout(unsigned id, unsigned path)
 {
-	obj.turnouts[id] = path;
+	turnouts[id] = path;
 }
 
 } // namespace Marklin