sciunsignedlong.swg 1.9 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. /*
  2. * C-type: unsigned long
  3. * Scilab type: see unsigned int
  4. */
  5. %fragment(SWIG_AsVal_frag(unsigned long), "header", fragment="SWIG_UnsignedInt_AsUnsignedLong") {
  6. #define SWIG_AsVal_unsigned_SS_long(scilabValue, valuePointer) SWIG_UnsignedInt_AsUnsignedLong(pvApiCtx, scilabValue, valuePointer, SWIG_Scilab_GetFuncName())
  7. }
  8. %fragment("SWIG_UnsignedInt_AsUnsignedLong", "header", fragment=SWIG_AsVal_frag(unsigned int)) {
  9. SWIGINTERN int
  10. SWIG_UnsignedInt_AsUnsignedLong(void *pvApiCtx, SwigSciObject iVar, unsigned long *pulValue, char *fname) {
  11. unsigned int uiValue = 0;
  12. if(SWIG_AsVal_unsigned_SS_int(iVar, &uiValue) != SWIG_OK) {
  13. return SWIG_ERROR;
  14. }
  15. *pulValue = (unsigned long) uiValue;
  16. return SWIG_OK;
  17. }
  18. }
  19. %fragment(SWIG_From_frag(unsigned long), "header", fragment="SWIG_UnsignedInt_FromUnsignedLong") {
  20. #define SWIG_From_unsigned_SS_long(scilabValue) SWIG_UnsignedInt_FromUnsignedLong(pvApiCtx, SWIG_Scilab_GetOutputPosition(), scilabValue, SWIG_Scilab_GetFuncName())
  21. }
  22. %fragment("SWIG_UnsignedInt_FromUnsignedLong", "header", fragment=SWIG_From_frag(unsigned int)) {
  23. SWIGINTERN int
  24. SWIG_UnsignedInt_FromUnsignedLong(void *pvApiCtx, int iVarOut, unsigned long ulValue, char *fname) {
  25. return SWIG_From_unsigned_SS_int((unsigned int)ulValue);
  26. }
  27. }
  28. %fragment("SWIG_SciDouble_FromUnsignedLongArrayAndSize", "header") {
  29. SWIGINTERN int
  30. SWIG_SciDouble_FromUnsignedLongArrayAndSize(void *pvApiCtx, int iVarOut, int iRows, int iCols, const unsigned long *pulValues) {
  31. SciErr sciErr;
  32. double *pdValues = NULL;
  33. int i;
  34. pdValues = (double*) malloc(iRows * iCols * sizeof(double));
  35. for (i=0; i<iRows * iCols; i++) {
  36. pdValues[i] = pulValues[i];
  37. }
  38. sciErr = createMatrixOfDouble(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) + iVarOut, iRows, iCols, pdValues);
  39. if (sciErr.iErr) {
  40. printError(&sciErr, 0);
  41. free(pdValues);
  42. return SWIG_ERROR;
  43. }
  44. free(pdValues);
  45. return SWIG_OK;
  46. }
  47. }