X-Git-Url: http://git.tdb.fi/?a=blobdiff_plain;f=source%2Flibr2c2%2Farducontrol.cpp;h=40b3d35fd9f84693f233ad9490eb5013fa7bab57;hb=23e1a988da2efae47e39d93babe7e37b1c0ca554;hp=86b3666b2ff13a478ed8a391fe3c2d916b04188d;hpb=df99c7e41d87084fe7f71729f3df33d7effc59cc;p=r2c2.git

diff --git a/source/libr2c2/arducontrol.cpp b/source/libr2c2/arducontrol.cpp
index 86b3666..40b3d35 100644
--- a/source/libr2c2/arducontrol.cpp
+++ b/source/libr2c2/arducontrol.cpp
@@ -207,7 +207,7 @@ unsigned ArduControl::add_turnout(unsigned addr, const TrackType &type)
 	if(!addr || !type.is_turnout())
 		throw invalid_argument("ArduControl::add_turnout");
 
-	return add_accessory(Accessory::TURNOUT, addr, type.get_state_bits());
+	return add_accessory(Accessory::TURNOUT, addr, type.get_state_bits(), type.get_paths());
 }
 
 void ArduControl::remove_turnout(unsigned addr)
@@ -227,7 +227,7 @@ unsigned ArduControl::get_turnout(unsigned addr) const
 
 unsigned ArduControl::add_signal(unsigned addr, const SignalType &)
 {
-	return add_accessory(Accessory::SIGNAL, addr, 1);
+	return add_accessory(Accessory::SIGNAL, addr, 1, 3);
 }
 
 void ArduControl::remove_signal(unsigned addr)
@@ -245,7 +245,7 @@ unsigned ArduControl::get_signal(unsigned addr) const
 	return get_accessory(Accessory::SIGNAL, addr);
 }
 
-unsigned ArduControl::add_accessory(Accessory::Kind kind, unsigned addr, unsigned bits)
+unsigned ArduControl::add_accessory(Accessory::Kind kind, unsigned addr, unsigned bits, unsigned states)
 {
 	AccessoryMap::iterator i = accessories.lower_bound(addr);
 	AccessoryMap::iterator j = accessories.upper_bound(addr+bits-1);
@@ -258,7 +258,7 @@ unsigned ArduControl::add_accessory(Accessory::Kind kind, unsigned addr, unsigne
 			throw key_error(addr);
 	}
 
-	insert_unique(accessories, addr, Accessory(kind, addr, bits));
+	insert_unique(accessories, addr, Accessory(kind, addr, bits, states));
 	return addr;
 }
 
@@ -276,7 +276,7 @@ void ArduControl::set_accessory(Accessory::Kind kind, unsigned addr, unsigned st
 	if(acc.kind!=kind)
 		throw key_error(addr);
 
-	if(state!=acc.target)
+	if(state!=acc.target || acc.uncertain)
 	{
 		acc.target = state;
 		accessory_queue.push_back(&acc);
@@ -291,6 +291,20 @@ unsigned ArduControl::get_accessory(Accessory::Kind kind, unsigned addr) const
 	return acc.state;
 }
 
+void ArduControl::activate_accessory_by_mask(Accessory &acc, unsigned mask)
+{
+	unsigned bit = mask&~(mask-1);
+	for(active_index=0; (bit>>active_index)>1; ++active_index) ;
+	acc.state.set((acc.state&~bit)|(acc.target&bit));
+	if(debug>=1)
+		IO::print("Setting accessory %d bit %d, state=%d\n", acc.address, active_index, acc.state.pending);
+	PendingCommand cmd(acc, Accessory::ACTIVATE, active_index);
+	command_queue.push(cmd);
+	active_accessory = &acc;
+
+	monitor.reset_peak();
+}
+
 unsigned ArduControl::add_sensor(unsigned addr)
 {
 	if(!addr)
@@ -378,13 +392,6 @@ void ArduControl::tick()
 			{
 				if(acc.state.commit(tag.serial))
 				{
-					if(acc.state==acc.target)
-					{
-						if(acc.kind==Accessory::TURNOUT)
-							signal_turnout.emit(acc.address, acc.state);
-						else if(acc.kind==Accessory::SIGNAL)
-							signal_signal.emit(acc.address, acc.state);
-					}
 					if(&acc==active_accessory)
 						active_accessory = 0;
 				}
@@ -409,43 +416,70 @@ void ArduControl::tick()
 	{
 		Accessory &acc = *accessory_queue.front();
 
-		if(acc.state!=acc.target)
+		if(acc.uncertain)
+		{
+			unsigned zeroes = acc.uncertain&~acc.target;
+			if(zeroes)
+				activate_accessory_by_mask(acc, zeroes);
+			else
+				activate_accessory_by_mask(acc, acc.uncertain);
+		}
+		else if(acc.state!=acc.target)
 		{
-			active_accessory = &acc;
-
 			unsigned changes = acc.state^acc.target;
-			unsigned lowest_bit = changes&~(changes-1);
-			unsigned i;
-			for(i=0; (lowest_bit>>i)>1; ++i) ;
-			active_index = i;
-			acc.state.set(acc.state^lowest_bit);
-			PendingCommand cmd(acc, Accessory::ACTIVATE, i);
-			command_queue.push(cmd);
+			if(!(changes&((1<<acc.bits)-1)))
+			{
+				// All remaining changes are in non-physical bits
+				acc.state.set(acc.state^changes);
+				acc.state.commit(acc.state.serial);
+			}
+			else
+			{
+				unsigned toggle_bit = 0;
+				for(unsigned bit=1; (!toggle_bit && bit<=changes); bit<<=1)
+					if((changes&bit) && (acc.valid_states&(1<<(acc.state^bit))))
+						toggle_bit = bit;
 
-			monitor.reset_peak();
+				activate_accessory_by_mask(acc, toggle_bit);
+			}
 		}
 		else
+		{
 			accessory_queue.pop_front();
+
+			if(acc.state==acc.target)
+			{
+				if(acc.kind==Accessory::TURNOUT)
+					signal_turnout.emit(acc.address, acc.state);
+				else if(acc.kind==Accessory::SIGNAL)
+					signal_signal.emit(acc.address, acc.state);
+			}
+		}
 	}
 
 	if(active_accessory && off_timeout)
 	{
+		bool success = (monitor.get_peak()>0.35f && monitor.get_current()<monitor.get_peak()-0.2f);
 		Time::TimeStamp t = Time::now();
-		if(t>off_timeout)
+		if(t>off_timeout || success)
 		{
 			Accessory &acc = *active_accessory;
 
-			if(acc.kind==Accessory::TURNOUT && monitor.get_peak()<0.5f)
+			unsigned bit = 1<<active_index;
+
+			// Assume success if we were uncertain of the physical setting
+			if(acc.uncertain&bit)
+				acc.uncertain &= ~bit;
+			else if(acc.kind==Accessory::TURNOUT && !success)
 			{
-				unsigned bit = 1<<active_index;
-				if(acc.uncertain&bit)
-					acc.uncertain &= ~bit;
-				else
-				{
-					signal_turnout_failed.emit(acc.address);
-					acc.state.rollback();
+				if(debug>=1)
+					IO::print("Peak current only %.2f A\n", monitor.get_peak());
+				signal_turnout_failed.emit(acc.address);
+				acc.state.rollback();
+				if(acc.valid_states&(1<<(acc.target^bit)))
 					acc.target ^= bit;
-				}
+				else
+					acc.target = acc.state;
 			}
 
 			off_timeout = Time::TimeStamp();
@@ -457,7 +491,7 @@ void ArduControl::tick()
 
 void ArduControl::flush()
 {
-	while(!command_queue.empty() || !accessory_queue.empty())
+	while(!command_queue.empty() || (power && !accessory_queue.empty()))
 		tick();
 }
 
@@ -556,14 +590,15 @@ unsigned ArduControl::Locomotive::create_speed_func_command(unsigned f, char *bu
 }
 
 
-ArduControl::Accessory::Accessory(Kind k, unsigned a, unsigned b):
+ArduControl::Accessory::Accessory(Kind k, unsigned a, unsigned b, unsigned s):
 	kind(k),
 	address(a),
 	bits(b),
+	valid_states(s),
 	state(0),
 	uncertain((1<<bits)-1),
 	target(0),
-	active_time(500*Time::msec)
+	active_time((bits*700)*Time::msec)
 { }
 
 unsigned ArduControl::Accessory::create_state_command(unsigned b, bool c, char *buffer) const
@@ -667,7 +702,35 @@ bool ArduControl::Queue<T>::empty() const
 }
 
 
+bool ArduControl::CommandQueueTask::get_work(PendingCommand &cmd)
+{
+	return queue.pop(cmd);
+}
+
+void ArduControl::CommandQueueTask::push(const PendingCommand &cmd)
+{
+	queue.push(cmd);
+}
+
+
+ArduControl::Task::Task(const string &n, unsigned p):
+	name(n),
+	priority(p)
+{ }
+
+void ArduControl::Task::sleep(const Time::TimeDelta &dt)
+{
+	sleep_timeout = Time::now()+dt;
+}
+
+
+ArduControl::CommandQueueTask::CommandQueueTask():
+	Task("CommandQueue")
+{ }
+
+
 ArduControl::RefreshTask::RefreshTask():
+	Task("Refresh", 2),
 	next(cycle.end()),
 	round(0),
 	loco(0),
@@ -761,19 +824,14 @@ void ArduControl::RefreshTask::advance()
 
 
 ArduControl::S88Task::S88Task(ArduControl &c):
+	Task("S88"),
 	control(c),
 	n_octets(0),
-	octets_remaining(0),
-	delay(0)
+	octets_remaining(0)
 { }
 
 bool ArduControl::S88Task::get_work(PendingCommand &cmd)
 {
-	if(delay)
-	{
-		--delay;
-		return false;
-	}
 	if(octets_remaining || !n_octets)
 		return false;
 
@@ -782,7 +840,7 @@ bool ArduControl::S88Task::get_work(PendingCommand &cmd)
 	cmd.command[1] = octets_remaining;
 	cmd.length = 2;
 
-	delay = 4;
+	sleep(100*Time::msec);
 
 	return true;
 }
@@ -831,20 +889,18 @@ void ArduControl::S88Task::grow_n_octets(unsigned n)
 
 
 ArduControl::MfxAnnounceTask::MfxAnnounceTask():
+	Task("MfxAnnounce", 1),
 	serial(0)
 { }
 
 bool ArduControl::MfxAnnounceTask::get_work(PendingCommand &cmd)
 {
-	Time::TimeStamp t = Time::now();
-	if(t<next)
-		return false;
-
 	cmd.command[0] = MFX_ANNOUNCE;
 	cmd.command[1] = serial>>8;
 	cmd.command[2] = serial;
 	cmd.length = 3;
-	next = t+400*Time::msec;
+
+	sleep(400*Time::msec);
 
 	return true;
 }
@@ -856,6 +912,7 @@ void ArduControl::MfxAnnounceTask::set_serial(unsigned s)
 
 
 ArduControl::MfxSearchTask::MfxSearchTask(ArduControl &c):
+	Task("MfxSearch", 1),
 	control(c),
 	next_address(1),
 	size(0),
@@ -895,17 +952,13 @@ bool ArduControl::MfxSearchTask::get_work(PendingCommand &cmd)
 		return true;
 	}
 
-	Time::TimeStamp t = Time::now();
-	if(t<next)
-		return false;
-
 	cmd.command[0] = MFX_SEARCH;
 	for(unsigned i=0; i<4; ++i)
 		cmd.command[1+i] = bits>>(24-i*8);
 	cmd.command[5] = size;
 	cmd.length = 6;
 
-	next = t+200*Time::msec;
+	sleep(200*Time::msec);
 
 	if(control.debug>=1)
 		IO::print("Search %08X/%d\n", bits, size);
@@ -930,7 +983,7 @@ void ArduControl::MfxSearchTask::process_reply(const char *reply, unsigned lengt
 		}
 		else
 		{
-			next = Time::now()+2*Time::sec;
+			sleep(2*Time::sec);
 			bits = 0;
 			size = 0;
 			misses = 0;
@@ -950,6 +1003,7 @@ bool ArduControl::MfxSearchTask::pop_info(MfxInfo &info)
 
 
 ArduControl::MonitorTask::MonitorTask():
+	Task("Monitor"),
 	voltage(0),
 	current(0),
 	base_level(0),
@@ -959,17 +1013,13 @@ ArduControl::MonitorTask::MonitorTask():
 
 bool ArduControl::MonitorTask::get_work(PendingCommand &cmd)
 {
-	Time::TimeStamp t = Time::now();
-	if(t<next_poll)
-		return false;
-
 	if(next_type==0)
 		cmd.command[0] = READ_INPUT_VOLTAGE;
 	else
 		cmd.command[0] = READ_TRACK_CURRENT;
 	cmd.length = 1;
 
-	next_poll = t+200*Time::msec;
+	sleep(200*Time::msec);
 	next_type = (next_type+1)%5;
 
 	return true;
@@ -1000,6 +1050,7 @@ ArduControl::ControlThread::ControlThread(ArduControl &c):
 	control(c),
 	done(false)
 {
+	tasks.push_back(&control.command_queue);
 	tasks.push_back(&control.monitor);
 	tasks.push_back(&control.mfx_announce);
 	tasks.push_back(&control.mfx_search);
@@ -1121,12 +1172,33 @@ void ArduControl::ControlThread::init_baud_rate()
 
 bool ArduControl::ControlThread::get_work(PendingCommand &cmd)
 {
-	if(control.command_queue.pop(cmd))
-		return true;
+	Time::TimeStamp t = Time::now();
+
+	unsigned count = 0;
+	for(; (count<tasks.size() && tasks[count]->get_sleep_timeout()<=t); ++count) ;
+
+	for(; count>0; --count)
+	{
+		unsigned i = 0;
+		for(unsigned j=1; j<count; ++j)
+			if(tasks[j]->get_priority()<tasks[i]->get_priority())
+				i = j;
+
+		Task *task = tasks[i];
+		bool result = task->get_work(cmd);
 
-	for(vector<Task *>::iterator i=tasks.begin(); i!=tasks.end(); ++i)
-		if((*i)->get_work(cmd))
+		Time::TimeStamp st = max(task->get_sleep_timeout(), t);
+		for(; (i+1<tasks.size() && tasks[i+1]->get_sleep_timeout()<=st); ++i)
+			tasks[i] = tasks[i+1];
+		tasks[i] = task;
+
+		if(result)
+		{
+			if(control.debug>=2)
+				IO::print("Scheduled task %s\n", task->get_name());
 			return true;
+		}
+	}
 
 	// As fallback, send an idle packet for the MM protocol
 	cmd.command[0] = MOTOROLA_SPEED;
@@ -1205,14 +1277,11 @@ unsigned ArduControl::ControlThread::process_reply(const char *reply, unsigned r
 		return type;
 	}
 	else if(type==POWER_STATE && rlength==2)
+		set_power(reply[1]);
+	else if(type==OVERCURRENT)
 	{
-		control.power.set(reply[1]);
-
-		Tag tag;
-		tag.type = Tag::GENERAL;
-		tag.command = POWER;
-		tag.serial = control.power.serial;
-		control.completed_commands.push(tag);
+		set_power(false);
+		IO::print("Overcurrent detected!\n");
 	}
 	else
 	{
@@ -1223,6 +1292,17 @@ unsigned ArduControl::ControlThread::process_reply(const char *reply, unsigned r
 	return 0;
 }
 
+void ArduControl::ControlThread::set_power(bool p)
+{
+	control.power.set(p);
+
+	Tag tag;
+	tag.type = Tag::GENERAL;
+	tag.command = POWER;
+	tag.serial = control.power.serial;
+	control.completed_commands.push(tag);
+}
+
 
 ArduControl::Loader::Loader(ArduControl &c):
 	DataFile::ObjectLoader<ArduControl>(c)