7e5e4fd1f9
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7676 626c5289-ae23-0410-ae9c-e8d60b6d4f22
152 lines
3.2 KiB
OpenEdge ABL
152 lines
3.2 KiB
OpenEdge ABL
%{
|
|
#include <stdio.h>
|
|
%}
|
|
|
|
%include <pymacros.swg>
|
|
|
|
/*
|
|
Attribute implementation using JOHN E LENZ ideas.
|
|
|
|
The following macros convert a pair of set/get methods
|
|
into a "native" attribute.
|
|
|
|
Use %attribute when you have a pair of get/set methods
|
|
like in:
|
|
|
|
%attribute(A, int, a, get_a, set_a);
|
|
|
|
struct A
|
|
{
|
|
int get_a() const
|
|
{
|
|
return _a;
|
|
}
|
|
|
|
void set_a(int aa)
|
|
{
|
|
_a = aa;
|
|
}
|
|
};
|
|
|
|
If you don't provide a 'set' method, a 'read-only' attribute
|
|
is generated, ie, like in:
|
|
|
|
%attribute(A, int, c, get_c);
|
|
|
|
|
|
Use %attribute_ref when you have const/non-const reference
|
|
access methods, like in:
|
|
|
|
%attribute_ref(A, int, b);
|
|
|
|
struct A
|
|
{
|
|
const int& b() const
|
|
{
|
|
return _b;
|
|
}
|
|
|
|
int& b()
|
|
{
|
|
return _b;
|
|
}
|
|
};
|
|
|
|
You can also use
|
|
|
|
%attribute_ref(class, type, refname, attr);
|
|
|
|
if the internal C++ reference methods have a different name from the
|
|
attribute you want.
|
|
|
|
Then you can use the instances like:
|
|
|
|
x = A()
|
|
x.a = 3 # calls A::set_a
|
|
print x.a # calls A::get_a
|
|
|
|
x.b = 3 # calls A::b()
|
|
print x.b # calls A::b() const
|
|
|
|
NOTE: remember that if the type contains commas, such as
|
|
'std::pair<int,int>', you need to use the macro like:
|
|
|
|
%attribute_ref(A, SWIG_arg(std::pair<int,int>), pval);
|
|
|
|
where SWIG_arg() 'normalize' the type to be understood as a single
|
|
argument, otherwise the macro will get confused (see the 'cpp'
|
|
documentation).
|
|
|
|
*/
|
|
|
|
#ifdef __cplusplus
|
|
%define %_attribute(Class, Wrap, type, attr, getcode, setcode)
|
|
%extend Class {
|
|
type attr;
|
|
}
|
|
%{
|
|
template <class C> inline
|
|
type Wrap ##_## attr ## _get(const C* _t)
|
|
{ return getcode; }
|
|
|
|
template <class C> inline
|
|
void Wrap ##_## attr ## _set(C* _t, type _val)
|
|
{ setcode; }
|
|
%}
|
|
%enddef
|
|
|
|
#else
|
|
|
|
%define %_attribute(Class, Wrap, type, attr, getcode, setcode)
|
|
%extend Class {
|
|
type attr;
|
|
}
|
|
%{
|
|
#define Wrap ##_## attr ## _get(_t) getcode
|
|
#define Wrap ##_## attr ## _set(_t, _val) setcode
|
|
%}
|
|
%enddef
|
|
#endif
|
|
//
|
|
// Internal versions, need Wrap name
|
|
//
|
|
|
|
%define %attribute_T(Class, Wrap, type, attr, get, ...)
|
|
%ignore Class::get;
|
|
#if #__VA_ARGS__ != ""
|
|
%ignore Class::__VA_ARGS__;
|
|
%_attribute(SWIG_arg(Class), Wrap, SWIG_arg(type),
|
|
attr, _t->get(), _t->__VA_ARGS__(_val))
|
|
#else
|
|
%_attribute(SWIG_arg(Class), Wrap, SWIG_arg(type),
|
|
attr, _t->get(),
|
|
fprintf(stderr,"'attr' is a read-only attribute"))
|
|
#endif
|
|
%enddef
|
|
|
|
%define %_attribute_ref_T(Class, Wrap, type, refname, attr)
|
|
%ignore Class::refname();
|
|
%ignore Class::refname() const;
|
|
%_attribute(SWIG_arg(Class), Wrap, SWIG_arg(type),
|
|
attr, _t->refname(), _t->refname() = _val)
|
|
%enddef
|
|
|
|
%define %attribute_ref_T(Class, Wrap, type, refname, ...)
|
|
#if #__VA_ARGS__ == ""
|
|
%_attribute_ref_T(SWIG_arg(Class), Wrap, SWIG_arg(type), refname, refname)
|
|
#else
|
|
%_attribute_ref_T(SWIG_arg(Class), Wrap, SWIG_arg(type), refname, __VA_ARGS__)
|
|
#endif
|
|
%enddef
|
|
|
|
//
|
|
// User versions
|
|
//
|
|
|
|
%define %attribute(Class, type, attr, get, ...)
|
|
%attribute_T(SWIG_arg(Class), SWIG_Mangle(Class), SWIG_arg(type), attr, get, __VA_ARGS__)
|
|
%enddef
|
|
|
|
%define %attribute_ref(Class, type, refname, ...)
|
|
%attribute_ref_T(SWIG_arg(Class), SWIG_Mangle(Class), SWIG_arg(type), refname, __VA_ARGS__)
|
|
%enddef
|