diff options
| author | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
|---|---|---|
| committer | toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2009-11-25 17:56:58 +0000 |
| commit | 90825e2392b2d70e43c7a25b8a3752299a933894 (patch) | |
| tree | e33aa27f02b74604afbfd0ea4f1cfca8833d882a /dcopperl/typemap | |
| download | tdebindings-90825e2392b2d70e43c7a25b8a3752299a933894.tar.gz tdebindings-90825e2392b2d70e43c7a25b8a3752299a933894.zip | |
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
Diffstat (limited to 'dcopperl/typemap')
| -rw-r--r-- | dcopperl/typemap | 23 |
1 files changed, 23 insertions, 0 deletions
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)); |