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 (int)
  11                         executed k = 1 (int) succeeded p = 1 (int):
  12                 ptr = TeoriaNew(name, action, k, p).
  13
  14         + to add-dato-inicial name theName (string) value theValue (float):
  15                 TeoriaAddDatoInicial(ptr, theName, theValue).
  16
  17         + to add-dato-final name theName (string) value theValue (float):
  18                 TeoriaAddDatoFinal(ptr, theName, theValue).
  19
  20         - to get-ptr:
  21                 return ptr.
  22
  23         + to destroy:
  24                 TeoriaDelete(ptr).
  25 }
  26
  27 Object : SistemaAutonomo {
  28
  29         + variables:
  30                 ptr (pointer).
  31
  32         + to init:
  33                 ptr = SistemaAutonomoNew().
  34
  35         + to add teoria theTeoria (object):
  36                 SistemaAutonomoAddTeoria(ptr, (theTeoria get-ptr)).
  37
  38         + to destroy:
  39                 SistemaAutonomoDelete(ptr).
  40 }
  41