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.
24 lines
609 B
24 lines
609 B
TYPEMAP
|
|
DCOPClient * O_OBJECT
|
|
TQCString 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 = TQCStringFromSV($arg);
|
|
|
|
OUTPUT
|
|
O_OBJECT
|
|
sv_setref_pv( $arg, CLASS, (void*)$var );
|
|
T_QCSTRING
|
|
sv_setsv($arg, TQCStringToSV($var));
|
|
T_QCSTRINGLIST
|
|
sv_setsv($arg, QCStringListToSV($var));
|