X-Git-Url: https://git.llucax.com/z.facultad/75.68/celdas.git/blobdiff_plain/c70ce6aaf1ea2313edd5754c063d866c2aba4975..aa254f01dc8753ddeb193ca980b38511a3cb5b88:/trunk/src/SistemaAutonomo.tz?ds=sidebyside

diff --git a/trunk/src/SistemaAutonomo.tz b/trunk/src/SistemaAutonomo.tz
index d3246c8..b7c3cc7 100644
--- a/trunk/src/SistemaAutonomo.tz
+++ b/trunk/src/SistemaAutonomo.tz
@@ -1,4 +1,3 @@
-@use Control.
 
 @plugin "plugin.so" (SAbrFunctions).
 
@@ -7,19 +6,28 @@ Object : Teoria (aka Teorias) {
 	+ variables:
 		ptr (pointer).
 
-	+ to init named name (string) with-action action (int)
+	+ to init named name (string) with-action action (string)
 			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 set-dato-inicial name theName (string) value theValue (float):
+		TeoriaSetDatoInicial(ptr, theName, theValue).
 
-	+ to add-dato-final name theName (string) value theValue (float):
-		TeoriaAddDatoFinal(ptr, theName, theValue).
+	+ to set-dato-final name theName (string) value theValue (float):
+		TeoriaSetDatoFinal(ptr, theName, theValue).
+
+	+ to get-nombre:
+		return TeoriaGetNombre(ptr).
+
+	+ to get-accion:
+		return TeoriaGetAccion(ptr).
 
 	- to get-ptr:
 		return ptr.
 
+	- to set-ptr ptr p (pointer):
+		ptr = p.
+
 	+ to destroy:
 		TeoriaDelete(ptr).
 }
@@ -35,6 +43,41 @@ Object : SistemaAutonomo {
 	+ to add teoria theTeoria (object):
 		SistemaAutonomoAddTeoria(ptr, (theTeoria get-ptr)).
 
+	+ to set-entorno value theValue (float) with-name theName (string):
+		SistemaAutonomoSetValue(ptr, theName, theValue).
+
+	+ to set-dato-final value theValue (float) with-name theName (string):
+		SistemaAutonomoSetDatoFinal(ptr, theName, theValue).
+
+	+ to update-entorno entorno theEntorno (hash):
+		nombre (string).
+		foreach nombre in keys(theEntorno): {
+			print "Seteando valor de entorno ", nombre, " con ", theEntorno{nombre}.
+			self set-entorno value theEntorno{nombre} with-name nombre.
+		}
+
+	+ to update-datos-finales datos-finales datos (hash):
+		nombre (string).
+		foreach nombre in keys(datos): {
+			print "Seteando valor de dato final ", nombre, " con ", datos{nombre}.
+			self set-dato-final value datos{nombre} with-name nombre.
+		}
+
+	+ to plan:
+		SistemaAutonomoPlan(ptr).
+
+	+ to has-next-theory:
+		return SistemaAutonomoHasNextTheory(ptr).
+
+	+ to get-next-theory:
+		t (object).
+		t = new Teoria.
+		t set-ptr ptr SistemaAutonomoGetNextTheory(ptr).
+		return t.
+
+	+ to validate theory theTheory (object):
+		return SistemaAutonomoValidateTheory(ptr, (theTheory get-ptr)).
+
 	+ to destroy:
 		SistemaAutonomoDelete(ptr).
 }