types::InternalType* import_data(int dataset)
{
//get var type
char* ctype = getScilabTypeFromDataSet6(dataset);
std::string type(ctype);
FREE(ctype);
if (type == g_SCILAB_CLASS_DOUBLE)
{
return import_double(dataset);
}
if (type == g_SCILAB_CLASS_STRING)
{
return import_string(dataset);
}
if (type == g_SCILAB_CLASS_INT)
{
return import_int(dataset);
}
if (type == g_SCILAB_CLASS_BOOLEAN)
{
return import_boolean(dataset);
}
if (type == g_SCILAB_CLASS_LIST)
{
return import_list(dataset, new types::List());
}
if (type == g_SCILAB_CLASS_TLIST)
{
return import_list(dataset, new types::TList());
}
if (type == g_SCILAB_CLASS_MLIST)
{
return import_list(dataset, new types::MList());
}
if (type == g_SCILAB_CLASS_STRUCT)
{
return import_struct(dataset);
}
if (type == g_SCILAB_CLASS_POLY)
{
return import_poly(dataset);
}
if (type == g_SCILAB_CLASS_SPARSE)
{
return import_sparse(dataset);
}
if (type == g_SCILAB_CLASS_BSPARSE)
{
return import_boolean_sparse(dataset);
}
if (type == g_SCILAB_CLASS_CELL)
{
return import_cell(dataset);
}
if (type == g_SCILAB_CLASS_HANDLE)
{
return import_handles(dataset);
}
if (type == g_SCILAB_CLASS_MACRO)
{
return import_macro(dataset);
}
if (type == g_SCILAB_CLASS_VOID)
{
closeDataSet(dataset);
return new types::Void();
}
if (type == g_SCILAB_CLASS_UNDEFINED)
{
closeDataSet(dataset);
return new types::ListUndefined();
}
if (type == g_SCILAB_CLASS_USERTYPE)
{
return import_usertype(dataset);
}
return nullptr;
}
static bool import_data(int* pvCtx, int _iDatasetId, int _iItemPos, int *_piAddress, char *_pstVarname)
{
bool bRet = false;
//get var type
int iVarType = getScilabTypeFromDataSet(_iDatasetId);
switch (iVarType)
{
case sci_matrix:
{
bRet = import_double(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_strings:
{
bRet = import_string(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_list:
case sci_tlist:
case sci_mlist:
{
bRet = import_hypermat(pvCtx, _iDatasetId, iVarType, _iItemPos, _piAddress, _pstVarname);
if (bRet == false)
{
bRet = import_struct(pvCtx, _iDatasetId, iVarType, _iItemPos, _piAddress, _pstVarname);
}
if (bRet == false)
{
bRet = import_cell(pvCtx, _iDatasetId, iVarType, _iItemPos, _piAddress, _pstVarname);
}
if (bRet == false)
{
bRet = import_list(pvCtx, _iDatasetId, iVarType, _iItemPos, _piAddress, _pstVarname);
}
break;
}
case sci_boolean:
{
bRet = import_boolean(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_poly:
{
bRet = import_poly(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_ints:
{
bRet = import_integer(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_sparse:
{
bRet = import_sparse(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_boolean_sparse:
{
bRet = import_boolean_sparse(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_void: //void item only on list variable
{
bRet = import_void(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
case sci_undefined: //undefined item only on list variable
{
bRet = import_undefined(pvCtx, _iDatasetId, _iItemPos, _piAddress, _pstVarname);
break;
}
default:
{
Scierror(999, _("%s: Invalid HDF5 Scilab format.\n"), fname.data());
}
}
return bRet;
}
static types::InternalType* import_usertype(int dataset)
{
types::InternalType* it = import_struct(dataset);
if (it == nullptr || it->isStruct() == false)
{
delete it;
return nullptr;
}
types::Struct* str = it->getAs<types::Struct>();
if (str->isScalar() == false)
{
delete it;
return nullptr;
}
types::SingleStruct* ss = str->get()[0];
//extract type from struct
types::InternalType* itType = ss->get(L"type");
if (itType == nullptr || itType->getId() != types::InternalType::IdScalarString)
{
delete it;
return nullptr;
}
types::String* s = it->getAs<types::String>();
wchar_t* type = s->get()[0];
types::InternalType* data = ss->get(L"data");
if (data == nullptr)
{
delete it;
return nullptr;
}
//call %yourtype_load overload
types::typed_list in;
in.push_back(data);
types::typed_list out;
//overload
// rational case
std::wstring wstFuncName = L"%" + data->getShortTypeStr() + L"_load";
types::Callable::ReturnValue ret = Overload::call(wstFuncName, in, 1, out);
//clean temporary variables
delete it; //included type and data
if (ret != types::Callable::OK)
{
return nullptr;
}
if (out.size() != 1)
{
for (auto & i : out)
{
i->killMe();
}
return nullptr;
}
return out[0];
}