Construyo wrappers con la nueva interfaz que habíamos hablado para el sistema autónom...

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

diff --git a/trunk/src/SistemaAutonomo.tz b/trunk/src/SistemaAutonomo.tz
index d3246c839ac4bf00d3365affda61d0217cbbad3c..b5e01acf49585e9d85e3dbce27b744a522846239 100644 (file)
--- a/trunk/src/SistemaAutonomo.tz
+++ b/trunk/src/SistemaAutonomo.tz
@@ -7,7 +7,7 @@ Object : Teoria (aka Teorias) {
        + variables:
                ptr (pointer).
 
        + 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).
                
                        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 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).
 }
        + to destroy:
                SistemaAutonomoDelete(ptr).
 }