48c644ea6e
Equivalent to Guile implementation. Slight tweak to proxy ownership was required by adding in the own member to swig_mz_proxy.
36 lines
1.4 KiB
OpenEdge ABL
36 lines
1.4 KiB
OpenEdge ABL
/* -----------------------------------------------------------------------------
|
|
* std_auto_ptr.i
|
|
*
|
|
* SWIG library file for handling std::auto_ptr.
|
|
* Memory ownership is passed from the std::auto_ptr C++ layer to the proxy
|
|
* class when returning a std::auto_ptr from a function.
|
|
* Memory ownership is passed from the proxy class to the std::auto_ptr in the
|
|
* C++ layer when passed as a parameter to a wrapped function.
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
#define %argument_fail(code, type, name, argn) scheme_wrong_type(FUNC_NAME, type, argn, argc, argv);
|
|
#define %set_output(obj) $result = obj
|
|
|
|
%define %auto_ptr(TYPE)
|
|
%typemap(in, noblock=1) std::auto_ptr< TYPE > (void *argp = 0, int res = 0) {
|
|
res = SWIG_ConvertPtr($input, &argp, $descriptor(TYPE *), SWIG_POINTER_RELEASE);
|
|
if (!SWIG_IsOK(res)) {
|
|
if (res == SWIG_ERROR_RELEASE_NOT_OWNED) {
|
|
scheme_signal_error(FUNC_NAME ": cannot release ownership as memory is not owned for argument $argnum of type 'TYPE *'");
|
|
} else {
|
|
%argument_fail(res, "TYPE *", $symname, $argnum);
|
|
}
|
|
}
|
|
$1.reset((TYPE *)argp);
|
|
}
|
|
|
|
%typemap (out) std::auto_ptr< TYPE > %{
|
|
%set_output(SWIG_NewPointerObj($1.release(), $descriptor(TYPE *), SWIG_POINTER_OWN));
|
|
%}
|
|
|
|
%template() std::auto_ptr< TYPE >;
|
|
%enddef
|
|
|
|
namespace std {
|
|
template <class T> class auto_ptr {};
|
|
}
|