Se cambia de lugar la purgación de teorías porque podía pasar que se purge una teoria...

[z.facultad/75.68/celdas.git] / trunk / src / plugin.cpp

diff --git a/trunk/src/plugin.cpp b/trunk/src/plugin.cpp
index a1098e6a1b021f22f50207feac33611af352c857..52e1404a4c17231fa4fbba8dc04300b03d366849 100644 (file)
--- a/trunk/src/plugin.cpp
+++ b/trunk/src/plugin.cpp
@@ -1,6 +1,9 @@
 #include "sistemaautonomo.h"\r
 #include "slBrevePluginAPI.h"\r
 #include "sistemaautonomo.h"\r
 #include "slBrevePluginAPI.h"\r

+\r
+#ifdef DEBUG\r

 #include <iostream>\r
 #include <iostream>\r

+#endif // DEBUG\r

 \r
 /////////////////////////// CTeoria /////////////////////////\r
 \r
 \r
 /////////////////////////// CTeoria /////////////////////////\r
 \r


@@ -19,7 +22,7 @@ int SAbrTeoriaNew(brEval args[], brEval* result, void* data)
 int SAbrTeoriaSetDatoInicial(brEval args[], brEval* result, void* data)\r
 {\r
        CTeoria* t = (CTeoria*) BRPOINTER(args);\r
 int SAbrTeoriaSetDatoInicial(brEval args[], brEval* result, void* data)\r
 {\r
        CTeoria* t = (CTeoria*) BRPOINTER(args);\r

-       t->datos_iniciales.set_val(BRSTRING(args+1), BRINT(args+2));\r
+       t->datos_iniciales.set_val(BRSTRING(args+1), BRDOUBLE(args+2));\r

        return EC_OK;\r
 }\r
 \r
        return EC_OK;\r
 }\r
 \r


@@ -27,7 +30,7 @@ int SAbrTeoriaSetDatoInicial(brEval args[], brEval* result, void* data)
 int SAbrTeoriaSetDatoFinal(brEval args[], brEval* result, void* data)\r
 {\r
        CTeoria* t = (CTeoria*) BRPOINTER(args);\r
 int SAbrTeoriaSetDatoFinal(brEval args[], brEval* result, void* data)\r
 {\r
        CTeoria* t = (CTeoria*) BRPOINTER(args);\r

-       t->datos_finales.set_val(BRSTRING(args+1), BRINT(args+2));\r
+       t->datos_finales.set_val(BRSTRING(args+1), BRDOUBLE(args+2));\r

        return EC_OK;\r
 }\r
 \r
        return EC_OK;\r
 }\r
 \r


@@ -42,16 +45,8 @@ int SAbrTeoriaGetNombre(brEval args[], brEval* result, void* data)
 // string TeoriaGetAccion(pointer{Teoria})\r
 int SAbrTeoriaGetAccion(brEval args[], brEval* result, void* data)\r
 {\r
 // string TeoriaGetAccion(pointer{Teoria})\r
 int SAbrTeoriaGetAccion(brEval args[], brEval* result, void* data)\r
 {\r

-       // TODO CTeoria* t = (CTeoria*) BRPOINTER(args);\r
-       // TODO result->set(t->accion.c_str());\r
-       result->set("avanzar"); // FIXME\r
-       return EC_OK;\r
-}\r
-\r
-// void TeoriaDelete(pointer{Teoria})\r
-int SAbrTeoriaDelete(brEval args[], brEval* result, void* data)\r
-{\r
-       delete (CTeoria*) BRPOINTER(args);\r
+       CTeoria* t = (CTeoria*) BRPOINTER(args);\r
+       result->set(t->funcion.c_str());\r

        return EC_OK;\r
 }\r
 \r
        return EC_OK;\r
 }\r
 \r


@@ -70,7 +65,12 @@ int SAbrSistemaAutonomoAddTeoria(brEval args[], brEval* result, void* data)
 {\r
        CSistemaAutonomo* sa = (CSistemaAutonomo*) BRPOINTER(args);\r
        CTeoria* t = (CTeoria*) BRPOINTER(args+1);\r
 {\r
        CSistemaAutonomo* sa = (CSistemaAutonomo*) BRPOINTER(args);\r
        CTeoria* t = (CTeoria*) BRPOINTER(args+1);\r

-       sa->teorias.add(t->nombre.c_str(), *t);\r
+       sa->teorias.add(t->nombre, t);\r
+#ifdef DEBUG\r
+       std::cout << "Agrega teoria " << t->nombre << ":\n";\r
+       std::cout << "  .datos_iniciales:\n" << t->datos_iniciales << "\n";\r
+       std::cout << "  .datos_finales:\n" << t->datos_finales << "\n";\r
+#endif // DEBUG\r

        return EC_OK;\r
 }\r
 \r
        return EC_OK;\r
 }\r
 \r


@@ -142,8 +142,6 @@ DLLEXPORT void SAbrFunctions(void *data)
                       AT_STRING, AT_POINTER, 0);\r
        brNewBreveCall(data, "TeoriaGetAccion", SAbrTeoriaGetAccion,\r
                       AT_STRING, AT_POINTER, 0);\r
                       AT_STRING, AT_POINTER, 0);\r
        brNewBreveCall(data, "TeoriaGetAccion", SAbrTeoriaGetAccion,\r
                       AT_STRING, AT_POINTER, 0);\r

-       brNewBreveCall(data, "TeoriaDelete", SAbrTeoriaDelete,\r
-                      AT_NULL, AT_POINTER, 0);\r

        brNewBreveCall(data, "SistemaAutonomoNew", SAbrSistemaAutonomoNew,\r
                       AT_POINTER, 0);\r
        brNewBreveCall(data, "SistemaAutonomoAddTeoria", SAbrSistemaAutonomoAddTeoria,\r
        brNewBreveCall(data, "SistemaAutonomoNew", SAbrSistemaAutonomoNew,\r
                       AT_POINTER, 0);\r
        brNewBreveCall(data, "SistemaAutonomoAddTeoria", SAbrSistemaAutonomoAddTeoria,\r