PLINT T_IV
PLFLT T_NV
PLFLT * T_FLTARRAY
PLFLT2D * T_FLT2DARR
PLINT * T_INTARRAY
char ** T_1DCHARARR
PLSTRIPID T_STRIPINT
INPUT
T_FLTARRAY
PLINT ix_$var;
$var = ($type)pack1D_sz($arg,(sizeof(PLFLT)==sizeof(double) ? 'd' : 'f'),&ix_$var);
T_INTARRAY
PLINT ix_$var;
$var = ($type)pack1D_sz($arg,'i',&ix_$var);
T_FLT2DARR
PLINT nx_$var;
PLINT ny_$var;
$var = ($type)pack2D_sz($arg, (sizeof(PLFLT)==sizeof(double) ? 'd' : 'f'),&nx_$var,&ny_$var)
T_1DCHARARR
PLINT ix_$var;
if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
$var = pack1Dchar_sz((AV*)SvRV($arg),&ix_$var);
else
Perl_croak(aTHX_ \"$var is not an array reference\")
T_STRIPINT
if (sv_derived_from($arg, \"Graphics::PLplot::StripChart\")) {
$var = ($type)SvIV((SV*)SvRV($arg));
}
else
Perl_croak(aTHX_ \"$var is not of type Graphics::PLplot::StripChart\")
OUTPUT
T_STRIPINT
sv_setiv(newSVrv($arg,\"Graphics::PLplot::StripChart\"), (IV)$var);