##########
### SOURCES ###
-API_SCILAB_C_SOURCES = src/c/api_boolean.c \
-src/c/api_boolean_sparse.c \
-src/c/api_common.c \
-src/c/api_double.c \
-src/c/api_int.c \
-src/c/api_list.c \
-src/c/api_poly.c \
-src/c/api_sparse.c \
-src/c/api_string.c \
-src/c/api_pointer.c
+
+
+API_SCILAB_CPP_SOURCES = src/cpp/api_boolean.cpp \
+src/cpp/api_boolean_sparse.cpp \
+src/cpp/api_common.cpp \
+src/cpp/api_double.cpp \
+src/cpp/api_int.cpp \
+src/cpp/api_list.cpp \
+src/cpp/api_poly.cpp \
+src/cpp/api_sparse.cpp \
+src/cpp/api_string.cpp \
+src/cpp/api_pointer.cpp
libsciapi_scilab_la_CFLAGS=-I$(srcdir)/includes/ \
-I$(top_srcdir)/modules/output_stream/includes \
-I$(top_srcdir)/modules/string/includes
+libsciapi_scilab_la_CPPFLAGS=-I$(srcdir)/includes/ \
+-I$(srcdir)/src/cpp/ \
+-I$(top_srcdir)/modules/core/includes \
+-I$(top_srcdir)/modules/call_scilab/includes \
+-I$(top_srcdir)/libs/MALLOC/includes/ \
+-I$(top_srcdir)/modules/localization/includes \
+-I$(top_srcdir)/modules/output_stream/includes \
+-I$(top_srcdir)/modules/string/includes
+
pkglib_LTLIBRARIES = libsciapi_scilab.la
libsciapi_scilab_la_LDFLAGS = -version-info $(SCILAB_LIBRARY_VERSION)
-libsciapi_scilab_la_SOURCES = $(API_SCILAB_C_SOURCES) $(GATEWAY_C_SOURCES)
+libsciapi_scilab_la_SOURCES = $(API_SCILAB_C_SOURCES) $(API_SCILAB_CPP_SOURCES) $(GATEWAY_C_SOURCES)
# For the code check (splint)
CHECK_SRC= $(libsciapi_scilab_la_SOURCES)
-INCLUDE_FLAGS = $(libsciapi_scilab_la_CFLAGS)
+INCLUDE_FLAGS = $(libsciapi_scilab_la_CFLAGS)
libsciapi_scilab_la_LIBADD = $(top_builddir)/modules/core/libscicore.la
UniqueIdentifier="{4FC737F1-C7A5-4376-A066-2A32D752A2FF}"
>
<File
- RelativePath=".\src\c\api_boolean.cpp"
+ RelativePath=".\src\cpp\api_boolean.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_boolean_sparse.cpp"
+ RelativePath=".\src\cpp\api_boolean_sparse.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_common.cpp"
+ RelativePath=".\src\cpp\api_common.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_double.cpp"
+ RelativePath=".\src\cpp\api_double.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_int.cpp"
+ RelativePath=".\src\cpp\api_int.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_list.cpp"
+ RelativePath=".\src\cpp\api_list.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_pointer.cpp"
+ RelativePath=".\src\cpp\api_pointer.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_poly.cpp"
+ RelativePath=".\src\cpp\api_poly.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_sparse.cpp"
+ RelativePath=".\src\cpp\api_sparse.cpp"
>
</File>
<File
- RelativePath=".\src\c\api_string.cpp"
+ RelativePath=".\src\cpp\api_string.cpp"
>
</File>
<File
>
</File>
<File
- RelativePath=".\src\c\api_internal_boolean.h"
+ RelativePath=".\src\cpp\api_internal_boolean.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_boolean_sparse.h"
+ RelativePath=".\src\cpp\api_internal_boolean_sparse.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_common.h"
+ RelativePath=".\src\cpp\api_internal_common.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_double.h"
+ RelativePath=".\src\cpp\api_internal_double.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_int.h"
+ RelativePath=".\src\cpp\api_internal_int.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_pointer.h"
+ RelativePath=".\src\cpp\api_internal_pointer.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_poly.h"
+ RelativePath=".\src\cpp\api_internal_poly.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_sparse.h"
+ RelativePath=".\src\cpp\api_internal_sparse.h"
>
</File>
<File
- RelativePath=".\src\c\api_internal_string.h"
+ RelativePath=".\src\cpp\api_internal_string.h"
>
</File>
<File
#include "Scierror.h"
/*--------------------------------------------------------------------------*/
/* Defined in SCI/modules/core/src/fortran/cvname.f */
+extern "C" {
extern int C2F(cvnamel)(int *id,char *str,int *jobptr,int *str_len);
/* *jobptr==0: Get Scilab codes from C-string */
/* *jobptr==1: Get C-string from Scilab codes */
extern int C2F(stackp)(int *,int *);
+};
/*--------------------------------------------------------------------------*/
#define idstk(x,y) (C2F(vstk).idstk+(x-1)+(y-1)*nsiz)
#define CvNameL(id,str,jobptr,str_len) C2F(cvnamel)(id,str,jobptr,str_len);
case SCI_UINT8 :
{
unsigned char* pucData = NULL;
- iRet = getMatrixOfInteger8(_piAddress, &iRows, &iCols, &pucData);
+ iRet = getMatrixOfUnsignedInteger8(_piAddress, &iRows, &iCols, &pucData);
if(iRet)
{
return 1;
case SCI_UINT16 :
{
unsigned short* pusData = NULL;
- iRet = getMatrixOfInteger16(_piAddress, &iRows, &iCols, &pusData);
+ iRet = getMatrixOfUnsignedInteger16(_piAddress, &iRows, &iCols, &pusData);
if(iRet)
{
return 1;
case SCI_UINT32 :
{
unsigned int* puiData = NULL;
- iRet = getMatrixOfInteger32(_piAddress, &iRows, &iCols, &puiData);
+ iRet = getMatrixOfUnsignedInteger32(_piAddress, &iRows, &iCols, &puiData);
if(iRet)
{
return 1;
return 1;
}
- iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT8, _iRows, _iCols, (void*)&pcData8);
+ iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT8, _iRows, _iCols, (void**)&pcData8);
if(iRet)
{
return 1;
return 1;
}
- iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT16, _iRows, _iCols, (void*)&psData16);
+ iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT16, _iRows, _iCols, (void**)&psData16);
if(iRet)
{
return 1;
return 1;
}
- iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT32, _iRows, _iCols, (void*)&piData32);
+ iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT32, _iRows, _iCols, (void**)&piData32);
if(iRet)
{
return 1;
return 1;
}
- iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_UINT8, _iRows, _iCols, (void*)&pucData8);
+ iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_UINT8, _iRows, _iCols, (void**)&pucData8);
if(iRet)
{
return 1;
return 1;
}
- iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_UINT16, _iRows, _iCols, (void*)&pusData16);
+ iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_UINT16, _iRows, _iCols, (void**)&pusData16);
if(iRet)
{
return 1;
return 1;
}
- iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT32, _iRows, _iCols, (void*)&puiData32);
+ iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT32, _iRows, _iCols, (void**)&puiData32);
if(iRet)
{
return 1;
int allocMatrixOfUnsignedInteger8InList(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, unsigned char** _pucData)
{
- return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT8, _iRows, _iCols, _pucData);
+ return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT8, _iRows, _iCols, (void **)_pucData);
}
int allocMatrixOfUnsignedInteger16InList(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, unsigned short** _pusData)
{
- return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT16, _iRows, _iCols, _pusData);
+ return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT16, _iRows, _iCols, (void**)_pusData);
}
int allocMatrixOfUnsignedInteger32InList(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, unsigned int** _puiData)
{
- return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT32, _iRows, _iCols, _puiData);
+ return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT32, _iRows, _iCols, (void**)_puiData);
}
int allocMatrixOfInteger8InList(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, char** _pcData)
{
- return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT8, _iRows, _iCols, _pcData);
+ return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT8, _iRows, _iCols, (void**)_pcData);
}
int allocMatrixOfInteger16InList(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, short** _psData)
{
- return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT16, _iRows, _iCols, _psData);
+ return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT16, _iRows, _iCols, (void**)_psData);
}
int allocMatrixOfInteger32InList(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, int** _piData)
{
- return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT32, _iRows, _iCols, _piData);
+ return allocCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT32, _iRows, _iCols, (void**)_piData);
}
static int createCommomMatrixOfIntegerInList(int _iVar, int* _piParent, int _iItemPos, int _iPrecision, int _iRows, int _iCols, void* _pvData)
int getMatrixOfUnsignedInteger8InList(int _iVar, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, unsigned char** _pucData)
{
- return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT8, _piRows, _piCols, _pucData);
+ return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT8, _piRows, _piCols, (void**)_pucData);
}
int getMatrixOfUnsignedInteger16InList(int _iVar, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, unsigned short** _pusData)
{
- return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT16, _piRows, _piCols, _pusData);
+ return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT16, _piRows, _piCols, (void**)_pusData);
}
int getMatrixOfUnsignedInteger32InList(int _iVar, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, unsigned int** _puiData)
{
- return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT32, _piRows, _piCols, _puiData);
+ return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_UINT32, _piRows, _piCols, (void**)_puiData);
}
int getMatrixOfInteger8InList(int _iVar, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, char** _pcData)
{
- return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT8, _piRows, _piCols, _pcData);
+ return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT8, _piRows, _piCols, (void**)_pcData);
}
int getMatrixOfInteger16InList(int _iVar, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, short** _psData)
{
- return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT16, _piRows, _piCols, _psData);
+ return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT16, _piRows, _piCols, (void**)_psData);
}
int getMatrixOfInteger32InList(int _iVar, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, int** _piData)
{
- return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT32, _piRows, _piCols, _piData);
+ return getCommonMatrixOfIntegerInList(_iVar, _piParent, _iItemPos, SCI_INT32, _piRows, _piCols, (void**)_piData);
}
static int createCommonMatrixOfIntegerInNamedList(char* _pstName, int* _piParent, int _iItemPos, int _iPrecision, int _iRows, int _iCols, void* _pvData)