Gecko [ www.jdcpatala.org ]

Name	Size	Permission
boost_shared_ptr.i	20.88 KB	-rw-r--r--
carrays.i	129 B	-rw-r--r--
cmalloc.i	32 B	-rw-r--r--
cpointer.i	33 B	-rw-r--r--
exception.i	130 B	-rw-r--r--
matrix.i	149 B	-rw-r--r--
sciarray.swg	3.69 KB	-rw-r--r--
scibool.swg	3.98 KB	-rw-r--r--
scichar.swg	7.76 KB	-rw-r--r--
scicontainer.swg	10.56 KB	-rw-r--r--
scidouble.swg	3.23 KB	-rw-r--r--
scienum.swg	1.12 KB	-rw-r--r--
sciexception.swg	1.85 KB	-rw-r--r--
scifloat.swg	2.17 KB	-rw-r--r--
sciint.swg	6.21 KB	-rw-r--r--
sciiterators.swg	9.08 KB	-rw-r--r--
scilab.swg	148 B	-rw-r--r--
scilist.swg	1.78 KB	-rw-r--r--
scilong.swg	3.98 KB	-rw-r--r--
scilonglong.swg	2.3 KB	-rw-r--r--
scimacros.swg	266 B	-rw-r--r--
scimatrixbool.swg	4.35 KB	-rw-r--r--
scimatrixchar.swg	5.01 KB	-rw-r--r--
scimatrixdouble.swg	4.48 KB	-rw-r--r--
scimatrixint.swg	4.38 KB	-rw-r--r--
scimisctypes.swg	2.12 KB	-rw-r--r--
scipointer.swg	1.4 KB	-rw-r--r--
sciprimtypes.swg	406 B	-rw-r--r--
scirun.swg	14.51 KB	-rw-r--r--
sciruntime.swg	962 B	-rw-r--r--
scisequence.swg	7.14 KB	-rw-r--r--
scisequencebool.swg	2.69 KB	-rw-r--r--
scisequencedouble.swg	2.75 KB	-rw-r--r--
scisequencefloat.swg	2.72 KB	-rw-r--r--
scisequenceint.swg	2.83 KB	-rw-r--r--
scisequencepointer.swg	2.83 KB	-rw-r--r--
scisequencestring.swg	2.61 KB	-rw-r--r--
scishort.swg	5.76 KB	-rw-r--r--
scisignedchar.swg	5.85 KB	-rw-r--r--
scistdcommon.swg	5.75 KB	-rw-r--r--
scitypemaps.swg	9.96 KB	-rw-r--r--
sciunsignedchar.swg	6.04 KB	-rw-r--r--
sciunsignedint.swg	6.46 KB	-rw-r--r--
sciunsignedlong.swg	1.87 KB	-rw-r--r--
sciunsignedshort.swg	6.11 KB	-rw-r--r--
std_alloc.i	28 B	-rw-r--r--
std_basic_string.i	1.16 KB	-rw-r--r--
std_char_traits.i	33 B	-rw-r--r--
std_common.i	2.28 KB	-rw-r--r--
std_container.i	60 B	-rw-r--r--
std_deque.i	802 B	-rw-r--r--
std_except.i	35 B	-rw-r--r--
std_list.i	783 B	-rw-r--r--
std_map.i	2.4 KB	-rw-r--r--
std_multiset.i	854 B	-rw-r--r--
std_pair.i	768 B	-rw-r--r--
std_set.i	782 B	-rw-r--r--
std_shared_ptr.i	68 B	-rw-r--r--
std_string.i	998 B	-rw-r--r--
std_vector.i	813 B	-rw-r--r--
stl.i	291 B	-rw-r--r--
typemaps.i	1.6 KB	-rw-r--r--

Code Editor : sciint.swg

/*
 * C-type: int
 * Scilab type: double or int32
 */

%fragment(SWIG_AsVal_frag(int), "header", fragment="SWIG_SciDoubleOrInt32_AsInt", fragment="<limits.h>") {
%#define SWIG_AsVal_int(scilabValue, valuePointer) SWIG_SciDoubleOrInt32_AsInt(pvApiCtx, scilabValue, valuePointer, SWIG_Scilab_GetFuncName())
}
%fragment("SWIG_SciDoubleOrInt32_AsInt", "header") {
SWIGINTERN int
SWIG_SciDoubleOrInt32_AsInt(void *pvApiCtx, SwigSciObject iVar, int *piValue, char *fname)
{
  SciErr sciErr;
  int iType = 0;
  int iRows = 0;
  int iCols = 0;
  int *piAddrVar = NULL;

sciErr = getVarAddressFromPosition(pvApiCtx, iVar, &piAddrVar);
  if (sciErr.iErr) {
    printError(&sciErr, 0);
    return SWIG_ERROR;
  }

sciErr = getVarType(pvApiCtx, piAddrVar, &iType);
  if (sciErr.iErr) {
    printError(&sciErr, 0);
    return SWIG_ERROR;
  }

if (iType == sci_ints) {
    if (piValue) {
      int iPrec = 0;
      int *piData = NULL;

sciErr = getMatrixOfIntegerPrecision(pvApiCtx, piAddrVar, &iPrec);
      if (sciErr.iErr) {
        printError(&sciErr, 0);
        return SWIG_ERROR;
      }
      if (iPrec != SCI_INT32) {
        Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong type for input argument #%d: A 32-bit signed integer or a double expected.\n"), fname, iVar);
        return SWIG_TypeError;
      }
      sciErr = getMatrixOfInteger32(pvApiCtx, piAddrVar, &iRows, &iCols, &piData);
      if (sciErr.iErr) {
        printError(&sciErr, 0);
        return SWIG_ERROR;
      }
      if (iRows * iCols != 1) {
        Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong size for input argument #%d: A 32-bit signed integer or a double expected.\n"), fname, iVar);
        return SWIG_TypeError;
      }
      *piValue = *piData;
    }
  }
  else if (iType == sci_matrix) {
    if (piValue) {
      double *pdData = NULL;
      double dValue = 0.0f;
      sciErr = getMatrixOfDouble(pvApiCtx, piAddrVar, &iRows, &iCols, &pdData);
      if (sciErr.iErr) {
        printError(&sciErr, 0);
        return SWIG_ERROR;
      }
      if (iRows * iCols != 1) {
        Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong size for input argument #%d: A 32-bit signed integer or a double expected.\n"), fname, iVar);
        return SWIG_TypeError;
      }
      dValue = *pdData;
      if (dValue != floor(dValue)) {
        Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Incorrect value for input argument #%d: The double value cannot be converted to a 32-bit signed integer.\n"), fname, iVar);
        return SWIG_ValueError;
      }
      if ((dValue < INT_MIN) || (dValue > INT_MAX)) {
        Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Overflow error for input argument #%d: The double value cannot be converted to a 32-bit signed integer.\n"), fname, iVar);
        return SWIG_OverflowError;
      }
      *piValue = (int) dValue;
    }
  }
  else {
    Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong type for input argument #%d: A 32-bit signed integer or a double expected.\n"), fname, iVar);
    return SWIG_TypeError;
  }

return SWIG_OK;
}
}

%fragment(SWIG_From_frag(int), "header", fragment="SWIG_SciDouble_FromInt") {
%#define SWIG_From_int(scilabValue) SWIG_SciDouble_FromInt(pvApiCtx, SWIG_Scilab_GetOutputPosition(), scilabValue, SWIG_Scilab_GetFuncName())
}
%fragment("SWIG_SciDouble_FromInt", "header") {
SWIGINTERN int
SWIG_SciDouble_FromInt(void *pvApiCtx, int iVarOut, int iValue, char *fname){
  if (createScalarDouble(pvApiCtx, SWIG_NbInputArgument(pvApiCtx)
    + iVarOut, (double) iValue))
    return SWIG_ERROR;
  return SWIG_OK;
}
}

/*
 * C-type: int[]
 * Scilab type: double or int32 matrix
 */
%fragment("SWIG_SciDoubleOrInt32_AsIntArrayAndSize", "header") {
SWIGINTERN int
SWIG_SciDoubleOrInt32_AsIntArrayAndSize(void *pvApiCtx, int iVar, int *iRows, int *iCols, int **piValue, char *fname) {
  SciErr sciErr;
  int iType = 0;
  int *piAddrVar = NULL;

sciErr = getVarAddressFromPosition(pvApiCtx, iVar, &piAddrVar);
  if (sciErr.iErr) {
    printError(&sciErr, 0);
    return SWIG_ERROR;
  }

sciErr = getVarType(pvApiCtx, piAddrVar, &iType);
  if (sciErr.iErr) {
    printError(&sciErr, 0);
    return SWIG_ERROR;
  }

if (iType == sci_matrix) {
    double *pdData = NULL;
    int size = 0;
    int i;

sciErr = getMatrixOfDouble(pvApiCtx, piAddrVar, iRows, iCols, &pdData);
    if (sciErr.iErr) {
      printError(&sciErr, 0);
      return SWIG_ERROR;
    }

size = (*iRows) * (*iCols);
    *piValue = (int*) malloc(size * sizeof(int*));
    for (i = 0; i < size; i++)
      (*piValue)[i] = (int) pdData[i];
  }
  else if (iType == sci_ints) {
    int iPrec = 0;
    sciErr = getMatrixOfIntegerPrecision(pvApiCtx, piAddrVar, &iPrec);
    if (sciErr.iErr) {
      printError(&sciErr, 0);
      return SWIG_ERROR;
    }
    if (iPrec != SCI_INT32) {
      Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong type for input argument #%d: A 32-bit signed integer or a double matrix expected.\n"), fname, iVar);
      return SWIG_ERROR;
    }
    sciErr = getMatrixOfInteger32(pvApiCtx, piAddrVar, iRows, iCols, piValue);
    if (sciErr.iErr) {
      printError(&sciErr, 0);
      return SWIG_ERROR;
    }
  }
  else {
    Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong type for input argument #%d: A 32-bit signed integer or a double matrix expected.\n"), fname, iVar);
    return SWIG_ERROR;
  }
  return SWIG_OK;
}
}

%fragment("SWIG_SciDouble_FromIntArrayAndSize", "header") {
SWIGINTERN int
SWIG_SciDouble_FromIntArrayAndSize(void *pvApiCtx, int iVarOut, int iRows, int iCols, const int *piData) {
  SciErr sciErr;
  double *pdValues = NULL;
  int i;

pdValues = (double*) malloc(iRows * iCols * sizeof(double));
  for (i=0; i<iRows * iCols; i++)
    pdValues[i] = piData[i];

sciErr = createMatrixOfDouble(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) + iVarOut, iRows, iCols, pdValues);
  if (sciErr.iErr) {
    printError(&sciErr, 0);
    free(pdValues);
    return SWIG_ERROR;
  }

free(pdValues);
  return SWIG_OK;
}
}

%fragment(SWIG_CreateScilabVariable_frag(int), "wrapper") {
SWIGINTERN int
SWIG_CreateScilabVariable_dec(int)(void *pvApiCtx, const char* psVariableName, const int iVariableValue) {
  SciErr sciErr;
  sciErr = createNamedMatrixOfInteger32(pvApiCtx, psVariableName, 1, 1, &iVariableValue);
  if (sciErr.iErr) {
    printError(&sciErr, 0);
    return SWIG_ERROR;
  }
  return SWIG_OK;
}
}

${this.title}

Code Editor : sciint.swg