bug 4795
Allan CORNET [Thu, 17 Sep 2009 09:45:52 +0000 (11:45 +0200)]
28 files changed:
scilab/CHANGES_5.2.X
scilab/modules/api_scilab/src/cpp/api_boolean.cpp
scilab/modules/api_scilab/src/cpp/api_boolean_sparse.cpp
scilab/modules/api_scilab/src/cpp/api_common.cpp
scilab/modules/api_scilab/src/cpp/api_double.cpp
scilab/modules/api_scilab/src/cpp/api_int.cpp
scilab/modules/api_scilab/src/cpp/api_list.cpp
scilab/modules/api_scilab/src/cpp/api_poly.cpp
scilab/modules/api_scilab/src/cpp/api_sparse.cpp
scilab/modules/api_scilab/src/cpp/api_string.cpp
scilab/modules/call_scilab/Makefile.am
scilab/modules/call_scilab/Makefile.in
scilab/modules/call_scilab/call_scilab.vcproj
scilab/modules/call_scilab/includes/CallScilab.h
scilab/modules/call_scilab/includes/call_scilab.h [new file with mode: 0644]
scilab/modules/call_scilab/src/c/SendScilabJobs.c
scilab/modules/call_scilab/src/c/call_scilab.c [moved from scilab/modules/call_scilab/src/c/CallScilab.c with 99% similarity]
scilab/modules/core/src/c/core.vcproj
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/stack3.c
scilab/modules/functions/src/c/librarieslist.c
scilab/modules/functions/src/c/libraryinfo.c
scilab/modules/hdf5/sci_gateway/cpp/sci_import_from_hdf5.cpp
scilab/modules/javasci/includes/javasci_globals.h
scilab/modules/javasci/src/c/javasci_SciAbstractArray.c
scilab/modules/javasci/src/c/javasci_Scilab.c
scilab/modules/javasci/src/c/javasci_Scilab2.c
scilab/modules/mexlib/src/c/mexlib.c

index 29fb59b..efe3400 100644 (file)
@@ -164,6 +164,8 @@ call_scilab module :
 
 * A example to call scilab from VB.NET added.
    see SCI/modules/call_scilab/examples/call_scilab/NET/VB.NET directory
+* CallScilab.h renamed call_scilab.h
 
 tests :
 =======
@@ -285,7 +287,7 @@ Bug fixes:
 * bug 4267 fixed - A non initilization of a lock under Netbsd was 
                    causing an error on startup
                    
-* bug 4278 fixed - typename() called with a wrong number of input arguments  returns incoherent errors.
+* bug 4278 fixed - typename() called with a wrong number of input arguments returns incoherent errors.
 
 * bug 4307 fixed - Desactivate (in modules.xml) modules if its functionnalities
                    are not available.
@@ -428,3 +430,4 @@ Bug fixes:
 
 * bug 4744 fixed - whereis, librairieslist, libraryinfo primitives should be moved in "functions" modules.
 
+* bug 4795 fixed - CallScilab.h renamed call_scilab.h
index 25cc4fd..43463d2 100644 (file)
@@ -19,7 +19,7 @@
 #include "api_internal_common.h"
 #include "api_internal_boolean.h"
 
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 
 
index 3972539..1c7fcc3 100644 (file)
@@ -19,7 +19,7 @@
 #include "api_internal_boolean_sparse.h"
 
 
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 
 
index 3d23dda..cb4e5a4 100644 (file)
@@ -16,7 +16,7 @@
 #include <string.h>
 #include <stdlib.h>
 #include "machine.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "api_common.h"
 #include "api_internal_common.h"
 #include "api_double.h"
index 6278bf5..d249eb8 100644 (file)
@@ -19,7 +19,7 @@
 #include "api_internal_double.h"
 
 
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 
 /*******************************/
index 52ab730..c1aa9dc 100644 (file)
@@ -18,7 +18,7 @@
 #include "api_internal_int.h"
 #include "api_int.h"
 
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 
 int getMatrixOfIntegerPrecision(int* _piAddress, int* _piPrecision)
index c684ecc..afebbc3 100644 (file)
@@ -15,7 +15,7 @@
 
 #include "MALLOC.h"
 #include "stack-c.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 
 #include "api_common.h"
 #include "api_internal_common.h"
index 0e388c9..f53a65a 100644 (file)
@@ -19,7 +19,7 @@
 #include "api_poly.h"
 
 #include "MALLOC.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 extern "C" {
 #include "code2str.h"
index bf81b28..96f6bdb 100644 (file)
@@ -19,7 +19,7 @@
 #include "api_sparse.h"
 
 #include "MALLOC.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 
 //internal sparse functions
index 436f3ec..a80c829 100644 (file)
@@ -23,7 +23,7 @@
 #include "api_internal_common.h"
 #include "api_string.h"
 #include "api_internal_string.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 extern "C"
 {
index 1d8772f..afcc0eb 100644 (file)
@@ -4,7 +4,7 @@
 ##########
 
 ### SOURCES ###
-CALLSCILAB_C_SOURCES = src/c/CallScilab.c \
+CALLSCILAB_C_SOURCES = src/c/call_scilab.c \
                src/c/fromc.c \
                src/c/fromjava.c \
                src/c/SendScilabJobs.c
@@ -59,6 +59,7 @@ libscicall_scilab_la_sci_gateway_DATA = sci_gateway/call_scilab_gateway.xml
 #### call_scilab : include files ####
 libscicall_scilab_la_includedir=$(pkgincludedir)
 libscicall_scilab_la_include_HEADERS = includes/CallScilab.h \
+       includes/call_scilab.h \
        includes/fromjava.h \
        includes/dynlib_call_scilab.h
 
index 2faf838..c57b21a 100644 (file)
@@ -111,7 +111,7 @@ am__installdirs = "$(DESTDIR)$(pkglibdir)" \
 LTLIBRARIES = $(pkglib_LTLIBRARIES)
 libscicall_scilab_la_DEPENDENCIES =  \
        $(top_builddir)/modules/core/libscicore.la
-am__objects_1 = libscicall_scilab_la-CallScilab.lo \
+am__objects_1 = libscicall_scilab_la-call_scilab.lo \
        libscicall_scilab_la-fromc.lo libscicall_scilab_la-fromjava.lo \
        libscicall_scilab_la-SendScilabJobs.lo
 am__objects_2 = libscicall_scilab_la-sci_fromjava.lo \
@@ -377,7 +377,7 @@ top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
 
 ### SOURCES ###
-CALLSCILAB_C_SOURCES = src/c/CallScilab.c \
+CALLSCILAB_C_SOURCES = src/c/call_scilab.c \
                src/c/fromc.c \
                src/c/fromjava.c \
                src/c/SendScilabJobs.c
@@ -424,6 +424,7 @@ libscicall_scilab_la_sci_gateway_DATA = sci_gateway/call_scilab_gateway.xml
 #### call_scilab : include files ####
 libscicall_scilab_la_includedir = $(pkgincludedir)
 libscicall_scilab_la_include_HEADERS = includes/CallScilab.h \
+       includes/call_scilab.h \
        includes/fromjava.h \
        includes/dynlib_call_scilab.h
 
@@ -564,7 +565,7 @@ mostlyclean-compile:
 distclean-compile:
        -rm -f *.tab.c
 
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicall_scilab_la-CallScilab.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicall_scilab_la-call_scilab.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicall_scilab_la-SendScilabJobs.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicall_scilab_la-fromc.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicall_scilab_la-fromjava.Plo@am__quote@
@@ -593,12 +594,12 @@ distclean-compile:
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCC_FALSE@  $(LTCOMPILE) -c -o $@ $<
 
-libscicall_scilab_la-CallScilab.lo: src/c/CallScilab.c
-@am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscicall_scilab_la_CFLAGS) $(CFLAGS) -MT libscicall_scilab_la-CallScilab.lo -MD -MP -MF $(DEPDIR)/libscicall_scilab_la-CallScilab.Tpo -c -o libscicall_scilab_la-CallScilab.lo `test -f 'src/c/CallScilab.c' || echo '$(srcdir)/'`src/c/CallScilab.c
-@am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscicall_scilab_la-CallScilab.Tpo $(DEPDIR)/libscicall_scilab_la-CallScilab.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/CallScilab.c' object='libscicall_scilab_la-CallScilab.lo' libtool=yes @AMDEPBACKSLASH@
+libscicall_scilab_la-call_scilab.lo: src/c/call_scilab.c
+@am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscicall_scilab_la_CFLAGS) $(CFLAGS) -MT libscicall_scilab_la-call_scilab.lo -MD -MP -MF $(DEPDIR)/libscicall_scilab_la-call_scilab.Tpo -c -o libscicall_scilab_la-call_scilab.lo `test -f 'src/c/call_scilab.c' || echo '$(srcdir)/'`src/c/call_scilab.c
+@am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscicall_scilab_la-call_scilab.Tpo $(DEPDIR)/libscicall_scilab_la-call_scilab.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/call_scilab.c' object='libscicall_scilab_la-call_scilab.lo' libtool=yes @AMDEPBACKSLASH@
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscicall_scilab_la_CFLAGS) $(CFLAGS) -c -o libscicall_scilab_la-CallScilab.lo `test -f 'src/c/CallScilab.c' || echo '$(srcdir)/'`src/c/CallScilab.c
+@am__fastdepCC_FALSE@  $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscicall_scilab_la_CFLAGS) $(CFLAGS) -c -o libscicall_scilab_la-call_scilab.lo `test -f 'src/c/call_scilab.c' || echo '$(srcdir)/'`src/c/call_scilab.c
 
 libscicall_scilab_la-fromc.lo: src/c/fromc.c
 @am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscicall_scilab_la_CFLAGS) $(CFLAGS) -MT libscicall_scilab_la-fromc.lo -MD -MP -MF $(DEPDIR)/libscicall_scilab_la-fromc.Tpo -c -o libscicall_scilab_la-fromc.lo `test -f 'src/c/fromc.c' || echo '$(srcdir)/'`src/c/fromc.c
index 2722e09..bea3ca5 100644 (file)
                        UniqueIdentifier="{4FC737F1-C7A5-4376-A066-2A32D752A2FF}"
                        >
                        <File
-                               RelativePath=".\src\c\CallScilab.c"
+                               RelativePath=".\src\c\call_scilab.c"
                                >
                        </File>
                        <File
index 33b48c0..6ff178e 100644 (file)
@@ -1,6 +1,7 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2007 - INRIA - Allan CORNET
+ * Copyright (C) 2009 - DIGITEO - Allan CORNET
  * 
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
 #ifndef __CALLSCILAB__
 #define __CALLSCILAB__
 
+#pragma message("This file is deprecated, see call_scilab.h. it will removed in Scilab 5.3")
 
-#ifdef __cplusplus
-extern "C" {
-#endif
+#include "call_scilab.h"
 
 /*--------------------------------------------------------------------------*/
-#include "dynlib_call_scilab.h"
-#include "machine.h"
-#include "BOOL.h"
-/*--------------------------------------------------------------------------*/
-/**
- * Disable TCL/TK and graphic interfaces 
- * Scilab no GUI no TCL/TK "kernel mode" 
-*/
-CALL_SCILAB_IMPEXP void DisableInteractiveMode(void);
-
-/**
- * Initialize Scilab
- * @param SCIpath define SCI environment variable : Default --> NULL
- * @param ScilabStartup path & filename of scilab.start : Default --> NULL 
- * @param Stacksize : Default --> NULL 
- * @return TRUE if it is OK else FALSE
-*/
-CALL_SCILAB_IMPEXP BOOL StartScilab(char *SCIpath,char *ScilabStartup,int *Stacksize);
-
-/**
- * Terminate Scilab
- * @param ScilabQuit path & filename of scilab.quit : Default --> NULL 
- * @return TRUE if it is OK else FALSE 
-*/
-CALL_SCILAB_IMPEXP BOOL TerminateScilab(char *ScilabQuit);
-
-/**
- * Send a job to scilab 
- * @param job the Scilab Job
- * @return error code operation 0 : OK
-*/
-CALL_SCILAB_IMPEXP int SendScilabJob(char *job); 
-
-/**
- * Send jobs to scilab 
- * @code 
- *     jobs[0] : a = 1;
- *     jobs[1] : b = 3;
- *     jobs[2] : c = a + b;
- *     SendScilabJobs(jobs,3);
- * @endcode
- * @return last error code operation 0 : OK
-**/
-CALL_SCILAB_IMPEXP int SendScilabJobs(char **jobs,int numberjobs);
-
-/**
- * Returns last job send to scilab by SendScilabJobs or SendScilabJob
- * @param[out] JOB the last job
- * @param[out] nbcharsJOB the size of JOB
- * @code
- * Example :
- * jobs[0] : a = 1;
- * jobs[1] : b = V_NOT_EXIST;
- * jobs[2] : c = a + b;
- * if (SendScilabJobs(jobs,3))
- * {
- *     char lastjob[4096]; // bsiz in scilab 
- *     if (GetLastJob(lastjob,4096))
- *     {
- *             printf("%s\n",lastjob);
- *     }
- * }
- * @endcode
- * @return 
-**/
-CALL_SCILAB_IMPEXP BOOL GetLastJob(char *JOB,int nbcharsJOB);
-
-/**
-* This procedure is the entry point to Scilab's event loop 
-*/
-CALL_SCILAB_IMPEXP void ScilabDoOneEvent(void);
-
-/**
- * Get the information is a graphic windows is opened or not
- * @Return Returns TRUE if a graphic windows is opened 
-*/
-CALL_SCILAB_IMPEXP int ScilabHaveAGraph(void);
-
-/********************* DATATYPES MANAGEMENT FUNCTIONS ************/
-
-/****** READ FUNCTIONS ******/
-
-/** 
- * This function is now obsolete
- * please us creadmat 
- */
-int C2F(readmat) (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
-
-
-/**
- * Read a matrix in scilab's internal memory 
- * calling sequence 
- *     logic=creadmat('matrixname',m,n,scimat)
- * @example
- *    Amat is a real 2 x 3 scilab matrix 
- *    your subroutine should be as follows: 
- *    subroutine mysubr(...) 
- *    ... 
- * @code
- *    call creadmat('Amat',m,n,scimat) 
- *    => m=3 , n=2, and scimat(1)=Amat(1,1) 
- *                      scimat(2)=Amat(2,1) 
- *                      scimat(3)=Amat(3,1) 
- *                      scimat(4)=Amat(1,2) ... 
- *                      scimat(5)=Amat(3,2) 
- *                      scimat(6)=Amat(3,2) 
- * @endcode
- * @param name__ character string; name of the scilab variable. 
- * @param m number of rows
- * @param n number of columns
- * @param scimat  matrix entries stored columnwise
- * @param name_len
- * @return if the operation successed (true) or not (false)
- */
-int C2F(creadmat) (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
-
-/**
- * Read a boolean matrix in scilab's memory
- * calling sequence 
- *     logic=creadbmat('matrixname',m,n,scimat)
- * @example
- *    Amat is a real 2 x 3 scilab matrix 
- *    your subroutine should be as follows: 
- *    subroutine mysubr(...) 
- *    ... 
- * @code
- *    call creadbmat('Amat',m,n,scimat) 
- *    => m=3 , n=2, and scimat(1)=Amat(1,1) 
- *                      scimat(2)=Amat(2,1) 
- *                      scimat(3)=Amat(3,1) 
- *                      scimat(4)=Amat(1,2) ... 
- *                      scimat(5)=Amat(3,2) 
- *                      scimat(6)=Amat(3,2) 
- * @endcode
- * @param name__ character string; name of the scilab variable. 
- * @param m number of rows
- * @param n number of columns
- * @param scimat boolean matrix entries stored columnwise
- * @param name_len
- * @return if the operation successed (true) or not (false)
- */
-int C2F(creadbmat)(char *namex, int *m, int *n, int *scimat, unsigned long name_len);
-
-/**
- * Read a matrix of complex from Scilab memory 
- */
-int C2F(creadcmat) (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
-
-/** 
- * This function is now obsolete
- * please us creadchain
- */
-int C2F(readchain) (char *name__, int *itslen, char *characterString, unsigned long name_len, unsigned long characterString_len);
-
-/**
- * Read a string in scilab's memory
- * calling sequence 
- *     logic=creadchain('matrixname',size,string)
- * @param name__ character string; name of the scilab variable. 
- * @param itslen lenght of the string
- * @param chai the future string
- * @param name_len strlen of name__ (fortran needs it)
- * @param chai_len strlen of chai (fortran needs it)
- * @return if the operation successed (true) or not (false)
- */
-int C2F(creadchain)  (char *name__, int *itslen, char *characterString, unsigned long name_len, unsigned long characterString_len);
-
-/**
- * Read a string from a matrix of string in scilab's internal memory 
- * calling sequence 
- *     logic=creadchains('matrixname',size,string)
- * @param name__ character string; name of the scilab variable. 
- * @param indiceRow The row position
- * @param indiceCol The column position
- * @param itslen The length of the retrieved string
- * @param chai the string retrieved
- * @param name_len strlen of name (fortran needs it)
- * @param chai_len strlen of chai (fortran needs it)
- * @return if the operation successed (true) or not (false)
- */
-int C2F(creadchains)  (char *name__, int *indiceRow, int *indiceCol, int *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
-
-
-/****** QUERY FUNCTIONS ******/
-/**
-* Get length of strings by name
-* @param[in] name_ name of the scilab variable
-* @param[out] m number of rows of the matrix 
-* @param[out] n number of columns of the matrix 
-* @return array of length or NULL
-*/
-int *GetLengthStringMatrixByName(char *name_, int *m, int *n);
-
-/**
- * Get pointer on a named matrix 
- * @param namex the name of the Scilab variable
- * @param m number of rows of the matrix 
- * @param n number of columns of the matrix 
- * @param lp
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
-*/
-int C2F(matptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
-
-/**
- * Get pointer on a named matrix 
- * @param namex the name of the Scilab variable
- * @param m number of rows of the matrix 
- * @param n number of columns of the matrix 
- * @param lp
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
-*/
-int C2F(cmatptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
-
-/**
- * Get pointer on a named complex matrix 
- * @param namex the name of the Scilab variable
- * @param m number of rows of the matrix 
- * @param n number of columns of the matrix 
- * @param lp
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
-*/
-int C2F(cmatcptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
-
-/**
- * Get pointer on a named string matrix 
- * @param namex the name of the Scilab variable
- * @param m number of rows of the matrix 
- * @param n number of columns of the matrix 
- * @param ix
- * @param j
- * @param lp
- * @param nlr
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
-*/
-int C2F(cmatsptr)  (char *name__, int *m, int *n, int *ix, int *j, int *lp, int *nlr, unsigned long name_len);
-
-
-/**
- * Get pointer on a named boolean matrix 
- * @param namex the name of the Scilab variable
- * @param m number of rows of the matrix 
- * @param n number of columns of the matrix 
- * @param lp
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
-*/
-int C2F(cmatbptr)(char *namex, int *m,int *n,int *lp, unsigned long name_len);
-
-
-/**
- * Returns length of a "chain variable" in scilab
- * example :
- * in scilab --> str = "abcdefghijklmnopqrstuvwxyz";
- * in C getlengthchain("str") returns 26
- * @param namex
- * @return  -1 if error
-*/ 
-int getlengthchain(char *namex);
-
-
-/****** WRITE FUNCTIONS ******/
-/**
- * cwritemat writes vector/matrix in scilab's memory
- * logic=cwritemat('matrixname'//char(0),m,n,mat)
- * @param name__ character string; name of the scilab variable ( null terMinated) 
- * @param m number of rows 
- * @param n number of columns 
- * @param mat matrix entries stored columnwise in Scilab object
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
- */
-int C2F(cwritemat)  (char *name__, int *m, int *n, double *mat, unsigned long name_len);
-
-
-/**
- * cwritecmat writes vector/matrix of complex in scilab's memory
- * logic=cwritecmat('matrixname'//char(0),m,n,mat)
- * @param name__ character string; name of the scilab variable ( null terMinated) 
- * @param m number of rows 
- * @param n number of columns 
- * @param mat complex matrix entries stored columnwise in Scilab object
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
- */
-int C2F(cwritecmat)  (char *name__, int *m, int *n, double *mat, unsigned long name_len);
-
-
-/**
- * Write a string into the Scilab memory
- *
- * @param name__ name of the scilab variable
- * @param m length of the string itself
- * @param chai the string itself
- * @param name_len strlen of name__ (fortran needs it)
- * @param chai_len strlen of chai (fortran needs it)
- * @return if the operation successed (true) or not (false)
- */
-int C2F(cwritechain)  (char *name__, int *m, char *chai, unsigned long name_len, unsigned long chai_len);
-
-/**
- * cwritemat writes vector/matrix of boolean in scilab's memory
- * logic=cwritebmat('matrixname'//char(0),m,n,mat)
- * @code
- *     int A[]={1,0,0,1};   // Declare the matrix 
- * // NOTE that it is an array of int and not an array of double 
- *             int rowA=1, colA=4; // Size of the matrix 
- *     char variableName[]="A";
- *
- *     C2F(cwritebmat)(variableName, &rowA, &colA, A,strlen(variableName)); // Write it into Scilab's memory 
- * @endcode
- * @param name__ character string; name of the scilab variable ( null terMinated) 
- * @param m number of rows 
- * @param n number of columns 
- * @param mat boolean matrix entries stored columnwise in Scilab object
- * @param name_len strlen of name__ (Fortran needs it)
- * @return if the operation successed (true) or not (false)
- */
-int C2F(cwritebmat)(char *namex, int *m, int *n, int *mat, unsigned long name_len);
-
-int C2F(str2name)  (char *name__, int *id, unsigned long name_len);
-int C2F(objptr)  (char *name__, int *lp, int *fin, unsigned long name_len);
-
-#ifdef __cplusplus
-}
-#endif
-/*--------------------------------------------------------------------------*/
 #endif /* __CALLSCILAB__ */
 /*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/call_scilab/includes/call_scilab.h b/scilab/modules/call_scilab/includes/call_scilab.h
new file mode 100644 (file)
index 0000000..ea48d93
--- /dev/null
@@ -0,0 +1,354 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007 - INRIA - Allan CORNET
+ * Copyright (C) 2009 - DIGITEO - Allan CORNET 
+ * 
+ * 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    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
+#ifndef __CALL_SCILAB_H__
+#define __CALL_SCILAB_H__
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/*--------------------------------------------------------------------------*/
+#include "dynlib_call_scilab.h"
+#include "machine.h"
+#include "BOOL.h"
+/*--------------------------------------------------------------------------*/
+/**
+ * Disable TCL/TK and graphic interfaces 
+ * Scilab no GUI no TCL/TK "kernel mode" 
+*/
+CALL_SCILAB_IMPEXP void DisableInteractiveMode(void);
+
+/**
+ * Initialize Scilab
+ * @param SCIpath define SCI environment variable : Default --> NULL
+ * @param ScilabStartup path & filename of scilab.start : Default --> NULL 
+ * @param Stacksize : Default --> NULL 
+ * @return TRUE if it is OK else FALSE
+*/
+CALL_SCILAB_IMPEXP BOOL StartScilab(char *SCIpath,char *ScilabStartup,int *Stacksize);
+
+/**
+ * Terminate Scilab
+ * @param ScilabQuit path & filename of scilab.quit : Default --> NULL 
+ * @return TRUE if it is OK else FALSE 
+*/
+CALL_SCILAB_IMPEXP BOOL TerminateScilab(char *ScilabQuit);
+
+/**
+ * Send a job to scilab 
+ * @param job the Scilab Job
+ * @return error code operation 0 : OK
+*/
+CALL_SCILAB_IMPEXP int SendScilabJob(char *job); 
+
+/**
+ * Send jobs to scilab 
+ * @code 
+ *     jobs[0] : a = 1;
+ *     jobs[1] : b = 3;
+ *     jobs[2] : c = a + b;
+ *     SendScilabJobs(jobs,3);
+ * @endcode
+ * @return last error code operation 0 : OK
+**/
+CALL_SCILAB_IMPEXP int SendScilabJobs(char **jobs,int numberjobs);
+
+/**
+ * Returns last job send to scilab by SendScilabJobs or SendScilabJob
+ * @param[out] JOB the last job
+ * @param[out] nbcharsJOB the size of JOB
+ * @code
+ * Example :
+ * jobs[0] : a = 1;
+ * jobs[1] : b = V_NOT_EXIST;
+ * jobs[2] : c = a + b;
+ * if (SendScilabJobs(jobs,3))
+ * {
+ *     char lastjob[4096]; // bsiz in scilab 
+ *     if (GetLastJob(lastjob,4096))
+ *     {
+ *             printf("%s\n",lastjob);
+ *     }
+ * }
+ * @endcode
+ * @return 
+**/
+CALL_SCILAB_IMPEXP BOOL GetLastJob(char *JOB,int nbcharsJOB);
+
+/**
+* This procedure is the entry point to Scilab's event loop 
+*/
+CALL_SCILAB_IMPEXP void ScilabDoOneEvent(void);
+
+/**
+ * Get the information is a graphic windows is opened or not
+ * @Return Returns TRUE if a graphic windows is opened 
+*/
+CALL_SCILAB_IMPEXP int ScilabHaveAGraph(void);
+
+/********************* DATATYPES MANAGEMENT FUNCTIONS ************/
+
+/****** READ FUNCTIONS ******/
+
+/** 
+ * This function is now obsolete
+ * please us creadmat 
+ */
+int C2F(readmat) (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
+
+
+/**
+ * Read a matrix in scilab's internal memory 
+ * calling sequence 
+ *     logic=creadmat('matrixname',m,n,scimat)
+ * @example
+ *    Amat is a real 2 x 3 scilab matrix 
+ *    your subroutine should be as follows: 
+ *    subroutine mysubr(...) 
+ *    ... 
+ * @code
+ *    call creadmat('Amat',m,n,scimat) 
+ *    => m=3 , n=2, and scimat(1)=Amat(1,1) 
+ *                      scimat(2)=Amat(2,1) 
+ *                      scimat(3)=Amat(3,1) 
+ *                      scimat(4)=Amat(1,2) ... 
+ *                      scimat(5)=Amat(3,2) 
+ *                      scimat(6)=Amat(3,2) 
+ * @endcode
+ * @param name__ character string; name of the scilab variable. 
+ * @param m number of rows
+ * @param n number of columns
+ * @param scimat  matrix entries stored columnwise
+ * @param name_len
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(creadmat) (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
+
+/**
+ * Read a boolean matrix in scilab's memory
+ * calling sequence 
+ *     logic=creadbmat('matrixname',m,n,scimat)
+ * @example
+ *    Amat is a real 2 x 3 scilab matrix 
+ *    your subroutine should be as follows: 
+ *    subroutine mysubr(...) 
+ *    ... 
+ * @code
+ *    call creadbmat('Amat',m,n,scimat) 
+ *    => m=3 , n=2, and scimat(1)=Amat(1,1) 
+ *                      scimat(2)=Amat(2,1) 
+ *                      scimat(3)=Amat(3,1) 
+ *                      scimat(4)=Amat(1,2) ... 
+ *                      scimat(5)=Amat(3,2) 
+ *                      scimat(6)=Amat(3,2) 
+ * @endcode
+ * @param name__ character string; name of the scilab variable. 
+ * @param m number of rows
+ * @param n number of columns
+ * @param scimat boolean matrix entries stored columnwise
+ * @param name_len
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(creadbmat)(char *namex, int *m, int *n, int *scimat, unsigned long name_len);
+
+/**
+ * Read a matrix of complex from Scilab memory 
+ */
+int C2F(creadcmat) (char *name__, int *m, int *n, double *scimat, unsigned long name_len);
+
+/** 
+ * This function is now obsolete
+ * please us creadchain
+ */
+int C2F(readchain) (char *name__, int *itslen, char *characterString, unsigned long name_len, unsigned long characterString_len);
+
+/**
+ * Read a string in scilab's memory
+ * calling sequence 
+ *     logic=creadchain('matrixname',size,string)
+ * @param name__ character string; name of the scilab variable. 
+ * @param itslen lenght of the string
+ * @param chai the future string
+ * @param name_len strlen of name__ (fortran needs it)
+ * @param chai_len strlen of chai (fortran needs it)
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(creadchain)  (char *name__, int *itslen, char *characterString, unsigned long name_len, unsigned long characterString_len);
+
+/**
+ * Read a string from a matrix of string in scilab's internal memory 
+ * calling sequence 
+ *     logic=creadchains('matrixname',size,string)
+ * @param name__ character string; name of the scilab variable. 
+ * @param indiceRow The row position
+ * @param indiceCol The column position
+ * @param itslen The length of the retrieved string
+ * @param chai the string retrieved
+ * @param name_len strlen of name (fortran needs it)
+ * @param chai_len strlen of chai (fortran needs it)
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(creadchains)  (char *name__, int *indiceRow, int *indiceCol, int *itslen, char *chai, unsigned long name_len, unsigned long chai_len);
+
+
+/****** QUERY FUNCTIONS ******/
+/**
+* Get length of strings by name
+* @param[in] name_ name of the scilab variable
+* @param[out] m number of rows of the matrix 
+* @param[out] n number of columns of the matrix 
+* @return array of length or NULL
+*/
+int *GetLengthStringMatrixByName(char *name_, int *m, int *n);
+
+/**
+ * Get pointer on a named matrix 
+ * @param namex the name of the Scilab variable
+ * @param m number of rows of the matrix 
+ * @param n number of columns of the matrix 
+ * @param lp
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+*/
+int C2F(matptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
+
+/**
+ * Get pointer on a named matrix 
+ * @param namex the name of the Scilab variable
+ * @param m number of rows of the matrix 
+ * @param n number of columns of the matrix 
+ * @param lp
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+*/
+int C2F(cmatptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
+
+/**
+ * Get pointer on a named complex matrix 
+ * @param namex the name of the Scilab variable
+ * @param m number of rows of the matrix 
+ * @param n number of columns of the matrix 
+ * @param lp
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+*/
+int C2F(cmatcptr)  (char *name__, int *m, int *n, int *lp, unsigned long name_len);
+
+/**
+ * Get pointer on a named string matrix 
+ * @param namex the name of the Scilab variable
+ * @param m number of rows of the matrix 
+ * @param n number of columns of the matrix 
+ * @param ix
+ * @param j
+ * @param lp
+ * @param nlr
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+*/
+int C2F(cmatsptr)  (char *name__, int *m, int *n, int *ix, int *j, int *lp, int *nlr, unsigned long name_len);
+
+
+/**
+ * Get pointer on a named boolean matrix 
+ * @param namex the name of the Scilab variable
+ * @param m number of rows of the matrix 
+ * @param n number of columns of the matrix 
+ * @param lp
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+*/
+int C2F(cmatbptr)(char *namex, int *m,int *n,int *lp, unsigned long name_len);
+
+
+/**
+ * Returns length of a "chain variable" in scilab
+ * example :
+ * in scilab --> str = "abcdefghijklmnopqrstuvwxyz";
+ * in C getlengthchain("str") returns 26
+ * @param namex
+ * @return  -1 if error
+*/ 
+int getlengthchain(char *namex);
+
+
+/****** WRITE FUNCTIONS ******/
+/**
+ * cwritemat writes vector/matrix in scilab's memory
+ * logic=cwritemat('matrixname'//char(0),m,n,mat)
+ * @param name__ character string; name of the scilab variable ( null terMinated) 
+ * @param m number of rows 
+ * @param n number of columns 
+ * @param mat matrix entries stored columnwise in Scilab object
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(cwritemat)  (char *name__, int *m, int *n, double *mat, unsigned long name_len);
+
+
+/**
+ * cwritecmat writes vector/matrix of complex in scilab's memory
+ * logic=cwritecmat('matrixname'//char(0),m,n,mat)
+ * @param name__ character string; name of the scilab variable ( null terMinated) 
+ * @param m number of rows 
+ * @param n number of columns 
+ * @param mat complex matrix entries stored columnwise in Scilab object
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(cwritecmat)  (char *name__, int *m, int *n, double *mat, unsigned long name_len);
+
+
+/**
+ * Write a string into the Scilab memory
+ *
+ * @param name__ name of the scilab variable
+ * @param m length of the string itself
+ * @param chai the string itself
+ * @param name_len strlen of name__ (fortran needs it)
+ * @param chai_len strlen of chai (fortran needs it)
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(cwritechain)  (char *name__, int *m, char *chai, unsigned long name_len, unsigned long chai_len);
+
+/**
+ * cwritemat writes vector/matrix of boolean in scilab's memory
+ * logic=cwritebmat('matrixname'//char(0),m,n,mat)
+ * @code
+ *     int A[]={1,0,0,1};   // Declare the matrix 
+ * // NOTE that it is an array of int and not an array of double 
+ *             int rowA=1, colA=4; // Size of the matrix 
+ *     char variableName[]="A";
+ *
+ *     C2F(cwritebmat)(variableName, &rowA, &colA, A,strlen(variableName)); // Write it into Scilab's memory 
+ * @endcode
+ * @param name__ character string; name of the scilab variable ( null terMinated) 
+ * @param m number of rows 
+ * @param n number of columns 
+ * @param mat boolean matrix entries stored columnwise in Scilab object
+ * @param name_len strlen of name__ (Fortran needs it)
+ * @return if the operation successed (true) or not (false)
+ */
+int C2F(cwritebmat)(char *namex, int *m, int *n, int *mat, unsigned long name_len);
+
+int C2F(str2name)  (char *name__, int *id, unsigned long name_len);
+int C2F(objptr)  (char *name__, int *lp, int *fin, unsigned long name_len);
+
+#ifdef __cplusplus
+}
+#endif
+/*--------------------------------------------------------------------------*/
+#endif /* __CALL_SCILAB_H__ */
+/*--------------------------------------------------------------------------*/
index edf9a0d..a56f898 100644 (file)
@@ -12,7 +12,7 @@
  */
 #include <stdio.h>
 #include <string.h>
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "MALLOC.h"
 #include "scirun.h"
 #include "localization.h"
@@ -31,7 +31,7 @@ static BOOL CleanBuffers(char *bufCommands,char **LOCALJOBS,int numberjobs);
 static BOOL SetLastJob(char *JOB);
 static char *lastjob = NULL;
 /*--------------------------------------------------------------------------*/
-/* see CallScilab.h more informations*/
+/* see call_scilab.h more informations*/
 /*--------------------------------------------------------------------------*/
 int SendScilabJob(char *job)
 {
@@ -10,7 +10,7 @@
  *
  */
 #include <stdio.h>
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "MALLOC.h"
 #include "scilabmode.h"
 #include "fromc.h"
index 1ed75ef..4097dd9 100644 (file)
                                >
                        </File>
                        <File
-                               RelativePath=".\callDynamicGateway.c"
+                               RelativePath="..\..\..\call_scilab\src\c\call_scilab.c"
                                >
                        </File>
                        <File
-                               RelativePath=".\callFunctionFromGateway.c"
+                               RelativePath=".\callDynamicGateway.c"
                                >
                        </File>
                        <File
-                               RelativePath=".\callinterf.c"
+                               RelativePath=".\callFunctionFromGateway.c"
                                >
                        </File>
                        <File
-                               RelativePath="..\..\..\call_scilab\src\c\CallScilab.c"
+                               RelativePath=".\callinterf.c"
                                >
                        </File>
                        <File
index edf1c8a..c979fe8 100644 (file)
@@ -37,7 +37,7 @@
 #include "Scierror.h"
 #include "localization.h"
 #include "callinterf.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "recursionFunction.h"
 #include "doublecomplex.h"
 #include "libinter.h"
index e1916a9..c8744f2 100644 (file)
@@ -21,7 +21,7 @@
 #include <string.h>
 #include "stack-c.h"
 
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "cvstr.h"
 #include "localization.h"
 #include "Scierror.h"
index c4b3bee..9171127 100644 (file)
@@ -19,7 +19,7 @@
 #ifdef _MSC_VER
 #include "strdup_windows.h"
 #endif
-#include "CallScilab.h"
+#include "call_scilab.h"
 /*--------------------------------------------------------------------------*/
 static int getnumberoflibraries(void);
 /*--------------------------------------------------------------------------*/
index cede1cb..5dd935e 100644 (file)
@@ -23,7 +23,7 @@
 #include "strdup_windows.h"
 #endif
 #include "charEncoding.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 /*--------------------------------------------------------------------------*/
 char *getlibrarypath(char *libraryname)
 {
index ae02879..a2aa7af 100644 (file)
@@ -21,7 +21,7 @@ extern "C"
 #include "localization.h"
 #include "sciprint.h"
 #include "api_scilab.h"
-#include "../../call_scilab/includes/CallScilab.h"
+#include "../../../call_scilab/includes/call_scilab.h"
 #include "h5_fileManagement.h"
 #include "h5_readDataFromFile.h"
 #include "intmacr2tree.h"
index 1d689d2..cd8d69c 100644 (file)
@@ -20,7 +20,7 @@
 #include "tmpdir.h"
 #include "scirun.h"
 #include "sciquit.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "fromjava.h"
 #include "MALLOC.h"
 /*--------------------------------------------------------------------------*/
index 24dc348..92eeaf5 100644 (file)
@@ -14,7 +14,7 @@
 #include <string.h>
 #include "javasci_SciAbstractArray.h"
 #include "javasci_globals.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "api_common.h"
 #include "api_string.h"
 #include "api_double.h"
index 8817e55..e61474c 100644 (file)
@@ -12,7 +12,7 @@
 /*--------------------------------------------------------------------------*/
 #include <stdio.h>
 #include "javasci_Scilab.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "api_common.h"
 #include "../../../modules/graphics/includes/WindowList.h"
 /*--------------------------------------------------------------------------*/
index 9f090ea..bb57d2c 100644 (file)
@@ -14,7 +14,7 @@
 /*--------------------------------------------------------------------------*/
 #include <string.h>
 #include "javasci_Scilab2.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "api_common.h"
 #include "api_double.h"
 #include "api_string.h"
index e780372..2dfe4f8 100644 (file)
@@ -66,7 +66,7 @@
 #include "erro.h"
 #include "localization.h"
 #include "Scierror.h"
-#include "CallScilab.h"
+#include "call_scilab.h"
 
 static char *the_current_mex_name;