24 lines
1 KiB
OpenEdge ABL
24 lines
1 KiB
OpenEdge ABL
%define DECLARE_INTERFACE_(CTYPE, INTERFACE, IMPL)
|
|
%feature("interface", name = "INTERFACE", cptr = #INTERFACE ## "_getCPtr") CTYPE;
|
|
%typemap(jstype) CTYPE *, const CTYPE & "INTERFACE"
|
|
%typemap(jtype, nopgcpp="1") CTYPE *, const CTYPE & "long"
|
|
%typemap(javadirectorout) CTYPE *, const CTYPE & "$javacall." ## #INTERFACE ## "_getCPtr()"
|
|
%typemap(javadirectorin) CTYPE *, const CTYPE & "($jniinput == 0) ? null : (INTERFACE)new IMPL($jniinput, false)"
|
|
%typemap(javain) CTYPE * "($javainput == null) ? 0 : $javainput." ## #INTERFACE ## "_getCPtr()"
|
|
%typemap(javain) const CTYPE & "$javainput." ## #INTERFACE ## "_getCPtr()"
|
|
%typemap(javaout) CTYPE *, const CTYPE & {
|
|
long cPtr = $jnicall;
|
|
return (cPtr == 0) ? null : (INTERFACE)new IMPL(cPtr, true);
|
|
}
|
|
SWIG_JAVABODY_PROXY(public, protected, CTYPE)
|
|
%enddef
|
|
|
|
%define DECLARE_INTERFACE_RENAME(CTYPE, INTERFACE, IMPL)
|
|
%rename (IMPL) CTYPE;
|
|
DECLARE_INTERFACE_(CTYPE, INTERFACE, IMPL)
|
|
%enddef
|
|
|
|
%define DECLARE_INTERFACE(CTYPE, INTERFACE)
|
|
DECLARE_INTERFACE_(CTYPE, INTERFACE, CTYPE)
|
|
%enddef
|
|
|