Gecko [ dataharbor.africa ]

Name	Size	Permission
attribute.swg	9.37 KB	-rw-r--r--
carrays.swg	2.62 KB	-rw-r--r--
cdata.swg	1.83 KB	-rw-r--r--
cmalloc.swg	2.38 KB	-rw-r--r--
cpointer.swg	3.18 KB	-rw-r--r--
cstring.swg	167 B	-rw-r--r--
cstrings.swg	8.03 KB	-rw-r--r--
cwstring.swg	207 B	-rw-r--r--
enumint.swg	906 B	-rw-r--r--
exception.swg	2.65 KB	-rw-r--r--
factory.swg	2.38 KB	-rw-r--r--
fragments.swg	6.65 KB	-rw-r--r--
implicit.swg	4.71 KB	-rw-r--r--
inoutlist.swg	9.26 KB	-rw-r--r--
misctypes.swg	467 B	-rw-r--r--
primtypes.swg	8.38 KB	-rw-r--r--
ptrtypes.swg	6.44 KB	-rw-r--r--
std_except.swg	1.16 KB	-rw-r--r--
std_string.swg	350 B	-rw-r--r--
std_strings.swg	1.93 KB	-rw-r--r--
std_wstring.swg	395 B	-rw-r--r--
string.swg	547 B	-rw-r--r--
strings.swg	18.11 KB	-rw-r--r--
swigmacros.swg	7.94 KB	-rw-r--r--
swigobject.swg	894 B	-rw-r--r--
swigtype.swg	18.78 KB	-rw-r--r--
swigtypemaps.swg	4.87 KB	-rw-r--r--
traits.swg	7.37 KB	-rw-r--r--
typemaps.swg	4.46 KB	-rw-r--r--
valtypes.swg	6.97 KB	-rw-r--r--
void.swg	2.02 KB	-rw-r--r--
wstring.swg	567 B	-rw-r--r--

Code Editor : carrays.swg

/* -----------------------------------------------------------------------------
 * carrays.swg
 *
 * This library file contains macros that can be used to manipulate simple
 * pointers as arrays.
 * ----------------------------------------------------------------------------- */

/* -----------------------------------------------------------------------------
 * %array_functions(TYPE,NAME)
 *
 * Generates functions for creating and accessing elements of a C array
 * (as pointers).  Creates the following functions:
 *
 *        TYPE *new_NAME(int nelements)
 *        void delete_NAME(TYPE *);
 *        TYPE NAME_getitem(TYPE *, int index);
 *        void NAME_setitem(TYPE *, int index, TYPE value);
 * 
 * ----------------------------------------------------------------------------- */

%define %array_functions(TYPE,NAME) 
%{
  static TYPE *new_##NAME(size_t nelements) { 
    return %new_array(nelements, TYPE);
  }

static void delete_##NAME(TYPE *ary) {
    %delete_array(ary);
  }

static TYPE NAME##_getitem(TYPE *ary, size_t index) {
    return ary[index];
  }
  static void NAME##_setitem(TYPE *ary, size_t index, TYPE value) {
    ary[index] = value;
  }
%}

TYPE *new_##NAME(size_t nelements);
void delete_##NAME(TYPE *ary);
TYPE NAME##_getitem(TYPE *ary, size_t index);
void NAME##_setitem(TYPE *ary, size_t index, TYPE value);

%enddef

/* -----------------------------------------------------------------------------
 * %array_class(TYPE,NAME)
 *
 * Generates a class wrapper around a C array.  The class has the following
 * interface:
 *
 *          struct NAME {
 *              NAME(int nelements);
 *             ~NAME();
 *              TYPE getitem(int index);
 *              void setitem(int index, TYPE value);
 *              TYPE * cast();
 *              static NAME *frompointer(TYPE *t);
 *         }
 *
 * Use
 *
 *    %array_class_wrap(TYPE,NAME,GET,SET) 
 *
 * if you want  different names for the get/set methods.
 * ----------------------------------------------------------------------------- */

%define %array_class_wrap(TYPE,NAME,getitem,setitem)
%{
typedef TYPE NAME;
%}

typedef struct {
} NAME;

%extend NAME {

NAME(size_t nelements) {
    return %new_array(nelements, TYPE);
  }

~NAME() {
    %delete_array(self);
  }
  
  TYPE getitem(size_t index) {
    return self[index];
  }

void setitem(size_t index, TYPE value) {
    self[index] = value;
  }

TYPE * cast() {
    return self;
  }

static NAME *frompointer(TYPE *t) {
    return %static_cast(t, NAME *);
  }
};

%types(NAME = TYPE);

%enddef

#ifndef %array_class
%define %array_class(TYPE,NAME)
  %array_class_wrap(TYPE,NAME,getitem,setitem)
%enddef
#endif

${this.title}

Code Editor : carrays.swg