[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
SVREF			T_SVREF
AV *			T_AVREF
HV *			T_HVREF
CV *			T_CVREF

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
	if (SvROK($arg))
	    $var = (SV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"%s: %s is not a reference\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\")
T_AVREF
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
	    $var = (AV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"%s: %s is not an array reference\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\")
T_HVREF
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
	    $var = (HV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"%s: %s is not a hash reference\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\")
T_CVREF
	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)
	    $var = (CV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"%s: %s is not a code reference\",
			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
			\"$var\")
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 (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_CALLBACK
	$var = make_perl_cb_$type($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_AVREF
	$arg = newRV((SV*)$var);
T_HVREF
	$arg = newRV((SV*)$var);
T_CVREF
	$arg = newRV((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_DATAUNIT	
	sv_setpvn($arg, $var.chp(), $var.size());
T_CALLBACK
	sv_setpvn($arg, $var.context.value().chp(),
		$var.context.value().size());
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
a0d0e21e LW	27	SVREF T_SVREF
	28	AV * T_AVREF
	29	HV * T_HVREF
	30	CV * T_CVREF
93a17b20	31
a0d0e21e	32	IV T_IV
0ca04487	33	UV T_UV
f8c11764	34	NV T_NV
85e6fe83 LW	35	I32 T_IV
	36	I16 T_IV
	37	I8 T_IV
12734836	38	STRLEN T_UV
93a17b20 LW	39	U32 T_U_LONG
93a17b20 LW	40	U16 T_U_SHORT
3aa35033	41	U8 T_UV
93a17b20	42	Result T_U_CHAR
f8c11764 TJ	43	Boolean T_BOOL
f8c11764 TJ	44	float T_FLOAT
93a17b20	45	double T_DOUBLE
2304df62	46	SysRet T_SYSRET
a0d0e21e	47	SysRetLong T_SYSRET
f7e7eb72 NIS	48	FILE * T_STDIO
f7e7eb72 NIS	49	PerlIO * T_INOUT
a0d0e21e LW	50	FileHandle T_PTROBJ
	51	InputStream T_IN
	52	InOutStream T_INOUT
	53	OutputStream T_OUT
1cc23d7f	54	bool T_BOOL
93a17b20	55
8990e307 LW	56	#############################################################################
8990e307 LW	57	INPUT
2304df62	58	T_SV
a0d0e21e LW	59	$var = $arg
a0d0e21e LW	60	T_SVREF
f8c11764	61	if (SvROK($arg))
a0d0e21e	62	$var = (SV*)SvRV($arg);
2304df62	63	else
52c93dd1 AT	64	Perl_croak(aTHX_ \"%s: %s is not a reference\",
	65	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	66	\"$var\")
a0d0e21e	67	T_AVREF
f8c11764	68	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
2304df62 AD	69	$var = (AV*)SvRV($arg);
2304df62 AD	70	else
52c93dd1 AT	71	Perl_croak(aTHX_ \"%s: %s is not an array reference\",
	72	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	73	\"$var\")
a0d0e21e	74	T_HVREF
f8c11764	75	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
2304df62 AD	76	$var = (HV*)SvRV($arg);
2304df62 AD	77	else
52c93dd1 AT	78	Perl_croak(aTHX_ \"%s: %s is not a hash reference\",
	79	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	80	\"$var\")
a0d0e21e	81	T_CVREF
f8c11764	82	if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)
2304df62 AD	83	$var = (CV*)SvRV($arg);
2304df62 AD	84	else
52c93dd1 AT	85	Perl_croak(aTHX_ \"%s: %s is not a code reference\",
	86	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	87	\"$var\")
2304df62 AD	88	T_SYSRET
2304df62 AD	89	$var NOT IMPLEMENTED
3aa35033 GS	90	T_UV
3aa35033 GS	91	$var = ($type)SvUV($arg)
85e6fe83 LW	92	T_IV
85e6fe83 LW	93	$var = ($type)SvIV($arg)
8990e307 LW	94	T_INT
	95	$var = (int)SvIV($arg)
	96	T_ENUM
	97	$var = ($type)SvIV($arg)
1cc23d7f	98	T_BOOL
f8c11764	99	$var = (bool)SvTRUE($arg)
8990e307	100	T_U_INT
3aa35033	101	$var = (unsigned int)SvUV($arg)
8990e307 LW	102	T_SHORT
	103	$var = (short)SvIV($arg)
	104	T_U_SHORT
3aa35033	105	$var = (unsigned short)SvUV($arg)
8990e307 LW	106	T_LONG
	107	$var = (long)SvIV($arg)
	108	T_U_LONG
3aa35033	109	$var = (unsigned long)SvUV($arg)
8990e307	110	T_CHAR
3521e4ee	111	$var = (char)*SvPV_nolen($arg)
8990e307	112	T_U_CHAR
3aa35033	113	$var = (unsigned char)SvUV($arg)
8990e307 LW	114	T_FLOAT
8990e307 LW	115	$var = (float)SvNV($arg)
85e6fe83 LW	116	T_NV
85e6fe83 LW	117	$var = ($type)SvNV($arg)
8990e307	118	T_DOUBLE
85e6fe83	119	$var = (double)SvNV($arg)
a0d0e21e	120	T_PV
3521e4ee	121	$var = ($type)SvPV_nolen($arg)
8990e307	122	T_PTR
56431972	123	$var = INT2PTR($type,SvIV($arg))
8990e307	124	T_PTRREF
85e6fe83	125	if (SvROK($arg)) {
a0d0e21e	126	IV tmp = SvIV((SV*)SvRV($arg));
56431972	127	$var = INT2PTR($type,tmp);
85e6fe83	128	}
8990e307	129	else
52c93dd1 AT	130	Perl_croak(aTHX_ \"%s: %s is not a reference\",
	131	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	132	\"$var\")
a0d0e21e	133	T_REF_IV_REF
5abff6f9	134	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	135	IV tmp = SvIV((SV*)SvRV($arg));
c725d115	136	$var = INT2PTR($type , tmp);
a0d0e21e LW	137	}
a0d0e21e LW	138	else
52c93dd1 AT	139	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	140	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	141	\"$var\", \"$ntype\")
a0d0e21e	142	T_REF_IV_PTR
f8c11764	143	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	144	IV tmp = SvIV((SV*)SvRV($arg));
c725d115	145	$var = INT2PTR($type, tmp);
a0d0e21e LW	146	}
a0d0e21e LW	147	else
52c93dd1 AT	148	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	149	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	150	\"$var\", \"$ntype\")
8990e307	151	T_PTROBJ
55497cff	152	if (sv_derived_from($arg, \"${ntype}\")) {
a0d0e21e	153	IV tmp = SvIV((SV*)SvRV($arg));
56431972	154	$var = INT2PTR($type,tmp);
85e6fe83	155	}
8990e307	156	else
52c93dd1 AT	157	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	158	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	159	\"$var\", \"$ntype\")
8990e307 LW	160	T_PTRDESC
8990e307 LW	161	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	162	IV tmp = SvIV((SV*)SvRV($arg));
f7e7eb72	163	${type}_desc = (\U${type}_DESC\E*) tmp;
8990e307 LW	164	$var = ${type}_desc->ptr;
	165	}
	166	else
52c93dd1 AT	167	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	168	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	169	\"$var\", \"$ntype\")
8990e307	170	T_REFREF
85e6fe83	171	if (SvROK($arg)) {
a0d0e21e	172	IV tmp = SvIV((SV*)SvRV($arg));
56431972	173	$var = *INT2PTR($type,tmp);
85e6fe83	174	}
8990e307	175	else
52c93dd1 AT	176	Perl_croak(aTHX_ \"%s: %s is not a reference\",
	177	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	178	\"$var\")
8990e307	179	T_REFOBJ
85e6fe83	180	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	181	IV tmp = SvIV((SV*)SvRV($arg));
56431972	182	$var = *INT2PTR($type,tmp);
85e6fe83	183	}
8990e307	184	else
52c93dd1 AT	185	Perl_croak(aTHX_ \"%s: %s is not of type %s\",
	186	${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
	187	\"$var\", \"$ntype\")
8990e307	188	T_OPAQUE
3521e4ee	189	$var = ($type )SvPV_nolen($arg)
8990e307	190	T_OPAQUEPTR
3521e4ee	191	$var = ($type)SvPV_nolen($arg)
8990e307 LW	192	T_PACKED
	193	$var = XS_unpack_$ntype($arg)
	194	T_PACKEDARRAY
	195	$var = XS_unpack_$ntype($arg)
	196	T_CALLBACK
	197	$var = make_perl_cb_$type($arg)
	198	T_ARRAY
8990e307	199	U32 ix_$var = $argoff;
f8c11764	200	$var = $ntype(items -= $argoff);
8990e307 LW	201	while (items--) {
8990e307 LW	202	DO_ARRAY_ELEM;
f8c11764	203	ix_$var++;
8990e307	204	}
f8c11764 TJ	205	/* this is the number of elements in the array */
f8c11764 TJ	206	ix_$var -= $argoff
f7e7eb72 NIS	207	T_STDIO
f7e7eb72 NIS	208	$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
a0d0e21e LW	209	T_IN
	210	$var = IoIFP(sv_2io($arg))
	211	T_INOUT
	212	$var = IoIFP(sv_2io($arg))
	213	T_OUT
	214	$var = IoOFP(sv_2io($arg))
8990e307 LW	215	#############################################################################
8990e307 LW	216	OUTPUT
2304df62 AD	217	T_SV
2304df62 AD	218	$arg = $var;
a0d0e21e	219	T_SVREF
2304df62	220	$arg = newRV((SV*)$var);
a0d0e21e	221	T_AVREF
2304df62	222	$arg = newRV((SV*)$var);
a0d0e21e	223	T_HVREF
2304df62	224	$arg = newRV((SV*)$var);
a0d0e21e	225	T_CVREF
2304df62	226	$arg = newRV((SV*)$var);
85e6fe83	227	T_IV
ef50df4b	228	sv_setiv($arg, (IV)$var);
3aa35033 GS	229	T_UV
3aa35033 GS	230	sv_setuv($arg, (UV)$var);
8990e307	231	T_INT
ef50df4b	232	sv_setiv($arg, (IV)$var);
2304df62 AD	233	T_SYSRET
	234	if ($var != -1) {
	235	if ($var == 0)
ef50df4b	236	sv_setpvn($arg, "0 but true", 10);
2304df62	237	else
ef50df4b	238	sv_setiv($arg, (IV)$var);
2304df62	239	}
8990e307	240	T_ENUM
ef50df4b	241	sv_setiv($arg, (IV)$var);
1cc23d7f	242	T_BOOL
54310121	243	$arg = boolSV($var);
8990e307	244	T_U_INT
3aa35033	245	sv_setuv($arg, (UV)$var);
8990e307	246	T_SHORT
ef50df4b	247	sv_setiv($arg, (IV)$var);
8990e307	248	T_U_SHORT
3aa35033	249	sv_setuv($arg, (UV)$var);
8990e307	250	T_LONG
ef50df4b	251	sv_setiv($arg, (IV)$var);
8990e307	252	T_U_LONG
3aa35033	253	sv_setuv($arg, (UV)$var);
8990e307	254	T_CHAR
ef50df4b	255	sv_setpvn($arg, (char *)&$var, 1);
8990e307	256	T_U_CHAR
3aa35033	257	sv_setuv($arg, (UV)$var);
8990e307	258	T_FLOAT
ef50df4b	259	sv_setnv($arg, (double)$var);
85e6fe83	260	T_NV
59f3815a	261	sv_setnv($arg, (NV)$var);
8990e307	262	T_DOUBLE
ef50df4b	263	sv_setnv($arg, (double)$var);
a0d0e21e	264	T_PV
ef50df4b	265	sv_setpv((SV*)$arg, $var);
8990e307	266	T_PTR
46e87256	267	sv_setiv($arg, PTR2IV($var));
8990e307	268	T_PTRREF
a0d0e21e LW	269	sv_setref_pv($arg, Nullch, (void*)$var);
	270	T_REF_IV_REF
	271	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
	272	T_REF_IV_PTR
	273	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	274	T_PTROBJ
a0d0e21e	275	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	276	T_PTRDESC
a0d0e21e	277	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
8990e307	278	T_REFREF
f8c11764	279	NOT_IMPLEMENTED
8990e307 LW	280	T_REFOBJ
	281	NOT IMPLEMENTED
	282	T_OPAQUE
ef50df4b	283	sv_setpvn($arg, (char *)&$var, sizeof($var));
8990e307	284	T_OPAQUEPTR
4bd3d083	285	sv_setpvn($arg, (char )$var, sizeof($var));
8990e307 LW	286	T_PACKED
	287	XS_pack_$ntype($arg, $var);
	288	T_PACKEDARRAY
	289	XS_pack_$ntype($arg, $var, count_$ntype);
	290	T_DATAUNIT
ef50df4b	291	sv_setpvn($arg, $var.chp(), $var.size());
8990e307	292	T_CALLBACK
ef50df4b	293	sv_setpvn($arg, $var.context.value().chp(),
8990e307 LW	294	$var.context.value().size());
8990e307 LW	295	T_ARRAY
f8c11764 TJ	296	{
	297	U32 ix_$var;
	298	EXTEND(SP,size_$var);
	299	for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
8990e307 LW	300	ST(ix_$var) = sv_newmortal();
8990e307 LW	301	DO_ARRAY_ELEM
f8c11764 TJ	302	}
f8c11764 TJ	303	}
f7e7eb72 NIS	304	T_STDIO
	305	{
	306	GV *gv = newGVgen("$Package");
	307	PerlIO *fp = PerlIO_importFILE($var,0);
	308	if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
	309	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	310	else
	311	$arg = &PL_sv_undef;
	312	}
a0d0e21e LW	313	T_IN
	314	{
	315	GV *gv = newGVgen("$Package");
c07a80fd	316	if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
ef50df4b	317	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
a0d0e21e	318	else
6b88bc9c	319	$arg = &PL_sv_undef;
a0d0e21e LW	320	}
	321	T_INOUT
	322	{
	323	GV *gv = newGVgen("$Package");
c07a80fd	324	if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
ef50df4b	325	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
a0d0e21e	326	else
6b88bc9c	327	$arg = &PL_sv_undef;
a0d0e21e LW	328	}
	329	T_OUT
	330	{
	331	GV *gv = newGVgen("$Package");
c07a80fd	332	if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
ef50df4b	333	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
a0d0e21e	334	else
6b88bc9c	335	$arg = &PL_sv_undef;
a0d0e21e	336	}