Import initial

1 files changed, 149 insertions, 0 deletions

diff --git a/src/MTools/MState.pm b/src/MTools/MState.pm
new file mode 100644
index 0000000..bf7b9d4
--- /dev/null
+++ b/src/MTools/MState.pm
@@ -0,0 +1,149 @@
+package MTools::MState;
+#	This program is free software; you can redistribute it and/or
+#	modify it under the terms of the GNU LGPL Libray General Public License
+#	as published by the Free Software Foundation; either version 2
+#	of the License, or (at your option) any later version.
+#
+#	This program is distributed in the hope that it will be useful,
+#	but WITHOUT ANY WARRANTY; without even the implied warranty of
+#	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#	GNU Library General Public License for more details.
+#
+#	You should have received a copy of the GNU Library General Public License
+#	along with this program; if not, write to the Free Software
+#	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA,
+#	or refer to http://www.gnu.org/copyleft/lgpl.html
+#
+##################################################################
+
+use strict;
+use MTools;
+use MTools::MObjet;
+use MTools::SVG::SVGLoader;
+
+
+use vars qw /@ISA/;
+
+BEGIN 
+{
+	@ISA = qw /MTools::MObjet/;
+}
+
+sub new {
+	my ($class, %options) = @_;
+	my $self = {};
+	bless $self, $class;
+	$self -> {instance} = -1;
+	my %events = %{$options {events}};
+	$self -> {__transitions} =  $options {transitions};
+	my %transitions = %{$self -> {__transitions}};
+	
+	$self -> recordProperty ('state', $options {current_state});
+	
+	$self -> recordEvent('SET_STATE');
+	
+	# Cr?er les bind soit aupr?s de zinc, soit au niveau des objets MObjet
+	while ( my ($evt, $desc) = each (%events) )
+	{
+		my ($src, $spec) = @{$desc};
+		if ($spec =~ /<(.*)>/)
+		{
+			binding ($src, $spec, sub {$self -> evt ($evt, @_); });
+		}
+		else
+		{
+			$src -> binding ($spec, sub {$self -> evt ($evt, @_); });
+		}		
+	}
+	
+	# Abonne les switchs ecoutant les changements d'etat
+	my $sws = $options {switchs};
+	if (defined $sws)
+	{
+		my @abonnes;
+		if (ref ($sws) eq 'ARRAY')
+		{
+			@abonnes = @{$sws};
+		}
+		else
+		{
+			$abonnes [0] = $sws;
+		}
+		for (my $i = 0; $i < @abonnes; $i++)
+		{
+			$self -> binding ('SET_STATE', [$abonnes [$i], 'setState']);
+		}
+		$self -> notify ('SET_STATE', $self -> mget ('state'));
+	}
+	
+	# Enregistre les outputs
+	while ( my ($src, $trans) = each (%transitions) )
+	{
+		my %trs = %{$trans};
+		while ( my ($evt, $desc) = each (%trs) )
+		{
+			if (defined $desc -> {notify})
+			{
+				my @evts;
+				if (ref ($desc -> {notify}) eq 'ARRAY')
+				{
+					@evts = @{$desc -> {notify}};
+				}
+				else
+				{
+					$evts [0] = $desc -> {notify};
+				}
+				for (my $i = 0; $i < @evts; $i++)
+				{
+					$self -> recordEvent($evts [$i]);
+				}
+			}
+		}
+	}
+	
+	return $self;
+}
+
+sub evt {
+	my ($self, $evt, @args) = @_;
+	if (defined $self -> {__transitions} -> {$self -> mget ('state')} -> {$evt})
+	{
+		my $trans = $self -> {__transitions} -> {$self -> mget ('state')} -> {$evt};
+		if( defined $trans -> {do_before} )
+		{
+			executer ($trans -> {do_before}, @args);
+		}
+		if( defined $trans -> {to} )
+		{
+			$self -> mconfigure ('state', $self -> {__transitions} -> {$self -> mget ('state')} -> {$evt} -> {to});
+			$self -> notify ('SET_STATE', $self -> mget ('state'));
+		}
+		if( defined $trans -> {do_after} )
+		{
+			executer ($trans -> {do_after}, @args);
+		}
+		if( defined $trans -> {notify} )
+		{
+			my @evts;
+			if (ref ($trans -> {notify}) eq 'ARRAY')
+			{
+				@evts = @{$trans -> {notify}};
+			}
+			else
+			{
+				$evts [0] = $trans -> {notify};
+			}
+			for (my $i = 0; $i < @evts; $i++)
+			{
+				$self -> notify ($evts [$i], @args);
+			}
+		}
+	}
+}
+
+sub setState {
+	print "################## MTools::MState TODO\n";
+}
+
+1;
+