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 : sciarray.swg

/* --------------------------------------------------------------------------
 *
 *  Arrays typemaps
 *
 * --------------------------------------------------------------------------*/

%{
#include <stdio.h>
%}

%define %scilab_asarray_withallocatecopy(TYPEMAPTYPE, FRAGMENTNAME, CTYPE, TEMPDATATYPE)
%typemap(TYPEMAPTYPE, fragment="FRAGMENTNAME") CTYPE {
  size_t i = 0;
  int iRows = 0;
  int iCols = 0;
  TEMPDATATYPE *pTempData = NULL;
  if (FRAGMENTNAME(pvApiCtx, $input, &iRows, &iCols, &pTempData, fname)) {
    return SWIG_ERROR;
  }
  $1 = ($1_ltype)MALLOC(sizeof($*1_ltype) * iRows * iCols);
  for (i = 0; i < iRows * iCols; i++) {
    $1[i] = ($*1_ltype) pTempData[i];
  }
}
%enddef

%define %scilab_asarrayandsize_withcopy(TYPEMAPTYPE, FRAGMENTNAME, CTYPE, TEMPDATATYPE)
%typemap(TYPEMAPTYPE, fragment="FRAGMENTNAME") CTYPE {
  int iRows = 0;
  int iCols = 0;
  TEMPDATATYPE *pTempData = NULL;
  if (FRAGMENTNAME(pvApiCtx, $input, &iRows, &iCols, &pTempData, fname)) {
    return SWIG_ERROR;
  }
  if (iRows*iCols <= $1_dim0) {
    size_t i;
    for (i = 0; i < $1_dim0; i++) {
      $1[i] = ($*1_ltype) pTempData[i];
    }
  }
  else {
    char errmsg[100];
    sprintf(errmsg, "Size of input data (%d) is too big (maximum is %d)",
      iRows*iCols, $1_dim0);
    SWIG_exception_fail(SWIG_OverflowError, errmsg);
  }
}
%enddef

%define %scilab_fromarrayandsize(TYPEMAPTYPE, FRAGMENTNAME, CTYPE)
%typemap(TYPEMAPTYPE, noblock=1, fragment="FRAGMENTNAME") CTYPE {
  %set_output(FRAGMENTNAME(pvApiCtx, $result, 1, $1_dim0, $1));
}
%enddef

%define %scilab_array_typemaps(CTYPE, ASARRAY_FRAGMENT, FROMARRAY_FRAGMENT, TEMPDATATYPE)
  %scilab_asarrayandsize_withcopy(varin, ASARRAY_FRAGMENT, CTYPE[ANY], TEMPDATATYPE);
  %scilab_asarray_withallocatecopy(in, ASARRAY_FRAGMENT, CTYPE[ANY], TEMPDATATYPE);
  %scilab_fromarrayandsize(varout, FROMARRAY_FRAGMENT, CTYPE[ANY]);
  %scilab_fromarrayandsize(out, FROMARRAY_FRAGMENT, CTYPE[ANY]);

%apply SWIGTYPE[] { CTYPE[] };
  %scilab_asarray_withallocatecopy(in, ASARRAY_FRAGMENT, CTYPE[], TEMPDATATYPE);
%enddef

// Double
%scilab_array_typemaps(double, SWIG_SciDouble_AsDoubleArrayAndSize,
  SWIG_SciDouble_FromDoubleArrayAndSize, double);

// Signed char

%scilab_array_typemaps(signed char, SWIG_SciDoubleOrInt8_AsSignedCharArrayAndSize,
  SWIG_SciDouble_FromSignedCharArrayAndSize, signed char);

// Unsigned char
%scilab_array_typemaps(unsigned char, SWIG_SciDoubleOrUint8_AsUnsignedCharArrayAndSize,
  SWIG_SciDouble_FromUnsignedCharArrayAndSize, unsigned char);

// Short
%scilab_array_typemaps(short, SWIG_SciDoubleOrInt16_AsShortArrayAndSize,
  SWIG_SciDouble_FromShortArrayAndSize, short);

// Unsigned short
%scilab_array_typemaps(unsigned short, SWIG_SciDoubleOrUint16_AsUnsignedShortArrayAndSize,
  SWIG_SciDouble_FromUnsignedShortArrayAndSize, unsigned short);

// Int
%scilab_array_typemaps(int, SWIG_SciDoubleOrInt32_AsIntArrayAndSize,
  SWIG_SciDouble_FromIntArrayAndSize, int);

// Unsigned int
%scilab_array_typemaps(unsigned int, SWIG_SciDoubleOrUint32_AsUnsignedIntArrayAndSize,
  SWIG_SciDouble_FromUnsignedIntArrayAndSize, unsigned int);

// Long
%scilab_array_typemaps(long, SWIG_SciDoubleOrInt32_AsIntArrayAndSize,
  SWIG_SciDouble_FromLongArrayAndSize, int);

// Unsigned long
%scilab_array_typemaps(unsigned long, SWIG_SciDoubleOrUint32_AsUnsignedIntArrayAndSize,
  SWIG_SciDouble_FromUnsignedLongArrayAndSize, unsigned int);

// Float
%scilab_array_typemaps(float, SWIG_SciDouble_AsFloatArrayAndSize,
  SWIG_SciDouble_FromFloatArrayAndSize, float);

// Bool
%scilab_array_typemaps(bool, SWIG_SciBoolean_AsIntArrayAndSize,
  SWIG_SciBoolean_FromBoolArrayAndSize, int);

// Char *
%scilab_array_typemaps(char *, SWIG_SciString_AsCharPtrArrayAndSize,
  SWIG_SciString_FromCharPtrArrayAndSize, char *);

${this.title}

Code Editor : sciarray.swg