From 90825e2392b2d70e43c7a25b8a3752299a933894 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdebindings@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 dcopperl/typemap | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 dcopperl/typemap

(limited to 'dcopperl/typemap')

diff --git a/dcopperl/typemap b/dcopperl/typemap
new file mode 100644
index 00000000..cb7f2420
--- /dev/null
+++ b/dcopperl/typemap
@@ -0,0 +1,23 @@
+TYPEMAP
+DCOPClient *    O_OBJECT
+QCString        T_QCSTRING
+QCStringList    T_QCSTRINGLIST
+
+INPUT
+O_OBJECT
+        if(sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG))
+                $var = ($type)SvIV((SV*)SvRV($arg));
+        else {
+                warn(\"${Package}::$func_name() -- $var is not a blessed SV reference\");
+                XSRETURN_UNDEF;
+        }
+T_QCSTRING
+        $var = QCStringFromSV($arg);
+
+OUTPUT
+O_OBJECT
+        sv_setref_pv( $arg, CLASS, (void*)$var );
+T_QCSTRING
+        sv_setsv($arg, QCStringToSV($var));
+T_QCSTRINGLIST
+        sv_setsv($arg, QCStringListToSV($var));
-- 
cgit v1.2.1