c71dba5021
Support expansion of name attribute in: %feature("interface", name="%s")
%s expands to the proxy class name and all the usual %rename functions
can be used (regex, strip, camelcase etc) to derive the interface name
from the proxy class name.
Rename $interfacename family of special variables to $javainterfacename for Java
Rename $interfacename family of special variables to $csinterfacename for C#
This is to free up $interfacename for simple interface name expansion in forthcoming commit
47 lines
2.6 KiB
OpenEdge ABL
47 lines
2.6 KiB
OpenEdge ABL
%define DECLARE_INTERFACE_(INTERFACE, CTYPE...)
|
|
%feature("interface", name="INTERFACE") CTYPE;
|
|
%typemap(cstype) CTYPE "$&csinterfacename"
|
|
%typemap(cstype) CTYPE *, CTYPE [], CTYPE & "$csinterfacename"
|
|
%typemap(cstype) CTYPE *const& "$*csinterfacename"
|
|
%typemap(csin) CTYPE, CTYPE & "$csinput.GetInterfaceCPtr()"
|
|
%typemap(csin) CTYPE *, CTYPE *const&, CTYPE [] "$csinput == null ? new global::System.Runtime.InteropServices.HandleRef(null, global::System.IntPtr.Zero) : $csinput.GetInterfaceCPtr()"
|
|
%typemap(csout, excode=SWIGEXCODE) CTYPE {
|
|
$&csclassname ret = new $&csclassname($imcall, true);$excode
|
|
return ($&csinterfacename)ret;
|
|
}
|
|
%typemap(csout, excode=SWIGEXCODE) CTYPE & {
|
|
$csclassname ret = new $csclassname($imcall, $owner);$excode
|
|
return ($csinterfacename)ret;
|
|
}
|
|
%typemap(csout, excode=SWIGEXCODE) CTYPE *, CTYPE [] {
|
|
global::System.IntPtr cPtr = $imcall;
|
|
$csclassname ret = (cPtr == global::System.IntPtr.Zero) ? null : new $csclassname(cPtr, $owner);$excode
|
|
return ($csinterfacename)ret;
|
|
}
|
|
%typemap(csout, excode=SWIGEXCODE) CTYPE *const& {
|
|
global::System.IntPtr cPtr = $imcall;
|
|
$*csclassname ret = (cPtr == global::System.IntPtr.Zero) ? null : new $*csclassname(cPtr, $owner);$excode
|
|
return ($*csinterfacename)ret;
|
|
}
|
|
%typemap(csdirectorin) CTYPE "($&csinterfacename)new $&csclassname($iminput, false)"
|
|
%typemap(csdirectorin) CTYPE & "($csinterfacename)new $csclassname($iminput, false)"
|
|
%typemap(csdirectorin) CTYPE *, CTYPE [] "($iminput == global::System.IntPtr.Zero) ? null : ($csinterfacename)new $csclassname($iminput, false)"
|
|
%typemap(csdirectorin) CTYPE *const& "($iminput == global::System.IntPtr.Zero) ? null : ($*csinterfacename)new $*csclassname($iminput, false)"
|
|
%typemap(csdirectorout) CTYPE, CTYPE *, CTYPE *const&, CTYPE [], CTYPE & "$cscall.GetInterfaceCPtr()"
|
|
%typemap(csinterfacecode, declaration=" [System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]\n global::System.Runtime.InteropServices.HandleRef GetInterfaceCPtr();\n", cptrmethod=#INTERFACE##"_GetInterfaceCPtr") CTYPE %{
|
|
[System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)]
|
|
global::System.Runtime.InteropServices.HandleRef INTERFACE.GetInterfaceCPtr() {
|
|
return new global::System.Runtime.InteropServices.HandleRef(this, $imclassname.$csclazzname##INTERFACE##_GetInterfaceCPtr(swigCPtr.Handle));
|
|
}
|
|
%}
|
|
%enddef
|
|
|
|
%define DECLARE_INTERFACE_RENAME(INTERFACE, IMPL, CTYPE...)
|
|
%rename (IMPL) CTYPE;
|
|
DECLARE_INTERFACE_(INTERFACE, CTYPE)
|
|
%enddef
|
|
|
|
%define DECLARE_INTERFACE(INTERFACE, CTYPE...)
|
|
DECLARE_INTERFACE_(INTERFACE, CTYPE, CTYPE)
|
|
%enddef
|
|
|