Add std::auto_ptr support for Perl based on std::unique_ptr

1 files changed, 19 insertions, 0 deletions

diff --git a/Lib/perl5/std_auto_ptr.i b/Lib/perl5/std_auto_ptr.i
new file mode 100644
index 000000000..ecaea2b0f
--- /dev/null
+++ b/Lib/perl5/std_auto_ptr.i
@@ -0,0 +1,19 @@
+/* -----------------------------------------------------------------------------
+ * std_auto_ptr.i
+ *
+ * The typemaps here allow handling functions returning std::auto_ptr<>,
+ * which is the most common use of this type. If you have functions taking it
+ * as parameter, these typemaps can't be used for them and you need to do
+ * something else (e.g. use shared_ptr<> which SWIG supports fully).
+ * ----------------------------------------------------------------------------- */
+
+%define %auto_ptr(TYPE)
+%typemap (out) std::auto_ptr< TYPE > %{
+   %set_output(SWIG_NewPointerObj($1.release(), $descriptor(TYPE *), SWIG_POINTER_OWN | %newpointer_flags));
+%}
+%template() std::auto_ptr< TYPE >;
+%enddef
+
+namespace std {
+   template <class T> class auto_ptr {};
+}