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

diff --git a/trunk/src/SistemaAutonomo.tz b/trunk/src/SistemaAutonomo.tz
index d3246c8..b5e01ac 100644
--- a/trunk/src/SistemaAutonomo.tz
+++ b/trunk/src/SistemaAutonomo.tz
@@ -7,7 +7,7 @@ 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).
 		
@@ -35,6 +35,23 @@ Object : SistemaAutonomo {
 	+ to add teoria theTeoria (object):
 		SistemaAutonomoAddTeoria(ptr, (theTeoria get-ptr)).
 
+	+ to set value theValue (float) with-name theName (string):
+		SistemaAutonomoSetValue(ptr, theName, theValue).
+
+	+ to update entorno theEntorno (hash):
+		foreach nombre in keys(theEntorno): {
+			self set value theEntorno{nombre} with-name nombre.
+		}
+
+	+ to plan:
+		SistemaAutonomoPlan(ptr).
+
+	+ to get-next-action:
+		return SistemaAutonomoGetNextAction(ptr).
+
+	+ to validate-current-theory:
+		return SistemaAutonomoValidateCurrentTheory(ptr).
+
 	+ to destroy:
 		SistemaAutonomoDelete(ptr).
 }