[perl5.git] / lib / ExtUtils / typemap

# basic C types
int			T_IV
unsigned		T_UV
unsigned int		T_UV
long			T_IV
unsigned long		T_UV
short			T_IV
unsigned short		T_UV
char			T_CHAR
unsigned char		T_U_CHAR
char *			T_PV
unsigned char *		T_PV
const char *		T_PV
caddr_t			T_PV
wchar_t *		T_PV
wchar_t			T_IV
# bool_t is defined in <rpc/rpc.h>
bool_t			T_IV
size_t			T_UV
ssize_t			T_IV
time_t			T_NV
unsigned long *		T_OPAQUEPTR
char **			T_PACKEDARRAY
void *			T_PTR
Time_t *		T_PV
SV *			T_SV

# These are the backwards-compatibility AV*/HV* typemaps that
# do not decrement refcounts. Locally override with
# "AV*	T_AVREF_REFCOUNT_FIXED", "HV*	T_HVREF_REFCOUNT_FIXED",
# "CV*	T_CVREF_REFCOUNT_FIXED", "SVREF	T_SVREF_REFCOUNT_FIXED",
# to get the fixed versions.
SVREF			T_SVREF
CV *			T_CVREF
AV *			T_AVREF
HV *			T_HVREF

IV			T_IV
UV			T_UV
NV                      T_NV
I32			T_IV
I16			T_IV
I8			T_IV
STRLEN			T_UV
U32			T_U_LONG
U16			T_U_SHORT
U8			T_UV
Result			T_U_CHAR
Boolean			T_BOOL
float                   T_FLOAT
double			T_DOUBLE
SysRet			T_SYSRET
SysRetLong		T_SYSRET
FILE *			T_STDIO
PerlIO *		T_INOUT
FileHandle		T_PTROBJ
InputStream		T_IN
InOutStream		T_INOUT
OutputStream		T_OUT
bool			T_BOOL

#############################################################################
INPUT
T_SV
	$var = $arg
T_SVREF
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv)){
		    $var = SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not a reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_SVREF_REFCOUNT_FIXED
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv)){
		    $var = SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not a reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_AVREF
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
		    $var = (AV*)SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not an ARRAY reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_AVREF_REFCOUNT_FIXED
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
		    $var = (AV*)SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not an ARRAY reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_HVREF
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
		    $var = (HV*)SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not a HASH reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_HVREF_REFCOUNT_FIXED
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
		    $var = (HV*)SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not a HASH reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_CVREF
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVCV){
		    $var = (CV*)SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not a CODE reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_CVREF_REFCOUNT_FIXED
	STMT_START {
		SV* const xsub_tmp_sv = $arg;
		SvGETMAGIC(xsub_tmp_sv);
		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVCV){
		    $var = (CV*)SvRV(xsub_tmp_sv);
		}
		else{
		    Perl_croak(aTHX_ \"%s: %s is not a CODE reference\",
				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
				\"$var\");
		}
	} STMT_END
T_SYSRET
	$var NOT IMPLEMENTED
T_UV
	$var = ($type)SvUV($arg)
T_IV
	$var = ($type)SvIV($arg)
T_INT
	$var = (int)SvIV($arg)
T_ENUM
	$var = ($type)SvIV($arg)
T_BOOL
	$var = (bool)SvTRUE($arg)
T_U_INT
	$var = (unsigned int)SvUV($arg)
T_SHORT
	$var = (short)SvIV($arg)
T_U_SHORT
	$var = (unsigned short)SvUV($arg)
T_LONG
	$var = (long)SvIV($arg)
T_U_LONG
	$var = (unsigned long)SvUV($arg)
T_CHAR
	$var = (char)*SvPV_nolen($arg)
T_U_CHAR
	$var = (unsigned char)SvUV($arg)
T_FLOAT
	$var = (float)SvNV($arg)
T_NV
	$var = ($type)SvNV($arg)
T_DOUBLE
	$var = (double)SvNV($arg)
T_PV
	$var = ($type)SvPV_nolen($arg)
T_PTR
	$var = INT2PTR($type,SvIV($arg))
T_PTRREF
	if (SvROK($arg)) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = INT2PTR($type,tmp);
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not a reference\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\")
T_REF_IV_REF
	if (sv_isa($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = *INT2PTR($type *, tmp);
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not of type %s\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\", \"$ntype\")
T_REF_IV_PTR
	if (sv_isa($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = INT2PTR($type, tmp);
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not of type %s\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\", \"$ntype\")
T_PTROBJ
	if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = INT2PTR($type,tmp);
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not of type %s\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\", \"$ntype\")
T_PTRDESC
	if (sv_isa($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    ${type}_desc = (\U${type}_DESC\E*) tmp;
	    $var = ${type}_desc->ptr;
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not of type %s\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\", \"$ntype\")
T_REFREF
	if (SvROK($arg)) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = *INT2PTR($type,tmp);
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not a reference\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\")
T_REFOBJ
	if (sv_isa($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = *INT2PTR($type,tmp);
	}
	else
	    Perl_croak(aTHX_ \"%s: %s is not of type %s\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\", \"$ntype\")
T_OPAQUE
	$var = *($type *)SvPV_nolen($arg)
T_OPAQUEPTR
	$var = ($type)SvPV_nolen($arg)
T_PACKED
	$var = XS_unpack_$ntype($arg)
T_PACKEDARRAY
	$var = XS_unpack_$ntype($arg)
T_ARRAY
	U32 ix_$var = $argoff;
	$var = $ntype(items -= $argoff);
	while (items--) {
	    DO_ARRAY_ELEM;
	    ix_$var++;
	}
        /* this is the number of elements in the array */
        ix_$var -= $argoff
T_STDIO
	$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
T_IN
	$var = IoIFP(sv_2io($arg))
T_INOUT
	$var = IoIFP(sv_2io($arg))
T_OUT
	$var = IoOFP(sv_2io($arg))
#############################################################################
OUTPUT
T_SV
	$arg = $var;
T_SVREF
	$arg = newRV((SV*)$var);
T_SVREF_REFCOUNT_FIXED
	$arg = newRV_noinc((SV*)$var);
T_AVREF
	$arg = newRV((SV*)$var);
T_AVREF_REFCOUNT_FIXED
	$arg = newRV_noinc((SV*)$var);
T_HVREF
	$arg = newRV((SV*)$var);
T_HVREF_REFCOUNT_FIXED
	$arg = newRV_noinc((SV*)$var);
T_CVREF
	$arg = newRV((SV*)$var);
T_CVREF_REFCOUNT_FIXED
	$arg = newRV_noinc((SV*)$var);
T_IV
	sv_setiv($arg, (IV)$var);
T_UV
	sv_setuv($arg, (UV)$var);
T_INT
	sv_setiv($arg, (IV)$var);
T_SYSRET
	if ($var != -1) {
	    if ($var == 0)
		sv_setpvn($arg, "0 but true", 10);
	    else
		sv_setiv($arg, (IV)$var);
	}
T_ENUM
	sv_setiv($arg, (IV)$var);
T_BOOL
	$arg = boolSV($var);
T_U_INT
	sv_setuv($arg, (UV)$var);
T_SHORT
	sv_setiv($arg, (IV)$var);
T_U_SHORT
	sv_setuv($arg, (UV)$var);
T_LONG
	sv_setiv($arg, (IV)$var);
T_U_LONG
	sv_setuv($arg, (UV)$var);
T_CHAR
	sv_setpvn($arg, (char *)&$var, 1);
T_U_CHAR
	sv_setuv($arg, (UV)$var);
T_FLOAT
	sv_setnv($arg, (double)$var);
T_NV
	sv_setnv($arg, (NV)$var);
T_DOUBLE
	sv_setnv($arg, (double)$var);
T_PV
	sv_setpv((SV*)$arg, $var);
T_PTR
	sv_setiv($arg, PTR2IV($var));
T_PTRREF
	sv_setref_pv($arg, Nullch, (void*)$var);
T_REF_IV_REF
	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
T_REF_IV_PTR
	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
T_PTROBJ
	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
T_PTRDESC
	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
T_REFREF
	NOT_IMPLEMENTED
T_REFOBJ
	NOT IMPLEMENTED
T_OPAQUE
	sv_setpvn($arg, (char *)&$var, sizeof($var));
T_OPAQUEPTR
	sv_setpvn($arg, (char *)$var, sizeof(*$var));
T_PACKED
	XS_pack_$ntype($arg, $var);
T_PACKEDARRAY
	XS_pack_$ntype($arg, $var, count_$ntype);
T_ARRAY
        {
	    U32 ix_$var;
	    EXTEND(SP,size_$var);
	    for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
		ST(ix_$var) = sv_newmortal();
	DO_ARRAY_ELEM
	    }
        }
T_STDIO
	{
	    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)));
	    else
		$arg = &PL_sv_undef;
	}
T_IN
	{
	    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)));
	    else
		$arg = &PL_sv_undef;
	}
T_INOUT
	{
	    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)));
	    else
		$arg = &PL_sv_undef;
	}
T_OUT
	{
	    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)));
	    else
		$arg = &PL_sv_undef;
	}
Commit	Line	Data
93a17b20	1	# basic C types
85e6fe83	2	int T_IV
3aa35033 GS	3	unsigned T_UV
3aa35033 GS	4	unsigned int T_UV
a0d0e21e	5	long T_IV
3aa35033	6	unsigned long T_UV
85e6fe83	7	short T_IV
3aa35033	8	unsigned short T_UV
93a17b20	9	char T_CHAR
85e6fe83	10	unsigned char T_U_CHAR
a0d0e21e LW	11	char * T_PV
a0d0e21e LW	12	unsigned char * T_PV
f8c11764	13	const char * T_PV
a0d0e21e LW	14	caddr_t T_PV
	15	wchar_t * T_PV
	16	wchar_t T_IV
d2b7433c	17	# bool_t is defined in <rpc/rpc.h>
a0d0e21e	18	bool_t T_IV
12734836	19	size_t T_UV
a0d0e21e LW	20	ssize_t T_IV
a0d0e21e LW	21	time_t T_NV
93a17b20	22	unsigned long * T_OPAQUEPTR
5abff6f9	23	char ** T_PACKEDARRAY
93a17b20	24	void * T_PTR
a0d0e21e	25	Time_t * T_PV
2304df62	26	SV * T_SV
b64f48ff S	27
	28	# These are the backwards-compatibility AV/HV typemaps that
	29	# do not decrement refcounts. Locally override with
1d2615b4 S	30	# "AV* T_AVREF_REFCOUNT_FIXED", "HV* T_HVREF_REFCOUNT_FIXED",
	31	# "CV* T_CVREF_REFCOUNT_FIXED", "SVREF T_SVREF_REFCOUNT_FIXED",
	32	# to get the fixed versions.
	33	SVREF T_SVREF
	34	CV * T_CVREF
a0d0e21e LW	35	AV * T_AVREF
a0d0e21e LW	36	HV * T_HVREF
93a17b20	37
a0d0e21e	38	IV T_IV
0ca04487	39	UV T_UV
f8c11764	40	NV T_NV
85e6fe83 LW	41	I32 T_IV
	42	I16 T_IV
	43	I8 T_IV
12734836	44	STRLEN T_UV
93a17b20 LW	45	U32 T_U_LONG
93a17b20 LW	46	U16 T_U_SHORT
3aa35033	47	U8 T_UV
93a17b20	48	Result T_U_CHAR
f8c11764 TJ	49	Boolean T_BOOL
f8c11764 TJ	50	float T_FLOAT
93a17b20	51	double T_DOUBLE
2304df62	52	SysRet T_SYSRET
a0d0e21e	53	SysRetLong T_SYSRET
f7e7eb72 NIS	54	FILE * T_STDIO
f7e7eb72 NIS	55	PerlIO * T_INOUT
a0d0e21e LW	56	FileHandle T_PTROBJ
	57	InputStream T_IN
	58	InOutStream T_INOUT
	59	OutputStream T_OUT
1cc23d7f	60	bool T_BOOL
93a17b20	61
8990e307 LW	62	#############################################################################
8990e307 LW	63	INPUT
2304df62	64	T_SV
a0d0e21e LW	65	$var = $arg
a0d0e21e LW	66	T_SVREF
88b5a879 GF	67	STMT_START {
	68	SV* const xsub_tmp_sv = $arg;
	69	SvGETMAGIC(xsub_tmp_sv);
	70	if (SvROK(xsub_tmp_sv)){
	71	$var = SvRV(xsub_tmp_sv);
	72	}
	73	else{
	74	Perl_croak(aTHX_ \"%s: %s is not a reference\",
	75	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	76	\"$var\");
	77	}
	78	} STMT_END
1d2615b4 S	79	T_SVREF_REFCOUNT_FIXED
	80	STMT_START {
	81	SV* const xsub_tmp_sv = $arg;
	82	SvGETMAGIC(xsub_tmp_sv);
	83	if (SvROK(xsub_tmp_sv)){
	84	$var = SvRV(xsub_tmp_sv);
	85	}
	86	else{
	87	Perl_croak(aTHX_ \"%s: %s is not a reference\",
	88	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	89	\"$var\");
	90	}
	91	} STMT_END
a0d0e21e	92	T_AVREF
88b5a879 GF	93	STMT_START {
	94	SV* const xsub_tmp_sv = $arg;
	95	SvGETMAGIC(xsub_tmp_sv);
	96	if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
	97	$var = (AV*)SvRV(xsub_tmp_sv);
	98	}
	99	else{
	100	Perl_croak(aTHX_ \"%s: %s is not an ARRAY reference\",
	101	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	102	\"$var\");
	103	}
	104	} STMT_END
b64f48ff S	105	T_AVREF_REFCOUNT_FIXED
	106	STMT_START {
	107	SV* const xsub_tmp_sv = $arg;
	108	SvGETMAGIC(xsub_tmp_sv);
	109	if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
	110	$var = (AV*)SvRV(xsub_tmp_sv);
	111	}
	112	else{
	113	Perl_croak(aTHX_ \"%s: %s is not an ARRAY reference\",
	114	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	115	\"$var\");
	116	}
	117	} STMT_END
a0d0e21e	118	T_HVREF
88b5a879 GF	119	STMT_START {
	120	SV* const xsub_tmp_sv = $arg;
	121	SvGETMAGIC(xsub_tmp_sv);
	122	if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
dd698a05	123	$var = (HV*)SvRV(xsub_tmp_sv);
88b5a879 GF	124	}
	125	else{
	126	Perl_croak(aTHX_ \"%s: %s is not a HASH reference\",
	127	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	128	\"$var\");
	129	}
	130	} STMT_END
b64f48ff S	131	T_HVREF_REFCOUNT_FIXED
	132	STMT_START {
	133	SV* const xsub_tmp_sv = $arg;
	134	SvGETMAGIC(xsub_tmp_sv);
	135	if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
	136	$var = (HV*)SvRV(xsub_tmp_sv);
	137	}
	138	else{
	139	Perl_croak(aTHX_ \"%s: %s is not a HASH reference\",
	140	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	141	\"$var\");
	142	}
	143	} STMT_END
a0d0e21e	144	T_CVREF
88b5a879 GF	145	STMT_START {
	146	SV* const xsub_tmp_sv = $arg;
	147	SvGETMAGIC(xsub_tmp_sv);
	148	if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVCV){
dd698a05	149	$var = (CV*)SvRV(xsub_tmp_sv);
88b5a879 GF	150	}
	151	else{
	152	Perl_croak(aTHX_ \"%s: %s is not a CODE reference\",
	153	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	154	\"$var\");
	155	}
	156	} STMT_END
1d2615b4 S	157	T_CVREF_REFCOUNT_FIXED
	158	STMT_START {
	159	SV* const xsub_tmp_sv = $arg;
	160	SvGETMAGIC(xsub_tmp_sv);
	161	if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVCV){
	162	$var = (CV*)SvRV(xsub_tmp_sv);
	163	}
	164	else{
	165	Perl_croak(aTHX_ \"%s: %s is not a CODE reference\",
	166	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	167	\"$var\");
	168	}
	169	} STMT_END
2304df62 AD	170	T_SYSRET
2304df62 AD	171	$var NOT IMPLEMENTED
3aa35033 GS	172	T_UV
3aa35033 GS	173	$var = ($type)SvUV($arg)
85e6fe83 LW	174	T_IV
85e6fe83 LW	175	$var = ($type)SvIV($arg)
8990e307 LW	176	T_INT
	177	$var = (int)SvIV($arg)
	178	T_ENUM
	179	$var = ($type)SvIV($arg)
1cc23d7f	180	T_BOOL
f8c11764	181	$var = (bool)SvTRUE($arg)
8990e307	182	T_U_INT
3aa35033	183	$var = (unsigned int)SvUV($arg)
8990e307 LW	184	T_SHORT
	185	$var = (short)SvIV($arg)
	186	T_U_SHORT
3aa35033	187	$var = (unsigned short)SvUV($arg)
8990e307 LW	188	T_LONG
	189	$var = (long)SvIV($arg)
	190	T_U_LONG
3aa35033	191	$var = (unsigned long)SvUV($arg)
8990e307	192	T_CHAR
3521e4ee	193	$var = (char)*SvPV_nolen($arg)
8990e307	194	T_U_CHAR
3aa35033	195	$var = (unsigned char)SvUV($arg)
8990e307 LW	196	T_FLOAT
8990e307 LW	197	$var = (float)SvNV($arg)
85e6fe83 LW	198	T_NV
85e6fe83 LW	199	$var = ($type)SvNV($arg)
8990e307	200	T_DOUBLE
85e6fe83	201	$var = (double)SvNV($arg)
a0d0e21e	202	T_PV
3521e4ee	203	$var = ($type)SvPV_nolen($arg)
8990e307	204	T_PTR
56431972	205	$var = INT2PTR($type,SvIV($arg))
8990e307	206	T_PTRREF
85e6fe83	207	if (SvROK($arg)) {
a0d0e21e	208	IV tmp = SvIV((SV*)SvRV($arg));
56431972	209	$var = INT2PTR($type,tmp);
85e6fe83	210	}
8990e307	211	else
52c93dd1 AT	212	Perl_croak(aTHX_ \"%s: %s is not a reference\",
	213	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	214	\"$var\")
a0d0e21e	215	T_REF_IV_REF
5abff6f9	216	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	217	IV tmp = SvIV((SV*)SvRV($arg));
c725d115	218	$var = INT2PTR($type , tmp);
a0d0e21e LW	219	}
a0d0e21e LW	220	else
52c93dd1 AT	221	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	222	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	223	\"$var\", \"$ntype\")
a0d0e21e	224	T_REF_IV_PTR
f8c11764	225	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	226	IV tmp = SvIV((SV*)SvRV($arg));
c725d115	227	$var = INT2PTR($type, tmp);
a0d0e21e LW	228	}
a0d0e21e LW	229	else
52c93dd1 AT	230	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	231	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	232	\"$var\", \"$ntype\")
8990e307	233	T_PTROBJ
dc1f0c20	234	if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
a0d0e21e	235	IV tmp = SvIV((SV*)SvRV($arg));
56431972	236	$var = INT2PTR($type,tmp);
85e6fe83	237	}
8990e307	238	else
52c93dd1 AT	239	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	240	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	241	\"$var\", \"$ntype\")
8990e307 LW	242	T_PTRDESC
8990e307 LW	243	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	244	IV tmp = SvIV((SV*)SvRV($arg));
f7e7eb72	245	${type}_desc = (\U${type}_DESC\E*) tmp;
8990e307 LW	246	$var = ${type}_desc->ptr;
	247	}
	248	else
52c93dd1 AT	249	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	250	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	251	\"$var\", \"$ntype\")
8990e307	252	T_REFREF
85e6fe83	253	if (SvROK($arg)) {
a0d0e21e	254	IV tmp = SvIV((SV*)SvRV($arg));
56431972	255	$var = *INT2PTR($type,tmp);
85e6fe83	256	}
8990e307	257	else
52c93dd1 AT	258	Perl_croak(aTHX_ \"%s: %s is not a reference\",
	259	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	260	\"$var\")
8990e307	261	T_REFOBJ
85e6fe83	262	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	263	IV tmp = SvIV((SV*)SvRV($arg));
56431972	264	$var = *INT2PTR($type,tmp);
85e6fe83	265	}
8990e307	266	else
52c93dd1 AT	267	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	268	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	269	\"$var\", \"$ntype\")
8990e307	270	T_OPAQUE
3521e4ee	271	$var = ($type )SvPV_nolen($arg)
8990e307	272	T_OPAQUEPTR
3521e4ee	273	$var = ($type)SvPV_nolen($arg)
8990e307 LW	274	T_PACKED
	275	$var = XS_unpack_$ntype($arg)
	276	T_PACKEDARRAY
	277	$var = XS_unpack_$ntype($arg)
8990e307	278	T_ARRAY
8990e307	279	U32 ix_$var = $argoff;
f8c11764	280	$var = $ntype(items -= $argoff);
8990e307 LW	281	while (items--) {
8990e307 LW	282	DO_ARRAY_ELEM;
f8c11764	283	ix_$var++;
8990e307	284	}
f8c11764 TJ	285	/* this is the number of elements in the array */
f8c11764 TJ	286	ix_$var -= $argoff
f7e7eb72 NIS	287	T_STDIO
f7e7eb72 NIS	288	$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
a0d0e21e LW	289	T_IN
	290	$var = IoIFP(sv_2io($arg))
	291	T_INOUT
	292	$var = IoIFP(sv_2io($arg))
	293	T_OUT
	294	$var = IoOFP(sv_2io($arg))
8990e307 LW	295	#############################################################################
8990e307 LW	296	OUTPUT
2304df62 AD	297	T_SV
2304df62 AD	298	$arg = $var;
a0d0e21e	299	T_SVREF
2304df62	300	$arg = newRV((SV*)$var);
1d2615b4 S	301	T_SVREF_REFCOUNT_FIXED
1d2615b4 S	302	$arg = newRV_noinc((SV*)$var);
a0d0e21e	303	T_AVREF
2304df62	304	$arg = newRV((SV*)$var);
b64f48ff S	305	T_AVREF_REFCOUNT_FIXED
b64f48ff S	306	$arg = newRV_noinc((SV*)$var);
a0d0e21e	307	T_HVREF
2304df62	308	$arg = newRV((SV*)$var);
b64f48ff S	309	T_HVREF_REFCOUNT_FIXED
b64f48ff S	310	$arg = newRV_noinc((SV*)$var);
a0d0e21e	311	T_CVREF
2304df62	312	$arg = newRV((SV*)$var);
1d2615b4 S	313	T_CVREF_REFCOUNT_FIXED
1d2615b4 S	314	$arg = newRV_noinc((SV*)$var);
85e6fe83	315	T_IV
ef50df4b	316	sv_setiv($arg, (IV)$var);
3aa35033 GS	317	T_UV
3aa35033 GS	318	sv_setuv($arg, (UV)$var);
8990e307	319	T_INT
ef50df4b	320	sv_setiv($arg, (IV)$var);
2304df62 AD	321	T_SYSRET
	322	if ($var != -1) {
	323	if ($var == 0)
ef50df4b	324	sv_setpvn($arg, "0 but true", 10);
2304df62	325	else
ef50df4b	326	sv_setiv($arg, (IV)$var);
2304df62	327	}
8990e307	328	T_ENUM
ef50df4b	329	sv_setiv($arg, (IV)$var);
1cc23d7f	330	T_BOOL
54310121	331	$arg = boolSV($var);
8990e307	332	T_U_INT
3aa35033	333	sv_setuv($arg, (UV)$var);
8990e307	334	T_SHORT
ef50df4b	335	sv_setiv($arg, (IV)$var);
8990e307	336	T_U_SHORT
3aa35033	337	sv_setuv($arg, (UV)$var);
8990e307	338	T_LONG
ef50df4b	339	sv_setiv($arg, (IV)$var);
8990e307	340	T_U_LONG
3aa35033	341	sv_setuv($arg, (UV)$var);
8990e307	342	T_CHAR
ef50df4b	343	sv_setpvn($arg, (char *)&$var, 1);
8990e307	344	T_U_CHAR
3aa35033	345	sv_setuv($arg, (UV)$var);
8990e307	346	T_FLOAT
ef50df4b	347	sv_setnv($arg, (double)$var);
85e6fe83	348	T_NV
59f3815a	349	sv_setnv($arg, (NV)$var);
8990e307	350	T_DOUBLE
ef50df4b	351	sv_setnv($arg, (double)$var);
a0d0e21e	352	T_PV
ef50df4b	353	sv_setpv((SV*)$arg, $var);
8990e307	354	T_PTR
46e87256	355	sv_setiv($arg, PTR2IV($var));
8990e307	356	T_PTRREF
a0d0e21e LW	357	sv_setref_pv($arg, Nullch, (void*)$var);
	358	T_REF_IV_REF
	359	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
	360	T_REF_IV_PTR
	361	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	362	T_PTROBJ
a0d0e21e	363	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	364	T_PTRDESC
a0d0e21e	365	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
8990e307	366	T_REFREF
f8c11764	367	NOT_IMPLEMENTED
8990e307 LW	368	T_REFOBJ
	369	NOT IMPLEMENTED
	370	T_OPAQUE
ef50df4b	371	sv_setpvn($arg, (char *)&$var, sizeof($var));
8990e307	372	T_OPAQUEPTR
4bd3d083	373	sv_setpvn($arg, (char )$var, sizeof($var));
8990e307 LW	374	T_PACKED
	375	XS_pack_$ntype($arg, $var);
	376	T_PACKEDARRAY
	377	XS_pack_$ntype($arg, $var, count_$ntype);
8990e307	378	T_ARRAY
f8c11764 TJ	379	{
	380	U32 ix_$var;
	381	EXTEND(SP,size_$var);
	382	for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
8990e307 LW	383	ST(ix_$var) = sv_newmortal();
8990e307 LW	384	DO_ARRAY_ELEM
f8c11764 TJ	385	}
f8c11764 TJ	386	}
f7e7eb72 NIS	387	T_STDIO
	388	{
	389	GV *gv = newGVgen("$Package");
	390	PerlIO *fp = PerlIO_importFILE($var,0);
	391	if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
	392	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	393	else
	394	$arg = &PL_sv_undef;
	395	}
a0d0e21e LW	396	T_IN
	397	{
	398	GV *gv = newGVgen("$Package");
c07a80fd	399	if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
ef50df4b	400	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
a0d0e21e	401	else
6b88bc9c	402	$arg = &PL_sv_undef;
a0d0e21e LW	403	}
	404	T_INOUT
	405	{
	406	GV *gv = newGVgen("$Package");
c07a80fd	407	if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
ef50df4b	408	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
a0d0e21e	409	else
6b88bc9c	410	$arg = &PL_sv_undef;
a0d0e21e LW	411	}
	412	T_OUT
	413	{
	414	GV *gv = newGVgen("$Package");
c07a80fd	415	if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
ef50df4b	416	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
a0d0e21e	417	else
6b88bc9c	418	$arg = &PL_sv_undef;
a0d0e21e	419	}