summaryrefslogtreecommitdiff
path: root/sci_gateway/cpp/libFOSSEE_Optimization_Toolbox.c
diff options
context:
space:
mode:
Diffstat (limited to 'sci_gateway/cpp/libFOSSEE_Optimization_Toolbox.c')
-rw-r--r--sci_gateway/cpp/libFOSSEE_Optimization_Toolbox.c40
1 files changed, 40 insertions, 0 deletions
diff --git a/sci_gateway/cpp/libFOSSEE_Optimization_Toolbox.c b/sci_gateway/cpp/libFOSSEE_Optimization_Toolbox.c
new file mode 100644
index 0000000..7090628
--- /dev/null
+++ b/sci_gateway/cpp/libFOSSEE_Optimization_Toolbox.c
@@ -0,0 +1,40 @@
+#ifdef __cplusplus
+extern "C" {
+#endif
+#include <mex.h>
+#include <sci_gateway.h>
+#include <api_scilab.h>
+#include <MALLOC.h>
+static int direct_gateway(char *fname,void F(void)) { F();return 0;};
+extern Gatefunc cpp_intfminunc;
+extern Gatefunc cpp_intfminbnd;
+extern Gatefunc cpp_intfmincon;
+extern Gatefunc cpp_intqpipopt;
+extern Gatefunc matrix_cppintlinprog;
+extern Gatefunc mps_cppintlinprog;
+static GenericTable Tab[]={
+ {(Myinterfun)sci_gateway,cpp_intfminunc,"inter_fminunc"},
+ {(Myinterfun)sci_gateway,cpp_intfminbnd,"inter_fminbnd"},
+ {(Myinterfun)sci_gateway,cpp_intfmincon,"inter_fmincon"},
+ {(Myinterfun)sci_gateway,cpp_intqpipopt,"sci_intqpipopt"},
+ {(Myinterfun)sci_gateway,matrix_cppintlinprog,"sci_matrix_intlinprog"},
+ {(Myinterfun)sci_gateway,mps_cppintlinprog,"sci_mps_intlinprog"},
+};
+
+int C2F(libFOSSEE_Optimization_Toolbox)()
+{
+ Rhs = Max(0, Rhs);
+ if (*(Tab[Fin-1].f) != NULL)
+ {
+ if(pvApiCtx == NULL)
+ {
+ pvApiCtx = (StrCtx*)MALLOC(sizeof(StrCtx));
+ }
+ pvApiCtx->pstName = (char*)Tab[Fin-1].name;
+ (*(Tab[Fin-1].f))(Tab[Fin-1].name,Tab[Fin-1].F);
+ }
+ return 0;
+}
+#ifdef __cplusplus
+}
+#endif