From: Leandro Lucarella <llucax@gmail.com>
Date: Fri, 1 Dec 2006 03:56:16 +0000 (+0000)
Subject: Termino de encapsular todo lo que puedo encapsular en el estado en que esta el sistem... 
X-Git-Tag: entrega-20061218~46
X-Git-Url: https://git.llucax.com/z.facultad/75.68/celdas.git/commitdiff_plain/c70ce6aaf1ea2313edd5754c063d866c2aba4975

Termino de encapsular todo lo que puedo encapsular en el estado en que esta el sistema autonomo. Tambien subo una prueba hecha en breve que usa las cosas encapsuladas (aunque no hace demasiado, pero me garantiza que al menos no tiene errores sintacticos y que "compila").
---

diff --git a/trunk/src/SistemaAutonomo.tz b/trunk/src/SistemaAutonomo.tz
new file mode 100644
index 0000000..d3246c8
--- /dev/null
+++ b/trunk/src/SistemaAutonomo.tz
@@ -0,0 +1,41 @@
+@use Control.
+
+@plugin "plugin.so" (SAbrFunctions).
+
+Object : Teoria (aka Teorias) {
+
+	+ variables:
+		ptr (pointer).
+
+	+ to init named name (string) with-action action (int)
+			executed k = 1 (int) succeeded p = 1 (int):
+		ptr = TeoriaNew(name, action, k, p).
+		
+	+ to add-dato-inicial name theName (string) value theValue (float):
+		TeoriaAddDatoInicial(ptr, theName, theValue).
+
+	+ to add-dato-final name theName (string) value theValue (float):
+		TeoriaAddDatoFinal(ptr, theName, theValue).
+
+	- to get-ptr:
+		return ptr.
+
+	+ to destroy:
+		TeoriaDelete(ptr).
+}
+
+Object : SistemaAutonomo {
+
+	+ variables:
+		ptr (pointer).
+
+	+ to init:
+		ptr = SistemaAutonomoNew().	
+		
+	+ to add teoria theTeoria (object):
+		SistemaAutonomoAddTeoria(ptr, (theTeoria get-ptr)).
+
+	+ to destroy:
+		SistemaAutonomoDelete(ptr).
+}
+
diff --git a/trunk/src/SistemaAutonomoDemo.tz b/trunk/src/SistemaAutonomoDemo.tz
new file mode 100644
index 0000000..37d3d5a
--- /dev/null
+++ b/trunk/src/SistemaAutonomoDemo.tz
@@ -0,0 +1,35 @@
+@use Control.
+@use SistemaAutonomo.
+
+Controller SistemaAutonomoController.
+
+Control : SistemaAutonomoController {
+
+	+ to init:
+		teorias (list).
+		sa (object).
+
+		sa = new SistemaAutonomo.
+		teorias = 3 new Teorias.
+		teorias{0} init named "t1" with-action 1.
+		teorias{1} init named "t2" with-action 2.
+		teorias{2} init named "t3" with-action 3.
+
+		(teorias{0}) add-dato-inicial name "sensor1" value 10.5.
+		(teorias{0}) add-dato-inicial name "sensor2" value 0.5.
+		(teorias{1}) add-dato-inicial name "sensor1" value 0.5.
+		(teorias{1}) add-dato-inicial name "sensor2" value 10.5.
+		(teorias{2}) add-dato-inicial name "sensor1" value 5.5.
+		(teorias{2}) add-dato-inicial name "sensor2" value 5.5.
+
+		sa add teoria (teorias{0}).
+		sa add teoria (teorias{1}).
+		sa add teoria (teorias{2}).
+
+		free teorias{0}.
+		free teorias{1}.
+		free teorias{2}.
+		free sa.
+
+}
+
diff --git a/trunk/src/plugin.cpp b/trunk/src/plugin.cpp
index 383cffc..31d2ce1 100644
--- a/trunk/src/plugin.cpp
+++ b/trunk/src/plugin.cpp
@@ -17,7 +17,7 @@ int SAbrTeoriaNew(brEval args[], brEval* result, void* data)
 	return EC_OK;
 }
 
-// void TeoriaAddDatoInicial(pointer{Teoria}, string, double)
+// void TeoriaAddDatoInicial(pointer{Teoria}, string, float)
 int SAbrTeoriaAddDatoInicial(brEval args[], brEval* result, void* data)
 {
 	CTeoria* t = (CTeoria*) BRPOINTER(args);
@@ -25,7 +25,7 @@ int SAbrTeoriaAddDatoInicial(brEval args[], brEval* result, void* data)
 	return EC_OK;
 }
 
-// void TeoriaAddDatoFinal(pointer{Teoria}, string, double)
+// void TeoriaAddDatoFinal(pointer{Teoria}, string, float)
 int SAbrTeoriaAddDatoFinal(brEval args[], brEval* result, void* data)
 {
 	CTeoria* t = (CTeoria*) BRPOINTER(args);