/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008 - INRIA - Vincent COUVERT
+ * Copyright (C) 2008 - INRIA - Vincent COUVERT
* Copyright (C) 2010 - DIGITEO - Yann COLLETTE
- *
+ *
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
- * are also available at
+ * are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
*
*/
#include "strdup_Windows.h"
#endif
+int sci_matfile_listvar(char *fname, unsigned long fname_len)
+{
+ int nbRow = 0, nbCol = 0;
+ mat_t *matfile = NULL;
+ matvar_t *matvar = NULL;
+ int fileIndex = 0;
+ char **varnames = NULL;
+ double *varclasses = NULL;
+ double *vartypes = NULL;
+ int nbvar = 0, var_type;
+ int * fd_addr = NULL;
+ double tmp_dbl;
+ SciErr sciErr;
+
+ CheckRhs(1, 1);
+ CheckLhs(1, 3);
+ /* First Rhs is the index of the file to read */
-#define MATIO_ERROR if(_SciErr.iErr) \
- { \
- printError(&_SciErr, 0); \
- return 0; \
+ sciErr = getVarAddressFromPosition(pvApiCtx, 1, &fd_addr);
+ if (sciErr.iErr)
+ {
+ printError(&sciErr, 0);
+ return 0;
+ }
+ sciErr = getVarType(pvApiCtx, fd_addr, &var_type);
+ if (sciErr.iErr)
+ {
+ printError(&sciErr, 0);
+ return 0;
}
-int sci_matfile_listvar(char *fname,unsigned long fname_len)
-{
- int nbRow = 0, nbCol = 0;
- mat_t *matfile = NULL;
- matvar_t *matvar = NULL;
- int fileIndex = 0;
- char **varnames = NULL;
- double *varclasses = NULL;
- double *vartypes = NULL;
- int nbvar = 0, var_type;
- int * fd_addr = NULL;
- double tmp_dbl;
- SciErr _SciErr;
-
- CheckRhs(1, 1);
- CheckLhs(1, 3);
-
- /* First Rhs is the index of the file to read */
-
- _SciErr = getVarAddressFromPosition(pvApiCtx, 1, &fd_addr); MATIO_ERROR;
- _SciErr = getVarType(pvApiCtx, fd_addr, &var_type); MATIO_ERROR;
-
- if (var_type == sci_matrix)
+ if (var_type == sci_matrix)
{
- getScalarDouble(pvApiCtx, fd_addr, &tmp_dbl);
- if (!isScalar(pvApiCtx, fd_addr))
- {
- Scierror(999, _("%s: Wrong size for first input argument: Single double expected.\n"), fname);
- return FALSE;
- }
- fileIndex = (int)tmp_dbl;
+ getScalarDouble(pvApiCtx, fd_addr, &tmp_dbl);
+ if (!isScalar(pvApiCtx, fd_addr))
+ {
+ Scierror(999, _("%s: Wrong size for first input argument: Single double expected.\n"), fname);
+ return FALSE;
+ }
+ fileIndex = (int)tmp_dbl;
}
- else
+ else
{
- Scierror(999, _("%s: Wrong type for first input argument: Double expected.\n"), fname);
- return FALSE;
+ Scierror(999, _("%s: Wrong type for first input argument: Double expected.\n"), fname);
+ return FALSE;
}
-
- /* Gets the corresponding matfile */
- matfile_manager(MATFILEMANAGER_GETFILE, &fileIndex, &matfile);
-
- /* Back to the beginning of the file */
- if (Mat_Rewind(matfile) != 0)
+
+ /* Gets the corresponding matfile */
+ matfile_manager(MATFILEMANAGER_GETFILE, &fileIndex, &matfile);
+
+ if (matfile == NULL)
{
- Scierror(999, _("%s: Could not rewind the file %s.\n"), "matfile_listvar", matfile->filename);
- return FALSE;
+ Scierror(999, _("%s: Invalid file identifier.\n"), fname);
+ return FALSE;
}
-
- matvar = Mat_VarReadNext(matfile);
- while (matvar != NULL && matvar->name != NULL)
+
+ /* Back to the beginning of the file */
+ if (Mat_Rewind(matfile) != 0)
{
- nbvar++;
- varnames = (char**) REALLOC(varnames, nbvar*sizeof(char*));
- if (varnames == NULL)
- {
- Scierror(999, _("%s: No more memory.\n"), "matfile_listvar");
- return FALSE;
- }
- varnames[nbvar-1] = strdup(matvar->name);
- varclasses = (double*) REALLOC(varclasses, nbvar*sizeof(double));
- if (varnames == NULL)
- {
- Scierror(999, _("%s: No more memory.\n"), "matfile_listvar");
- return FALSE;
- }
- varclasses[nbvar-1] = (double) matvar->class_type;
- vartypes = (double*) REALLOC(vartypes, nbvar*sizeof(double));
- if (varnames == NULL)
- {
- Scierror(999, _("%s: No more memory.\n"), "matfile_listvar");
- return FALSE;
- }
- vartypes[nbvar-1] = (double) matvar->data_type;
-
- Mat_VarFree(matvar);
- matvar = Mat_VarReadNext(matfile);
+ Scierror(999, _("%s: Could not rewind the file %s.\n"), "matfile_listvar", matfile->filename);
+ return FALSE;
}
-
- Mat_VarFree(matvar);
-
- /* Return the variable names list */
- nbRow = nbvar; nbCol = 1;
- _SciErr = createMatrixOfString(pvApiCtx, Rhs+1, nbRow, nbCol, varnames); MATIO_ERROR;
- LhsVar(1) = Rhs+1;
-
- /* Return the variable classes */
- if (Lhs >= 2)
+
+ matvar = Mat_VarReadNext(matfile);
+ while (matvar != NULL && matvar->name != NULL)
{
- _SciErr = createMatrixOfDouble(pvApiCtx, Rhs+2, nbRow, nbCol, varclasses); MATIO_ERROR;
- LhsVar(2) = Rhs+2;
+ nbvar++;
+ varnames = (char**) REALLOC(varnames, nbvar * sizeof(char*));
+ if (varnames == NULL)
+ {
+ Scierror(999, _("%s: No more memory.\n"), "matfile_listvar");
+ return FALSE;
+ }
+ varnames[nbvar - 1] = strdup(matvar->name);
+ varclasses = (double*) REALLOC(varclasses, nbvar * sizeof(double));
+ if (varnames == NULL)
+ {
+ Scierror(999, _("%s: No more memory.\n"), "matfile_listvar");
+ return FALSE;
+ }
+ varclasses[nbvar - 1] = (double) matvar->class_type;
+ vartypes = (double*) REALLOC(vartypes, nbvar * sizeof(double));
+ if (varnames == NULL)
+ {
+ Scierror(999, _("%s: No more memory.\n"), "matfile_listvar");
+ return FALSE;
+ }
+ vartypes[nbvar - 1] = (double) matvar->data_type;
+
+ Mat_VarFree(matvar);
+ matvar = Mat_VarReadNext(matfile);
}
-
- /* Return the variable types */
- if (Lhs >= 3)
+
+ Mat_VarFree(matvar);
+
+ /* Return the variable names list */
+ nbRow = nbvar;
+ nbCol = 1;
+ sciErr = createMatrixOfString(pvApiCtx, Rhs + 1, nbRow, nbCol, varnames);
+ if (sciErr.iErr)
+ {
+ printError(&sciErr, 0);
+ return 0;
+ }
+ LhsVar(1) = Rhs + 1;
+
+ /* Return the variable classes */
+ if (Lhs >= 2)
{
- _SciErr = createMatrixOfDouble(pvApiCtx, Rhs+3, nbRow, nbCol, vartypes); MATIO_ERROR;
- LhsVar(3) = Rhs+3;
+ sciErr = createMatrixOfDouble(pvApiCtx, Rhs + 2, nbRow, nbCol, varclasses);
+ if (sciErr.iErr)
+ {
+ printError(&sciErr, 0);
+ return 0;
+ }
+ LhsVar(2) = Rhs + 2;
}
-
- freeArrayOfString(varnames, nbvar);
- FREE(varclasses);
- FREE(vartypes);
-
- PutLhsVar();
-
- return TRUE;
+
+ /* Return the variable types */
+ if (Lhs >= 3)
+ {
+ sciErr = createMatrixOfDouble(pvApiCtx, Rhs + 3, nbRow, nbCol, vartypes);
+ if (sciErr.iErr)
+ {
+ printError(&sciErr, 0);
+ return 0;
+ }
+ LhsVar(3) = Rhs + 3;
+ }
+
+ freeArrayOfString(varnames, nbvar);
+ FREE(varclasses);
+ FREE(vartypes);
+
+ PutLhsVar();
+
+ return TRUE;
}
projects / scilab.git / blobdiff