92 lines
1.8 KiB
Plaintext
92 lines
1.8 KiB
Plaintext
/*
|
|
* Scilab list related functions
|
|
*
|
|
*/
|
|
|
|
%fragment("SWIG_ScilabList", "header")
|
|
{
|
|
SWIGINTERN int
|
|
SWIG_GetScilabList(SwigSciObject obj, int **piListAddr)
|
|
{
|
|
SciErr sciErr;
|
|
|
|
sciErr = getVarAddressFromPosition(pvApiCtx, obj, piListAddr);
|
|
if (sciErr.iErr) {
|
|
printError(&sciErr, 0);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
return SWIG_OK;
|
|
}
|
|
|
|
SWIGINTERN int
|
|
SWIG_GetScilabListSize(SwigSciObject obj, int *piListSize)
|
|
{
|
|
SciErr sciErr;
|
|
int *piListAddr;
|
|
|
|
sciErr = getVarAddressFromPosition(pvApiCtx, obj, &piListAddr);
|
|
if (sciErr.iErr) {
|
|
printError(&sciErr, 0);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
sciErr = getListItemNumber(pvApiCtx, piListAddr, piListSize);
|
|
if (sciErr.iErr) {
|
|
printError(&sciErr, 0);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
return SWIG_OK;
|
|
}
|
|
|
|
SWIGINTERN int
|
|
SWIG_GetScilabListAndSize(SwigSciObject obj, int **piListAddr, int *piListSize)
|
|
{
|
|
SciErr sciErr;
|
|
|
|
sciErr = getVarAddressFromPosition(pvApiCtx, obj, piListAddr);
|
|
if (sciErr.iErr) {
|
|
printError(&sciErr, 0);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
sciErr = getListItemNumber(pvApiCtx, *piListAddr, piListSize);
|
|
if (sciErr.iErr) {
|
|
printError(&sciErr, 0);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
return SWIG_OK;
|
|
}
|
|
|
|
SWIGINTERN int
|
|
SWIG_CheckScilabList(SwigSciObject obj)
|
|
{
|
|
SciErr sciErr;
|
|
int *piListAddr;
|
|
int iType;
|
|
|
|
sciErr = getVarAddressFromPosition(pvApiCtx, obj, &piListAddr);
|
|
if (sciErr.iErr) {
|
|
printError(&sciErr, 0);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
sciErr = getVarType(pvApiCtx, piListAddr, &iType);
|
|
if (sciErr.iErr) {
|
|
printError(&sciErr, 0);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
if ((iType != sci_list) && (iType != sci_tlist) && (iType != sci_mlist)) {
|
|
Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong type for input argument #%d: A list is expected.\n"), SWIG_Scilab_GetFuncName(), obj);
|
|
return SWIG_ERROR;
|
|
}
|
|
|
|
return SWIG_OK;
|
|
}
|
|
|
|
}
|
|
|