You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/dcopperl/typemap

24 lines
606 B

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));