[p5sagit/p5-mst-13.2.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
caddr_t			T_PV
wchar_t *		T_PV
wchar_t			T_IV
bool_t			T_IV
size_t			T_IV
ssize_t			T_IV
time_t			T_NV
unsigned long *		T_OPAQUEPTR
char **			T_PACKED
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
I32			T_IV
I16			T_IV
I8			T_IV
STRLEN			T_IV
U32			T_U_LONG
U16			T_U_SHORT
U8			T_UV
Result			T_U_CHAR
Boolean			T_IV
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 (sv_isa($arg, \"${ntype}\"))
	    $var = (SV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
T_AVREF
	if (sv_isa($arg, \"${ntype}\"))
	    $var = (AV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
T_HVREF
	if (sv_isa($arg, \"${ntype}\"))
	    $var = (HV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
T_CVREF
	if (sv_isa($arg, \"${ntype}\"))
	    $var = (CV*)SvRV($arg);
	else
	    Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
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 = (int)SvIV($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($arg,PL_na)
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($arg,PL_na)
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, \"${type}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = *($type *) tmp;
	}
	else
	    Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
T_REF_IV_PTR
	if (sv_isa($arg, \"${type}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = ($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 NOT IMPLEMENTED
T_OPAQUEPTR
	$var = ($type)SvPV($arg,PL_na)
T_PACKED
	$var = XS_unpack_$ntype($arg)
T_PACKEDARRAY
	$var = XS_unpack_$ntype($arg)
T_CALLBACK
	$var = make_perl_cb_$type($arg)
T_ARRAY
	$var = $ntype(items -= $argoff);
	U32 ix_$var = $argoff;
	while (items--) {
	    DO_ARRAY_ELEM;
	}
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
	sv_setrefref($arg, \"${ntype}\", XS_service_$ntype,
		    ($var ? (void*)new $ntype($var) : 0));
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
	ST_EXTEND($var.size);
	for (U32 ix_$var = 0; ix_$var < $var.size; ix_$var++) {
		ST(ix_$var) = sv_newmortal();
	DO_ARRAY_ELEM
	}
	SP += $var.size - 1;
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	3	unsigned T_UV
3aa35033	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	11	char * T_PV
	12	unsigned char * T_PV
	13	caddr_t T_PV
	14	wchar_t * T_PV
	15	wchar_t T_IV
	16	bool_t T_IV
	17	size_t T_IV
	18	ssize_t T_IV
	19	time_t T_NV
93a17b20	20	unsigned long * T_OPAQUEPTR
	21	char ** T_PACKED
	22	void * T_PTR
a0d0e21e	23	Time_t * T_PV
2304df62	24	SV * T_SV
a0d0e21e	25	SVREF T_SVREF
	26	AV * T_AVREF
	27	HV * T_HVREF
	28	CV * T_CVREF
93a17b20	29
a0d0e21e	30	IV T_IV
0ca04487	31	UV T_UV
85e6fe83	32	I32 T_IV
	33	I16 T_IV
	34	I8 T_IV
4411f3b6	35	STRLEN T_IV
93a17b20	36	U32 T_U_LONG
93a17b20	37	U16 T_U_SHORT
3aa35033	38	U8 T_UV
93a17b20	39	Result T_U_CHAR
a0d0e21e	40	Boolean T_IV
93a17b20	41	double T_DOUBLE
2304df62	42	SysRet T_SYSRET
a0d0e21e	43	SysRetLong T_SYSRET
f7e7eb72	44	FILE * T_STDIO
f7e7eb72	45	PerlIO * T_INOUT
a0d0e21e	46	FileHandle T_PTROBJ
	47	InputStream T_IN
	48	InOutStream T_INOUT
	49	OutputStream T_OUT
1cc23d7f	50	bool T_BOOL
93a17b20	51
8990e307	52	#############################################################################
8990e307	53	INPUT
2304df62	54	T_SV
a0d0e21e	55	$var = $arg
a0d0e21e	56	T_SVREF
2304df62	57	if (sv_isa($arg, \"${ntype}\"))
a0d0e21e	58	$var = (SV*)SvRV($arg);
2304df62	59	else
32b48a68	60	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
a0d0e21e	61	T_AVREF
2304df62	62	if (sv_isa($arg, \"${ntype}\"))
	63	$var = (AV*)SvRV($arg);
	64	else
32b48a68	65	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
a0d0e21e	66	T_HVREF
2304df62	67	if (sv_isa($arg, \"${ntype}\"))
	68	$var = (HV*)SvRV($arg);
	69	else
32b48a68	70	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
a0d0e21e	71	T_CVREF
2304df62	72	if (sv_isa($arg, \"${ntype}\"))
	73	$var = (CV*)SvRV($arg);
	74	else
32b48a68	75	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
2304df62	76	T_SYSRET
2304df62	77	$var NOT IMPLEMENTED
3aa35033	78	T_UV
3aa35033	79	$var = ($type)SvUV($arg)
85e6fe83	80	T_IV
85e6fe83	81	$var = ($type)SvIV($arg)
8990e307	82	T_INT
	83	$var = (int)SvIV($arg)
	84	T_ENUM
	85	$var = ($type)SvIV($arg)
1cc23d7f	86	T_BOOL
1cc23d7f	87	$var = (int)SvIV($arg)
8990e307	88	T_U_INT
3aa35033	89	$var = (unsigned int)SvUV($arg)
8990e307	90	T_SHORT
	91	$var = (short)SvIV($arg)
	92	T_U_SHORT
3aa35033	93	$var = (unsigned short)SvUV($arg)
8990e307	94	T_LONG
	95	$var = (long)SvIV($arg)
	96	T_U_LONG
3aa35033	97	$var = (unsigned long)SvUV($arg)
8990e307	98	T_CHAR
3280af22	99	$var = (char)*SvPV($arg,PL_na)
8990e307	100	T_U_CHAR
3aa35033	101	$var = (unsigned char)SvUV($arg)
8990e307	102	T_FLOAT
8990e307	103	$var = (float)SvNV($arg)
85e6fe83	104	T_NV
85e6fe83	105	$var = ($type)SvNV($arg)
8990e307	106	T_DOUBLE
85e6fe83	107	$var = (double)SvNV($arg)
a0d0e21e	108	T_PV
3280af22	109	$var = ($type)SvPV($arg,PL_na)
8990e307	110	T_PTR
56431972	111	$var = INT2PTR($type,SvIV($arg))
8990e307	112	T_PTRREF
85e6fe83	113	if (SvROK($arg)) {
a0d0e21e	114	IV tmp = SvIV((SV*)SvRV($arg));
56431972	115	$var = INT2PTR($type,tmp);
85e6fe83	116	}
8990e307	117	else
32b48a68	118	Perl_croak(aTHX_ \"$var is not a reference\")
a0d0e21e	119	T_REF_IV_REF
	120	if (sv_isa($arg, \"${type}\")) {
	121	IV tmp = SvIV((SV*)SvRV($arg));
	122	$var = ($type ) tmp;
	123	}
	124	else
32b48a68	125	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
a0d0e21e	126	T_REF_IV_PTR
	127	if (sv_isa($arg, \"${type}\")) {
	128	IV tmp = SvIV((SV*)SvRV($arg));
	129	$var = ($type) tmp;
	130	}
	131	else
32b48a68	132	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
8990e307	133	T_PTROBJ
55497cff	134	if (sv_derived_from($arg, \"${ntype}\")) {
a0d0e21e	135	IV tmp = SvIV((SV*)SvRV($arg));
56431972	136	$var = INT2PTR($type,tmp);
85e6fe83	137	}
8990e307	138	else
32b48a68	139	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
8990e307	140	T_PTRDESC
8990e307	141	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	142	IV tmp = SvIV((SV*)SvRV($arg));
f7e7eb72	143	${type}_desc = (\U${type}_DESC\E*) tmp;
8990e307	144	$var = ${type}_desc->ptr;
	145	}
	146	else
32b48a68	147	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
8990e307	148	T_REFREF
85e6fe83	149	if (SvROK($arg)) {
a0d0e21e	150	IV tmp = SvIV((SV*)SvRV($arg));
56431972	151	$var = *INT2PTR($type,tmp);
85e6fe83	152	}
8990e307	153	else
32b48a68	154	Perl_croak(aTHX_ \"$var is not a reference\")
8990e307	155	T_REFOBJ
85e6fe83	156	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	157	IV tmp = SvIV((SV*)SvRV($arg));
56431972	158	$var = *INT2PTR($type,tmp);
85e6fe83	159	}
8990e307	160	else
32b48a68	161	Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
8990e307	162	T_OPAQUE
	163	$var NOT IMPLEMENTED
	164	T_OPAQUEPTR
3280af22	165	$var = ($type)SvPV($arg,PL_na)
8990e307	166	T_PACKED
	167	$var = XS_unpack_$ntype($arg)
	168	T_PACKEDARRAY
	169	$var = XS_unpack_$ntype($arg)
	170	T_CALLBACK
	171	$var = make_perl_cb_$type($arg)
	172	T_ARRAY
	173	$var = $ntype(items -= $argoff);
	174	U32 ix_$var = $argoff;
	175	while (items--) {
	176	DO_ARRAY_ELEM;
	177	}
f7e7eb72	178	T_STDIO
f7e7eb72	179	$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
a0d0e21e	180	T_IN
	181	$var = IoIFP(sv_2io($arg))
	182	T_INOUT
	183	$var = IoIFP(sv_2io($arg))
	184	T_OUT
	185	$var = IoOFP(sv_2io($arg))
8990e307	186	#############################################################################
8990e307	187	OUTPUT
2304df62	188	T_SV
2304df62	189	$arg = $var;
a0d0e21e	190	T_SVREF
2304df62	191	$arg = newRV((SV*)$var);
a0d0e21e	192	T_AVREF
2304df62	193	$arg = newRV((SV*)$var);
a0d0e21e	194	T_HVREF
2304df62	195	$arg = newRV((SV*)$var);
a0d0e21e	196	T_CVREF
2304df62	197	$arg = newRV((SV*)$var);
85e6fe83	198	T_IV
ef50df4b	199	sv_setiv($arg, (IV)$var);
3aa35033	200	T_UV
3aa35033	201	sv_setuv($arg, (UV)$var);
8990e307	202	T_INT
ef50df4b	203	sv_setiv($arg, (IV)$var);
2304df62	204	T_SYSRET
	205	if ($var != -1) {
	206	if ($var == 0)
ef50df4b	207	sv_setpvn($arg, "0 but true", 10);
2304df62	208	else
ef50df4b	209	sv_setiv($arg, (IV)$var);
2304df62	210	}
8990e307	211	T_ENUM
ef50df4b	212	sv_setiv($arg, (IV)$var);
1cc23d7f	213	T_BOOL
54310121	214	$arg = boolSV($var);
8990e307	215	T_U_INT
3aa35033	216	sv_setuv($arg, (UV)$var);
8990e307	217	T_SHORT
ef50df4b	218	sv_setiv($arg, (IV)$var);
8990e307	219	T_U_SHORT
3aa35033	220	sv_setuv($arg, (UV)$var);
8990e307	221	T_LONG
ef50df4b	222	sv_setiv($arg, (IV)$var);
8990e307	223	T_U_LONG
3aa35033	224	sv_setuv($arg, (UV)$var);
8990e307	225	T_CHAR
ef50df4b	226	sv_setpvn($arg, (char *)&$var, 1);
8990e307	227	T_U_CHAR
3aa35033	228	sv_setuv($arg, (UV)$var);
8990e307	229	T_FLOAT
ef50df4b	230	sv_setnv($arg, (double)$var);
85e6fe83	231	T_NV
59f3815a	232	sv_setnv($arg, (NV)$var);
8990e307	233	T_DOUBLE
ef50df4b	234	sv_setnv($arg, (double)$var);
a0d0e21e	235	T_PV
ef50df4b	236	sv_setpv((SV*)$arg, $var);
8990e307	237	T_PTR
46e87256	238	sv_setiv($arg, PTR2IV($var));
8990e307	239	T_PTRREF
a0d0e21e	240	sv_setref_pv($arg, Nullch, (void*)$var);
	241	T_REF_IV_REF
	242	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
	243	T_REF_IV_PTR
	244	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	245	T_PTROBJ
a0d0e21e	246	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	247	T_PTRDESC
a0d0e21e	248	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
8990e307	249	T_REFREF
	250	sv_setrefref($arg, \"${ntype}\", XS_service_$ntype,
	251	($var ? (void*)new $ntype($var) : 0));
	252	T_REFOBJ
	253	NOT IMPLEMENTED
	254	T_OPAQUE
ef50df4b	255	sv_setpvn($arg, (char *)&$var, sizeof($var));
8990e307	256	T_OPAQUEPTR
4bd3d083	257	sv_setpvn($arg, (char )$var, sizeof($var));
8990e307	258	T_PACKED
	259	XS_pack_$ntype($arg, $var);
	260	T_PACKEDARRAY
	261	XS_pack_$ntype($arg, $var, count_$ntype);
	262	T_DATAUNIT
ef50df4b	263	sv_setpvn($arg, $var.chp(), $var.size());
8990e307	264	T_CALLBACK
ef50df4b	265	sv_setpvn($arg, $var.context.value().chp(),
8990e307	266	$var.context.value().size());
	267	T_ARRAY
	268	ST_EXTEND($var.size);
	269	for (U32 ix_$var = 0; ix_$var < $var.size; ix_$var++) {
	270	ST(ix_$var) = sv_newmortal();
	271	DO_ARRAY_ELEM
	272	}
50892819	273	SP += $var.size - 1;
f7e7eb72	274	T_STDIO
	275	{
	276	GV *gv = newGVgen("$Package");
	277	PerlIO *fp = PerlIO_importFILE($var,0);
	278	if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
	279	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	280	else
	281	$arg = &PL_sv_undef;
	282	}
a0d0e21e	283	T_IN
	284	{
	285	GV *gv = newGVgen("$Package");
c07a80fd	286	if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
ef50df4b	287	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
a0d0e21e	288	else
6b88bc9c	289	$arg = &PL_sv_undef;
a0d0e21e	290	}
	291	T_INOUT
	292	{
	293	GV *gv = newGVgen("$Package");
c07a80fd	294	if ( do_open(gv, "+<&", 3, 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	298	}
	299	T_OUT
	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	306	}