Lines Matching refs:PerlIOBase
58 /* Call the callback or PerlIOBase, and return failure. */
61 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
74 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
83 /* Call the callback or PerlIOBase, and be void. */
86 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
98 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
416 p = head = PerlIOBase(f)->head;
482 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
661 PerlIOBase(f)->flags = PERLIO_F_CLEARED;
662 PerlIOBase(f)->tab = NULL;
684 PerlIOl *l = PerlIOBase(f);
1066 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) {
1111 if (!SvOK(s->var) || (PerlIOBase(f)->flags) & PERLIO_F_TRUNCATE)
1125 if ((PerlIOBase(f)->flags) & PERLIO_F_APPEND)
1148 PerlIOBase(f)->flags &= ~(PERLIO_F_RDBUF | PERLIO_F_WRBUF);
1206 if (!(PerlIOBase(f)->flags & PERLIO_F_CANREAD)) {
1207 PerlIOBase(f)->flags |= PERLIO_F_ERROR;
1259 if (PerlIOBase(f)->flags & PERLIO_F_CANWRITE) {
1273 if ((PerlIOBase(f)->flags) & PERLIO_F_APPEND) {
1337 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) {
1347 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) {
1357 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) {
1372 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) {
1404 PerlIOBase(f)->flags |= PERLIO_F_OPEN;
1629 if (PerlIOBase(f)->tab && PerlIOBase(f)->tab->kind & PERLIO_K_RAW) {
1631 PerlIOBase(f)->flags &= ~PERLIO_F_UTF8;
1677 PerlIOBase(f)->tab ? PerlIOBase(f)->tab->name : "(Null)") );
1734 (PerlIOBase(f) && PerlIOBase(f)->tab) ?
1735 PerlIOBase(f)->tab->name : "(Null)",
1762 if (PerlIOBase(f)->tab &&
1763 PerlIOBase(f)->tab->kind & PERLIO_K_CANCRLF)
1765 if (!(PerlIOBase(f)->flags & PERLIO_F_CRLF)) {
1768 PerlIOBase(f)->flags |= PERLIO_F_CRLF;
1793 PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2035 const PerlIO_funcs *tab = PerlIOBase(f)->tab;
2084 && (PerlIOBase(&(f->next))->
2103 return (PerlIOBase(f)->flags & PERLIO_F_UTF8) != 0;
2138 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2151 if (PerlIOBase(f)->flags & PERLIO_F_FASTGETS) {
2152 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2166 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2179 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2239 PerlIOBase(f)->flags |= PERLIO_F_UTF8;
2241 PerlIOBase(f)->flags &= ~PERLIO_F_UTF8;
2356 const IV flags = PerlIOBase(f)->flags;
2387 PerlIOl * const l = PerlIOBase(f);
2471 (void*)f, PerlIOBase(f)->tab->name, (omode) ? omode : "(Null)",
2503 if (!(PerlIOBase(f)->flags & PERLIO_F_CANREAD)) {
2504 PerlIOBase(f)->flags |= PERLIO_F_ERROR;
2559 PerlIOBase(f)->flags &=
2562 const PerlIO_funcs * const tab = PerlIOBase(n)->tab;
2569 PerlIOBase(n)->flags &=
2586 return (PerlIOBase(f)->flags & PERLIO_F_EOF) != 0;
2596 return (PerlIOBase(f)->flags & PERLIO_F_ERROR) != 0;
2606 PerlIOBase(f)->flags &= ~(PERLIO_F_ERROR | PERLIO_F_EOF);
2617 PerlIOBase(f)->flags |= PERLIO_F_LINEBUF;
2646 const PerlIO_funcs * const tab = PerlIOBase(nexto)->tab;
2653 PerlIO_funcs * const self = PerlIOBase(o)->tab;
2663 if (f && PerlIOBase(o)->flags & PERLIO_F_UTF8)
2664 PerlIOBase(f)->flags |= PERLIO_F_UTF8;
2899 if ( !(PerlIOBase(f)->flags & PERLIO_F_CLEARED) ) {
2908 (PerlIOBase(f)->flags & PERLIO_F_CLEARED))
3012 PerlIOBase(f)->flags |= PERLIO_F_NOTREG;
3040 PerlIOBase(f)->flags |= PERLIO_F_OPEN;
3051 if (PerlIOBase(f)->flags & PERLIO_F_NOTREG) {
3062 PerlIOBase(f)->flags &= ~PERLIO_F_EOF;
3073 if (PerlIOBase(f)->tab && PerlIOBase(f)->flags & PERLIO_F_OPEN)
3074 (*PerlIOBase(f)->tab->Close)(aTHX_ f);
3113 PerlIOBase(f)->flags |= PERLIO_F_OPEN;
3159 if (!(PerlIOBase(f)->flags & PERLIO_F_CANREAD) ||
3160 PerlIOBase(f)->flags & (PERLIO_F_EOF|PERLIO_F_ERROR)) {
3168 PerlIOBase(f)->flags |= PERLIO_F_ERROR;
3173 PerlIOBase(f)->flags |= PERLIO_F_EOF;
3197 PerlIOBase(f)->flags |= PERLIO_F_ERROR;
3224 if (PerlIOBase(f)->flags & PERLIO_F_OPEN) {
3227 PerlIOBase(f)->flags &= ~PERLIO_F_OPEN;
3245 PerlIOBase(f)->flags &= ~PERLIO_F_OPEN;
3334 PerlIO_funcs * const toptab = PerlIOBase(n)->tab;
3896 if (PerlIOBase(f)->flags & PERLIO_F_CANWRITE) {
4054 if ((PerlIOBase(f)->flags & PERLIO_F_CANWRITE)) {
4257 PerlIOBase(f)->flags |= PERLIO_F_LINEBUF | PERLIO_F_TTY;
4276 PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIOBase(next)->tab);
4281 if (!next || (*PerlIOBase(f)->tab->Pushed) (aTHX_ f, mode, PerlIOArg, self) != 0) {
4312 PerlIOBase(f)->flags |= PERLIO_F_UNBUF;
4330 if (PerlIOBase(f)->flags & PERLIO_F_CANWRITE) {
4336 PerlIOBase(f)->flags |= PERLIO_F_LINEBUF;
4360 if (PerlIOBase(f)->flags & PERLIO_F_WRBUF) {
4372 PerlIOBase(f)->flags |= PERLIO_F_ERROR;
4380 else if (PerlIOBase(f)->flags & PERLIO_F_RDBUF) {
4405 PerlIOBase(f)->flags &= ~(PERLIO_F_RDBUF | PERLIO_F_WRBUF);
4428 if (PerlIOBase(f)->flags & PERLIO_F_TTY)
4439 PerlIOBase(f)->flags |= PERLIO_F_EOF;
4474 PerlIOBase(f)->flags |= PERLIO_F_EOF;
4477 PerlIOBase(f)->flags |= PERLIO_F_ERROR;
4483 PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
4506 if (PerlIOBase(f)->flags & PERLIO_F_WRBUF)
4511 if (PerlIOBase(f)->flags & PERLIO_F_RDBUF) {
4526 PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
4550 PerlIOBase(f)->flags &= ~PERLIO_F_EOF;
4568 if (!(PerlIOBase(f)->flags & PERLIO_F_CANWRITE))
4570 if (PerlIOBase(f)->flags & PERLIO_F_RDBUF) {
4575 if (PerlIOBase(f)->flags & PERLIO_F_LINEBUF) {
4586 PerlIOBase(f)->flags |= PERLIO_F_WRBUF;
4600 if (PerlIOBase(f)->flags & PERLIO_F_UNBUF)
4610 PerlIOBase(f)->flags &= ~PERLIO_F_EOF;
4628 if ((PerlIOBase(f)->flags & PERLIO_F_APPEND) &&
4629 (PerlIOBase(f)->flags & PERLIO_F_WRBUF)) {
4659 PerlIOBase(f)->flags &= ~(PERLIO_F_RDBUF | PERLIO_F_WRBUF);
4672 PerlIOBase(f)->flags &= ~(PERLIO_F_RDBUF | PERLIO_F_WRBUF);
4691 if (PerlIOBase(f)->flags & PERLIO_F_RDBUF)
4736 PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
4841 PerlIOl * const l = PerlIOBase(f);
4847 (PerlIOBase(PerlIONext(f))->
4933 if (PerlIOBase(g)->flags & PERLIO_F_UTF8) {
4934 PerlIOBase(f)->flags |= PERLIO_F_UTF8;
4943 PerlIOBase(f)->flags |= PERLIO_F_CRLF;
4948 (void*)f, PerlIOBase(f)->tab->name, (mode) ? mode : "(Null)",
4949 PerlIOBase(f)->flags);
4957 PerlIOl *b = PerlIOBase(g);
4980 if (!(PerlIOBase(f)->flags & PERLIO_F_CRLF))
4986 if (PerlIOBase(f)->flags & PERLIO_F_WRBUF)
4991 if (!(PerlIOBase(f)->flags & PERLIO_F_RDBUF)) {
4993 PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
5033 if (PerlIOBase(f)->flags & PERLIO_F_RDBUF) {
5035 if ((PerlIOBase(f)->flags & PERLIO_F_CRLF) && (!c->nl || *c->nl == NATIVE_0xd)) {
5125 IV flags = PerlIOBase(f)->flags;
5151 PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
5157 if (!(PerlIOBase(f)->flags & PERLIO_F_CRLF))
5165 if (!(PerlIOBase(f)->flags & PERLIO_F_CANWRITE))
5169 PerlIOBase(f)->flags |= PERLIO_F_WRBUF;
5183 if (PerlIOBase(f)->flags & PERLIO_F_LINEBUF) {
5198 if (PerlIOBase(f)->flags & PERLIO_F_UNBUF)
5218 if ((PerlIOBase(f)->flags & PERLIO_F_CRLF)) {
5220 PerlIOBase(f)->flags &= ~PERLIO_F_CRLF;
5500 PerlIOBase(f)->flags |= PERLIO_F_TEMP;
5522 PerlIOBase(f)->err = errno;
5524 PerlIOBase(f)->os_err = vaxc$errno;
5526 PerlIOBase(f)->os_err = Perl_rc;
5528 PerlIOBase(f)->os_err = GetLastError();
5538 SETERRNO(PerlIOBase(f)->err, PerlIOBase(f)->os_err);
5540 Perl_rc = PerlIOBase(f)->os_err);
5542 SetLastError(PerlIOBase(f)->os_err);