Some tweaks...
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@3282 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
@@ -21,73 +21,6 @@
|
|||||||
#define SWIGPYTHON
|
#define SWIGPYTHON
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
/***********************************************************************
|
|
||||||
* $Header$
|
|
||||||
* swig_lib/python/python.cfg
|
|
||||||
*
|
|
||||||
* This file contains coded needed to add variable linking to the
|
|
||||||
* Python interpreter. C variables are added as a new kind of Python
|
|
||||||
* datatype.
|
|
||||||
*
|
|
||||||
* Also contains supporting code for building python under Windows
|
|
||||||
* and things like that.
|
|
||||||
*
|
|
||||||
* $Log$
|
|
||||||
* Revision 1.8 1999/07/31 07:56:02 RD
|
|
||||||
* wxPython 2.1b1:
|
|
||||||
*
|
|
||||||
* Added the missing wxWindow.GetUpdateRegion() method.
|
|
||||||
*
|
|
||||||
* Made a new change in SWIG (update your patches everybody) that
|
|
||||||
* provides a fix for global shadow objects that get an exception in
|
|
||||||
* their __del__ when their extension module has already been deleted.
|
|
||||||
* It was only a 1 line change in .../SWIG/Modules/pycpp.cxx at about
|
|
||||||
* line 496 if you want to do it by hand.
|
|
||||||
*
|
|
||||||
* It is now possible to run through MainLoop more than once in any one
|
|
||||||
* process. The cleanup that used to happen as MainLoop completed (and
|
|
||||||
* prevented it from running again) has been delayed until the wxc module
|
|
||||||
* is being unloaded by Python.
|
|
||||||
*
|
|
||||||
* wxWindow.PopupMenu() now takes a wxPoint instead of x,y. Added
|
|
||||||
* wxWindow.PopupMenuXY to be consistent with some other methods.
|
|
||||||
*
|
|
||||||
* Added wxGrid.SetEditInPlace and wxGrid.GetEditInPlace.
|
|
||||||
*
|
|
||||||
* You can now provide your own app.MainLoop method. See
|
|
||||||
* wxPython/demo/demoMainLoop.py for an example and some explaination.
|
|
||||||
*
|
|
||||||
* Got the in-place-edit for the wxTreeCtrl fixed and added some demo
|
|
||||||
* code to show how to use it.
|
|
||||||
*
|
|
||||||
* Put the wxIcon constructor back in for GTK as it now has one that
|
|
||||||
* matches MSW's.
|
|
||||||
*
|
|
||||||
* Added wxGrid.GetCells
|
|
||||||
*
|
|
||||||
* Added wxSystemSettings static methods as functions with names like
|
|
||||||
* wxSystemSettings_GetSystemColour.
|
|
||||||
*
|
|
||||||
* Removed wxPyMenu since using menu callbacks have been depreciated in
|
|
||||||
* wxWindows. Use wxMenu and events instead.
|
|
||||||
*
|
|
||||||
* Added alternate wxBitmap constructor (for MSW only) as
|
|
||||||
* wxBitmapFromData(data, type, width, height, depth = 1)
|
|
||||||
*
|
|
||||||
* Added a helper function named wxPyTypeCast that can convert shadow
|
|
||||||
* objects of one type into shadow objects of another type. (Like doing
|
|
||||||
* a down-cast.) See the implementation in wx.py for some docs.
|
|
||||||
*
|
|
||||||
************************************************************************/
|
|
||||||
|
|
||||||
#ifdef __cplusplus
|
|
||||||
extern "C" {
|
|
||||||
#endif
|
|
||||||
#include "Python.h"
|
|
||||||
#ifdef __cplusplus
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/* Definitions for Windows/Unix exporting */
|
/* Definitions for Windows/Unix exporting */
|
||||||
#if defined(__WIN32__)
|
#if defined(__WIN32__)
|
||||||
# if defined(_MSC_VER)
|
# if defined(_MSC_VER)
|
||||||
@@ -103,496 +36,18 @@ extern "C" {
|
|||||||
# define SWIGEXPORT(a,b) a b
|
# define SWIGEXPORT(a,b) a b
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifdef SWIG_GLOBAL
|
|
||||||
#ifdef __cplusplus
|
#ifdef __cplusplus
|
||||||
#define SWIGSTATIC extern "C"
|
extern "C" {
|
||||||
#else
|
|
||||||
#define SWIGSTATIC
|
|
||||||
#endif
|
#endif
|
||||||
#endif
|
#include "Python.h"
|
||||||
|
extern void SWIG_MakePtr(char *, void *, char *);
|
||||||
#ifndef SWIGSTATIC
|
extern void SWIG_RegisterMapping(char *, char *, void *(*)(void *));
|
||||||
#define SWIGSTATIC static
|
extern char *SWIG_GetPtr(char *, void **, char *);
|
||||||
#endif
|
extern void SWIG_addvarlink(PyObject *, char *, PyObject *(*)(void), int (*)(PyObject *));
|
||||||
|
extern PyObject *SWIG_newvarlink(void);
|
||||||
typedef struct {
|
|
||||||
char *name;
|
|
||||||
PyObject *(*get_attr)(void);
|
|
||||||
int (*set_attr)(PyObject *);
|
|
||||||
} swig_globalvar;
|
|
||||||
|
|
||||||
typedef struct swig_varlinkobject {
|
|
||||||
PyObject_HEAD
|
|
||||||
swig_globalvar **vars;
|
|
||||||
int nvars;
|
|
||||||
int maxvars;
|
|
||||||
} swig_varlinkobject;
|
|
||||||
|
|
||||||
/* ----------------------------------------------------------------------
|
|
||||||
swig_varlink_repr()
|
|
||||||
|
|
||||||
Function for python repr method
|
|
||||||
---------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static PyObject *
|
|
||||||
swig_varlink_repr(swig_varlinkobject *v)
|
|
||||||
{
|
|
||||||
v = v;
|
|
||||||
return PyString_FromString("<Global variables>");
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ---------------------------------------------------------------------
|
|
||||||
swig_varlink_print()
|
|
||||||
|
|
||||||
Print out all of the global variable names
|
|
||||||
--------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static int
|
|
||||||
swig_varlink_print(swig_varlinkobject *v, FILE *fp, int flags)
|
|
||||||
{
|
|
||||||
|
|
||||||
int i = 0;
|
|
||||||
flags = flags;
|
|
||||||
fprintf(fp,"Global variables { ");
|
|
||||||
while (v->vars[i]) {
|
|
||||||
fprintf(fp,"%s", v->vars[i]->name);
|
|
||||||
i++;
|
|
||||||
if (v->vars[i]) fprintf(fp,", ");
|
|
||||||
}
|
|
||||||
fprintf(fp," }\n");
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* --------------------------------------------------------------------
|
|
||||||
swig_varlink_getattr
|
|
||||||
|
|
||||||
This function gets the value of a variable and returns it as a
|
|
||||||
PyObject. In our case, we'll be looking at the datatype and
|
|
||||||
converting into a number or string
|
|
||||||
-------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static PyObject *
|
|
||||||
swig_varlink_getattr(swig_varlinkobject *v, char *n)
|
|
||||||
{
|
|
||||||
int i = 0;
|
|
||||||
char temp[128];
|
|
||||||
|
|
||||||
while (v->vars[i]) {
|
|
||||||
if (strcmp(v->vars[i]->name,n) == 0) {
|
|
||||||
return (*v->vars[i]->get_attr)();
|
|
||||||
}
|
|
||||||
i++;
|
|
||||||
}
|
|
||||||
sprintf(temp,"C global variable %s not found.", n);
|
|
||||||
PyErr_SetString(PyExc_NameError,temp);
|
|
||||||
return NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* -------------------------------------------------------------------
|
|
||||||
swig_varlink_setattr()
|
|
||||||
|
|
||||||
This function sets the value of a variable.
|
|
||||||
------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static int
|
|
||||||
swig_varlink_setattr(swig_varlinkobject *v, char *n, PyObject *p)
|
|
||||||
{
|
|
||||||
char temp[128];
|
|
||||||
int i = 0;
|
|
||||||
while (v->vars[i]) {
|
|
||||||
if (strcmp(v->vars[i]->name,n) == 0) {
|
|
||||||
return (*v->vars[i]->set_attr)(p);
|
|
||||||
}
|
|
||||||
i++;
|
|
||||||
}
|
|
||||||
sprintf(temp,"C global variable %s not found.", n);
|
|
||||||
PyErr_SetString(PyExc_NameError,temp);
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
statichere PyTypeObject varlinktype = {
|
|
||||||
/* PyObject_HEAD_INIT(&PyType_Type) Note : This doesn't work on some machines */
|
|
||||||
PyObject_HEAD_INIT(0)
|
|
||||||
0,
|
|
||||||
"varlink", /* Type name */
|
|
||||||
sizeof(swig_varlinkobject), /* Basic size */
|
|
||||||
0, /* Itemsize */
|
|
||||||
0, /* Deallocator */
|
|
||||||
(printfunc) swig_varlink_print, /* Print */
|
|
||||||
(getattrfunc) swig_varlink_getattr, /* get attr */
|
|
||||||
(setattrfunc) swig_varlink_setattr, /* Set attr */
|
|
||||||
0, /* tp_compare */
|
|
||||||
(reprfunc) swig_varlink_repr, /* tp_repr */
|
|
||||||
0, /* tp_as_number */
|
|
||||||
0, /* tp_as_mapping*/
|
|
||||||
0, /* tp_hash */
|
|
||||||
};
|
|
||||||
|
|
||||||
/* Create a variable linking object for use later */
|
|
||||||
|
|
||||||
SWIGSTATIC PyObject *
|
|
||||||
SWIG_newvarlink(void)
|
|
||||||
{
|
|
||||||
swig_varlinkobject *result = 0;
|
|
||||||
result = PyMem_NEW(swig_varlinkobject,1);
|
|
||||||
varlinktype.ob_type = &PyType_Type; /* Patch varlinktype into a PyType */
|
|
||||||
result->ob_type = &varlinktype;
|
|
||||||
/* _Py_NewReference(result); Does not seem to be necessary */
|
|
||||||
result->nvars = 0;
|
|
||||||
result->maxvars = 64;
|
|
||||||
result->vars = (swig_globalvar **) malloc(64*sizeof(swig_globalvar *));
|
|
||||||
result->vars[0] = 0;
|
|
||||||
result->ob_refcnt = 0;
|
|
||||||
Py_XINCREF((PyObject *) result);
|
|
||||||
return ((PyObject*) result);
|
|
||||||
}
|
|
||||||
|
|
||||||
SWIGSTATIC void
|
|
||||||
SWIG_addvarlink(PyObject *p, char *name,
|
|
||||||
PyObject *(*get_attr)(void), int (*set_attr)(PyObject *p))
|
|
||||||
{
|
|
||||||
swig_varlinkobject *v;
|
|
||||||
v= (swig_varlinkobject *) p;
|
|
||||||
|
|
||||||
if (v->nvars >= v->maxvars -1) {
|
|
||||||
v->maxvars = 2*v->maxvars;
|
|
||||||
v->vars = (swig_globalvar **) realloc(v->vars,v->maxvars*sizeof(swig_globalvar *));
|
|
||||||
if (v->vars == NULL) {
|
|
||||||
fprintf(stderr,"SWIG : Fatal error in initializing Python module.\n");
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
v->vars[v->nvars] = (swig_globalvar *) malloc(sizeof(swig_globalvar));
|
|
||||||
v->vars[v->nvars]->name = (char *) malloc(strlen(name)+1);
|
|
||||||
strcpy(v->vars[v->nvars]->name,name);
|
|
||||||
v->vars[v->nvars]->get_attr = get_attr;
|
|
||||||
v->vars[v->nvars]->set_attr = set_attr;
|
|
||||||
v->nvars++;
|
|
||||||
v->vars[v->nvars] = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/*****************************************************************************
|
|
||||||
* $Header$
|
|
||||||
*
|
|
||||||
* swigptr.swg
|
|
||||||
*
|
|
||||||
* This file contains supporting code for the SWIG run-time type checking
|
|
||||||
* mechanism. The following functions are available :
|
|
||||||
*
|
|
||||||
* SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *));
|
|
||||||
*
|
|
||||||
* Registers a new type-mapping with the type-checker. origtype is the
|
|
||||||
* original datatype and newtype is an equivalent type. cast is optional
|
|
||||||
* pointer to a function to cast pointer values between types (this
|
|
||||||
* is typically used to cast pointers from derived classes to base classes in C++)
|
|
||||||
*
|
|
||||||
* SWIG_MakePtr(char *buffer, void *ptr, char *typestring);
|
|
||||||
*
|
|
||||||
* Makes a pointer string from a pointer and typestring. The result is returned
|
|
||||||
* in buffer which is assumed to hold enough space for the result.
|
|
||||||
*
|
|
||||||
* char * SWIG_GetPtr(char *buffer, void **ptr, char *type)
|
|
||||||
*
|
|
||||||
* Gets a pointer value from a string. If there is a type-mismatch, returns
|
|
||||||
* a character string to the received type. On success, returns NULL.
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* You can remap these functions by making a file called "swigptr.swg" in
|
|
||||||
* your the same directory as the interface file you are wrapping.
|
|
||||||
*
|
|
||||||
* These functions are normally declared static, but this file can be
|
|
||||||
* can be used in a multi-module environment by redefining the symbol
|
|
||||||
* SWIGSTATIC.
|
|
||||||
*****************************************************************************/
|
|
||||||
|
|
||||||
#include <stdlib.h>
|
|
||||||
|
|
||||||
#ifdef SWIG_GLOBAL
|
|
||||||
#ifdef __cplusplus
|
#ifdef __cplusplus
|
||||||
#define SWIGSTATIC extern "C"
|
}
|
||||||
#else
|
|
||||||
#define SWIGSTATIC
|
|
||||||
#endif
|
#endif
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifndef SWIGSTATIC
|
|
||||||
#define SWIGSTATIC static
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
/* SWIG pointer structure */
|
|
||||||
|
|
||||||
typedef struct SwigPtrType {
|
|
||||||
char *name; /* Datatype name */
|
|
||||||
int len; /* Length (used for optimization) */
|
|
||||||
void *(*cast)(void *); /* Pointer casting function */
|
|
||||||
struct SwigPtrType *next; /* Linked list pointer */
|
|
||||||
} SwigPtrType;
|
|
||||||
|
|
||||||
/* Pointer cache structure */
|
|
||||||
|
|
||||||
typedef struct {
|
|
||||||
int stat; /* Status (valid) bit */
|
|
||||||
SwigPtrType *tp; /* Pointer to type structure */
|
|
||||||
char name[256]; /* Given datatype name */
|
|
||||||
char mapped[256]; /* Equivalent name */
|
|
||||||
} SwigCacheType;
|
|
||||||
|
|
||||||
/* Some variables */
|
|
||||||
|
|
||||||
static int SwigPtrMax = 64; /* Max entries that can be currently held */
|
|
||||||
/* This value may be adjusted dynamically */
|
|
||||||
static int SwigPtrN = 0; /* Current number of entries */
|
|
||||||
static int SwigPtrSort = 0; /* Status flag indicating sort */
|
|
||||||
static int SwigStart[256]; /* Starting positions of types */
|
|
||||||
|
|
||||||
/* Pointer table */
|
|
||||||
static SwigPtrType *SwigPtrTable = 0; /* Table containing pointer equivalences */
|
|
||||||
|
|
||||||
/* Cached values */
|
|
||||||
|
|
||||||
#define SWIG_CACHESIZE 8
|
|
||||||
#define SWIG_CACHEMASK 0x7
|
|
||||||
static SwigCacheType SwigCache[SWIG_CACHESIZE];
|
|
||||||
static int SwigCacheIndex = 0;
|
|
||||||
static int SwigLastCache = 0;
|
|
||||||
|
|
||||||
/* Sort comparison function */
|
|
||||||
static int swigsort(const void *data1, const void *data2) {
|
|
||||||
SwigPtrType *d1 = (SwigPtrType *) data1;
|
|
||||||
SwigPtrType *d2 = (SwigPtrType *) data2;
|
|
||||||
return strcmp(d1->name,d2->name);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Binary Search function */
|
|
||||||
static int swigcmp(const void *key, const void *data) {
|
|
||||||
char *k = (char *) key;
|
|
||||||
SwigPtrType *d = (SwigPtrType *) data;
|
|
||||||
return strncmp(k,d->name,d->len);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Register a new datatype with the type-checker */
|
|
||||||
|
|
||||||
SWIGSTATIC
|
|
||||||
void SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *)) {
|
|
||||||
|
|
||||||
int i;
|
|
||||||
SwigPtrType *t = 0,*t1;
|
|
||||||
|
|
||||||
/* Allocate the pointer table if necessary */
|
|
||||||
|
|
||||||
if (!SwigPtrTable) {
|
|
||||||
SwigPtrTable = (SwigPtrType *) malloc(SwigPtrMax*sizeof(SwigPtrType));
|
|
||||||
SwigPtrN = 0;
|
|
||||||
}
|
|
||||||
/* Grow the table */
|
|
||||||
if (SwigPtrN >= SwigPtrMax) {
|
|
||||||
SwigPtrMax = 2*SwigPtrMax;
|
|
||||||
SwigPtrTable = (SwigPtrType *) realloc((char *) SwigPtrTable,SwigPtrMax*sizeof(SwigPtrType));
|
|
||||||
}
|
|
||||||
for (i = 0; i < SwigPtrN; i++)
|
|
||||||
if (strcmp(SwigPtrTable[i].name,origtype) == 0) {
|
|
||||||
t = &SwigPtrTable[i];
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
if (!t) {
|
|
||||||
t = &SwigPtrTable[SwigPtrN];
|
|
||||||
t->name = origtype;
|
|
||||||
t->len = strlen(t->name);
|
|
||||||
t->cast = 0;
|
|
||||||
t->next = 0;
|
|
||||||
SwigPtrN++;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Check for existing entry */
|
|
||||||
|
|
||||||
while (t->next) {
|
|
||||||
if ((strcmp(t->name,newtype) == 0)) {
|
|
||||||
if (cast) t->cast = cast;
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
t = t->next;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Now place entry (in sorted order) */
|
|
||||||
|
|
||||||
t1 = (SwigPtrType *) malloc(sizeof(SwigPtrType));
|
|
||||||
t1->name = newtype;
|
|
||||||
t1->len = strlen(t1->name);
|
|
||||||
t1->cast = cast;
|
|
||||||
t1->next = 0;
|
|
||||||
t->next = t1;
|
|
||||||
SwigPtrSort = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Make a pointer value string */
|
|
||||||
|
|
||||||
SWIGSTATIC
|
|
||||||
void SWIG_MakePtr(char *_c, const void *_ptr, char *type) {
|
|
||||||
static char _hex[16] =
|
|
||||||
{'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
|
|
||||||
'a', 'b', 'c', 'd', 'e', 'f'};
|
|
||||||
unsigned long _p, _s;
|
|
||||||
char _result[20], *_r; /* Note : a 64-bit hex number = 16 digits */
|
|
||||||
_r = _result;
|
|
||||||
_p = (unsigned long) _ptr;
|
|
||||||
if (_p > 0) {
|
|
||||||
while (_p > 0) {
|
|
||||||
_s = _p & 0xf;
|
|
||||||
*(_r++) = _hex[_s];
|
|
||||||
_p = _p >> 4;
|
|
||||||
}
|
|
||||||
*_r = '_';
|
|
||||||
while (_r >= _result)
|
|
||||||
*(_c++) = *(_r--);
|
|
||||||
} else {
|
|
||||||
strcpy (_c, "NULL");
|
|
||||||
}
|
|
||||||
if (_ptr)
|
|
||||||
strcpy (_c, type);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Define for backwards compatibility */
|
|
||||||
|
|
||||||
#define _swig_make_hex SWIG_MakePtr
|
|
||||||
|
|
||||||
/* Function for getting a pointer value */
|
|
||||||
|
|
||||||
SWIGSTATIC
|
|
||||||
char *SWIG_GetPtr(char *_c, void **ptr, char *_t)
|
|
||||||
{
|
|
||||||
unsigned long _p;
|
|
||||||
char temp_type[256];
|
|
||||||
char *name;
|
|
||||||
int i, len;
|
|
||||||
SwigPtrType *sp,*tp;
|
|
||||||
SwigCacheType *cache;
|
|
||||||
int start, end;
|
|
||||||
_p = 0;
|
|
||||||
|
|
||||||
/* Pointer values must start with leading underscore */
|
|
||||||
if (*_c == '_') {
|
|
||||||
_c++;
|
|
||||||
/* Extract hex value from pointer */
|
|
||||||
while (*_c) {
|
|
||||||
if ((*_c >= '0') && (*_c <= '9'))
|
|
||||||
_p = (_p << 4) + (*_c - '0');
|
|
||||||
else if ((*_c >= 'a') && (*_c <= 'f'))
|
|
||||||
_p = (_p << 4) + ((*_c - 'a') + 10);
|
|
||||||
else
|
|
||||||
break;
|
|
||||||
_c++;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (_t) {
|
|
||||||
if (strcmp(_t,_c)) {
|
|
||||||
if (!SwigPtrSort) {
|
|
||||||
qsort((void *) SwigPtrTable, SwigPtrN, sizeof(SwigPtrType), swigsort);
|
|
||||||
for (i = 0; i < 256; i++) {
|
|
||||||
SwigStart[i] = SwigPtrN;
|
|
||||||
}
|
|
||||||
for (i = SwigPtrN-1; i >= 0; i--) {
|
|
||||||
SwigStart[(int) (SwigPtrTable[i].name[1])] = i;
|
|
||||||
}
|
|
||||||
for (i = 255; i >= 1; i--) {
|
|
||||||
if (SwigStart[i-1] > SwigStart[i])
|
|
||||||
SwigStart[i-1] = SwigStart[i];
|
|
||||||
}
|
|
||||||
SwigPtrSort = 1;
|
|
||||||
for (i = 0; i < SWIG_CACHESIZE; i++)
|
|
||||||
SwigCache[i].stat = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* First check cache for matches. Uses last cache value as starting point */
|
|
||||||
cache = &SwigCache[SwigLastCache];
|
|
||||||
for (i = 0; i < SWIG_CACHESIZE; i++) {
|
|
||||||
if (cache->stat) {
|
|
||||||
if (strcmp(_t,cache->name) == 0) {
|
|
||||||
if (strcmp(_c,cache->mapped) == 0) {
|
|
||||||
cache->stat++;
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
if (cache->tp->cast) *ptr = (*(cache->tp->cast))(*ptr);
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
SwigLastCache = (SwigLastCache+1) & SWIG_CACHEMASK;
|
|
||||||
if (!SwigLastCache) cache = SwigCache;
|
|
||||||
else cache++;
|
|
||||||
}
|
|
||||||
/* We have a type mismatch. Will have to look through our type
|
|
||||||
mapping table to figure out whether or not we can accept this datatype */
|
|
||||||
|
|
||||||
start = SwigStart[(int) _t[1]];
|
|
||||||
end = SwigStart[(int) _t[1]+1];
|
|
||||||
sp = &SwigPtrTable[start];
|
|
||||||
while (start < end) {
|
|
||||||
if (swigcmp(_t,sp) == 0) break;
|
|
||||||
sp++;
|
|
||||||
start++;
|
|
||||||
}
|
|
||||||
if (start >= end) sp = 0;
|
|
||||||
/* Try to find a match for this */
|
|
||||||
if (sp) {
|
|
||||||
while (swigcmp(_t,sp) == 0) {
|
|
||||||
name = sp->name;
|
|
||||||
len = sp->len;
|
|
||||||
tp = sp->next;
|
|
||||||
/* Try to find entry for our given datatype */
|
|
||||||
while(tp) {
|
|
||||||
if (tp->len >= 255) {
|
|
||||||
return _c;
|
|
||||||
}
|
|
||||||
strcpy(temp_type,tp->name);
|
|
||||||
strncat(temp_type,_t+len,255-tp->len);
|
|
||||||
if (strcmp(_c,temp_type) == 0) {
|
|
||||||
|
|
||||||
strcpy(SwigCache[SwigCacheIndex].mapped,_c);
|
|
||||||
strcpy(SwigCache[SwigCacheIndex].name,_t);
|
|
||||||
SwigCache[SwigCacheIndex].stat = 1;
|
|
||||||
SwigCache[SwigCacheIndex].tp = tp;
|
|
||||||
SwigCacheIndex = SwigCacheIndex & SWIG_CACHEMASK;
|
|
||||||
|
|
||||||
/* Get pointer value */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
if (tp->cast) *ptr = (*(tp->cast))(*ptr);
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
tp = tp->next;
|
|
||||||
}
|
|
||||||
sp++;
|
|
||||||
/* Hmmm. Didn't find it this time */
|
|
||||||
}
|
|
||||||
}
|
|
||||||
/* Didn't find any sort of match for this data.
|
|
||||||
Get the pointer value and return the received type */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
return _c;
|
|
||||||
} else {
|
|
||||||
/* Found a match on the first try. Return pointer value */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
/* No type specified. Good luck */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
if (strcmp (_c, "NULL") == 0) {
|
|
||||||
*ptr = (void *) 0;
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
*ptr = (void *) 0;
|
|
||||||
return _c;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Compatibility mode */
|
|
||||||
|
|
||||||
#define _swig_get_hex SWIG_GetPtr
|
|
||||||
|
|
||||||
#define SWIG_init initutilsc
|
#define SWIG_init initutilsc
|
||||||
|
|
||||||
|
@@ -21,31 +21,6 @@
|
|||||||
#define SWIGPYTHON
|
#define SWIGPYTHON
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
/***********************************************************************
|
|
||||||
* $Header$
|
|
||||||
* swig_lib/python/python.cfg
|
|
||||||
*
|
|
||||||
* This file contains coded needed to add variable linking to the
|
|
||||||
* Python interpreter. C variables are added as a new kind of Python
|
|
||||||
* datatype.
|
|
||||||
*
|
|
||||||
* Also contains supporting code for building python under Windows
|
|
||||||
* and things like that.
|
|
||||||
*
|
|
||||||
* $Log$
|
|
||||||
* Revision 1.14 1999/08/05 05:06:38 RD
|
|
||||||
* Some minor tweaks
|
|
||||||
*
|
|
||||||
************************************************************************/
|
|
||||||
|
|
||||||
#ifdef __cplusplus
|
|
||||||
extern "C" {
|
|
||||||
#endif
|
|
||||||
#include "Python.h"
|
|
||||||
#ifdef __cplusplus
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/* Definitions for Windows/Unix exporting */
|
/* Definitions for Windows/Unix exporting */
|
||||||
#if defined(__WIN32__)
|
#if defined(__WIN32__)
|
||||||
# if defined(_MSC_VER)
|
# if defined(_MSC_VER)
|
||||||
@@ -61,496 +36,18 @@ extern "C" {
|
|||||||
# define SWIGEXPORT(a,b) a b
|
# define SWIGEXPORT(a,b) a b
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifdef SWIG_GLOBAL
|
|
||||||
#ifdef __cplusplus
|
#ifdef __cplusplus
|
||||||
#define SWIGSTATIC extern "C"
|
extern "C" {
|
||||||
#else
|
|
||||||
#define SWIGSTATIC
|
|
||||||
#endif
|
#endif
|
||||||
#endif
|
#include "Python.h"
|
||||||
|
extern void SWIG_MakePtr(char *, void *, char *);
|
||||||
#ifndef SWIGSTATIC
|
extern void SWIG_RegisterMapping(char *, char *, void *(*)(void *));
|
||||||
#define SWIGSTATIC static
|
extern char *SWIG_GetPtr(char *, void **, char *);
|
||||||
#endif
|
extern void SWIG_addvarlink(PyObject *, char *, PyObject *(*)(void), int (*)(PyObject *));
|
||||||
|
extern PyObject *SWIG_newvarlink(void);
|
||||||
typedef struct {
|
|
||||||
char *name;
|
|
||||||
PyObject *(*get_attr)(void);
|
|
||||||
int (*set_attr)(PyObject *);
|
|
||||||
} swig_globalvar;
|
|
||||||
|
|
||||||
typedef struct swig_varlinkobject {
|
|
||||||
PyObject_HEAD
|
|
||||||
swig_globalvar **vars;
|
|
||||||
int nvars;
|
|
||||||
int maxvars;
|
|
||||||
} swig_varlinkobject;
|
|
||||||
|
|
||||||
/* ----------------------------------------------------------------------
|
|
||||||
swig_varlink_repr()
|
|
||||||
|
|
||||||
Function for python repr method
|
|
||||||
---------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static PyObject *
|
|
||||||
swig_varlink_repr(swig_varlinkobject *v)
|
|
||||||
{
|
|
||||||
v = v;
|
|
||||||
return PyString_FromString("<Global variables>");
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ---------------------------------------------------------------------
|
|
||||||
swig_varlink_print()
|
|
||||||
|
|
||||||
Print out all of the global variable names
|
|
||||||
--------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static int
|
|
||||||
swig_varlink_print(swig_varlinkobject *v, FILE *fp, int flags)
|
|
||||||
{
|
|
||||||
|
|
||||||
int i = 0;
|
|
||||||
flags = flags;
|
|
||||||
fprintf(fp,"Global variables { ");
|
|
||||||
while (v->vars[i]) {
|
|
||||||
fprintf(fp,"%s", v->vars[i]->name);
|
|
||||||
i++;
|
|
||||||
if (v->vars[i]) fprintf(fp,", ");
|
|
||||||
}
|
|
||||||
fprintf(fp," }\n");
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* --------------------------------------------------------------------
|
|
||||||
swig_varlink_getattr
|
|
||||||
|
|
||||||
This function gets the value of a variable and returns it as a
|
|
||||||
PyObject. In our case, we'll be looking at the datatype and
|
|
||||||
converting into a number or string
|
|
||||||
-------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static PyObject *
|
|
||||||
swig_varlink_getattr(swig_varlinkobject *v, char *n)
|
|
||||||
{
|
|
||||||
int i = 0;
|
|
||||||
char temp[128];
|
|
||||||
|
|
||||||
while (v->vars[i]) {
|
|
||||||
if (strcmp(v->vars[i]->name,n) == 0) {
|
|
||||||
return (*v->vars[i]->get_attr)();
|
|
||||||
}
|
|
||||||
i++;
|
|
||||||
}
|
|
||||||
sprintf(temp,"C global variable %s not found.", n);
|
|
||||||
PyErr_SetString(PyExc_NameError,temp);
|
|
||||||
return NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* -------------------------------------------------------------------
|
|
||||||
swig_varlink_setattr()
|
|
||||||
|
|
||||||
This function sets the value of a variable.
|
|
||||||
------------------------------------------------------------------- */
|
|
||||||
|
|
||||||
static int
|
|
||||||
swig_varlink_setattr(swig_varlinkobject *v, char *n, PyObject *p)
|
|
||||||
{
|
|
||||||
char temp[128];
|
|
||||||
int i = 0;
|
|
||||||
while (v->vars[i]) {
|
|
||||||
if (strcmp(v->vars[i]->name,n) == 0) {
|
|
||||||
return (*v->vars[i]->set_attr)(p);
|
|
||||||
}
|
|
||||||
i++;
|
|
||||||
}
|
|
||||||
sprintf(temp,"C global variable %s not found.", n);
|
|
||||||
PyErr_SetString(PyExc_NameError,temp);
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
statichere PyTypeObject varlinktype = {
|
|
||||||
/* PyObject_HEAD_INIT(&PyType_Type) Note : This doesn't work on some machines */
|
|
||||||
PyObject_HEAD_INIT(0)
|
|
||||||
0,
|
|
||||||
"varlink", /* Type name */
|
|
||||||
sizeof(swig_varlinkobject), /* Basic size */
|
|
||||||
0, /* Itemsize */
|
|
||||||
0, /* Deallocator */
|
|
||||||
(printfunc) swig_varlink_print, /* Print */
|
|
||||||
(getattrfunc) swig_varlink_getattr, /* get attr */
|
|
||||||
(setattrfunc) swig_varlink_setattr, /* Set attr */
|
|
||||||
0, /* tp_compare */
|
|
||||||
(reprfunc) swig_varlink_repr, /* tp_repr */
|
|
||||||
0, /* tp_as_number */
|
|
||||||
0, /* tp_as_mapping*/
|
|
||||||
0, /* tp_hash */
|
|
||||||
};
|
|
||||||
|
|
||||||
/* Create a variable linking object for use later */
|
|
||||||
|
|
||||||
SWIGSTATIC PyObject *
|
|
||||||
SWIG_newvarlink(void)
|
|
||||||
{
|
|
||||||
swig_varlinkobject *result = 0;
|
|
||||||
result = PyMem_NEW(swig_varlinkobject,1);
|
|
||||||
varlinktype.ob_type = &PyType_Type; /* Patch varlinktype into a PyType */
|
|
||||||
result->ob_type = &varlinktype;
|
|
||||||
/* _Py_NewReference(result); Does not seem to be necessary */
|
|
||||||
result->nvars = 0;
|
|
||||||
result->maxvars = 64;
|
|
||||||
result->vars = (swig_globalvar **) malloc(64*sizeof(swig_globalvar *));
|
|
||||||
result->vars[0] = 0;
|
|
||||||
result->ob_refcnt = 0;
|
|
||||||
Py_XINCREF((PyObject *) result);
|
|
||||||
return ((PyObject*) result);
|
|
||||||
}
|
|
||||||
|
|
||||||
SWIGSTATIC void
|
|
||||||
SWIG_addvarlink(PyObject *p, char *name,
|
|
||||||
PyObject *(*get_attr)(void), int (*set_attr)(PyObject *p))
|
|
||||||
{
|
|
||||||
swig_varlinkobject *v;
|
|
||||||
v= (swig_varlinkobject *) p;
|
|
||||||
|
|
||||||
if (v->nvars >= v->maxvars -1) {
|
|
||||||
v->maxvars = 2*v->maxvars;
|
|
||||||
v->vars = (swig_globalvar **) realloc(v->vars,v->maxvars*sizeof(swig_globalvar *));
|
|
||||||
if (v->vars == NULL) {
|
|
||||||
fprintf(stderr,"SWIG : Fatal error in initializing Python module.\n");
|
|
||||||
exit(1);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
v->vars[v->nvars] = (swig_globalvar *) malloc(sizeof(swig_globalvar));
|
|
||||||
v->vars[v->nvars]->name = (char *) malloc(strlen(name)+1);
|
|
||||||
strcpy(v->vars[v->nvars]->name,name);
|
|
||||||
v->vars[v->nvars]->get_attr = get_attr;
|
|
||||||
v->vars[v->nvars]->set_attr = set_attr;
|
|
||||||
v->nvars++;
|
|
||||||
v->vars[v->nvars] = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/*****************************************************************************
|
|
||||||
* $Header$
|
|
||||||
*
|
|
||||||
* swigptr.swg
|
|
||||||
*
|
|
||||||
* This file contains supporting code for the SWIG run-time type checking
|
|
||||||
* mechanism. The following functions are available :
|
|
||||||
*
|
|
||||||
* SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *));
|
|
||||||
*
|
|
||||||
* Registers a new type-mapping with the type-checker. origtype is the
|
|
||||||
* original datatype and newtype is an equivalent type. cast is optional
|
|
||||||
* pointer to a function to cast pointer values between types (this
|
|
||||||
* is typically used to cast pointers from derived classes to base classes in C++)
|
|
||||||
*
|
|
||||||
* SWIG_MakePtr(char *buffer, void *ptr, char *typestring);
|
|
||||||
*
|
|
||||||
* Makes a pointer string from a pointer and typestring. The result is returned
|
|
||||||
* in buffer which is assumed to hold enough space for the result.
|
|
||||||
*
|
|
||||||
* char * SWIG_GetPtr(char *buffer, void **ptr, char *type)
|
|
||||||
*
|
|
||||||
* Gets a pointer value from a string. If there is a type-mismatch, returns
|
|
||||||
* a character string to the received type. On success, returns NULL.
|
|
||||||
*
|
|
||||||
*
|
|
||||||
* You can remap these functions by making a file called "swigptr.swg" in
|
|
||||||
* your the same directory as the interface file you are wrapping.
|
|
||||||
*
|
|
||||||
* These functions are normally declared static, but this file can be
|
|
||||||
* can be used in a multi-module environment by redefining the symbol
|
|
||||||
* SWIGSTATIC.
|
|
||||||
*****************************************************************************/
|
|
||||||
|
|
||||||
#include <stdlib.h>
|
|
||||||
|
|
||||||
#ifdef SWIG_GLOBAL
|
|
||||||
#ifdef __cplusplus
|
#ifdef __cplusplus
|
||||||
#define SWIGSTATIC extern "C"
|
}
|
||||||
#else
|
|
||||||
#define SWIGSTATIC
|
|
||||||
#endif
|
#endif
|
||||||
#endif
|
|
||||||
|
|
||||||
#ifndef SWIGSTATIC
|
|
||||||
#define SWIGSTATIC static
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
/* SWIG pointer structure */
|
|
||||||
|
|
||||||
typedef struct SwigPtrType {
|
|
||||||
char *name; /* Datatype name */
|
|
||||||
int len; /* Length (used for optimization) */
|
|
||||||
void *(*cast)(void *); /* Pointer casting function */
|
|
||||||
struct SwigPtrType *next; /* Linked list pointer */
|
|
||||||
} SwigPtrType;
|
|
||||||
|
|
||||||
/* Pointer cache structure */
|
|
||||||
|
|
||||||
typedef struct {
|
|
||||||
int stat; /* Status (valid) bit */
|
|
||||||
SwigPtrType *tp; /* Pointer to type structure */
|
|
||||||
char name[256]; /* Given datatype name */
|
|
||||||
char mapped[256]; /* Equivalent name */
|
|
||||||
} SwigCacheType;
|
|
||||||
|
|
||||||
/* Some variables */
|
|
||||||
|
|
||||||
static int SwigPtrMax = 64; /* Max entries that can be currently held */
|
|
||||||
/* This value may be adjusted dynamically */
|
|
||||||
static int SwigPtrN = 0; /* Current number of entries */
|
|
||||||
static int SwigPtrSort = 0; /* Status flag indicating sort */
|
|
||||||
static int SwigStart[256]; /* Starting positions of types */
|
|
||||||
|
|
||||||
/* Pointer table */
|
|
||||||
static SwigPtrType *SwigPtrTable = 0; /* Table containing pointer equivalences */
|
|
||||||
|
|
||||||
/* Cached values */
|
|
||||||
|
|
||||||
#define SWIG_CACHESIZE 8
|
|
||||||
#define SWIG_CACHEMASK 0x7
|
|
||||||
static SwigCacheType SwigCache[SWIG_CACHESIZE];
|
|
||||||
static int SwigCacheIndex = 0;
|
|
||||||
static int SwigLastCache = 0;
|
|
||||||
|
|
||||||
/* Sort comparison function */
|
|
||||||
static int swigsort(const void *data1, const void *data2) {
|
|
||||||
SwigPtrType *d1 = (SwigPtrType *) data1;
|
|
||||||
SwigPtrType *d2 = (SwigPtrType *) data2;
|
|
||||||
return strcmp(d1->name,d2->name);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Binary Search function */
|
|
||||||
static int swigcmp(const void *key, const void *data) {
|
|
||||||
char *k = (char *) key;
|
|
||||||
SwigPtrType *d = (SwigPtrType *) data;
|
|
||||||
return strncmp(k,d->name,d->len);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Register a new datatype with the type-checker */
|
|
||||||
|
|
||||||
SWIGSTATIC
|
|
||||||
void SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *)) {
|
|
||||||
|
|
||||||
int i;
|
|
||||||
SwigPtrType *t = 0,*t1;
|
|
||||||
|
|
||||||
/* Allocate the pointer table if necessary */
|
|
||||||
|
|
||||||
if (!SwigPtrTable) {
|
|
||||||
SwigPtrTable = (SwigPtrType *) malloc(SwigPtrMax*sizeof(SwigPtrType));
|
|
||||||
SwigPtrN = 0;
|
|
||||||
}
|
|
||||||
/* Grow the table */
|
|
||||||
if (SwigPtrN >= SwigPtrMax) {
|
|
||||||
SwigPtrMax = 2*SwigPtrMax;
|
|
||||||
SwigPtrTable = (SwigPtrType *) realloc((char *) SwigPtrTable,SwigPtrMax*sizeof(SwigPtrType));
|
|
||||||
}
|
|
||||||
for (i = 0; i < SwigPtrN; i++)
|
|
||||||
if (strcmp(SwigPtrTable[i].name,origtype) == 0) {
|
|
||||||
t = &SwigPtrTable[i];
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
if (!t) {
|
|
||||||
t = &SwigPtrTable[SwigPtrN];
|
|
||||||
t->name = origtype;
|
|
||||||
t->len = strlen(t->name);
|
|
||||||
t->cast = 0;
|
|
||||||
t->next = 0;
|
|
||||||
SwigPtrN++;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Check for existing entry */
|
|
||||||
|
|
||||||
while (t->next) {
|
|
||||||
if ((strcmp(t->name,newtype) == 0)) {
|
|
||||||
if (cast) t->cast = cast;
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
t = t->next;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Now place entry (in sorted order) */
|
|
||||||
|
|
||||||
t1 = (SwigPtrType *) malloc(sizeof(SwigPtrType));
|
|
||||||
t1->name = newtype;
|
|
||||||
t1->len = strlen(t1->name);
|
|
||||||
t1->cast = cast;
|
|
||||||
t1->next = 0;
|
|
||||||
t->next = t1;
|
|
||||||
SwigPtrSort = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Make a pointer value string */
|
|
||||||
|
|
||||||
SWIGSTATIC
|
|
||||||
void SWIG_MakePtr(char *_c, const void *_ptr, char *type) {
|
|
||||||
static char _hex[16] =
|
|
||||||
{'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
|
|
||||||
'a', 'b', 'c', 'd', 'e', 'f'};
|
|
||||||
unsigned long _p, _s;
|
|
||||||
char _result[20], *_r; /* Note : a 64-bit hex number = 16 digits */
|
|
||||||
_r = _result;
|
|
||||||
_p = (unsigned long) _ptr;
|
|
||||||
if (_p > 0) {
|
|
||||||
while (_p > 0) {
|
|
||||||
_s = _p & 0xf;
|
|
||||||
*(_r++) = _hex[_s];
|
|
||||||
_p = _p >> 4;
|
|
||||||
}
|
|
||||||
*_r = '_';
|
|
||||||
while (_r >= _result)
|
|
||||||
*(_c++) = *(_r--);
|
|
||||||
} else {
|
|
||||||
strcpy (_c, "NULL");
|
|
||||||
}
|
|
||||||
if (_ptr)
|
|
||||||
strcpy (_c, type);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Define for backwards compatibility */
|
|
||||||
|
|
||||||
#define _swig_make_hex SWIG_MakePtr
|
|
||||||
|
|
||||||
/* Function for getting a pointer value */
|
|
||||||
|
|
||||||
SWIGSTATIC
|
|
||||||
char *SWIG_GetPtr(char *_c, void **ptr, char *_t)
|
|
||||||
{
|
|
||||||
unsigned long _p;
|
|
||||||
char temp_type[256];
|
|
||||||
char *name;
|
|
||||||
int i, len;
|
|
||||||
SwigPtrType *sp,*tp;
|
|
||||||
SwigCacheType *cache;
|
|
||||||
int start, end;
|
|
||||||
_p = 0;
|
|
||||||
|
|
||||||
/* Pointer values must start with leading underscore */
|
|
||||||
if (*_c == '_') {
|
|
||||||
_c++;
|
|
||||||
/* Extract hex value from pointer */
|
|
||||||
while (*_c) {
|
|
||||||
if ((*_c >= '0') && (*_c <= '9'))
|
|
||||||
_p = (_p << 4) + (*_c - '0');
|
|
||||||
else if ((*_c >= 'a') && (*_c <= 'f'))
|
|
||||||
_p = (_p << 4) + ((*_c - 'a') + 10);
|
|
||||||
else
|
|
||||||
break;
|
|
||||||
_c++;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (_t) {
|
|
||||||
if (strcmp(_t,_c)) {
|
|
||||||
if (!SwigPtrSort) {
|
|
||||||
qsort((void *) SwigPtrTable, SwigPtrN, sizeof(SwigPtrType), swigsort);
|
|
||||||
for (i = 0; i < 256; i++) {
|
|
||||||
SwigStart[i] = SwigPtrN;
|
|
||||||
}
|
|
||||||
for (i = SwigPtrN-1; i >= 0; i--) {
|
|
||||||
SwigStart[(int) (SwigPtrTable[i].name[1])] = i;
|
|
||||||
}
|
|
||||||
for (i = 255; i >= 1; i--) {
|
|
||||||
if (SwigStart[i-1] > SwigStart[i])
|
|
||||||
SwigStart[i-1] = SwigStart[i];
|
|
||||||
}
|
|
||||||
SwigPtrSort = 1;
|
|
||||||
for (i = 0; i < SWIG_CACHESIZE; i++)
|
|
||||||
SwigCache[i].stat = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* First check cache for matches. Uses last cache value as starting point */
|
|
||||||
cache = &SwigCache[SwigLastCache];
|
|
||||||
for (i = 0; i < SWIG_CACHESIZE; i++) {
|
|
||||||
if (cache->stat) {
|
|
||||||
if (strcmp(_t,cache->name) == 0) {
|
|
||||||
if (strcmp(_c,cache->mapped) == 0) {
|
|
||||||
cache->stat++;
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
if (cache->tp->cast) *ptr = (*(cache->tp->cast))(*ptr);
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
SwigLastCache = (SwigLastCache+1) & SWIG_CACHEMASK;
|
|
||||||
if (!SwigLastCache) cache = SwigCache;
|
|
||||||
else cache++;
|
|
||||||
}
|
|
||||||
/* We have a type mismatch. Will have to look through our type
|
|
||||||
mapping table to figure out whether or not we can accept this datatype */
|
|
||||||
|
|
||||||
start = SwigStart[(int) _t[1]];
|
|
||||||
end = SwigStart[(int) _t[1]+1];
|
|
||||||
sp = &SwigPtrTable[start];
|
|
||||||
while (start < end) {
|
|
||||||
if (swigcmp(_t,sp) == 0) break;
|
|
||||||
sp++;
|
|
||||||
start++;
|
|
||||||
}
|
|
||||||
if (start >= end) sp = 0;
|
|
||||||
/* Try to find a match for this */
|
|
||||||
if (sp) {
|
|
||||||
while (swigcmp(_t,sp) == 0) {
|
|
||||||
name = sp->name;
|
|
||||||
len = sp->len;
|
|
||||||
tp = sp->next;
|
|
||||||
/* Try to find entry for our given datatype */
|
|
||||||
while(tp) {
|
|
||||||
if (tp->len >= 255) {
|
|
||||||
return _c;
|
|
||||||
}
|
|
||||||
strcpy(temp_type,tp->name);
|
|
||||||
strncat(temp_type,_t+len,255-tp->len);
|
|
||||||
if (strcmp(_c,temp_type) == 0) {
|
|
||||||
|
|
||||||
strcpy(SwigCache[SwigCacheIndex].mapped,_c);
|
|
||||||
strcpy(SwigCache[SwigCacheIndex].name,_t);
|
|
||||||
SwigCache[SwigCacheIndex].stat = 1;
|
|
||||||
SwigCache[SwigCacheIndex].tp = tp;
|
|
||||||
SwigCacheIndex = SwigCacheIndex & SWIG_CACHEMASK;
|
|
||||||
|
|
||||||
/* Get pointer value */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
if (tp->cast) *ptr = (*(tp->cast))(*ptr);
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
tp = tp->next;
|
|
||||||
}
|
|
||||||
sp++;
|
|
||||||
/* Hmmm. Didn't find it this time */
|
|
||||||
}
|
|
||||||
}
|
|
||||||
/* Didn't find any sort of match for this data.
|
|
||||||
Get the pointer value and return the received type */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
return _c;
|
|
||||||
} else {
|
|
||||||
/* Found a match on the first try. Return pointer value */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
/* No type specified. Good luck */
|
|
||||||
*ptr = (void *) _p;
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
if (strcmp (_c, "NULL") == 0) {
|
|
||||||
*ptr = (void *) 0;
|
|
||||||
return (char *) 0;
|
|
||||||
}
|
|
||||||
*ptr = (void *) 0;
|
|
||||||
return _c;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Compatibility mode */
|
|
||||||
|
|
||||||
#define _swig_get_hex SWIG_GetPtr
|
|
||||||
|
|
||||||
#define SWIG_init initwxc
|
#define SWIG_init initwxc
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user