trunk/src/SistemaAutonomo.tz

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