unsigned long * T_OPAQUEPTR
#############################################################################
Perl_croak(aTHX_ \"$var is not a reference\")
if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
Perl_croak(aTHX_ \"$var is not an array reference\")
if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
Perl_croak(aTHX_ \"$var is not a hash reference\")
if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)
Perl_croak(aTHX_ \"$var is not a code reference\")
$var = (bool)SvTRUE($arg)
$var = (unsigned int)SvUV($arg)
$var = (unsigned short)SvUV($arg)
$var = (unsigned long)SvUV($arg)
$var = (char)*SvPV_nolen($arg)
$var = (unsigned char)SvUV($arg)
$var = (double)SvNV($arg)
$var = ($type)SvPV_nolen($arg)
$var = INT2PTR($type,SvIV($arg))
IV tmp = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type,tmp);
Perl_croak(aTHX_ \"$var is not a reference\")
if (sv_isa($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = *INT2PTR($type *, tmp);
Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
if (sv_isa($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type, tmp);
Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
if (sv_derived_from($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type,tmp);
Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
if (sv_isa($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
${type}_desc = (\U${type}_DESC\E*) tmp;
$var = ${type}_desc->ptr;
Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
IV tmp = SvIV((SV*)SvRV($arg));
$var = *INT2PTR($type,tmp);
Perl_croak(aTHX_ \"$var is not a reference\")
if (sv_isa($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = *INT2PTR($type,tmp);
Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
$var = *($type *)SvPV_nolen($arg)
$var = ($type)SvPV_nolen($arg)
$var = XS_unpack_$ntype($arg)
$var = XS_unpack_$ntype($arg)
$var = make_perl_cb_$type($arg)
$var = $ntype(items -= $argoff);
/* this is the number of elements in the array */
$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
$var = IoIFP(sv_2io($arg))
$var = IoIFP(sv_2io($arg))
$var = IoOFP(sv_2io($arg))
#############################################################################
sv_setiv($arg, (IV)$var);
sv_setuv($arg, (UV)$var);
sv_setiv($arg, (IV)$var);
sv_setpvn($arg, "0 but true", 10);
sv_setiv($arg, (IV)$var);
sv_setiv($arg, (IV)$var);
sv_setuv($arg, (UV)$var);
sv_setiv($arg, (IV)$var);
sv_setuv($arg, (UV)$var);
sv_setiv($arg, (IV)$var);
sv_setuv($arg, (UV)$var);
sv_setpvn($arg, (char *)&$var, 1);
sv_setuv($arg, (UV)$var);
sv_setnv($arg, (double)$var);
sv_setnv($arg, (NV)$var);
sv_setnv($arg, (double)$var);
sv_setpv((SV*)$arg, $var);
sv_setiv($arg, PTR2IV($var));
sv_setref_pv($arg, Nullch, (void*)$var);
sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
sv_setref_pv($arg, \"${ntype}\", (void*)$var);
sv_setref_pv($arg, \"${ntype}\", (void*)$var);
sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
sv_setpvn($arg, (char *)&$var, sizeof($var));
sv_setpvn($arg, (char *)$var, sizeof(*$var));
XS_pack_$ntype($arg, $var);
XS_pack_$ntype($arg, $var, count_$ntype);
sv_setpvn($arg, $var.chp(), $var.size());
sv_setpvn($arg, $var.context.value().chp(),
$var.context.value().size());
for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
ST(ix_$var) = sv_newmortal();
GV *gv = newGVgen("$Package");
PerlIO *fp = PerlIO_importFILE($var,0);
if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
GV *gv = newGVgen("$Package");
if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
GV *gv = newGVgen("$Package");
if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
GV *gv = newGVgen("$Package");
if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));