53 lines
1.9 KiB
Text
53 lines
1.9 KiB
Text
/*
|
|
* C-type: unsigned long
|
|
* Scilab type: see unsigned int
|
|
*/
|
|
|
|
%fragment(SWIG_AsVal_frag(unsigned long), "header", fragment="SWIG_UnsignedInt_AsUnsignedLong") {
|
|
#define SWIG_AsVal_unsigned_SS_long(scilabValue, valuePointer) SWIG_UnsignedInt_AsUnsignedLong(pvApiCtx, scilabValue, valuePointer, SWIG_Scilab_GetFuncName())
|
|
}
|
|
%fragment("SWIG_UnsignedInt_AsUnsignedLong", "header", fragment=SWIG_AsVal_frag(unsigned int)) {
|
|
SWIGINTERN int
|
|
SWIG_UnsignedInt_AsUnsignedLong(void *pvApiCtx, SwigSciObject iVar, unsigned long *pulValue, char *fname) {
|
|
unsigned int uiValue = 0;
|
|
if(SWIG_AsVal_unsigned_SS_int(iVar, &uiValue) != SWIG_OK) {
|
|
return SWIG_ERROR;
|
|
}
|
|
*pulValue = (unsigned long) uiValue;
|
|
return SWIG_OK;
|
|
}
|
|
}
|
|
|
|
%fragment(SWIG_From_frag(unsigned long), "header", fragment="SWIG_UnsignedInt_FromUnsignedLong") {
|
|
#define SWIG_From_unsigned_SS_long(scilabValue) SWIG_UnsignedInt_FromUnsignedLong(pvApiCtx, SWIG_Scilab_GetOutputPosition(), scilabValue, SWIG_Scilab_GetFuncName())
|
|
}
|
|
%fragment("SWIG_UnsignedInt_FromUnsignedLong", "header", fragment=SWIG_From_frag(unsigned int)) {
|
|
SWIGINTERN int
|
|
SWIG_UnsignedInt_FromUnsignedLong(void *pvApiCtx, int iVarOut, unsigned long ulValue, char *fname) {
|
|
return SWIG_From_unsigned_SS_int((unsigned int)ulValue);
|
|
}
|
|
}
|
|
|
|
%fragment("SWIG_SciDouble_FromUnsignedLongArrayAndSize", "header") {
|
|
SWIGINTERN int
|
|
SWIG_SciDouble_FromUnsignedLongArrayAndSize(void *pvApiCtx, int iVarOut, int iRows, int iCols, const unsigned long *pulValues) {
|
|
SciErr sciErr;
|
|
double *pdValues = NULL;
|
|
int i;
|
|
|
|
pdValues = (double*) malloc(iRows * iCols * sizeof(double));
|
|
for (i=0; i<iRows * iCols; i++) {
|
|
pdValues[i] = pulValues[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;
|
|
}
|
|
}
|