Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 07b47fc13b
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (18 sloc) 0.605 kb
TYPEMAP
PLJSONSL * T_PLJSONSL
PLTUBA* T_PLTUBA
INPUT
T_PLJSONSL
if (! (SvROK($arg) && SvOBJECT(SvRV($arg)) && SvIOK(SvRV($arg)))) {
die(\"Not a valid JSON::SL object\");
}
$var = NUM2PTR(PLJSONSL *, SvIV(SvRV($arg)));
T_PLTUBA
if (! (SvROK($arg) && SvOBJECT(SvRV($arg)) && SvTYPE(SvRV($arg)) >= SVt_PVHV)) {
die(\"Not a valid JSON::SL::Tuba object\");
}
$var = (PLTUBA*)hv_fetchs((HV*)SvRV($arg), PLTUBA_HKEY_NAME, 0);
if ($var == NULL || (SvIOK(*(SV**)$var) == 0 && SvREFCNT($arg))) {
die(\"Did you mangle my hash?!\");
}
$var = NUM2PTR(PLTUBA *, SvIV(*(SV**)$var));
Jump to Line
Something went wrong with that request. Please try again.