26 lines
757 B
OpenEdge ABL
26 lines
757 B
OpenEdge ABL
%define DECLARE_INTERFACE_(CTYPE, INTERFACE, IMPL)
|
|
%feature("interface", name = "INTERFACE", cptr = "GetCPtr") CTYPE;
|
|
%typemap(cstype) CTYPE*, const CTYPE& "INTERFACE"
|
|
%typemap(csdirectorout) CTYPE*, const CTYPE& "$cscall.GetCPtr()"
|
|
%typemap(csdirectorin) CTYPE*, const CTYPE&
|
|
%{
|
|
(INTERFACE)new IMPL($iminput,false)
|
|
%}
|
|
%typemap(csin) CTYPE*, const CTYPE& "$csinput.GetCPtr()"
|
|
%typemap(csout, excode=SWIGEXCODE) CTYPE*, const CTYPE&
|
|
{
|
|
IMPL ret = new IMPL($imcall,true);
|
|
$excode
|
|
return (INTERFACE)ret;
|
|
}
|
|
%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
|
|
|