2 # Grr can't let it end in OBJ 'cause xsubpp would
3 # s/OBJ$/REF/ that for the DESTROY function
12 if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVAV)
13 $var = (AV *)SvRV($arg);
15 croak(\"$var is not a reference to an array\")
17 if (sv_isa($arg, \"VI\")) {
18 IV tmp = SvIV((SV*)SvRV($arg));
21 croak(\"screen no longer exists\");
24 croak(\"$var is not of type ${ntype}\")
26 if (sv_isa($arg, \"${ntype}\")) {
27 IV tmp = SvIV((SV*)SvRV($arg));
28 if (sv_isa((SV *)tmp, \"VI\")) {
29 IV tmp2 = SvIV((SV*)SvRV((SV *)tmp));
32 croak(\"screen no longer exists\");
35 croak(\"$var is not of type ${ntype}\");
38 croak(\"$var is not of type ${ntype}\")