fix file headers, fix ref for new variable
antoine ELIAS [Thu, 4 Jun 2009 09:16:12 +0000 (11:16 +0200)]
23 files changed:
scilab/modules/core/includes/boolean_api.h
scilab/modules/core/includes/common_api.h
scilab/modules/core/includes/double_api.h
scilab/modules/core/includes/int_api.h
scilab/modules/core/includes/poly_api.h
scilab/modules/core/includes/sparse_api.h
scilab/modules/core/includes/string_api.h
scilab/modules/core/includes/variable_api.h
scilab/modules/core/src/c/boolean_api.c
scilab/modules/core/src/c/boolean_sparse_api.c
scilab/modules/core/src/c/common_api.c
scilab/modules/core/src/c/double_api.c
scilab/modules/core/src/c/int_api.c
scilab/modules/core/src/c/internal_common_api.h
scilab/modules/core/src/c/list_api.c
scilab/modules/core/src/c/poly_api.c
scilab/modules/core/src/c/sparse_api.c
scilab/modules/core/src/c/string_api.c
scilab/modules/fileio/sci_gateway/cpp/sci_export_to_hdf5.cpp
scilab/modules/fileio/sci_gateway/cpp/sci_import_from_hdf5.cpp
scilab/modules/gui/sci_gateway/cpp/sci_displaytree.cpp
scilab/modules/gui/src/cpp/displaytree.cpp
scilab/modules/gui/src/cpp/displaytree.hxx

index 32e2aa4..5d69c56 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index a15c369..cc379f2 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index 1cdc9af..b1c2a17 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index 4694bc0..00843d4 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index d2743c1..a2b322d 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index 1054d61..0ce2804 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index fd8aa52..6bb8144 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index b095793..521cdef 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index 647c4df..c2ea1b1 100644 (file)
@@ -49,7 +49,7 @@ int allocMatrixOfBoolean(int _iVar, int _iRows, int _iCols, int** _piBool, int**
        int iNewPos                     = Top - Rhs + _iVar;
        int iAddr                               = *Lstk(iNewPos);
 
-       int iRet = getCommonVarAddressFromNumber(iNewPos, &piAddr);
+       int iRet = getNewVarAddressFromNumber(iNewPos, &piAddr);
        if(iRet != 0)
        {
                return 1;
@@ -99,7 +99,7 @@ int createNamedMatrixOfBoolean(char* _pstName, int _iNameLen, int _iRows, int _i
        C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
 
        //write matrix information
        fillMatrixOfBoolean(piAddr, _iRows, _iCols, &piBool);
@@ -144,7 +144,8 @@ int readNamedMatrixOfBoolean(char* _pstName, int _iNameLen, int* _piRows, int* _
                Fin = *istk(iadr(*Lstk(Fin )) + 1 + 1);
 
        //get variable address
-       getVarAddressFromNumber(Fin, &piAddr);
+       //WARNING check in VarType can be negative
+       getNewVarAddressFromNumber(Fin, &piAddr);
 
        iRet = getMatrixOfBoolean(piAddr, _piRows, _piCols, &piBool);
        
index 2c0d774..9f03b4e 100644 (file)
@@ -57,7 +57,7 @@ int allocBooleanSparseMatrix(int _iVar, int _iRows, int _iCols, int _iNbItem, in
        int *piAddr                     = NULL;
        int iPos                                = 0;
 
-       getVarAddressFromNumber(iNewPos, _piAddress);
+       getNewVarAddressFromNumber(iNewPos, _piAddress);
        fillBooleanSparseMatrix(*_piAddress, _iRows, _iCols, _iNbItem, _piNbItemRow, _piColPos);
 
        iPos    = iAddr + 5;//4 for header + 1 for NbItem
@@ -119,7 +119,7 @@ int createNamedBooleanSparseMatrix(char* _pstName, int _iNameLen, int _iRows, in
   C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
 
        fillBooleanSparseMatrix(piAddr, _iRows, _iCols, _iNbItem, &piNbItemRow, &piColPos);
 
index c75200d..daa3121 100644 (file)
@@ -38,11 +38,6 @@ int getVarDimension(int* _piAddress, int* _piRows, int* _piCols)
 
 int getVarAddressFromNumber(int _iVar, int** _piAddress)
 {
-       return getCommonVarAddressFromNumber(Top - Rhs + _iVar, _piAddress);
-}
-
-int getCommonVarAddressFromNumber(int _iVar, int** _piAddress)
-{
        int iAddr                       = iadr(*Lstk(_iVar));
        int iValType    = *istk(iAddr);
        if(iValType < 0)
@@ -51,7 +46,16 @@ int getCommonVarAddressFromNumber(int _iVar, int** _piAddress)
        }
 
        *_piAddress             = istk(iAddr);
-       C2F(intersci).ntypes[_iVar - 1] = '$' ;
+       intersci_.ntypes[_iVar - 1] = '$' ;
+       return 0;
+}
+
+int getNewVarAddressFromNumber(int _iVar, int** _piAddress)
+{
+       int iAddr                       = iadr(*Lstk(_iVar));
+       int iValType    = *istk(iAddr);
+       *_piAddress             = istk(iAddr);
+       intersci_.ntypes[_iVar - 1] = '$' ;
 
        return 0;
 }
@@ -78,7 +82,8 @@ int getVarAddressFromName(char* _pstName, int _iNameLen, int** _piAddress)
                Fin = *istk(iadr(*Lstk(Fin )) + 1 + 1);
 
        //get variable address
-       getCommonVarAddressFromNumber(Fin, &piAddr);
+       //WARNING check in VarType can be negative
+       getNewVarAddressFromNumber(Fin, &piAddr);
 
        *_piAddress = piAddr;
        return 0;
index 8975acc..69305c1 100644 (file)
@@ -73,13 +73,7 @@ int allocMatrixOfDouble(int _iVar, int _iRows, int _iCols, double** _pdblReal, i
        int *piAddr                             = NULL;
        double *pdblReal        = NULL;
 
-       int iRet = getVarAddressFromNumber(_iVar, &piAddr);
-       if(iRet != 0)
-       {
-               return 1;
-       }
-
-       iRet = allocCommonMatrixOfDouble(_iVar, 0, _iRows, _iCols, &pdblReal, NULL, &piAddr);
+       int iRet = allocCommonMatrixOfDouble(_iVar, 0, _iRows, _iCols, &pdblReal, NULL, &piAddr);
        if(iRet != 0)
        {
                return 1;
@@ -114,10 +108,10 @@ int allocCommonMatrixOfDouble(int _iVar, int _iComplex, int _iRows, int _iCols,
        int iNewPos                     = Top - Rhs + _iVar;
        int iAddr                               = *Lstk(iNewPos);
 
-       getCommonVarAddressFromNumber(iNewPos, _piAddress);
+       getNewVarAddressFromNumber(iNewPos, _piAddress);
        fillCommonMatrixOfDouble(*_piAddress, _iComplex, _iRows, _iCols, _pdblReal, _pdblImg);
        updateInterSCI(_iVar, '$', iAddr, iAddr + 4);
-       updateLstk(iNewPos, iAddr + 4, _iRows * _iCols * (_iComplex + 1) * 2);
+       updateLstk(iNewPos, iAddr + 4, _iRows * _iCols * (_iComplex + 1));
        return 0;
 }
 
@@ -205,7 +199,7 @@ int createCommunNamedMatrixOfDouble(char* _pstName, int _iNameLen, int _iComplex
   C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
 
        //write matrix information
        fillCommonMatrixOfDouble(piAddr, _iComplex, _iRows, _iCols, &pdblReal, &pdblImg);
index c294a0b..b738069 100644 (file)
@@ -150,14 +150,14 @@ int allocMatrixOfInteger8(int _iVar, int _iRows, int _iCols, char** _piData8, in
        int *piAddr             = NULL;
        char *piData8   = NULL;
 
-       int iRet = getVarAddressFromNumber(_iVar, &piAddr);
+       int iNewPos = Top - Rhs + _iVar;
+       int iRet = getNewVarAddressFromNumber(iNewPos, &piAddr);
        if(iRet != 0)
        {
                return 1;
        }
 
        iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT8, _iRows, _iCols, (void*)&piData8);
-       
        if(iRet != 0)
        {
                return 1;
@@ -174,14 +174,14 @@ int allocMatrixOfInteger16(int _iVar, int _iRows, int _iCols, short** _piData16,
        int *piAddr                     = NULL;
        short *piData16 = NULL;
 
-       int iRet = getVarAddressFromNumber(_iVar, &piAddr);
+       int iNewPos = Top - Rhs + _iVar;
+       int iRet = getNewVarAddressFromNumber(iNewPos, &piAddr);
        if(iRet != 0)
        {
                return 1;
        }
 
        iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT16, _iRows, _iCols, (void*)&piData16);
-       
        if(iRet != 0)
        {
                return 1;
@@ -198,14 +198,14 @@ int allocMatrixOfInteger32(int _iVar, int _iRows, int _iCols, int** _piData32, i
        int *piAddr             = NULL;
        int *piData32   = NULL;
 
-       int iRet = getVarAddressFromNumber(_iVar, &piAddr);
+       int iNewPos = Top - Rhs + _iVar;
+       int iRet = getNewVarAddressFromNumber(iNewPos, &piAddr);
        if(iRet != 0)
        {
                return 1;
        }
 
        iRet = allocCommonMatrixOfInteger(_iVar, piAddr, SCI_INT32, _iRows, _iCols, (void*)&piData32);
-       
        if(iRet != 0)
        {
                return 1;
@@ -213,6 +213,7 @@ int allocMatrixOfInteger32(int _iVar, int _iRows, int _iCols, int** _piData32, i
 
        *_piAddress = piAddr;
        *_piData32      = piData32;
+
        return 0;
 }
 
@@ -290,7 +291,7 @@ static int createCommonNamedMatrixOfInteger(char* _pstName, int _iNameLen, int _
        C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
 
        //write matrix information
        fillCommonMatrixOfInteger(piAddr, _iPrecision, _iRows, _iCols, &piData);
@@ -333,7 +334,8 @@ int getNamedMatrixOfIntegerPrecision(char* _pstName, int _iNameLen, int* _piPrec
                Fin = *istk(iadr(*Lstk(Fin )) + 1 + 1);
 
        //get variable address
-       getCommonVarAddressFromNumber(Fin, &piAddr);
+       //WARNING check in VarType can be negative
+       getNewVarAddressFromNumber(Fin, &piAddr);
 
        //check variable type
        if(piAddr[0] != sci_ints)
@@ -390,7 +392,8 @@ static int readCommonNamedMatrixOfInteger(char* _pstName, int _iNameLen, int _iP
                Fin = *istk(iadr(*Lstk(Fin )) + 1 + 1);
 
        //get variable address
-       getCommonVarAddressFromNumber(Fin, &piAddr);
+       //WARNING check in VarType can be negative
+       getNewVarAddressFromNumber(Fin, &piAddr);
        
        getCommonMatrixOfInteger(piAddr, _iPrecision, _piRows, _piCols, &piData);
 
index cf3d81d..3e87e08 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
@@ -12,7 +12,7 @@
 #ifndef __INTERNAL_COMMON_API__
 #define __INTERNAL_COMMON_API__
 
-int getCommonVarAddressFromNumber(int _iVar, int** _piAddress);
+int getNewVarAddressFromNumber(int _iVar, int** _piAddress);
 
 #endif /* __INTERNAL_COMMON_API__ */
 
index ac534ad..bfdfe37 100644 (file)
@@ -130,7 +130,7 @@ static int createCommonNamedList(char* _pstName, int _iNameLen, int _iListType,
   C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
        fillCommonList(piAddr, _iListType, _iNbItem);
 
        Rhs = 0;
@@ -153,7 +153,7 @@ static int createCommonList(int _iVar, int _iListType, int _iNbItem, int** _piAd
        int iAddr                               = *Lstk(iNewPos);
        int* piOffset           = NULL;
 
-       int iRet = getCommonVarAddressFromNumber(iNewPos, &piAddr);
+       int iRet = getNewVarAddressFromNumber(iNewPos, &piAddr);
        if(iRet)
        {
                return 1;
@@ -469,7 +469,7 @@ int createCommomMatrixOfDoubleInNamedList(char* _pstName, int _iNameLen, int* _p
 
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
        if(iRet)
        {
                return 1;
index 7b75930..6d07138 100644 (file)
@@ -142,7 +142,7 @@ static int createCommonMatrixOfPoly(int _iVar, int _iComplex, char* _pstVarName,
        int iAddr                                       = *Lstk(iNewPos);
        int iTotalLen                   = 0;
 
-       int iRet = getCommonVarAddressFromNumber(iNewPos, &piAddr);
+       int iRet = getNewVarAddressFromNumber(iNewPos, &piAddr);
        if(iRet != 0)
        {
                return 1;
@@ -238,7 +238,7 @@ static int createCommonNamedComplexMatrixOfPoly(char* _pstName, int _iNameLen, c
        C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
 
        //write matrix information
        fillCommonMatrixOfPoly(piAddr, _pstVarName, _iComplex, _iRows, _iCols, _piNbCoef, _pdblReal, _pdblImg, &iTotalLen);
@@ -293,7 +293,8 @@ static int readCommonNamedMatrixOfPoly(char* _pstName, int _iNameLen, int _iComp
                Fin = *istk(iadr(*Lstk(Fin )) + 1 + 1);
 
        //get variable address
-       getCommonVarAddressFromNumber(Fin, &piAddr);
+       //WARNING check in VarType can be negative
+       getNewVarAddressFromNumber(Fin, &piAddr);
        
        if(_iComplex == 1)
        {
index bec53da..94da646 100644 (file)
@@ -99,7 +99,7 @@ static int allocCommonSparseMatrix(int _iVar, int _iComplex, int _iRows, int _iC
        int     iTotalSize      = 0;
        int iPos                                = 0;
 
-       getCommonVarAddressFromNumber(iNewPos, _piAddress);
+       getNewVarAddressFromNumber(iNewPos, _piAddress);
        fillCommonSparseMatrix(*_piAddress, _iComplex, _iRows, _iCols, _iNbItem, _piNbItemRow, _piColPos, _pdblReal, _pdblImg, &iTotalSize);
 
        iPos    = iAddr + 5;//4 for header + 1 for NbItem
@@ -200,7 +200,7 @@ static int createCommonNamedSparseMatrix(char* _pstName, int _iNameLen, int _iCo
   C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
 
        fillCommonSparseMatrix(piAddr, _iComplex, _iRows, _iCols, _iNbItem, &piNbItemRow, &piColPos, &pdblReal, &pdblImg, &iTotalSize);
 
@@ -267,7 +267,8 @@ static int readCommonNamedSparseMatrix(char* _pstName, int _iNameLen, int _iComp
                Fin = *istk(iadr(*Lstk(Fin )) + 1 + 1);
 
        //get variable address
-       getCommonVarAddressFromNumber(Fin, &piAddr);
+       //WARNING check in VarType can be negative
+       getNewVarAddressFromNumber(Fin, &piAddr);
        
        if(_iComplex == 1)
        {
index a8e37c8..b5868f3 100644 (file)
@@ -81,7 +81,7 @@ int createMatrixOfString(int _iVar, int _iRows, int _iCols, char** _pstStrings,
        int iTotalLen           = 0;
        int *piAddr                     = NULL;
 
-       int iRet = getCommonVarAddressFromNumber(iNewPos, &piAddr);
+       int iRet = getNewVarAddressFromNumber(iNewPos, &piAddr);
        if(iRet != 0)
        {
                return 1;
@@ -137,7 +137,7 @@ int createNamedMatrixOfString(char* _pstName, int _iNameLen, int _iRows, int _iC
   C2F(str2name)(_pstName, iVarID, _iNameLen);
   Top = Top + Nbvars + 1;
 
-       iRet = getCommonVarAddressFromNumber(Top, &piAddr);
+       iRet = getNewVarAddressFromNumber(Top, &piAddr);
 
 
        //write matrix information
@@ -178,7 +178,8 @@ int readNamedMatrixOfString(char* _pstName, int _iNameLen, int* _piRows, int* _p
                Fin = *istk(iadr(*Lstk(Fin )) + 1 + 1);
 
        //get variable address
-       getCommonVarAddressFromNumber(Fin, &piAddr);
+       //WARNING check in VarType can be negative
+       getNewVarAddressFromNumber(Fin, &piAddr);
        
        return getMatrixOfString(piAddr, _piRows, _piCols, _piLength, _pstStrings);
 }
index 1cec6c5..307868d 100644 (file)
@@ -1,6 +1,6 @@
 /*
 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-* Copyright (C) 2009 - INRIA - Antoine ELIAS
+* Copyright (C) 2009 - DIGITEO - Antoine ELIAS
 *
 * This file must be used under the terms of the CeCILL.
 * This source file is licensed as described in the file COPYING, which
index 0a2e02d..93e8b36 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2009 - INRIA - Antoine ELIAS
+ * Copyright (C) 2009 - DIGITEO - Antoine ELIAS
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index aa075ca..ba3982c 100644 (file)
@@ -1,6 +1,6 @@
 /*
 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-* Copyright (C) 2008 - INRIA - Antoine ELIAS
+* Copyright (C) 2008 - DIGITEO - Antoine ELIAS
 * 
 * This file must be used under the terms of the CeCILL.
 * This source file is licensed as described in the file COPYING, which
index 1bfe802..ec592e2 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008 - INRIA - Antoine ELIAS
+ * Copyright (C) 2008 - DIGITEO - Antoine ELIAS
  * 
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
index a0ff6c9..54fc760 100644 (file)
@@ -1,6 +1,6 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008 - INRIA - Antoine ELIAS
+ * Copyright (C) 2008 - DIGITEO - Antoine ELIAS
  * 
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which