trunk/src/SistemaAutonomo.tz

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