Select Code to Download

TYPEMAP
foo* T_FOO
...
INPUT
T_FOO
    $var = ($type)SvFoo($var);

void
my_xsub(...)
...
            foos[i] = SvFoo(ST(i));
        }
        # do something with foos

foo*
SvFoo(SV* foo) {
...
    IV tmp = SvIV((SV*)SvRV(foo));
    ret = INT2PTR(foo*, tmp);
}