Home
last modified time | relevance | path

Searched refs:GvIOp (Results 1 – 18 of 18) sorted by relevance

/openbsd/src/gnu/usr.bin/perl/
Dgv.h119 ? GvIOp(gv) \
122 #define GvIOp(gv) (GvGP(gv)->gp_io) macro
123 #define GvIOn(gv) (GvIO(gv) ? GvIOp(gv) : GvIOp(gv_IOadd(gv)))
Ddoio.c1396 IO * const io = GvIOp(gv); in Perl_nextargv()
1416 IO * const io = GvIOp(PL_argvoutgv); in Perl_nextargv()
1437 return IoIFP(GvIOp(gv)); in Perl_nextargv()
1449 return IoIFP(GvIOp(gv)); in Perl_nextargv()
1477 return IoIFP(GvIOp(gv)); in Perl_nextargv()
1556 …mg = sv_magicext((SV*)GvIOp(PL_argvoutgv), (SV*)magic_av, PERL_MAGIC_uvar, &argvout_vtbl, NULL, 0); in Perl_nextargv()
1559 PL_lastfd = PerlIO_fileno(IoIFP(GvIOp(PL_argvoutgv))); in Perl_nextargv()
1576 return IoIFP(GvIOp(gv)); in Perl_nextargv()
1735 if (PL_argvgv && GvIOp(PL_argvgv) in S_argvout_final()
1736 && IoIFP(GvIOp(PL_argvgv)) in S_argvout_final()
[all …]
Dmg.c1173 sv_setiv(sv, (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_magic_get()
1187 if (GvIOp(PL_defoutgv)) in Perl_magic_get()
1188 s = IoTOP_NAME(GvIOp(PL_defoutgv)); in Perl_magic_get()
1197 if (GvIOp(PL_defoutgv)) in Perl_magic_get()
1198 s = IoFMT_NAME(GvIOp(PL_defoutgv)); in Perl_magic_get()
1205 sv_setiv(sv, (IV)IoPAGE_LEN(GvIOp(PL_defoutgv))); in Perl_magic_get()
1209 sv_setiv(sv, (IV)IoLINES_LEFT(GvIOp(PL_defoutgv))); in Perl_magic_get()
1213 sv_setiv(sv, (IV)IoPAGE(GvIOp(PL_defoutgv))); in Perl_magic_get()
1223 sv_setiv(sv, (IV)(IoFLAGS(GvIOp(PL_defoutgv)) & IOf_FLUSH) != 0 ); in Perl_magic_get()
3209 IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv); in Perl_magic_set()
Dpp_sys.c829 if ((io = GvIOp(gv))) {
831 IoFLAGS(GvIOp(gv)) &= ~IOf_UNTAINT;
1120 if (!GvIOp(varsv))
1121 GvIOp(varsv) = newIO();
1122 varsv = MUTABLE_SV(GvIOp(varsv));
1227 if (isGV_with_GP(sv) && !SvFAKE(sv) && !(sv = MUTABLE_SV(GvIOp(sv))))
1279 if (isGV_with_GP(sv) && !SvFAKE(sv) && !(sv = MUTABLE_SV(GvIOp(sv))))
1623 *SvPVX(TARG) = PerlIO_getc(IoIFP(GvIOp(gv))); /* should never be EOF */
1624 if (PerlIO_isutf8(IoIFP(GvIOp(gv)))) {
1629 len = PerlIO_read(IoIFP(GvIOp(gv)),SvPVX(TARG)+1,len-1);
[all …]
Dperl.c4642 io = GvIOp(PL_stdingv); in S_init_predump_symbols()
4647 GvIOp(tmpgv) = MUTABLE_IO(SvREFCNT_inc_simple(io)); in S_init_predump_symbols()
4651 io = GvIOp(tmpgv); in S_init_predump_symbols()
4657 GvIOp(tmpgv) = MUTABLE_IO(SvREFCNT_inc_simple(io)); in S_init_predump_symbols()
4661 io = GvIOp(PL_stderrgv); in S_init_predump_symbols()
4666 GvIOp(tmpgv) = MUTABLE_IO(SvREFCNT_inc_simple(io)); in S_init_predump_symbols()
Dscope.c516 if (GvIOp(gv) && (IoFLAGS(GvIOp(gv)) & IOf_ARGV)) { in Perl_save_gp()
Dutil.c1640 if (GvIO(PL_last_in_gv) && (SvTYPE(GvIOp(PL_last_in_gv)) == SVt_PVIO) in Perl_mess_sv()
1641 && IoLINES(GvIOp(PL_last_in_gv))) in Perl_mess_sv()
1651 (IV)IoLINES(GvIOp(PL_last_in_gv))); in Perl_mess_sv()
Dtoke.c7008 GvIOp(gv) = newIO(); in yyl_data_handle()
7009 IoIFP(GvIOp(gv)) = PL_rsfp; in yyl_data_handle()
7012 IoFLAGS(GvIOp(gv)) |= IOf_UNTAINT; in yyl_data_handle()
7014 IoTYPE(GvIOp(gv)) = IoTYPE_STD; in yyl_data_handle()
7016 IoTYPE(GvIOp(gv)) = IoTYPE_RDONLY; in yyl_data_handle()
7026 if (IoTYPE(GvIOp(gv)) == IoTYPE_RDONLY) { in yyl_data_handle()
Dperl.h4813 && GvIOp(PL_stderrgv) \
4814 && IoOFP(GvIOp(PL_stderrgv)) \
4815 ? IoOFP(GvIOp(PL_stderrgv)) \
Dgv.c90 where = (SV **)&GvIOp(gv); in Perl_gv_add_by_type()
4348 !GvSV(gv) && !GvAV(gv) && !GvHV(gv) && !GvIOp(gv) && !GvFORM(gv) && in Perl_gv_try_downgrade()
Dpp.c113 GvIOp(gv) = MUTABLE_IO(sv); in S_rv2gv()
659 tmpRef = MUTABLE_SV(GvIOp(gv)); in PP()
675 tmpRef = MUTABLE_SV(GvIOp(gv)); in PP()
Dpp_ctl.c1338 flip = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv));
1457 flop = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv));
Ddump.c2524 Perl_dump_indent(aTHX_ level, file, " IO = 0x%" UVxf "\n", PTR2UV(GvIOp(sv))); in Perl_do_sv_dump()
Dsv.c517 GvIOp(sv) = NULL; in do_clean_named_io_objs()
3957 location = (SV **) &GvIOp(dsv); in Perl_gv_setref()
5862 || GvIOp(obj) == (const IO *)sv || GvFORM(obj) == (const CV *)sv)))
/openbsd/src/gnu/usr.bin/perl/ext/PerlIO-via/
Dvia.xs99 GvIOp(gv) = newIO(); in PerlIOVia_method()
101 s->io = GvIOp(gv); in PerlIOVia_method()
/openbsd/src/gnu/usr.bin/perl/ext/VMS-Stdio/
DStdio.xs103 io = GvIOp(gv) = newIO(); in newFH()
/openbsd/src/gnu/usr.bin/perl/vms/
Dvms.c12795 if (!(io = GvIOp(mysv)) || !PerlIO_getname(IoIFP(io),fspec)) {
12833 if (!(io = GvIOp(mysv)) || !PerlIO_getname(IoIFP(io),inspec)) {
12852 if (!(io = GvIOp(mysv)) || !PerlIO_getname(IoIFP(io),outspec)) {
/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/base/
D5003007358 GvIOp # Z added by devel/scanprov