module call_scilab 29/11729/6
Cedric Delamarre [Fri, 14 Jun 2013 12:19:40 +0000 (14:19 +0200)]
make check-call_scilab

Change-Id: I7cb8b100bcad06e467b5411ea8e972c108c2582a

scilab/Makefile.call_scilab.am
scilab/Makefile.in
scilab/modules/call_scilab/examples/basicExamples/DisableInteractiveMode.c
scilab/modules/call_scilab/examples/basicExamples/GetLastJob.c
scilab/modules/call_scilab/examples/basicExamples/readwriteboolean.c
scilab/modules/call_scilab/examples/basicExamples/readwritecomplexmatrix.c
scilab/modules/call_scilab/examples/basicExamples/readwritematrix.c
scilab/modules/call_scilab/examples/basicExamples/readwritestring.c
scilab/modules/call_scilab/examples/call_scilab/c/common/myprog.c
scilab/modules/call_scilab/examples/call_scilab/c/common/simple_call_scilab.c

index ec5c568..70b308d 100644 (file)
@@ -1,23 +1,31 @@
 #
 # Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 # Copyright (C) DIGITEO - 2010 - Sylvestre Ledru
-# 
+#
 # This file must be used under the terms of the CeCILL.
 # This source file is licensed as described in the file COPYING, which
 # you should have received as part of this distribution.  The terms
-# are also available at    
+# are also available at
 # http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 #
 
-CALL_SCILAB_CFLAGS_COMMON = -I$(top_srcdir)/modules/call_scilab/includes/ -I$(top_srcdir)/modules/core/includes/ -I$(top_srcdir)/modules/api_scilab/includes/ $(FLIBS)
+CALL_SCILAB_CFLAGS_COMMON = \
+-I$(top_srcdir)/modules/call_scilab/includes/ \
+-I$(top_srcdir)/modules/core/includes/ \
+-I$(top_srcdir)/modules/api_scilab/includes/ \
+-I$(top_srcdir)/modules/operations/includes/ \
+$(FLIBS)
 
-CALL_SCILAB_LDADD_COMMON = $(top_builddir)/modules/libscilab.la $(top_builddir)/modules/core/libscicore.la $(top_builddir)/modules/call_scilab/libscicall_scilab.la $(COMPILER_LDFLAGS)
+CALL_SCILAB_LDADD_COMMON = $(top_builddir)/modules/libscilab.la \
+$(top_builddir)/modules/core/libscicore.la \
+$(top_builddir)/modules/call_scilab/libscicall_scilab.la \
+$(COMPILER_LDFLAGS)
 
 
-# These binaries are built here and not in the call_scilab module because 
+# These binaries are built here and not in the call_scilab module because
 # we do need libscilab.so to exist before building these files
 # To build them, just launch "make check-am"
-# To run them, see the help of call Scilab in particular 
+# To run them, see the help of call Scilab in particular
 # "Compile and run with Call Scilab"
 check_PROGRAMS = call_scilab_c_simple call_scilab_c call_scilab_c_getlastjob call_scilab_c_DisableInteractiveMode call_scilab_readwriteboolean call_scilab_readwritecomplexmatrix call_scilab_readwritematrix call_scilab_readwritestring
 
index f123889..28d98dd 100644 (file)
 #
 # Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 # Copyright (C) DIGITEO - 2010 - Sylvestre Ledru
-# 
+#
 # This file must be used under the terms of the CeCILL.
 # This source file is licensed as described in the file COPYING, which
 # you should have received as part of this distribution.  The terms
-# are also available at    
+# are also available at
 # http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 #
 
@@ -788,8 +788,18 @@ pkgconfigdir = $(libdir)/pkgconfig
 
 # Files to install in Pkgconfig directory
 pkgconfig_DATA = scilab.pc
-CALL_SCILAB_CFLAGS_COMMON = -I$(top_srcdir)/modules/call_scilab/includes/ -I$(top_srcdir)/modules/core/includes/ -I$(top_srcdir)/modules/api_scilab/includes/ $(FLIBS)
-CALL_SCILAB_LDADD_COMMON = $(top_builddir)/modules/libscilab.la $(top_builddir)/modules/core/libscicore.la $(top_builddir)/modules/call_scilab/libscicall_scilab.la $(COMPILER_LDFLAGS)
+CALL_SCILAB_CFLAGS_COMMON = \
+-I$(top_srcdir)/modules/call_scilab/includes/ \
+-I$(top_srcdir)/modules/core/includes/ \
+-I$(top_srcdir)/modules/api_scilab/includes/ \
+-I$(top_srcdir)/modules/operations/includes/ \
+$(FLIBS)
+
+CALL_SCILAB_LDADD_COMMON = $(top_builddir)/modules/libscilab.la \
+$(top_builddir)/modules/core/libscicore.la \
+$(top_builddir)/modules/call_scilab/libscicall_scilab.la \
+$(COMPILER_LDFLAGS)
+
 call_scilab_c_SOURCES = $(top_srcdir)/modules/call_scilab/examples/call_scilab/c/common/myprog.c
 call_scilab_c_CFLAGS = $(CALL_SCILAB_CFLAGS_COMMON)
 call_scilab_c_LDFLAGS = $(CALL_SCILAB_LDADD_COMMON)
index 81d4f42..a9f9e5f 100644 (file)
@@ -7,6 +7,7 @@
  */
 #include <stdio.h>
 #include <string.h>
+#include <stdlib.h> /* getenv */
 
 #include "call_scilab.h" /* Provide functions to call Scilab engine */
 
index 4db3c74..92a535b 100644 (file)
@@ -7,6 +7,7 @@
  */
 #include <stdio.h>
 #include <string.h>
+#include <stdlib.h> /* getenv */
 
 #include "call_scilab.h" /* Provide functions to call Scilab engine */
 
index 0f09571..b35f70b 100644 (file)
@@ -19,6 +19,7 @@
 /*------------------------------------------------------------*/
 int main(void)
 {
+    void* pvApiCtx = NULL;
 #ifdef _MSC_VER
     if ( StartScilab(NULL, NULL, 0) == FALSE )
 #else
index 569b6c5..0febb89 100644 (file)
@@ -16,6 +16,7 @@
 /*------------------------------------------------------------*/
 int main(void)
 {
+    void* pvApiCtx = NULL;
 #ifdef _MSC_VER
     if ( StartScilab(NULL, NULL, 0) == FALSE )
 #else
@@ -101,7 +102,7 @@ int main(void)
 
         /* Alloc the memory */
         matrixOfComplex = (double*)malloc((rowA_ * colA_ * 2) * sizeof(double));
-        matrixOfComplex_img = (double*)malloc((rowA_ * colA_ * 2) * sizeof(double));
+        matrixOfComplex_img = matrixOfComplex + (rowA_ * colA_);
 
         /* Load the matrix */
         sciErr = readNamedComplexMatrixOfDouble(pvApiCtx, variableToBeRetrieved, &rowA_, &colA_, matrixOfComplex, matrixOfComplex_img);
index 7d965ee..080dfd9 100644 (file)
@@ -18,6 +18,7 @@
 /*------------------------------------------------------------*/
 int main(void)
 {
+    void* pvApiCtx = NULL;
 #ifdef _MSC_VER
     if ( StartScilab(NULL, NULL, 0) == FALSE )
 #else
index 8b29338..07310b3 100644 (file)
@@ -16,6 +16,7 @@
 /*------------------------------------------------------------*/
 int main(void)
 {
+    void* pvApiCtx = NULL;
 #ifdef _MSC_VER
     if ( StartScilab(NULL, NULL, 0) == FALSE )
 #else
index 08acf24..9b98457 100644 (file)
@@ -14,6 +14,7 @@
 #include <unistd.h>
 #include <string.h>
 
+#include "api_scilab.h"
 #include "call_scilab.h" /* Provide functions to call Scilab engine */
 
 /**
@@ -31,6 +32,7 @@
 /*------------------------------------------------------------*/
 static int first_example(void)
 {
+    void* pvApiCtx = NULL;
     static double A[] = {1, 2, 3, 4};
     int mA = 2, nA = 2;
     static double b[] = {4, 5};
@@ -39,8 +41,8 @@ static int first_example(void)
     printf("Some simple computations\n");
 
     /* Create Scilab matrices A and b */
-    WriteMatrix("A", &mA, &nA, A);
-    WriteMatrix("b", &mb, &nb, b);
+    createNamedMatrixOfDouble(pvApiCtx, "A", mA, mA, A);
+    createNamedMatrixOfDouble(pvApiCtx, "b", mb, nb, b);
 
     SendScilabJob("disp('A=');");
     SendScilabJob("disp(A);");
@@ -58,11 +60,11 @@ static int first_example(void)
         int m, n, lp, i;
 
         /* Get m and n */
-        GetMatrixptr("x", &m, &n, &lp);
+        getNamedVarDimension(pvApiCtx, "x", &m, &n);
 
         cxtmp = (double*)malloc((m * n) * sizeof(double));
 
-        ReadMatrix("x", &m, &n, cxtmp);
+        readNamedMatrixOfDouble(pvApiCtx, "x", &m, &n, cxtmp);
 
         for (i = 0; i < m * n; i++)
         {
index 717c6f6..49f7c5f 100644 (file)
@@ -7,6 +7,7 @@
  *
  */
 #include <stdio.h> /* stderr */
+#include <stdlib.h> /* getenv */
 
 #include "call_scilab.h" /* Provide functions to call Scilab engine */