update intersci_.ntypes after reading to let putlhsvar do his job 2 50/10050/3
Antoine ELIAS [Mon, 15 Oct 2012 09:53:35 +0000 (11:53 +0200)]
Add function to alloc matrix of doublecomplex

test_run("arnoldi", "eigs") to check

Change-Id: I8205da4402c189499cb8f0e29f6a5f7e4a0fe80f
(cherry picked from commit 81a19ae49dff640fb20ba0989eb1701e6762f716)

20 files changed:
scilab/modules/api_scilab/api_scilab.vcxproj
scilab/modules/api_scilab/core_Import.def
scilab/modules/api_scilab/help/en_US/low_level_functions/double_writing_api.xml
scilab/modules/api_scilab/includes/api_double.h
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_internal_double.h
scilab/modules/api_scilab/src/cpp/api_list.cpp
scilab/modules/arnoldi/macros/eigs.sci
scilab/modules/arnoldi/sci_gateway/c/sci_eigs.c
scilab/modules/core/Makefile.am
scilab/modules/core/Makefile.in
scilab/modules/core/src/c/core.vcxproj
scilab/modules/core/src/c/core.vcxproj.filters
scilab/modules/core/src/c/sci_tools.c [moved from scilab/modules/elementary_functions/src/c/sci_tools.c with 99% similarity]
scilab/modules/elementary_functions/Makefile.am
scilab/modules/elementary_functions/Makefile.in
scilab/modules/elementary_functions/includes/sci_tools.h [deleted file]
scilab/modules/elementary_functions/src/c/elementary_functions.vcxproj
scilab/modules/elementary_functions/src/c/elementary_functions.vcxproj.filters

index b135a15..f8c7940 100644 (file)
@@ -76,7 +76,7 @@
   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
     <ClCompile>
       <Optimization>Disabled</Optimization>
-      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;_DEBUG;_WINDOWS;_USRDLL;API_SCILAB_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary>
       <WarningLevel>Level3</WarningLevel>
@@ -116,7 +116,7 @@ lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform
     </Midl>
     <ClCompile>
       <Optimization>Disabled</Optimization>
-      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;_DEBUG;_WINDOWS;_USRDLL;API_SCILAB_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary>
       <WarningLevel>Level3</WarningLevel>
@@ -154,7 +154,7 @@ lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform
     <ClCompile>
       <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>
       <WholeProgramOptimization>false</WholeProgramOptimization>
-      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;NDEBUG;_WINDOWS;_USRDLL;API_SCILAB_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <StringPooling>true</StringPooling>
       <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary>
@@ -200,7 +200,7 @@ lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform
     <ClCompile>
       <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>
       <WholeProgramOptimization>false</WholeProgramOptimization>
-      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src/c;../core/includes;../call_scilab/includes;../string/includes;../../libs/MALLOC/includes;../output_stream/includes;../localization/includes;../../libs/intl;../windows_tools/includes;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;NDEBUG;_WINDOWS;_USRDLL;API_SCILAB_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <StringPooling>true</StringPooling>
       <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary>
index dc643ad..e5f71b1 100644 (file)
@@ -17,3 +17,7 @@ oGetDoubleComplexFromPointer
 getExecMode
 getstackinfo_
 freeArrayOfString
+isopt_
+numopt_
+SciToF77
+
index 6be9c5c..407bf13 100644 (file)
         <para>Input argument profile:</para>
         <synopsis>SciErr allocMatrixOfDouble(void* _pvCtx, int _iVar, int _iRows, int _iCols, double** _pdblReal)</synopsis>
         <synopsis>SciErr allocComplexMatrixOfDouble(void* _pvCtx, int _iVar, int _iRows, int _iCols, double** _pdblReal, double** _pdblImg)</synopsis>
+        <synopsis>SciErr allocComplexZMatrixOfDouble(void* _pvCtx, int _iVar, int _iRows, int _iCols, double** _pdblReal, doublecomplex** _pdblData)</synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Arguments</title>
                 </listitem>
             </varlistentry>
             <varlistentry>
+                <term>_pdblData</term>
+                <listitem>
+                    <para>
+                        Returns address of doublecomplex data array (size: _iCols * _iRows).
+                        This argument exists only in allocComplexZMatrixOfDouble.
+                    </para>
+                </listitem>
+            </varlistentry>
+            <varlistentry>
                 <term>SciErr</term>
                 <listitem>
                     <para>
index 2a9d5c5..d519092 100644 (file)
@@ -119,6 +119,17 @@ extern "C" {
      */
     SciErr allocComplexMatrixOfDoubleAsInteger(void* _pvCtx, int _iVar, int _iRows, int _iCols, int** _piReal, int** _piImg);
 
+
+    /**
+     * Allocate a doublecomplex variable
+     * @param[in] _iVar variable number
+     * @param[in] _iRows number of rows
+     * @param[in] _iCols number of columns
+     * @param[out] _pdblData return pointer to doublecomplex data
+     * @return if the operation succeeded ( 0 ) or not ( !0 )
+     */
+    SciErr allocComplexZMatrixOfDouble(void* _pvCtx, int _iVar, int _iRows, int _iCols, const doublecomplex** _pdblData);
+
     /**
      * Create a double variable
      * @param[in] _iVar variable number
index 7e4376a..10fbdac 100644 (file)
@@ -21,6 +21,7 @@
 #include "call_scilab.h"
 #include "stackinfo.h"
 #include "Scierror.h"
+#include "sciprint.h"
 #include "localization.h"
 #include "MALLOC.h"
 
@@ -46,6 +47,9 @@ extern "C"
 /*--------------------------------------------------------------------------*/
 #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);
+
+static SciErr getinternalVarAddress(void* _pvCtx, int _iVar, int** _piAddress);
+
 /*--------------------------------------------------------------------------*/
 /* Replaces Rhs */
 int* getNbInputArgument(void* _pvCtx)
@@ -198,7 +202,7 @@ int checkOutputArgumentAtMost(void* _pvCtx, int _iMax)
 int callOverloadFunction(void* _pvCtx, int _iVar, char* _pstName, unsigned int _iNameLen)
 {
     int iVar = 0;
-    if(_iVar != 0)
+    if (_iVar != 0)
     {
         iVar = _iVar + Top - Rhs;
     }
@@ -265,6 +269,21 @@ SciErr getVarAddressFromPosition(void *_pvCtx, int _iVar, int **_piAddress)
     SciErr sciErr;
     sciErr.iErr = 0;
     sciErr.iMsgCount = 0;
+
+    sciErr = getinternalVarAddress(_pvCtx, _iVar, _piAddress);
+
+    //sciprint("type : %d(%c)\n", (*_piAddress)[0], intersci_.ntypes[_iVar - 1]);
+    //update variable state to "read
+    intersci_.ntypes[_iVar - 1] = '$';
+    return sciErr;
+}
+
+/*--------------------------------------------------------------------------*/
+static SciErr getinternalVarAddress(void *_pvCtx, int _iVar, int **_piAddress)
+{
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iAddr = 0;
     int iValType = 0;
 
@@ -284,10 +303,8 @@ SciErr getVarAddressFromPosition(void *_pvCtx, int _iVar, int **_piAddress)
     }
 
     *_piAddress = istk(iAddr);
-    intersci_.ntypes[_iVar - 1] = '$';
     return sciErr;
 }
-
 /*--------------------------------------------------------------------------*/
 SciErr getVarNameFromPosition(void *_pvCtx, int _iVar, char *_pstName)
 {
@@ -537,7 +554,8 @@ SciErr getProcessMode(void *_pvCtx, int _iPos, int *_piAddRef, int *_piMode)
         return sciErr;
     }
 
-    sciErr = getVarAddressFromPosition(_pvCtx, _iPos, &piAddr2);
+    //sciprint("getProcessMode ->");
+    sciErr = getinternalVarAddress(_pvCtx, _iPos, &piAddr2);
     if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_GET_PROCESSMODE, _("%s: Unable to get variable address"), "getProcessMode");
@@ -616,18 +634,28 @@ SciErr getProcessMode(void *_pvCtx, int _iPos, int *_piAddRef, int *_piMode)
     }
 
     if (iMode == ROW_LETTER || iMode == BY_ROWS)
+    {
         *_piMode = BY_ROWS;
+    }
     else if (iMode == COL_LETTER || iMode == BY_COLS)
+    {
         *_piMode = BY_COLS;
+    }
     else if (iMode == STAR_LETTER || iMode == BY_ALL)
+    {
         *_piMode = BY_ALL;
+    }
     else if (iMode == MTLB_LETTER || iMode == BY_MTLB)
     {
         *_piMode = 0;
         if (iRows1 > 1)
+        {
             *_piMode = 1;
+        }
         else if (iCols1 > 1)
+        {
             *_piMode = 2;
+        }
     }
     else
     {
@@ -825,7 +853,8 @@ int getRhsFromAddress(void *_pvCtx, int *_piAddress)
 
     for (i = 0; i < Rhs; i++)
     {
-        getVarAddressFromPosition(_pvCtx, i + 1, &piAddr);
+        //sciprint("getRhsFromAddress ->");
+        getinternalVarAddress(_pvCtx, i + 1, &piAddr);
         if (_piAddress == piAddr)
         {
             return i + 1;
@@ -1229,14 +1258,15 @@ int getInputArgumentType(void* _pvCtx, int _iVar)
     int* piAddr = NULL;
     int iType = 0;
 
-    sciErr = getVarAddressFromPosition(_pvCtx, _iVar, &piAddr);
-    if(sciErr.iErr)
+    //sciprint("getInputArgumentType ->");
+    sciErr = getinternalVarAddress(_pvCtx, _iVar, &piAddr);
+    if (sciErr.iErr)
     {
         return 0;
     }
 
     sciErr = getVarType(_pvCtx, piAddr, &iType);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         return 0;
     }
@@ -1344,21 +1374,36 @@ int checkNamedVarFormat(void* _pvCtx, const char *_pstName)
     int iRet = 1;
 
     // check pointer
-    if (_pstName == NULL) iRet = 0;
+    if (_pstName == NULL)
+    {
+        iRet = 0;
+    }
 
     // check length _pstName =< nlgh
-    if ((strlen(_pstName) == 0 || strlen(_pstName) > nlgh)) iRet = 0;
+    if ((strlen(_pstName) == 0 || strlen(_pstName) > nlgh))
+    {
+        iRet = 0;
+    }
 
     // forbidden characters
-    if (strpbrk(_pstName, FORBIDDEN_CHARS) != NULL) iRet = 0;
+    if (strpbrk(_pstName, FORBIDDEN_CHARS) != NULL)
+    {
+        iRet = 0;
+    }
 
     // variable does not begin by a digit
-    if (isdigit(_pstName[0])) iRet = 0;
+    if (isdigit(_pstName[0]))
+    {
+        iRet = 0;
+    }
 
     // check that we have only ascii characters
     for (int i = 0; i < (int)strlen(_pstName); i++)
     {
-        if (!isascii(_pstName[i])) iRet = 0;
+        if (!isascii(_pstName[i]))
+        {
+            iRet = 0;
+        }
         break;
     }
 
index 2ca9230..b2f6378 100644 (file)
@@ -13,6 +13,7 @@
 * still available and supported in Scilab 6.
 */
 
+#include <stdio.h>
 #include "api_scilab.h"
 #include "api_internal_common.h"
 #include "api_internal_double.h"
@@ -20,7 +21,6 @@
 
 #include "call_scilab.h"
 
-
 extern int C2F(entier)(int *n, double *d__, int *s);
 extern int C2F(icopy)(int *, int *, int *, int *, int *);
 /*******************************/
@@ -36,12 +36,12 @@ static int getCommonNamedScalarDouble(void* _pvCtx, const char* _pstName, int _i
 
 SciErr getMatrixOfDouble(void* _pvCtx, int* _piAddress, int* _piRows, int* _piCols, double** _pdblReal)
 {
-    return getCommonMatrixOfDouble(_pvCtx, _piAddress, 0, _piRows, _piCols, _pdblReal, NULL);
+    return getCommonMatrixOfDouble(_pvCtx, _piAddress, '$', 0, _piRows, _piCols, _pdblReal, NULL);
 }
 
 SciErr getComplexMatrixOfDouble(void* _pvCtx, int* _piAddress, int* _piRows, int* _piCols, double** _pdblReal, double** _pdblImg)
 {
-    return getCommonMatrixOfDouble(_pvCtx, _piAddress, 1, _piRows, _piCols, _pdblReal, _pdblImg);
+    return getCommonMatrixOfDouble(_pvCtx, _piAddress, '$', 1, _piRows, _piCols, _pdblReal, _pdblImg);
 }
 
 SciErr getComplexZMatrixOfDouble(void* _pvCtx, int* _piAddress, int* _piRows, int* _piCols, doublecomplex** _pdblZ)
@@ -49,17 +49,20 @@ SciErr getComplexZMatrixOfDouble(void* _pvCtx, int* _piAddress, int* _piRows, in
     SciErr sciErr;
     sciErr.iErr = 0;
     sciErr.iMsgCount = 0;
+    int iSize = 0;
     double *pdblReal = NULL;
     double *pdblImg     = NULL;
 
-    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, isVarComplex(_pvCtx, _piAddress), _piRows, _piCols, &pdblReal, &pdblImg);
+    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, 'z', isVarComplex(_pvCtx, _piAddress), _piRows, _piCols, &pdblReal, &pdblImg);
     if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_GET_ZDOUBLE, _("%s: Unable to get argument #%d"), "getComplexZMatrixOfDouble", getRhsFromAddress(_pvCtx, _piAddress));
         return sciErr;
     }
 
-    *_pdblZ    = oGetDoubleComplexFromPointer(pdblReal, pdblImg, *_piRows * *_piCols);
+    iSize = *_piRows * *_piCols;
+    SciToF77(pdblReal, iSize, iSize);
+    *_pdblZ    = (doublecomplex*)pdblReal;
     return sciErr;
 }
 
@@ -68,7 +71,7 @@ SciErr getMatrixOfDoubleAsInteger(void* _pvCtx, int* _piAddress, int* _piRows, i
     SciErr sciErr;
     double* pdblReal = NULL;
     int iSize = 0;
-    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, 0, _piRows, _piCols, &pdblReal, NULL);
+    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, 'i', 0, _piRows, _piCols, &pdblReal, NULL);
     if (sciErr.iErr)
     {
         return sciErr;
@@ -88,7 +91,7 @@ SciErr getComplexMatrixOfDoubleAsInteger(void* _pvCtx, int* _piAddress, int* _pi
     double* pdblReal = NULL;
     double* pdblImg  = NULL;
     int iSize = 0;
-    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, 1, _piRows, _piCols, &pdblReal, &pdblImg);
+    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, 'i', 1, _piRows, _piCols, &pdblReal, &pdblImg);
     if (sciErr.iErr)
     {
         return sciErr;
@@ -104,7 +107,7 @@ SciErr getComplexMatrixOfDoubleAsInteger(void* _pvCtx, int* _piAddress, int* _pi
     return sciErr;
 }
 
-SciErr getCommonMatrixOfDouble(void* _pvCtx, int* _piAddress, int _iComplex, int* _piRows, int* _piCols, double** _pdblReal, double** _pdblImg)
+SciErr getCommonMatrixOfDouble(void* _pvCtx, int* _piAddress, char _cType, int _iComplex, int* _piRows, int* _piCols, double** _pdblReal, double** _pdblImg)
 {
     SciErr sciErr;
     sciErr.iErr = 0;
@@ -138,6 +141,36 @@ SciErr getCommonMatrixOfDouble(void* _pvCtx, int* _piAddress, int _iComplex, int
     {
         *_pdblImg      = (double*)(_piAddress + 4) + *_piRows * *_piCols;
     }
+
+    if (_cType == 'i')
+    {
+        /*update to set view as integer*/
+        int iRhs = getRhsFromAddress(_pvCtx, _piAddress);
+        int iNewPos = Top - Rhs + iRhs;
+        int iAddr = *Lstk(iNewPos);
+        int iSCIAddress = sadr(iadr(iAddr) + 4);
+        iSCIAddress = iadr(iSCIAddress);
+        updateInterSCI(iRhs, _cType, iAddr, iSCIAddress);
+    }
+    else if (_cType == 'z')
+    {
+        int iRhs = getRhsFromAddress(_pvCtx, _piAddress);
+        int iNewPos = Top - Rhs + iRhs;
+        int iAddr = *Lstk(iNewPos);
+        int iSCIAddress = sadr(iadr(iAddr) + 4);
+
+        //printf("iRhs : %d\n", iRhs);
+        //printf("intersci_.ntypes : %c\n", intersci_.ntypes[iRhs - 1]);
+        //printf("intersci_.iwhere : %d\n", intersci_.iwhere[iRhs - 1]);
+        //printf("intersci_.lad : %d\n-----------------------\n", intersci_.lad[iRhs - 1]);
+
+        updateInterSCI(iRhs, _cType, iAddr, iSCIAddress);
+
+        //printf("intersci_.ntypes : %c\n", intersci_.ntypes[iRhs - 1]);
+        //printf("intersci_.iwhere : %d\n", intersci_.iwhere[iRhs - 1]);
+        //printf("intersci_.lad : %d\n\n", intersci_.lad[iRhs - 1]);
+    }
+
     return sciErr;
 }
 
@@ -195,7 +228,6 @@ SciErr allocMatrixOfDoubleAsInteger(void* _pvCtx, int _iVar, int _iRows, int _iC
     }
 
     *_piReal = (int*)pdblReal;
-
     return sciErr;
 }
 
@@ -250,6 +282,28 @@ SciErr allocCommonMatrixOfDouble(void* _pvCtx, int _iVar, char _cType, int _iCom
     return sciErr;
 }
 
+SciErr allocComplexZMatrixOfDouble(void* _pvCtx, int _iVar, int _iRows, int _iCols, const doublecomplex** _pdblData)
+{
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
+    double* pdblReal = NULL;
+    double* pdblImg = NULL;
+
+    sciErr = allocComplexMatrixOfDouble(_pvCtx, _iVar, _iRows, _iCols, &pdblReal, &pdblImg);
+    if (sciErr.iErr)
+    {
+        return sciErr;
+    }
+
+    //warning convert double* to doublecomplex*
+    *_pdblData = (doublecomplex*)pdblReal;
+
+    //strore storage information to putlhsvar
+    intersci_.ntypes[_iVar - 1] = 'z';
+    return sciErr;
+}
+
 SciErr fillCommonMatrixOfDouble(void* _pvCtx, int* _piAddress, int _iComplex, int _iRows, int _iCols, double** _pdblReal, double** _pdblImg)
 {
     SciErr sciErr;
@@ -518,7 +572,7 @@ SciErr readCommonNamedMatrixOfDouble(void* _pvCtx, const char* _pstName, int _iC
         return sciErr;
     }
 
-    sciErr = getCommonMatrixOfDouble(_pvCtx, piAddr, _iComplex, _piRows, _piCols, &pdblReal, &pdblImg);
+    sciErr = getCommonMatrixOfDouble(_pvCtx, piAddr, '$', _iComplex, _piRows, _piCols, &pdblReal, &pdblImg);
     if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_READ_NAMED_DOUBLE, _("%s: Unable to get variable \"%s\""), _iComplex ? "readNamedComplexMatrixOfDouble" : "readNamedMatrixOfDouble", _pstName);
@@ -574,7 +628,7 @@ static int getCommonScalarDouble(void* _pvCtx, int* _piAddress, int _iComplex, d
     double* pdblReal = NULL;
     double* pdblImg     = NULL;
 
-    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, _iComplex, &iRows, &iCols, &pdblReal, &pdblImg);
+    sciErr = getCommonMatrixOfDouble(_pvCtx, _piAddress, '$', _iComplex, &iRows, &iCols, &pdblReal, &pdblImg);
     if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_GET_SCALAR_DOUBLE, _("%s: Unable to get argument #%d"), _iComplex ? "getScalarComplexDouble" : "getScalarDouble", getRhsFromAddress(_pvCtx, _piAddress));
@@ -594,10 +648,14 @@ static int getCommonScalarDouble(void* _pvCtx, int* _piAddress, int _iComplex, d
         *_pdblReal     = pdblReal[0];
     }
 
-    if (_pdblImg != NULL)
+    if (_iComplex == 1 && _pdblImg != NULL && pdblImg != NULL)
     {
         *_pdblImg              = pdblImg[0];
     }
+    else if (_pdblImg != NULL)
+    {
+        *_pdblImg = 0;
+    }
 
     return 0;
 }
index 776007a..5df5432 100644 (file)
@@ -13,7 +13,7 @@
 #define __INTERNAL_DOUBLE_API__
 
 //internal double functions
-SciErr getCommonMatrixOfDouble(void* _pvCtx, int* _piAddress, int _iComplex, int* _piRows, int* _piCols, double** _pdblReal, double** _pdblImg);
+SciErr getCommonMatrixOfDouble(void* _pvCtx, int* _piAddress, char _cType, int _iComplex, int* _piRows, int* _piCols, double** _pdblReal, double** _pdblImg);
 SciErr allocCommonMatrixOfDouble(void* _pvCtx, int _iVar, char _cType, int _iComplex, int _iRows, int _iCols, double** _pdblReal, double** _pdblImg);
 SciErr fillCommonMatrixOfDouble(void* _pvCtx, int* _piAddress, int _iComplex, int _iRows, int _iCols, double** _pdblReal, double** _pdblImg);
 SciErr createCommonNamedMatrixOfDouble(void* _pvCtx, const char* _pstName, int _iComplex, int _iRows, int _iCols, const double* _pdblReal, const double* _pdblImg);
index 911fa28..7d6accc 100644 (file)
@@ -116,12 +116,13 @@ static void popListAddress(int _iRhsPos)
     {
         delete it->second->back();
         stackListPosition[_iRhsPos]->pop_back();
-        if(it->second->size() > 0 && it->second->back()->m_iLast == 1)
-        {//close cascade
+        if (it->second->size() > 0 && it->second->back()->m_iLast == 1)
+        {
+            //close cascade
             popListAddress(_iRhsPos);
         }
 
-        if(stackListPosition.find(_iRhsPos) != stackListPosition.end() && stackListPosition[_iRhsPos]->empty())
+        if (stackListPosition.find(_iRhsPos) != stackListPosition.end() && stackListPosition[_iRhsPos]->empty())
         {
             stackListPosition.erase(stackListPosition.find(_iRhsPos));
             //TODO : check to close list
@@ -142,7 +143,7 @@ static void popNamedListAddress(std::string _stNamedList)
             popNamedListAddress(_stNamedList);
         }
 
-        if(stackNamedListPosition.find(_stNamedList) != stackNamedListPosition.end() && stackNamedListPosition[_stNamedList]->empty())
+        if (stackNamedListPosition.find(_stNamedList) != stackNamedListPosition.end() && stackNamedListPosition[_stNamedList]->empty())
         {
             int iVarID[nsiz];
             stackNamedListPosition.erase(stackNamedListPosition.find(_stNamedList));
@@ -161,7 +162,7 @@ int* getLastListAddress(int _iRhsPos, int _iItemPos)
         return NULL;
     }
 
-    if(_iItemPos == it->second->back()->m_piAddr[1])
+    if (_iItemPos == it->second->back()->m_piAddr[1])
     {
         it->second->back()->m_iLast = 1;
     }
@@ -261,7 +262,9 @@ char* getListTypeName(int _iType)
 
 SciErr getListItemNumber(void* _pvCtx, int* _piAddress, int* _piNbItem)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iType = 0;
 
     sciErr = getVarType(_pvCtx, _piAddress, &iType);
@@ -286,7 +289,9 @@ SciErr getListItemNumber(void* _pvCtx, int* _piAddress, int* _piNbItem)
 
 SciErr getListItemAddress(void* _pvCtx, int* _piAddress, int _iItemNum, int** _piItemAddress)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iItem      = 0;
     int* piOffset    = NULL;
     int* piItemAddress = NULL;
@@ -367,7 +372,9 @@ SciErr createNamedMList(void* _pvCtx, const char* _pstName, int _iNbItem, int**
 
 static SciErr createCommonNamedList(void* _pvCtx, const char* _pstName, int _iListType, int _iNbItem, int** _piAddress)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs   = Rhs;
     int iSaveTop   = Top;
@@ -416,7 +423,9 @@ static SciErr createCommonNamedList(void* _pvCtx, const char* _pstName, int _iLi
 
 static SciErr createCommonList(void* _pvCtx, int _iVar, int _iListType, int _iNbItem, int** _piAddress)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int *piAddr   = NULL;
     int iNewPos   = Top - Rhs + _iVar;
     int iAddr    = *Lstk(iNewPos);
@@ -434,7 +443,7 @@ static SciErr createCommonList(void* _pvCtx, int _iVar, int _iListType, int _iNb
     updateInterSCI(_iVar, '$', iAddr, sadr(iadr(iAddr) + 2 + _iNbItem + 1 + !(_iNbItem % 2)));
     closeList(iNewPos, piAddr + 2 + _iNbItem + 1 + !(_iNbItem % 2));
 
-    if(_iNbItem != 0)
+    if (_iNbItem != 0)
     {
         pushListAddress(_iVar, piAddr);
     }
@@ -444,7 +453,9 @@ static SciErr createCommonList(void* _pvCtx, int _iVar, int _iListType, int _iNb
 
 SciErr fillCommonList(void* _pvCtx, int* _piAddress, int _iListType, int _iNbItem)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piOffset = NULL;
 
     _piAddress[0] = _iListType;
@@ -478,7 +489,9 @@ SciErr readNamedMList(void* _pvCtx, const char* _pstName, int* _piNbItem, int**
 
 static SciErr readCommonNamedList(void* _pvCtx, const char* _pstName, int _iListType, int* _piNbItem, int** _piAddress)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
     int iNbItem  = 0;
 
@@ -525,7 +538,9 @@ SciErr getMListInList(void* _pvCtx, int* _piParent, int _iItemPos, int** _piAddr
 
 SciErr getCommonListInList(void* _pvCtx, int* _piParent, int _iItemPos, int _iListType, int** _piAddress)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, _piAddress);
     if (sciErr.iErr)
@@ -559,7 +574,9 @@ SciErr getMListInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, i
 
 SciErr getCommomListInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int _iListType, int** _piAddress)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -596,13 +613,15 @@ SciErr createMListInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos,
 
 static SciErr createCommonListInList(void* _pvCtx, int _iVar, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iListType, int _iNbItem, int** _piAddress, int iNamed)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNewPos    = Top - Rhs + _iVar;
     int iNbItem    = 0;
     int* piChildAddr = NULL;
     int* piParent   = NULL;
 
-    if(iNamed)
+    if (iNamed)
     {
         piParent = getLastNamedListAddress(_pstName, _iItemPos);
     }
@@ -621,7 +640,7 @@ static SciErr createCommonListInList(void* _pvCtx, int _iVar, const char* _pstNa
     }
 
     sciErr = allocCommonItemInList(_pvCtx, piParent, _iItemPos, &piChildAddr);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_LIST_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createListInList", _iItemPos + 1);
         return sciErr;
@@ -644,8 +663,9 @@ static SciErr createCommonListInList(void* _pvCtx, int _iVar, const char* _pstNa
         closeList(iNewPos, piChildAddr + 2 + _iNbItem + 1 + !(_iNbItem % 2));
     }
 
-    if(_iNbItem == 0)
-    {//for empty list
+    if (_iNbItem == 0)
+    {
+        //for empty list
         int *piOffset   = piParent + 2;
         int* piEnd      = piChildAddr + 4;
 
@@ -657,15 +677,16 @@ static SciErr createCommonListInList(void* _pvCtx, int _iVar, const char* _pstNa
         else
         {
             updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
-            if(_iItemPos == piParent[1])
+            if (_iItemPos == piParent[1])
             {
                 popListAddress(_iVar);
             }
         }
     }
     else
-    {//not empty list
-        if(iNamed == 0)
+    {
+        //not empty list
+        if (iNamed == 0)
         {
             //add new child address in stacklist
             pushListAddress(_iVar, *_piAddress);
@@ -692,7 +713,9 @@ SciErr createMListInNamedList(void* _pvCtx, const char* _pstName, int* _piParent
 
 SciErr createCommonListInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iListType, int _iNbItem, int** _piAddress)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveTop    = Top;
     int* piParent   = getLastNamedListAddress(_pstName, _iItemPos);
@@ -730,7 +753,9 @@ SciErr createCommonListInNamedList(void* _pvCtx, const char* _pstName, int* /*_p
 
 SciErr allocCommonItemInList(void* _pvCtx, int* _piParent, int _iItemPos, int** _piChildAddr)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piOffset = NULL;
 
     //Does previous items was already inserted
@@ -757,7 +782,9 @@ SciErr allocCommonItemInList(void* _pvCtx, int* _piParent, int _iItemPos, int**
 ******************************/
 SciErr createVoidInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iNbItem         = 0;
     int iSaveRhs        = Rhs;
@@ -823,7 +850,9 @@ SciErr createVoidInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParen
 
 SciErr createUndefinedInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iNbItem         = 0;
     int iSaveRhs        = Rhs;
@@ -898,7 +927,9 @@ SciErr getComplexMatrixOfDoubleInList(void* _pvCtx, int* _piParent, int _iItemPo
 
 static SciErr getCommonMatrixOfDoubleInList(void* _pvCtx, int* _piParent, int _iItemPos, int _iComplex, int* _piRows, int* _piCols, double** _pdblReal, double** _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -908,7 +939,7 @@ static SciErr getCommonMatrixOfDoubleInList(void* _pvCtx, int* _piParent, int _i
         return sciErr;
     }
 
-    sciErr = getCommonMatrixOfDouble(_pvCtx, piAddr, _iComplex, _piRows, _piCols, _pdblReal, _pdblImg);
+    sciErr = getCommonMatrixOfDouble(_pvCtx, piAddr, '$', _iComplex, _piRows, _piCols, _pdblReal, _pdblImg);
     if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_GET_DOUBLE_IN_LIST, _("%s: Unable to get address of item #%d in argument #%d"), _iComplex ? "getComplexMatrixOfDoubleInList" : "getMatrixOfDoubleInList", _iItemPos + 1, getRhsFromAddress(_pvCtx, _piParent));
@@ -929,13 +960,15 @@ SciErr allocComplexMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* _piParent,
 
 static SciErr allocCommonMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, int _iComplex, int _iRows, int _iCols, double** _pdblReal, double** _pdblImg)
 {
-    SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNewPos     = Top - Rhs + _iVar;
     int* piEnd      = NULL;
     int* piParent   = getLastListAddress(_iVar, _iItemPos);
 
     sciErr = fillCommonMatrixOfDoubleInList(_pvCtx, _iVar, piParent, _iItemPos, _iComplex, _iRows, _iCols, _pdblReal, _pdblImg);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_ALLOC_DOUBLE_IN_LIST, _("%s: Unable to get address of item #%d in argument #%d"), _iComplex ? "allocComplexMatrixOfDoubleInList" : "allocMatrixOfDoubleInList", _iItemPos + 1, getRhsFromAddress(_pvCtx, piParent));
         return sciErr;
@@ -944,7 +977,7 @@ static SciErr allocCommonMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* /*_p
     piEnd = (int*) (*_pdblReal + _iRows * _iCols * (_iComplex + 1));
     closeList(iNewPos, piEnd);
 
-    if(_iItemPos == piParent[1])
+    if (_iItemPos == piParent[1])
     {
         updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
         popListAddress(_iVar);
@@ -955,7 +988,9 @@ static SciErr allocCommonMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* /*_p
 
 static SciErr fillCommonMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos, int _iComplex, int _iRows, int _iCols, double** _pdblReal, double** _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piOffset   = NULL;
     int* piChildAddr = NULL;
@@ -1007,7 +1042,9 @@ SciErr createComplexMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* _piParent
 
 SciErr createComplexZMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, const doublecomplex* _pdblData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     double *pdblReal = NULL;
     double *pdblImg  = NULL;
 
@@ -1025,12 +1062,14 @@ SciErr createComplexZMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* _piParen
 
 SciErr createCommonMatrixOfDoubleInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, int _iComplex, int _iRows, int _iCols, const double* _pdblReal, const double* _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     double *pdblReal = NULL;
     double *pdblImg  = NULL;
 
     sciErr = allocCommonMatrixOfDoubleInList(_pvCtx, _iVar, NULL/*_piParent*/, _iItemPos, _iComplex, _iRows, _iCols, &pdblReal, &pdblImg);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_DOUBLE_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), _iComplex ? "createComplexMatrixOfDoubleInList" : "createMatrixOfDoubleInList", _iItemPos + 1);
         return sciErr;
@@ -1060,7 +1099,9 @@ SciErr createComplexMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pstName
 
 SciErr createComplexZMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, const doublecomplex* _pdblData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -1115,7 +1156,9 @@ SciErr createComplexZMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pstNam
 
 SciErr createCommomMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iComplex, int _iRows, int _iCols, const double* _pdblReal, const double* _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -1184,7 +1227,9 @@ SciErr readComplexMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pstName,
 
 static SciErr readCommonMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int _iComplex, int* _piRows, int* _piCols, double* _pdblReal, double* _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
@@ -1213,7 +1258,7 @@ static SciErr readCommonMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pst
         return sciErr;
     }
 
-    sciErr = getCommonMatrixOfDouble(_pvCtx, piAddr, _iComplex, _piRows, _piCols, &pdblReal, &pdblImg);
+    sciErr = getCommonMatrixOfDouble(_pvCtx, piAddr, '$', _iComplex, _piRows, _piCols, &pdblReal, &pdblImg);
     if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_READ_DOUBLE_IN_NAMED_LIST, _("%s: Unable to get address of item #%d in variable \"%s\""), _iComplex ? "readComplexMatrixOfDoubleInNamedList" : "readMatrixOfDoubleInNamedList", _iItemPos + 1, _pstName);
@@ -1240,7 +1285,9 @@ static SciErr readCommonMatrixOfDoubleInNamedList(void* _pvCtx, const char* _pst
 
 SciErr getMatrixOfStringInList(void* _pvCtx, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, int* _piLength, char** _pstStrings)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -1263,7 +1310,9 @@ SciErr getMatrixOfStringInList(void* _pvCtx, int* _piParent, int _iItemPos, int*
 
 SciErr createMatrixOfStringInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, const char* const* _pstStrings)
 {
-    SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem     = 0;
     int iTotalLen   = 0;
     int iNewPos     = Top - Rhs + _iVar;
@@ -1273,7 +1322,7 @@ SciErr createMatrixOfStringInList(void* _pvCtx, int _iVar, int* /*_piParent*/, i
     int* piParent   = getLastListAddress(_iVar, _iItemPos);
 
     sciErr = getListItemNumber(_pvCtx, piParent, &iNbItem);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_STRING_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createMatrixOfStringInList", _iItemPos + 1);
         return sciErr;
@@ -1286,14 +1335,14 @@ SciErr createMatrixOfStringInList(void* _pvCtx, int _iVar, int* /*_piParent*/, i
     }
 
     sciErr = getListItemAddress(_pvCtx, piParent, _iItemPos, &piItemAddr);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_STRING_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createMatrixOfStringInList", _iItemPos + 1);
         return sciErr;
     }
 
     sciErr = fillCommonMatrixOfStringInList(_pvCtx, _iVar, piParent, _iItemPos, _iRows, _iCols, _pstStrings, &iTotalLen);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_STRING_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createMatrixOfStringInList", _iItemPos + 1);
         return sciErr;
@@ -1313,7 +1362,9 @@ SciErr createMatrixOfStringInList(void* _pvCtx, int _iVar, int* /*_piParent*/, i
 
 SciErr fillCommonMatrixOfStringInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, const char* const* _pstStrings, int* _piTotalLen)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem   = 0;
 
     int* piAddr   = NULL;
@@ -1349,7 +1400,9 @@ SciErr fillCommonMatrixOfStringInList(void* _pvCtx, int _iVar, int* _piParent, i
 
 SciErr createMatrixOfStringInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, const char* const* _pstStrings)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iTotalLen       = 0;
     int iSaveRhs        = Rhs;
@@ -1399,7 +1452,9 @@ SciErr createMatrixOfStringInNamedList(void* _pvCtx, const char* _pstName, int*
 
 SciErr readMatrixOfStringInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, int* _piLength, char** _pstStrings)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
     int iNbItem    = 0;
@@ -1442,7 +1497,9 @@ SciErr readMatrixOfStringInNamedList(void* _pvCtx, const char* _pstName, int* _p
 
 SciErr getMatrixOfBooleanInList(void* _pvCtx, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, int** _piBool)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -1464,11 +1521,13 @@ SciErr getMatrixOfBooleanInList(void* _pvCtx, int* _piParent, int _iItemPos, int
 
 SciErr createMatrixOfBooleanInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, const int* _piBool)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int *piBool   = NULL;
 
     sciErr = allocMatrixOfBooleanInList(_pvCtx, _iVar, NULL/*_piParent*/, _iItemPos, _iRows, _iCols, &piBool);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_BOOLEAN_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createMatrixOfBooleanInList", _iItemPos + 1);
         return sciErr;
@@ -1483,13 +1542,15 @@ SciErr createMatrixOfBooleanInList(void* _pvCtx, int _iVar, int* /*_piParent*/,
 
 SciErr allocMatrixOfBooleanInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, int** _piBool)
 {
-    SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNewPos     = Top - Rhs + _iVar;
     int* piEnd      = NULL;
     int* piParent   = getLastListAddress(_iVar, _iItemPos);
 
     sciErr = fillMatrixOfBoolInList(_pvCtx, _iVar, piParent, _iItemPos, _iRows, _iCols, _piBool);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_ALLOC_BOOLEAN_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "allocMatrixOfBooleanInList", _iItemPos + 1);
         return sciErr;
@@ -1498,7 +1559,7 @@ SciErr allocMatrixOfBooleanInList(void* _pvCtx, int _iVar, int* /*_piParent*/, i
     piEnd = *_piBool + _iRows * _iCols + !((_iRows * _iCols) % 2);
     closeList(iNewPos, piEnd);
 
-    if(_iItemPos == piParent[1])
+    if (_iItemPos == piParent[1])
     {
         updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
         popListAddress(_iVar);
@@ -1508,7 +1569,9 @@ SciErr allocMatrixOfBooleanInList(void* _pvCtx, int _iVar, int* /*_piParent*/, i
 
 static SciErr fillMatrixOfBoolInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, int** _piBool)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piOffset   = NULL;
     int* piChildAddr = NULL;
@@ -1550,7 +1613,9 @@ static SciErr fillMatrixOfBoolInList(void* _pvCtx, int _iVar, int* _piParent, in
 
 SciErr createMatrixOfBooleanInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, const int* _piBool)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -1604,7 +1669,9 @@ SciErr createMatrixOfBooleanInNamedList(void* _pvCtx, const char* _pstName, int*
 
 SciErr readMatrixOfBooleanInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, int* _piBool)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
     int iNbItem    = 0;
@@ -1666,7 +1733,9 @@ SciErr getComplexMatrixOfPolyInList(void* _pvCtx, int* _piParent, int _iItemPos,
 
 SciErr getCommonMatrixOfPolyInList(void* _pvCtx, int* _piParent, int _iItemPos, int _iComplex, int* _piRows, int* _piCols, int* _piNbCoef, double** _pdblReal, double** _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -1698,7 +1767,9 @@ SciErr createComplexMatrixOfPolyInList(void* _pvCtx, int _iVar, int* _piParent,
 
 SciErr createCommonMatrixOfPolyInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, char* _pstVarName, int _iComplex, int _iRows, int _iCols, const int* _piNbCoef, const double* const* _pdblReal, const double* const* _pdblImg)
 {
-    SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piItemAddr = NULL;
     int *piEnd      = NULL;
     int iItemLen    = 0;
@@ -1706,14 +1777,14 @@ SciErr createCommonMatrixOfPolyInList(void* _pvCtx, int _iVar, int* /*_piParent*
     int* piParent   = getLastListAddress(_iVar, _iItemPos);
 
     sciErr = getListItemAddress(_pvCtx, piParent, _iItemPos, &piItemAddr);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_POLY_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), _iComplex ? "createComplexMatrixOfPolyInList" : "createMatrixOfPolyInList", _iItemPos + 1);
         return sciErr;
     }
 
     sciErr = fillCommonMatrixOfPolyInList(_pvCtx, _iVar, piParent, _iItemPos, _pstVarName, _iComplex, _iRows, _iCols, _piNbCoef, _pdblReal, _pdblImg, &iTotalLen);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_POLY_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), _iComplex ? "createComplexMatrixOfPolyInList" : "createMatrixOfPolyInList", _iItemPos + 1);
         return sciErr;
@@ -1722,7 +1793,7 @@ SciErr createCommonMatrixOfPolyInList(void* _pvCtx, int _iVar, int* /*_piParent*
     iItemLen      = 9 + _iRows * _iCols + (9 + _iRows * _iCols) % 2;
     iItemLen      += iTotalLen;
     piEnd        = piItemAddr + iItemLen;
-    if(_iItemPos == piParent[1])
+    if (_iItemPos == piParent[1])
     {
         updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
         popListAddress(_iVar);
@@ -1735,7 +1806,9 @@ SciErr createCommonMatrixOfPolyInList(void* _pvCtx, int _iVar, int* /*_piParent*
 
 static SciErr fillCommonMatrixOfPolyInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos, char* _pstVarName, int _iComplex, int _iRows, int _iCols, const int* _piNbCoef, const double* const* _pdblReal, const double* const* _pdblImg, int* _piTotalLen)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int iTotalLen   = 0;
     int* piOffset   = NULL;
@@ -1794,7 +1867,9 @@ SciErr createComplexMatrixOfPolyInNamedList(void* _pvCtx, const char* _pstName,
 
 SciErr createCommonMatrixOfPolyInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, char* _pstVarName, int _iComplex, int _iRows, int _iCols, const int* _piNbCoef, const double* const* _pdblReal, const double* const* _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -1862,7 +1937,9 @@ SciErr readComplexMatrixOfPolyInNamedList(void* _pvCtx, const char* _pstName, in
 
 SciErr readCommonMatrixOfPolyInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int _iComplex, int* _piRows, int* _piCols, int* _piNbCoef, double** _pdblReal, double** _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
     int iNbItem    = 0;
@@ -1905,7 +1982,9 @@ SciErr readCommonMatrixOfPolyInNamedList(void* _pvCtx, const char* _pstName, int
 
 static SciErr fillCommonMatrixOfIntegerInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos, int _iPrecision, int _iRows, int _iCols, void** _pvData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piOffset   = NULL;
     int* piChildAddr = NULL;
@@ -1957,12 +2036,14 @@ static SciErr fillCommonMatrixOfIntegerInList(void* _pvCtx, int _iVar, int* _piP
 
 static SciErr allocCommonMatrixOfIntegerInList(void* _pvCtx, int _iVar, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iPrecision, int _iRows, int _iCols, void** _pvData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNewPos    = Top - Rhs + _iVar;
     int* piEnd    = NULL;
     int* piParent   = NULL;
 
-    if(_pstName)
+    if (_pstName)
     {
         piParent = getLastNamedListAddress(_pstName, _iItemPos);
     }
@@ -1972,7 +2053,7 @@ static SciErr allocCommonMatrixOfIntegerInList(void* _pvCtx, int _iVar, const ch
     }
 
     sciErr = fillCommonMatrixOfIntegerInList(_pvCtx, _iVar, piParent, _iItemPos, _iPrecision, _iRows, _iCols, _pvData);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_ALLOC_INT_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "allocMatrixOfIntegerInList", _iItemPos + 1);
         return sciErr;
@@ -1981,7 +2062,7 @@ static SciErr allocCommonMatrixOfIntegerInList(void* _pvCtx, int _iVar, const ch
     piEnd = (int*) * _pvData + _iRows * _iCols / (sizeof(int) / (_iPrecision % 10)) + (int)(!!(_iRows * _iCols)) % (sizeof(int) / (_iPrecision % 10));
     closeList(iNewPos, piEnd);
 
-    if(_iItemPos == piParent[1])
+    if (_iItemPos == piParent[1])
     {
         updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
         popListAddress(_iVar);
@@ -2021,7 +2102,9 @@ SciErr allocMatrixOfInteger32InList(void* _pvCtx, int _iVar, int* _piParent, int
 
 static SciErr createCommomMatrixOfIntegerInList(void* _pvCtx, int _iVar, const char* _pstName, int* _piParent, int _iItemPos, int _iPrecision, int _iRows, int _iCols, const void* _pvData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     void *pvData = NULL;
 
     sciErr = allocCommonMatrixOfIntegerInList(_pvCtx, _iVar, _pstName, _piParent, _iItemPos, _iPrecision, _iRows, _iCols, &pvData);
@@ -2070,7 +2153,9 @@ SciErr createMatrixOfInteger32InList(void* _pvCtx, int _iVar, int* _piParent, in
 
 static SciErr getCommonMatrixOfIntegerInList(void* _pvCtx, int* _piParent, int _iItemPos, int _iPrecision, int* _piRows, int* _piCols, void** _pvData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -2122,7 +2207,9 @@ SciErr getMatrixOfInteger32InList(void* _pvCtx, int* _piParent, int _iItemPos, i
 
 static SciErr createCommonMatrixOfIntegerInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iPrecision, int _iRows, int _iCols, const void* _pvData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -2208,7 +2295,9 @@ SciErr createMatrixOfInteger32InNamedList(void* _pvCtx, const char* _pstName, in
 
 static SciErr readCommonMatrixOfIntgerInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int _iPrecision, int* _piRows, int* _piCols, void* _pvData)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
@@ -2288,7 +2377,9 @@ SciErr readMatrixOfIntger32InNamedList(void* _pvCtx, const char* _pstName, int*
 
 static SciErr fillCommonSparseMatrixInList(void* _pvCtx, int _iVar, int* _piParent, int _iItemPos, int _iComplex, int _iRows, int _iCols, int _iNbItem, const int* _piNbItemRow, const int* _piColPos, const double* _pdblReal, const double* _pdblImg, int* _piTotalSize)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int iTotalLen   = 0;
     int* piOffset   = NULL;
@@ -2349,14 +2440,16 @@ static SciErr fillCommonSparseMatrixInList(void* _pvCtx, int _iVar, int* _piPare
 
 static SciErr createCommonSparseMatrixInList(void* _pvCtx, int _iVar, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iComplex, int _iRows, int _iCols, int _iNbItem, const int* _piNbItemRow, const int* _piColPos, const double* _pdblReal, const double* _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr     = NULL;
     int *piEnd      = NULL;
     int iItemLen    = 0;
     int iTotalLen   = 0;
     int* piParent   = NULL;
 
-    if(_pstName)
+    if (_pstName)
     {
         piParent = getLastNamedListAddress(_pstName, _iItemPos);
     }
@@ -2366,14 +2459,14 @@ static SciErr createCommonSparseMatrixInList(void* _pvCtx, int _iVar, const char
     }
 
     sciErr = getListItemAddress(_pvCtx, piParent, _iItemPos, &piAddr);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_SPARSE_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), _iComplex ? "createComplexSparseMatrixInList" : "createComplexSparseMatrixInList", _iItemPos + 1);
         return sciErr;
     }
 
     sciErr = fillCommonSparseMatrixInList(_pvCtx, _iVar, piParent, _iItemPos, _iComplex, _iRows, _iCols, _iNbItem, _piNbItemRow, _piColPos, _pdblReal, _pdblImg, &iTotalLen);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_SPARSE_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), _iComplex ? "createComplexSparseMatrixInList" : "createComplexSparseMatrixInList", _iItemPos + 1);
         return sciErr;
@@ -2382,7 +2475,7 @@ static SciErr createCommonSparseMatrixInList(void* _pvCtx, int _iVar, const char
     iItemLen      = 5 + _iRows + _iNbItem + !((_iRows + _iNbItem) % 2);
     iItemLen      += iTotalLen * 2;
     piEnd        = piAddr + iItemLen;
-    if(_iItemPos == piParent[1])
+    if (_iItemPos == piParent[1])
     {
         updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
         popListAddress(_iVar);
@@ -2405,7 +2498,9 @@ SciErr createComplexSparseMatrixInList(void* _pvCtx, int _iVar, int* _piParent,
 
 SciErr createCommonSparseMatrixInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iComplex, int _iRows, int _iCols, int _iNbItem, const int* _piNbItemRow, const int* _piColPos, const double* _pdblReal, const double* _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -2469,7 +2564,9 @@ SciErr createComplexSparseMatrixInNamedList(void* _pvCtx, const char* _pstName,
 
 static SciErr getCommonSparseMatrixInList(void* _pvCtx, int* _piParent, int _iItemPos, int _iComplex, int* _piRows, int* _piCols, int* _piNbItem, int** _piNbItemRow, int** _piColPos, double** _pdblReal, double** _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -2501,7 +2598,9 @@ SciErr getComplexSparseMatrixInList(void* _pvCtx, int* _piParent, int _iItemPos,
 
 static SciErr readCommonSparseMatrixInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int _iComplex, int* _piRows, int* _piCols, int* _piNbItem, int* _piNbItemRow, int* _piColPos, double* _pdblReal, double* _pdblImg)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
@@ -2581,7 +2680,9 @@ SciErr readComplexSparseMatrixInNamedList(void* _pvCtx, const char* _pstName, in
 *****************************/
 static SciErr fillBooleanSparseMatrixInList(void* _pvCtx, int _iVar, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, int _iNbItem, const int* _piNbItemRow, const int* _piColPos)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piOffset   = NULL;
     int* piNbItemRow = NULL;
@@ -2591,7 +2692,7 @@ static SciErr fillBooleanSparseMatrixInList(void* _pvCtx, int _iVar, const char*
 
     int* piParent = NULL;
 
-    if(_pstName)
+    if (_pstName)
     {
         piParent = getLastNamedListAddress(_pstName, _iItemPos);
     }
@@ -2641,21 +2742,23 @@ static SciErr fillBooleanSparseMatrixInList(void* _pvCtx, int _iVar, const char*
 
 SciErr createBooleanSparseMatrixInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, int _iNbItem, const int* _piNbItemRow, const int* _piColPos)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr     = NULL;
     int *piEnd      = NULL;
     int iItemLen    = 0;
     int* piParent   = getLastListAddress(_iVar, _iItemPos);
 
     sciErr = getListItemAddress(_pvCtx, piParent, _iItemPos, &piAddr);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_BOOLEAN_SPARSE_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createBooleanSparseMatrixInList", _iItemPos + 1);
         return sciErr;
     }
 
     sciErr = fillBooleanSparseMatrixInList(_pvCtx, _iVar, NULL, piParent, _iItemPos, _iRows, _iCols, _iNbItem, _piNbItemRow, _piColPos);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_BOOLEAN_SPARSE_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createBooleanSparseMatrixInList", _iItemPos + 1);
         return sciErr;
@@ -2663,7 +2766,7 @@ SciErr createBooleanSparseMatrixInList(void* _pvCtx, int _iVar, int* /*_piParent
 
     iItemLen      = 5 + _iRows + _iNbItem + !((_iRows + _iNbItem) % 2);
     piEnd        = piAddr + iItemLen;
-    if(_iItemPos == piParent[1])
+    if (_iItemPos == piParent[1])
     {
         updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
         popListAddress(_iVar);
@@ -2676,7 +2779,9 @@ SciErr createBooleanSparseMatrixInList(void* _pvCtx, int _iVar, int* /*_piParent
 
 SciErr createBooleanSparseMatrixInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, int _iRows, int _iCols, int _iNbItem, const int* _piNbItemRow, const int* _piColPos)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -2729,7 +2834,9 @@ SciErr createBooleanSparseMatrixInNamedList(void* _pvCtx, const char* _pstName,
 
 SciErr getBooleanSparseMatrixInList(void* _pvCtx, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, int* _piNbItem, int** _piNbItemRow, int** _piColPos)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -2751,7 +2858,9 @@ SciErr getBooleanSparseMatrixInList(void* _pvCtx, int* _piParent, int _iItemPos,
 
 SciErr readBooleanSparseMatrixInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, int* _piRows, int* _piCols, int* _piNbItem, int* _piNbItemRow, int* _piColPos)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
@@ -2807,7 +2916,9 @@ SciErr readBooleanSparseMatrixInNamedList(void* _pvCtx, const char* _pstName, in
 *********************/
 SciErr getPointerInList(void* _pvCtx, int* _piParent, int _iItemPos, void** _pvPtr)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int* piAddr  = NULL;
 
     sciErr = getListItemAddress(_pvCtx, _piParent, _iItemPos, &piAddr);
@@ -2829,7 +2940,9 @@ SciErr getPointerInList(void* _pvCtx, int* _piParent, int _iItemPos, void** _pvP
 
 SciErr createPointerInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iItemPos, void* _pvPtr)
 {
-    SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem         = 0;
     int* piOffset       = NULL;
     int* piChildAddr    = NULL;
@@ -2840,7 +2953,7 @@ SciErr createPointerInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iIt
 
     //Does item can be added in the list
     sciErr = getListItemNumber(_pvCtx, piParent, &iNbItem);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_POINTER_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createListInList", _iItemPos + 1);
         return sciErr;
@@ -2854,7 +2967,7 @@ SciErr createPointerInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iIt
 
 
     sciErr = allocCommonItemInList(_pvCtx, piParent, _iItemPos, &piChildAddr);
-    if(sciErr.iErr)
+    if (sciErr.iErr)
     {
         addErrorMessage(&sciErr, API_ERROR_CREATE_POINTER_IN_LIST, _("%s: Unable to create list item #%d in Scilab memory"), "createListInList", _iItemPos + 1);
         return sciErr;
@@ -2875,7 +2988,7 @@ SciErr createPointerInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iIt
     piEnd = piChildAddr + 6;//4 for header and 2 for data ( n * 32 bits )
     closeList(iNewPos, piEnd);
 
-    if(_iItemPos == piParent[1])
+    if (_iItemPos == piParent[1])
     {
         updateListOffset(_pvCtx, _iVar, piParent, _iItemPos, piEnd);
         popListAddress(_iVar);
@@ -2885,7 +2998,9 @@ SciErr createPointerInList(void* _pvCtx, int _iVar, int* /*_piParent*/, int _iIt
 
 SciErr readPointerInNamedList(void* _pvCtx, const char* _pstName, int* _piParent, int _iItemPos, void** _pvPtr)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iNbItem    = 0;
     int* piAddr    = NULL;
     int* piRoot    = NULL;
@@ -2924,7 +3039,9 @@ SciErr readPointerInNamedList(void* _pvCtx, const char* _pstName, int* _piParent
 
 SciErr createPointerInNamedList(void* _pvCtx, const char* _pstName, int* /*_piParent*/, int _iItemPos, void* _pvPtr)
 {
-       SciErr sciErr; sciErr.iErr = 0; sciErr.iMsgCount = 0;
+    SciErr sciErr;
+    sciErr.iErr = 0;
+    sciErr.iMsgCount = 0;
     int iVarID[nsiz];
     int iSaveRhs        = Rhs;
     int iSaveTop        = Top;
@@ -2998,7 +3115,7 @@ static void updateCommunListOffset(void* _pvCtx, int _iVar, const char* _pstName
     int iMaxDepth   = 0; //we are already in a list
     int **piParent   = NULL;
 
-    if(_pstName == NULL)
+    if (_pstName == NULL)
     {
         int iLocalVar = _iVar - Top + Rhs;
         iMaxDepth = getDepthList(iLocalVar);
@@ -3023,7 +3140,7 @@ static void updateCommunListOffset(void* _pvCtx, int _iVar, const char* _pstName
         //for all nodes
         for (j = iItem - 1 ; j >= 0 ; j--)
         {
-            if(piOffset[j] == -1)
+            if (piOffset[j] == -1)
             {
                 continue;
             }
index d1ae8e0..4f7957e 100644 (file)
@@ -332,7 +332,6 @@ function [res_d, res_v] = speigs(A, %_B, nev, which, maxiter, tol, ncv, cholB, r
     if(lhs > 1)
         rvec = 1;
     end
-
     //**************************
     //First variable A :
     //**************************
index d70651a..acdce9f 100644 (file)
@@ -318,9 +318,8 @@ int sci_eigs(char *fname, unsigned long fname_len)
             return 0;
         }
 
-        SIGMA = (doublecomplex*)malloc(1 * sizeof(doublecomplex));
-        sciErr = getComplexZMatrixOfDouble(pvApiCtx, piAddressVarFour, &iRowsFour, &iColsFour, &SIGMA);
-        if (sciErr.iErr)
+        SIGMA = (doublecomplex*)MALLOC(1 * sizeof(doublecomplex));
+        if (getScalarComplexDouble(pvApiCtx, piAddressVarFour, &SIGMA[0].r, &SIGMA[0].i))
         {
             printError(&sciErr, 0);
             Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 4);
@@ -510,7 +509,7 @@ int sci_eigs(char *fname, unsigned long fname_len)
     else
     {
         sciErr = getVarDimension(pvApiCtx, piAddressVarNine, &iRowsNine, &iColsNine);
-        if (iRowsNine*iColsNine == 1 || iRowsNine*iColsNine != N)
+        if (iRowsNine * iColsNine == 1 || iRowsNine * iColsNine != N)
         {
             Scierror(999, _("%s: Wrong dimension for input argument #%d: Start vector %s must be N by 1.\n"), "eigs", 9, "opts.resid");
             return 0;
index 3b9028a..76ec2d1 100644 (file)
@@ -95,7 +95,8 @@ src/c/windowsChangeManagement.c \
 src/c/setieee.c \
 src/c/setlines.c \
 src/c/setformat.c \
-src/c/InitializePreferences.c
+src/c/InitializePreferences.c \
+src/c/sci_tools.c
 
 CORE_CXX_SOURCES = src/cpp/hashtable_core.cpp \
 src/cpp/namstr.cpp \
index 2dab23a..bd85446 100644 (file)
@@ -180,8 +180,8 @@ am__libscicore_algo_la_SOURCES_DIST = src/c/inffic.c src/c/cs2st.c \
        src/c/storeCommand.c src/c/backtrace.c src/c/signal_mgmt.c \
        src/c/suspendProcess.c src/c/windowsChangeManagement.c \
        src/c/setieee.c src/c/setlines.c src/c/setformat.c \
-       src/c/InitializePreferences.c src/c/scimem64.c \
-       src/cpp/hashtable_core.cpp src/cpp/namstr.cpp \
+       src/c/InitializePreferences.c src/c/sci_tools.c \
+       src/c/scimem64.c src/cpp/hashtable_core.cpp src/cpp/namstr.cpp \
        src/cpp/search_functions.cpp src/cpp/demangle.cpp \
        src/cpp/backtrace_print.cpp src/fortran/clunit.f \
        src/fortran/getlin.f src/fortran/allowptr.f \
@@ -288,7 +288,8 @@ am__objects_2 = libscicore_algo_la-inffic.lo \
        libscicore_algo_la-windowsChangeManagement.lo \
        libscicore_algo_la-setieee.lo libscicore_algo_la-setlines.lo \
        libscicore_algo_la-setformat.lo \
-       libscicore_algo_la-InitializePreferences.lo $(am__objects_1)
+       libscicore_algo_la-InitializePreferences.lo \
+       libscicore_algo_la-sci_tools.lo $(am__objects_1)
 am__objects_3 = libscicore_algo_la-hashtable_core.lo \
        libscicore_algo_la-namstr.lo \
        libscicore_algo_la-search_functions.lo \
@@ -689,7 +690,8 @@ CORE_C_SOURCES = src/c/inffic.c src/c/cs2st.c src/c/tmpdir.c \
        src/c/storeCommand.c src/c/backtrace.c src/c/signal_mgmt.c \
        src/c/suspendProcess.c src/c/windowsChangeManagement.c \
        src/c/setieee.c src/c/setlines.c src/c/setformat.c \
-       src/c/InitializePreferences.c $(am__append_1)
+       src/c/InitializePreferences.c src/c/sci_tools.c \
+       $(am__append_1)
 CORE_CXX_SOURCES = src/cpp/hashtable_core.cpp \
 src/cpp/namstr.cpp \
 src/cpp/search_functions.cpp \
@@ -1121,6 +1123,7 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_algo_la-returnPropertyList.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_algo_la-returnanan.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_algo_la-run.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_algo_la-sci_tools.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_algo_la-scilabmode.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_algo_la-scimem.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_algo_la-scimem64.Plo@am__quote@
@@ -1839,6 +1842,13 @@ libscicore_algo_la-InitializePreferences.lo: src/c/InitializePreferences.c
 @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) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libscicore_algo_la-InitializePreferences.lo `test -f 'src/c/InitializePreferences.c' || echo '$(srcdir)/'`src/c/InitializePreferences.c
 
+libscicore_algo_la-sci_tools.lo: src/c/sci_tools.c
+@am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libscicore_algo_la-sci_tools.lo -MD -MP -MF $(DEPDIR)/libscicore_algo_la-sci_tools.Tpo -c -o libscicore_algo_la-sci_tools.lo `test -f 'src/c/sci_tools.c' || echo '$(srcdir)/'`src/c/sci_tools.c
+@am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscicore_algo_la-sci_tools.Tpo $(DEPDIR)/libscicore_algo_la-sci_tools.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/sci_tools.c' object='libscicore_algo_la-sci_tools.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) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libscicore_algo_la-sci_tools.lo `test -f 'src/c/sci_tools.c' || echo '$(srcdir)/'`src/c/sci_tools.c
+
 libscicore_algo_la-scimem64.lo: src/c/scimem64.c
 @am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libscicore_algo_la-scimem64.lo -MD -MP -MF $(DEPDIR)/libscicore_algo_la-scimem64.Tpo -c -o libscicore_algo_la-scimem64.lo `test -f 'src/c/scimem64.c' || echo '$(srcdir)/'`src/c/scimem64.c
 @am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscicore_algo_la-scimem64.Tpo $(DEPDIR)/libscicore_algo_la-scimem64.Plo
index 62d1113..dda92d6 100644 (file)
@@ -349,6 +349,7 @@ cd ..
     <ClCompile Include="sciquit.c" />
     <ClCompile Include="scirun.c" />
     <ClCompile Include="..\cpp\search_functions.cpp" />
+    <ClCompile Include="sci_tools.c" />
     <ClCompile Include="setformat.c" />
     <ClCompile Include="setgetSCIpath.c" />
     <ClCompile Include="setieee.c" />
index 643646e..0ab6a61 100644 (file)
     <ClCompile Include="setlines.c">
       <Filter>Source Files</Filter>
     </ClCompile>
+    <ClCompile Include="sci_tools.c">
+      <Filter>Source Files</Filter>
+    </ClCompile>
   </ItemGroup>
   <ItemGroup>
     <ClInclude Include="banier.h">
@@ -91,7 +91,6 @@
 #include <stdio.h>
 #include <string.h>
 
-#include "sci_tools.h"
 #include "MALLOC.h" /* MALLOC */
 
 #include "localization.h"
index 9167e6f..e6c3dea 100644 (file)
@@ -4,7 +4,7 @@
 # This file is distributed under the same license as the Scilab package.
 
 
-ELEMENTARIES_FUNCTIONS_C_SOURCES = src/c/sci_tools.c \
+ELEMENTARIES_FUNCTIONS_C_SOURCES = \
 src/c/finite.c \
 src/c/vfinite.c \
 src/c/cmp.c \
index a35e761..c84c0e1 100644 (file)
@@ -158,8 +158,7 @@ am__objects_2 = dgesl.lo wpade.lo util.lo dgefa.lo dgbfa.lo dgeco.lo \
        dgedi.lo dqrdc.lo dqrsl.lo dqrsm.lo hhdml.lo wgeco.lo wgefa.lo \
        wgesl.lo dpofa.lo
 am__objects_3 = balbak.lo
-am__objects_4 = libscielementary_functions_algo_la-sci_tools.lo \
-       libscielementary_functions_algo_la-finite.lo \
+am__objects_4 = libscielementary_functions_algo_la-finite.lo \
        libscielementary_functions_algo_la-vfinite.lo \
        libscielementary_functions_algo_la-cmp.lo \
        libscielementary_functions_algo_la-vceil.lo \
@@ -572,7 +571,7 @@ target_alias = @target_alias@
 top_build_prefix = @top_build_prefix@
 top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
-ELEMENTARIES_FUNCTIONS_C_SOURCES = src/c/sci_tools.c \
+ELEMENTARIES_FUNCTIONS_C_SOURCES = \
 src/c/finite.c \
 src/c/vfinite.c \
 src/c/cmp.c \
@@ -1152,7 +1151,6 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscielementary_functions_algo_la-qsort-string.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscielementary_functions_algo_la-qsort.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscielementary_functions_algo_la-rea2db.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscielementary_functions_algo_la-sci_tools.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscielementary_functions_algo_la-scidcopy.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscielementary_functions_algo_la-vceil.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscielementary_functions_algo_la-vfinite.Plo@am__quote@
@@ -1233,13 +1231,6 @@ distclean-compile:
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCC_FALSE@  $(LTCOMPILE) -c -o $@ $<
 
-libscielementary_functions_algo_la-sci_tools.lo: src/c/sci_tools.c
-@am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscielementary_functions_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libscielementary_functions_algo_la-sci_tools.lo -MD -MP -MF $(DEPDIR)/libscielementary_functions_algo_la-sci_tools.Tpo -c -o libscielementary_functions_algo_la-sci_tools.lo `test -f 'src/c/sci_tools.c' || echo '$(srcdir)/'`src/c/sci_tools.c
-@am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscielementary_functions_algo_la-sci_tools.Tpo $(DEPDIR)/libscielementary_functions_algo_la-sci_tools.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/sci_tools.c' object='libscielementary_functions_algo_la-sci_tools.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) $(libscielementary_functions_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libscielementary_functions_algo_la-sci_tools.lo `test -f 'src/c/sci_tools.c' || echo '$(srcdir)/'`src/c/sci_tools.c
-
 libscielementary_functions_algo_la-finite.lo: src/c/finite.c
 @am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscielementary_functions_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libscielementary_functions_algo_la-finite.lo -MD -MP -MF $(DEPDIR)/libscielementary_functions_algo_la-finite.Tpo -c -o libscielementary_functions_algo_la-finite.lo `test -f 'src/c/finite.c' || echo '$(srcdir)/'`src/c/finite.c
 @am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscielementary_functions_algo_la-finite.Tpo $(DEPDIR)/libscielementary_functions_algo_la-finite.Plo
diff --git a/scilab/modules/elementary_functions/includes/sci_tools.h b/scilab/modules/elementary_functions/includes/sci_tools.h
deleted file mode 100644 (file)
index 6893880..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 1997 - INRIA
- * Copyright (C) 2010 - 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 __SCI_TOOLS_H__
-#define __SCI_TOOLS_H__
-
-#include "machine.h"
-#include "dynlib_elementary_functions.h"
-
-#define DATA_TYPE_SCALAR     1
-
-#define TYPE_DOUBLE  0
-#define TYPE_COMPLEX 1
-
-/* valid for Real or Complex matrix */
-#define TYPE(ptr)   (((int*) (ptr))[-1])
-#define NB_COL(ptr) (((int*) (ptr))[-2])
-#define NB_ROW(ptr) (((int*) (ptr))[-3])
-#define DATA_TYPE(ptr) (((int*) (ptr))[-4])
-
-#define SET_DATA_TYPE_SCALAR(ptr)  (((int*) (ptr))[-4] = DATA_TYPE_SCALAR)
-#define SET_TYPE_DOUBLE(ptr)  (((int*) (ptr))[-1] = TYPE_DOUBLE)
-#define SET_TYPE_COMPLEX(ptr) (((int*) (ptr))[-1] = TYPE_COMPLEX)
-#define SET_NB_COL(ptr,m) (((int*) (ptr))[-2] = (m))
-#define SET_NB_ROW(ptr,n) (((int*) (ptr))[-3] = (n))
-
-ELEMENTARY_FUNCTIONS_IMPEXP void (SciToF77)(double *ptr, int size, int lda);
-ELEMENTARY_FUNCTIONS_IMPEXP void (F77ToSci)(double *ptr, int size, int lda);
-
-ELEMENTARY_FUNCTIONS_IMPEXP void double2z(double *ptr, double *ptr77z, int size, int lda);
-ELEMENTARY_FUNCTIONS_IMPEXP void z2double(double *ptrz, double *ptrsci, int size, int lda);
-
-#endif /* __SCI_TOOLS_H__ */
index 871c13e..af63592 100644 (file)
@@ -260,7 +260,6 @@ lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MA
     <ClCompile Include="..\..\sci_gateway\c\sci_sum.c" />
     <ClCompile Include="..\..\sci_gateway\c\sci_tan.c" />
     <ClCompile Include="..\..\sci_gateway\c\sci_testmatrix.c" />
-    <ClCompile Include="sci_tools.c" />
     <ClCompile Include="..\..\sci_gateway\c\sci_tril.c" />
     <ClCompile Include="..\..\sci_gateway\c\sci_triu.c" />
     <ClCompile Include="..\..\sci_gateway\c\sci_zeros.c" />
@@ -287,7 +286,6 @@ lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MA
     <ClInclude Include="..\..\includes\int2db.h" />
     <ClInclude Include="..\..\includes\rea2b.h" />
     <ClInclude Include="..\..\includes\rea2db.h" />
-    <ClInclude Include="..\..\includes\sci_tools.h" />
     <ClInclude Include="..\..\includes\scidcopy.h" />
     <ClInclude Include="..\..\includes\unsfdcopy.h" />
     <ClInclude Include="..\..\includes\vfinite.h" />
index c5b5045..9ceb6a6 100644 (file)
     <ClCompile Include="..\..\sci_gateway\c\sci_testmatrix.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="sci_tools.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="..\..\sci_gateway\c\sci_tril.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClInclude Include="..\..\includes\rea2db.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\includes\sci_tools.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\includes\scidcopy.h">
       <Filter>Header Files</Filter>
     </ClInclude>