| /* |
| * FLOAT SCALAR |
| */ |
| |
| %fragment(SWIG_AsVal_frag(float), "header", fragment=SWIG_AsVal_frag(double)) { |
| SWIGINTERN int |
| SWIG_AsVal_dec(float)(SwigSciObject iVar, float *pfValue) { |
| double dblValue = 0.0; |
| if(SWIG_AsVal_dec(double)(iVar, &dblValue) != SWIG_OK) { |
| return SWIG_ERROR; |
| } |
| if (pfValue) |
| *pfValue = (float) dblValue; |
| return SWIG_OK; |
| } |
| } |
| |
| %fragment(SWIG_From_frag(float), "header") { |
| SWIGINTERN int |
| SWIG_From_dec(float)(float flValue) { |
| if (createScalarDouble(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) |
| + SWIG_Scilab_GetOutputPosition(), (double)flValue)) |
| return SWIG_ERROR; |
| return SWIG_OK; |
| } |
| } |
| |
| %fragment("SWIG_SciDouble_AsFloatArrayAndSize", "header") { |
| SWIGINTERN int |
| SWIG_SciDouble_AsFloatArrayAndSize(void *pvApiCtx, int iVar, int *iRows, int *iCols, float **pfValue, char *fname) { |
| SciErr sciErr; |
| int *piAddrVar = NULL; |
| double *pdValue = NULL; |
| |
| sciErr = getVarAddressFromPosition(pvApiCtx, iVar, &piAddrVar); |
| if (sciErr.iErr) { |
| printError(&sciErr, 0); |
| return SWIG_ERROR; |
| } |
| |
| if (isDoubleType(pvApiCtx, piAddrVar) && !isVarComplex(pvApiCtx, piAddrVar)) { |
| int i; |
| |
| sciErr = getMatrixOfDouble(pvApiCtx, piAddrVar, iRows, iCols, &pdValue); |
| if (sciErr.iErr) { |
| printError(&sciErr, 0); |
| return SWIG_ERROR; |
| } |
| |
| *pfValue = (float *) malloc((*iRows) * (*iCols) * sizeof(float)); |
| for (i=0; i < (*iRows) * (*iCols); i++) |
| (*pfValue)[i] = (float) pdValue[i]; |
| |
| return SWIG_OK; |
| } |
| else { |
| Scierror(SCILAB_API_ARGUMENT_ERROR, _("%s: Wrong type for input argument #%d: A real matrix expected.\n"), fname, iVar); |
| return SWIG_ERROR; |
| } |
| } |
| } |
| |
| %fragment("SWIG_SciDouble_FromFloatArrayAndSize", "header") { |
| SWIGINTERN int |
| SWIG_SciDouble_FromFloatArrayAndSize(void *pvApiCtx, int iVarOut, int iRows, int iCols, float *pfValue) { |
| SciErr sciErr; |
| double *pdValue; |
| int i; |
| |
| pdValue = (double *) malloc(iRows * iCols * sizeof(double)); |
| for (i = 0; i < iRows * iCols; i++) |
| pdValue[i] = pfValue[i]; |
| |
| sciErr = createMatrixOfDouble(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) + iVarOut, iRows, iCols, pdValue); |
| if (sciErr.iErr) { |
| printError(&sciErr, 0); |
| return SWIG_ERROR; |
| } |
| |
| free(pdValue); |
| return SWIG_OK; |
| } |
| } |