CTeoria usa strings en vez de char*.

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

diff --git a/trunk/src/SistemaAutonomo.tz b/trunk/src/SistemaAutonomo.tz
index 147c7760b2054a46c37f99cd834243f15cd7a891..b7c3cc78f6d3788485f76603b01bd84775b447f3 100644 (file)
--- a/trunk/src/SistemaAutonomo.tz
+++ b/trunk/src/SistemaAutonomo.tz
@@ -1,4 +1,3 @@
-@use Control.

 
 @plugin "plugin.so" (SAbrFunctions).
 
 
 @plugin "plugin.so" (SAbrFunctions).
 


@@ -44,19 +43,32 @@ 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):
+       + to set-entorno value theValue (float) with-name theName (string):

                SistemaAutonomoSetValue(ptr, theName, theValue).
 
                SistemaAutonomoSetValue(ptr, theName, theValue).
 

-       + to update entorno theEntorno (hash):
+       + 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}.
                nombre (string).
                foreach nombre in keys(theEntorno): {
                        print "Seteando valor de entorno ", nombre, " con ", theEntorno{nombre}.

-                       self set value theEntorno{nombre} with-name 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 plan:
                SistemaAutonomoPlan(ptr).
 

+       + to has-next-theory:
+               return SistemaAutonomoHasNextTheory(ptr).
+

        + to get-next-theory:
                t (object).
                t = new Teoria.
        + to get-next-theory:
                t (object).
                t = new Teoria.