From 9fd2976931c088dc523974afb901e96bad20f73c Mon Sep 17 00:00:00 2001
From: Harpreet
Date: Thu, 4 Aug 2016 15:25:44 +0530
Subject: initial add

---
 libFOSSEE_Scilab_intqpipopt.c | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 libFOSSEE_Scilab_intqpipopt.c

(limited to 'libFOSSEE_Scilab_intqpipopt.c')

diff --git a/libFOSSEE_Scilab_intqpipopt.c b/libFOSSEE_Scilab_intqpipopt.c
new file mode 100644
index 0000000..3bfc236
--- /dev/null
+++ b/libFOSSEE_Scilab_intqpipopt.c
@@ -0,0 +1,34 @@
+#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;
+static GenericTable Tab[]={
+  {(Myinterfun)sci_gateway,cpp_intfminunc,"inter_fminunc"},
+  {(Myinterfun)sci_gateway,cpp_intfminbnd,"inter_fminbnd"},
+  {(Myinterfun)sci_gateway,cpp_intfmincon,"inter_fmincon"},
+};
+ 
+int C2F(libFOSSEE_Scilab_intqpipopt)()
+{
+  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
-- 
cgit