jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scilab: optimize typemap AsInt

Browse source
This commit is contained in:
Simon Marchetto 2014-01-30 16:07:41 +01:00
commit 7f14aa583a
1 changed files with 46 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

91
Lib/scilab/sciint.swg
View file

@ -11,66 +11,67 @@ SWIGINTERN int
SWIG_SciDoubleOrInt32_AsInt(void *_pvApiCtx, SwigSciObject _iVar, int *_piValue, char *_fname) SWIG_SciDoubleOrInt32_AsInt(void *_pvApiCtx, SwigSciObject _iVar, int *_piValue, char *_fname)
{ {
SciErr sciErr; SciErr sciErr;
int iRet = 0; int iType = 0;
int iRows = 0;
int iCols = 0;
int *piAddrVar = NULL; int *piAddrVar = NULL;
int iPrecision = 0;
int iValue;
sciErr = getVarAddressFromPosition(_pvApiCtx, _iVar, &piAddrVar); sciErr = getVarAddressFromPosition(_pvApiCtx, _iVar, &piAddrVar);
if (sciErr.iErr) if (sciErr.iErr) {
{
printError(&sciErr, 0); printError(&sciErr, 0);
return SWIG_ERROR; return SWIG_ERROR;
} }
if (!isScalar(_pvApiCtx, piAddrVar)) sciErr = getVarType(_pvApiCtx, piAddrVar, &iType);
{ if (sciErr.iErr) {
Scierror(999, _("%s: Wrong size for argument %d: a scalar expected.\n"), printError(&sciErr, 0);
SWIG_Scilab_GetFname(),_iVar); return SWIG_ERROR;
return 999;
} }
if (iType == sci_ints) {
int iPrec = 0;
int *piData = NULL;
// Accepts double or 32-bit signed integer sciErr = getMatrixOfIntegerPrecision(_pvApiCtx, piAddrVar, &iPrec);
if (isDoubleType(_pvApiCtx, piAddrVar) && !isVarComplex(_pvApiCtx, piAddrVar)) if (sciErr.iErr) {
{ printError(&sciErr, 0);
double dValue = 0.0; return SWIG_ERROR;
iRet = getScalarDouble(_pvApiCtx, piAddrVar, &dValue); }
if (iRet) if (iPrec != SCI_INT32) {
{ Scierror(999, _("%s: Wrong type for input argument #%d: A 32-bit signed integer or double expected.\n"), _fname, _iVar);
return SWIG_ERROR; return SWIG_ERROR;
} }
iValue = (int)dValue; sciErr = getMatrixOfInteger32(_pvApiCtx, piAddrVar, &iRows, &iCols, &piData);
if (sciErr.iErr) {
printError(&sciErr, 0);
return SWIG_ERROR;
}
if (iRows * iCols != 1) {
Scierror(999, _("%s: Wrong size for input argument #%d: A 32-bit signed integer or double expected.\n"), _fname, _iVar);
return SWIG_ERROR;
}
*_piValue = *piData;
} }
else if (isIntegerType(pvApiCtx, piAddrVar)) else if (iType == sci_matrix) {
{ double *pdData = NULL;
sciErr = getMatrixOfIntegerPrecision(_pvApiCtx, piAddrVar, &iPrecision);
if (sciErr.iErr)
{
printError(&sciErr, 0);
return sciErr.iErr;
}
if (iPrecision == SCI_INT32) sciErr = getMatrixOfDouble(_pvApiCtx, piAddrVar, &iRows, &iCols, &pdData);
{ if (sciErr.iErr) {
iRet = getScalarInteger32(_pvApiCtx, piAddrVar, &iValue); printError(&sciErr, 0);
} return SWIG_ERROR;
}
if (iRows * iCols != 1) {
Scierror(999, _("%s: Wrong size for input argument #%d: A 32-bit signed integer or double expected.\n"), _fname, _iVar);
return SWIG_ERROR;
}
*_piValue = (int) *pdData;
}
else {
Scierror(999, _("%s: Wrong type for input argument #%d: A 32-bit signed integer or double expected.\n"), _fname, _iVar);
return SWIG_ERROR;
} }
if (iRet == 0) return SWIG_OK;
{
if (_piValue)
{
*_piValue = iValue;
}
return SWIG_OK;
}
else
{
Scierror(999, _("%s: Wrong type for argument %d: A 32-bit signed integer or a real expected.\n"),
SWIG_Scilab_GetFname(), _iVar);
return 999;
}
} }
} }