Winodows MSCV 2015 64位编译好的libmatio库，拿来即用，不需要重新编译源码

/** @file mat5.c * Matlab MAT version 5 file functions * @ingroup MAT */ /* * Copyright (c) 2005-2021, Christopher C. Hulbert * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are met: * * 1. Redistributions of source code must retain the above copyright notice, this * list of conditions and the following disclaimer. * * 2. Redistributions in binary form must reproduce the above copyright notice, * this list of conditions and the following disclaimer in the documentation * and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* FIXME: Implement Unicode support */ #include "matio_private.h" #include "mat5.h" #include <stddef.h> #include <stdlib.h> #include <string.h> #include <stdio.h> #include <math.h> #include <time.h> #if defined(_MSC_VER) || defined(__MINGW32__) # define strdup _strdup #endif /** Get type from tag */ #define TYPE_FROM_TAG(a) ( ((a) & 0x000000ff) <= MAT_T_FUNCTION ) ? (enum matio_types)((a) & 0x000000ff) : MAT_T_UNKNOWN /** Get class from array flag */ #define CLASS_FROM_ARRAY_FLAGS(a) ( ((a) & 0x000000ff) <= MAT_C_OPAQUE ) ? ((enum matio_classes)((a) & 0x000000ff)) : MAT_C_EMPTY /** Class type mask */ #define CLASS_TYPE_MASK 0x000000ff static mat_complex_split_t null_complex_data = {NULL,NULL}; /*=========================================================================== * Private functions *=========================================================================== */ static int GetTypeBufSize(matvar_t *matvar, size_t *size); static int GetStructFieldBufSize(matvar_t *matvar, size_t *size); static int GetCellArrayFieldBufSize(matvar_t *matvar, size_t *size); static void SetFieldNames(matvar_t *matvar, char *buf, size_t nfields, mat_uint32_t fieldname_length); static size_t ReadSparse(mat_t *mat, matvar_t *matvar, mat_uint32_t *n, mat_uint32_t **v); #if HAVE_ZLIB static int GetMatrixMaxBufSize(matvar_t *matvar, size_t *size); #endif static int GetEmptyMatrixMaxBufSize(const char *name, int rank, size_t *size); static size_t WriteCharData(mat_t *mat, void *data, int N,enum matio_types data_type); static size_t ReadNextCell( mat_t *mat, matvar_t *matvar ); static size_t ReadNextStructField( mat_t *mat, matvar_t *matvar ); static size_t ReadNextFunctionHandle(mat_t *mat, matvar_t *matvar); static int ReadRankDims(mat_t *mat, matvar_t *matvar, enum matio_types data_type, mat_uint32_t nbytes, size_t *read_bytes); static int WriteType(mat_t *mat,matvar_t *matvar); static int WriteCellArrayField(mat_t *mat,matvar_t *matvar ); static int WriteStructField(mat_t *mat,matvar_t *matvar); static int WriteData(mat_t *mat,void *data,size_t N,enum matio_types data_type); static size_t Mat_WriteEmptyVariable5(mat_t *mat,const char *name,int rank, size_t *dims); static int Mat_VarReadNumeric5(mat_t *mat,matvar_t *matvar,void *data,size_t N); #if HAVE_ZLIB static size_t WriteCompressedCharData(mat_t *mat,z_streamp z,void *data,int N, enum matio_types data_type); static size_t WriteCompressedData(mat_t *mat,z_streamp z,void *data,int N, enum matio_types data_type); static size_t WriteCompressedTypeArrayFlags(mat_t *mat,matvar_t *matvar, z_streamp z); static size_t WriteCompressedType(mat_t *mat,matvar_t *matvar,z_streamp z); static size_t WriteCompressedCellArrayField(mat_t *mat,matvar_t *matvar, z_streamp z); static size_t WriteCompressedStructField(mat_t *mat,matvar_t *matvar, z_streamp z); static size_t Mat_WriteCompressedEmptyVariable5(mat_t *mat,const char *name, int rank,size_t *dims,z_streamp z); #endif /** @brief determines the number of bytes for a given class type * * @ingroup mat_internal * @param matvar MAT variable * @param size the number of bytes needed to store the MAT variable * @return 0 on success */ static int GetTypeBufSize(matvar_t *matvar, size_t *size) { int err; size_t nBytes, data_bytes; size_t tag_size = 8; size_t nelems = 1; size_t rank_size; *size = 0; err = Mat_MulDims(matvar, &nelems); if ( err ) return err; /* Add rank and dimensions, padded to an 8 byte block */ err = Mul(&rank_size, matvar->rank, 4); if ( err ) return err; if ( matvar->rank % 2 ) nBytes = tag_size + 4; else nBytes = tag_size; err = Add(&nBytes, nBytes, rank_size); if ( err ) return err; switch ( matvar->class_type ) { case MAT_C_STRUCT: { matvar_t **fields = (matvar_t**)matvar->data; size_t nfields = matvar->internal->num_fields; size_t maxlen = 0, i, field_buf_size; for ( i = 0; i < nfields; i++ ) { char *fieldname = matvar->internal->fieldnames[i]; if ( NULL != fieldname && strlen(fieldname) > maxlen ) maxlen = strlen(fieldname); } maxlen++; while ( nfields*maxlen % 8 != 0 ) maxlen++; err = Mul(&field_buf_size, maxlen, nfields); if ( err ) return err; err = Add(&nBytes, nBytes, tag_size + tag_size); if ( err ) return err; err = Add(&nBytes, nBytes, field_buf_size); if ( err ) return err; /* FIXME: Add bytes for the fieldnames */ if ( NULL != fields && nfields > 0 ) { size_t nelems_x_nfields = 1; err = Mul(&nelems_x_nfields, nelems, nfields); if ( err ) return err; for ( i = 0; i < nelems_x_nfields; i++ ) { err = GetStructFieldBufSize(fields[i], &field_buf_size); if ( err ) return err; err = Add(&nBytes, nBytes, tag_size); if ( err ) return err; err = Add(&nBytes, nBytes, field_buf_size); if ( err ) return err; } } break; } case MAT_C_CELL: { matvar_t **cells = (matvar_t**)matvar->data; if ( matvar->nbytes == 0 || matvar->data_size == 0 ) break; nelems = matvar->nbytes / matvar->data_size; if ( NULL != cells && nelems > 0 ) { size_t i, field_buf_size; for ( i = 0; i < nelems; i++ ) { err = GetCellArrayFieldBufSize(cells[i], &field_buf_size); if ( err ) return err; err = Add(&nBytes, nBytes, tag_size); if ( err ) return err; err = Add(&nBytes, nBytes, field_buf_size); if ( err ) return err; } } break; } case MAT_C_SPARSE: {