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