Mejora Makefile

[z.facultad/75.68/celdas.git] / trunk / src / SistemaAutonomo.tz

diff --git a/trunk/src/SistemaAutonomo.tz b/trunk/src/SistemaAutonomo.tz
index d3246c839ac4bf00d3365affda61d0217cbbad3c..b7c3cc78f6d3788485f76603b01bd84775b447f3 100644 (file)
--- 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).
 }