Since I have made several changes to SWIG over the years to accomodate
special cases and other things in wxPython, and since I plan on making several more, I've decided to put the SWIG sources in wxPython's CVS instead of relying on maintaining patches. This effectivly becomes a fork of an obsolete version of SWIG, :-( but since SWIG 1.3 still doesn't have some things I rely on in 1.1, not to mention that my custom patches would all have to be redone, I felt that this is the easier road to take. git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@15307 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Robin Dunn
417
wxPython/wxSWIG/swig_lib/python/python.swg
Normal file
417
wxPython/wxSWIG/swig_lib/python/python.swg
Normal file
@@ -0,0 +1,417 @@
|
||||
/***********************************************************************
|
||||
* $Header$
|
||||
* swig_lib/python/python.cfg
|
||||
*
|
||||
* Contains variable linking and pointer type-checking code.
|
||||
************************************************************************/
|
||||
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#include "Python.h"
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
/* Definitions for Windows/Unix exporting */
|
||||
#if defined(_WIN32) || defined(__WIN32__)
|
||||
# if defined(_MSC_VER)
|
||||
# define SWIGEXPORT(a) __declspec(dllexport) a
|
||||
# else
|
||||
# if defined(__BORLANDC__)
|
||||
# define SWIGEXPORT(a) a _export
|
||||
# else
|
||||
# define SWIGEXPORT(a) a
|
||||
# endif
|
||||
# endif
|
||||
#else
|
||||
# define SWIGEXPORT(a) a
|
||||
#endif
|
||||
|
||||
#ifdef SWIG_GLOBAL
|
||||
#define SWIGSTATICRUNTIME(a) SWIGEXPORT(a)
|
||||
#else
|
||||
#define SWIGSTATICRUNTIME(a) static a
|
||||
#endif
|
||||
|
||||
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 */
|
||||
|
||||
SWIGSTATICRUNTIME(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);
|
||||
}
|
||||
|
||||
SWIGSTATICRUNTIME(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;
|
||||
}
|
||||
|
||||
/* -----------------------------------------------------------------------------
|
||||
* Pointer type-checking
|
||||
* ----------------------------------------------------------------------------- */
|
||||
|
||||
/* 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;
|
||||
|
||||
static int SwigPtrMax = 64; /* Max entries that can be currently held */
|
||||
static int SwigPtrN = 0; /* Current number of entries */
|
||||
static int SwigPtrSort = 0; /* Status flag indicating sort */
|
||||
static int SwigStart[256]; /* Starting positions of types */
|
||||
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);
|
||||
}
|
||||
|
||||
/* Register a new datatype with the type-checker */
|
||||
SWIGSTATICRUNTIME(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));
|
||||
}
|
||||
|
||||
/* 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;
|
||||
}
|
||||
|
||||
/* Check for existing entries */
|
||||
while (t->next) {
|
||||
if ((strcmp(t->name,newtype) == 0)) {
|
||||
if (cast) t->cast = cast;
|
||||
return;
|
||||
}
|
||||
t = t->next;
|
||||
}
|
||||
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 */
|
||||
SWIGSTATICRUNTIME(void)
|
||||
SWIG_MakePtr(char *c, const void *ptr, char *type) {
|
||||
static char hex[17] = "0123456789abcdef";
|
||||
unsigned long p, s;
|
||||
char result[24], *r;
|
||||
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--);
|
||||
strcpy (c, type);
|
||||
} else {
|
||||
strcpy (c, "NULL");
|
||||
}
|
||||
}
|
||||
|
||||
/* Function for getting a pointer value */
|
||||
SWIGSTATICRUNTIME(char *)
|
||||
SWIG_GetPtr(char *c, void **ptr, char *t)
|
||||
{
|
||||
unsigned long p;
|
||||
char temp_type[256], *name;
|
||||
int i, len, start, end;
|
||||
SwigPtrType *sp,*tp;
|
||||
SwigCacheType *cache;
|
||||
register int d;
|
||||
|
||||
p = 0;
|
||||
/* Pointer values must start with leading underscore */
|
||||
if (*c != '_') {
|
||||
*ptr = (void *) 0;
|
||||
if (strcmp(c,"NULL") == 0) return (char *) 0;
|
||||
else c;
|
||||
}
|
||||
c++;
|
||||
/* Extract hex value from pointer */
|
||||
while (d = *c) {
|
||||
if ((d >= '0') && (d <= '9'))
|
||||
p = (p << 4) + (d - '0');
|
||||
else if ((d >= 'a') && (d <= 'f'))
|
||||
p = (p << 4) + (d - ('a'-10));
|
||||
else
|
||||
break;
|
||||
c++;
|
||||
}
|
||||
*ptr = (void *) p;
|
||||
if ((!t) || (strcmp(t,c)==0)) return (char *) 0;
|
||||
|
||||
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 && (strcmp(t,cache->name) == 0) && (strcmp(c,cache->mapped) == 0)) {
|
||||
cache->stat++;
|
||||
if (cache->tp->cast) *ptr = (*(cache->tp->cast))(*ptr);
|
||||
return (char *) 0;
|
||||
}
|
||||
SwigLastCache = (SwigLastCache+1) & SWIG_CACHEMASK;
|
||||
if (!SwigLastCache) cache = SwigCache;
|
||||
else cache++;
|
||||
}
|
||||
/* Type mismatch. Look through type-mapping table */
|
||||
start = SwigStart[(int) t[1]];
|
||||
end = SwigStart[(int) t[1]+1];
|
||||
sp = &SwigPtrTable[start];
|
||||
|
||||
/* Try to find a match */
|
||||
while (start <= end) {
|
||||
if (strncmp(t,sp->name,sp->len) == 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++;
|
||||
start++;
|
||||
}
|
||||
return c;
|
||||
}
|
||||
|
||||
/* New object-based GetPointer function. This uses the Python abstract
|
||||
* object interface to automatically dereference the 'this' attribute
|
||||
* of shadow objects. */
|
||||
|
||||
SWIGSTATICRUNTIME(char *)
|
||||
SWIG_GetPtrObj(PyObject *obj, void **ptr, char *type) {
|
||||
PyObject *sobj = obj;
|
||||
char *str;
|
||||
if (!PyString_Check(obj)) {
|
||||
sobj = PyObject_GetAttrString(obj,"this");
|
||||
if (!sobj) return "";
|
||||
}
|
||||
str = PyString_AsString(sobj);
|
||||
return SWIG_GetPtr(str,ptr,type);
|
||||
}
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
Reference in New Issue
Block a user