/*
 * 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;
}

}