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
606 B
24 lines
606 B
15 years ago
|
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));
|