trunk/src/SistemaAutonomo.tz

   1 @use Control.
   2
   3 @plugin "plugin.so" (SAbrFunctions).
   4
   5 Object : Teoria (aka Teorias) {
   6
   7         + variables:
   8                 ptr (pointer).
   9
  10         + to init named name (string) with-action action (string)
  11                         executed k = 1 (int) succeeded p = 1 (int):
  12                 ptr = TeoriaNew(name, action, k, p).
  13
  14         + to set-dato-inicial name theName (string) value theValue (float):
  15                 TeoriaSetDatoInicial(ptr, theName, theValue).
  16
  17         + to set-dato-final name theName (string) value theValue (float):
  18                 TeoriaSetDatoFinal(ptr, theName, theValue).
  19
  20         + to get-nombre:
  21                 return TeoriaGetNombre(ptr).
  22
  23         + to get-accion:
  24                 return TeoriaGetAccion(ptr).
  25
  26         - to get-ptr:
  27                 return ptr.
  28
  29         - to set-ptr ptr p (pointer):
  30                 ptr = p.
  31
  32         + to destroy:
  33                 TeoriaDelete(ptr).
  34 }
  35
  36 Object : SistemaAutonomo {
  37
  38         + variables:
  39                 ptr (pointer).
  40
  41         + to init:
  42                 ptr = SistemaAutonomoNew().
  43
  44         + to add teoria theTeoria (object):
  45                 SistemaAutonomoAddTeoria(ptr, (theTeoria get-ptr)).
  46
  47         + to set value theValue (float) with-name theName (string):
  48                 SistemaAutonomoSetValue(ptr, theName, theValue).
  49
  50         + to update entorno theEntorno (hash):
  51                 nombre (string).
  52                 foreach nombre in keys(theEntorno): {
  53                         print "Seteando valor de entorno ", nombre, " con ", theEntorno{nombre}.
  54                         self set value theEntorno{nombre} with-name nombre.
  55                 }
  56
  57         + to plan:
  58                 SistemaAutonomoPlan(ptr).
  59
  60         + to get-next-theory:
  61                 t (object).
  62                 t = new Teoria.
  63                 t set-ptr ptr SistemaAutonomoGetNextTheory(ptr).
  64                 return t.
  65
  66         + to validate theory theTheory (object):
  67                 return SistemaAutonomoValidateTheory(ptr, (theTheory get-ptr)).
  68
  69         + to destroy:
  70                 SistemaAutonomoDelete(ptr).
  71 }
  72