170 lines
4 KiB
OpenEdge ABL
170 lines
4 KiB
OpenEdge ABL
// -*- mode: C++; indent-tabs-mode: nil; c-basic-offset: 2; -*-
|
|
|
|
%module otk_property
|
|
|
|
%{
|
|
#include "config.h"
|
|
#include "property.hh"
|
|
%}
|
|
|
|
%include "otk_ustring.i"
|
|
|
|
%typemap(python,in) const otk::Property::StringVect & (otk::Property::StringVect temp) {
|
|
if (PyList_Check($input)) {
|
|
int s = PyList_Size($input);
|
|
temp = otk::Property::StringVect(s);
|
|
for (int i = 0; i < s; ++i) {
|
|
PyObject *o = PyList_GetItem($input, i);
|
|
if (PyString_Check(o)) {
|
|
temp[i] = PyString_AsString(o);
|
|
} else {
|
|
SWIG_exception(SWIG_TypeError, "list of strings expected");
|
|
}
|
|
}
|
|
$1 = &temp;
|
|
} else {
|
|
SWIG_exception(SWIG_TypeError, "list expected");
|
|
}
|
|
}
|
|
|
|
%typemap(python,in) unsigned long value[] (unsigned long *temp) {
|
|
if (PyList_Check($input)) {
|
|
int s = PyList_Size($input);
|
|
temp = new unsigned long[s];
|
|
for (int i = 0; i < s; ++i) {
|
|
PyObject *o = PyList_GetItem($input, i);
|
|
if (PyInt_Check(o)) {
|
|
temp[i] = PyInt_AsLong(o);
|
|
} else if (PyLong_Check(o)) {
|
|
temp[i] = PyLong_AsLong(o);
|
|
} else {
|
|
SWIG_exception(SWIG_TypeError, "list of numbers expected");
|
|
}
|
|
}
|
|
$1 = temp;
|
|
} else {
|
|
SWIG_exception(SWIG_TypeError, "list expected");
|
|
}
|
|
}
|
|
|
|
%typemap(python,freearg) unsigned long value[] {
|
|
delete [] $1;
|
|
}
|
|
|
|
%typemap(python,in,numinputs=0) otk::ustring *value (otk::ustring temp) {
|
|
$1 = &temp;
|
|
}
|
|
|
|
%typemap(python,argout) otk::ustring *value {
|
|
PyObject *tuple;
|
|
int s;
|
|
if (PyTuple_Check($result)) {
|
|
s = PyTuple_Size($result);
|
|
_PyTuple_Resize(&$result, s + 1);
|
|
tuple = $result;
|
|
} else {
|
|
tuple = PyTuple_New(2);
|
|
PyTuple_SET_ITEM(tuple, 0, $result);
|
|
Py_INCREF($result);
|
|
s = 1;
|
|
}
|
|
|
|
PyTuple_SET_ITEM(tuple, s, PyString_FromString($1->c_str()));
|
|
$result = tuple;
|
|
}
|
|
|
|
%typemap(python,in,numinputs=0) unsigned long *value (unsigned long temp) {
|
|
$1 = &temp;
|
|
}
|
|
|
|
%typemap(python,argout) unsigned long *value {
|
|
PyObject *s = PyLong_FromLong(*$1);
|
|
$result = s;
|
|
}
|
|
|
|
%typemap(python,in,numinputs=0) unsigned long *nelements (unsigned long temp) {
|
|
$1 = &temp;
|
|
}
|
|
|
|
%typemap(python,in) unsigned long *nelements (unsigned long temp) {
|
|
temp = (unsigned)PyLong_AsLong($input);
|
|
$1 = &temp;
|
|
}
|
|
|
|
%typemap(python,in,numinputs=0) unsigned long **value (unsigned long *temp) {
|
|
$1 = &temp;
|
|
}
|
|
|
|
%typemap(python,argout) (unsigned long *nelements, unsigned long **value) {
|
|
PyObject *tuple;
|
|
int s;
|
|
if (PyTuple_Check($result)) {
|
|
s = PyTuple_Size($result);
|
|
_PyTuple_Resize(&$result, s + 2);
|
|
tuple = $result;
|
|
} else {
|
|
tuple = PyTuple_New(3);
|
|
PyTuple_SET_ITEM(tuple, 0, $result);
|
|
Py_INCREF($result);
|
|
s = 1;
|
|
}
|
|
|
|
int sz = *$1;
|
|
|
|
PyTuple_SET_ITEM(tuple, s++, PyLong_FromLong(sz));
|
|
|
|
PyObject *r = PyList_New(sz);
|
|
for (int i = 0; i < sz; ++i) {
|
|
PyList_SET_ITEM(r, i, PyLong_FromLong((*$2)[i]));
|
|
}
|
|
PyTuple_SET_ITEM(tuple, s, r);
|
|
$result = tuple;
|
|
}
|
|
|
|
%typemap(python,in,numinputs=0) StringVect *strings (StringVect temp) {
|
|
$1 = &temp;
|
|
}
|
|
|
|
%typemap(python,argout) (unsigned long *nelements, StringVect *strings) {
|
|
PyObject *tuple;
|
|
int s;
|
|
if (PyTuple_Check($result)) {
|
|
s = PyTuple_Size($result);
|
|
_PyTuple_Resize(&$result, s + 2);
|
|
tuple = $result;
|
|
} else {
|
|
tuple = PyTuple_New(3);
|
|
PyTuple_SET_ITEM(tuple, 0, $result);
|
|
Py_INCREF($result);
|
|
s = 1;
|
|
}
|
|
|
|
int sz = *$1;
|
|
|
|
PyTuple_SET_ITEM(tuple, s++, PyLong_FromLong(sz));
|
|
|
|
PyObject *r = PyList_New(sz);
|
|
for (int i = 0; i < sz; ++i) {
|
|
PyList_SET_ITEM(r, i, PyString_FromString((*$2)[i].c_str()));
|
|
}
|
|
PyTuple_SET_ITEM(tuple, s, r);
|
|
$result = tuple;
|
|
}
|
|
|
|
namespace otk {
|
|
|
|
%immutable otk::Property::atoms;
|
|
|
|
%ignore Property::NUM_STRING_TYPE;
|
|
%ignore Property::initialize();
|
|
|
|
%rename(getNum) Property::get(Window, Atom, Atom, unsigned long*);
|
|
%rename(getNums) Property::get(Window, Atom, Atom, unsigned long*,
|
|
unsigned long**);
|
|
%rename(getString) Property::get(Window, Atom, StringType, ustring*);
|
|
%rename(getStrings) Property::get(Window, Atom, StringType, unsigned long*,
|
|
StringVect);
|
|
|
|
}
|
|
|
|
%include "property.hh"
|