summaryrefslogtreecommitdiff
path: root/wrap/otk_property.i
diff options
context:
space:
mode:
Diffstat (limited to 'wrap/otk_property.i')
-rw-r--r--wrap/otk_property.i170
1 files changed, 0 insertions, 170 deletions
diff --git a/wrap/otk_property.i b/wrap/otk_property.i
deleted file mode 100644
index 23c030a0..00000000
--- a/wrap/otk_property.i
+++ /dev/null
@@ -1,170 +0,0 @@
-// -*- 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"