Lines Matching refs:f
69 PerlIOVia_method(pTHX_ PerlIO * f, const char *method, CV ** save, int flags, in PerlIOVia_method() argument
72 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_method()
91 if (*PerlIONext(f)) { in PerlIOVia_method()
107 IoIFP(s->io) = PerlIONext(f); in PerlIOVia_method()
108 IoOFP(s->io) = PerlIONext(f); in PerlIOVia_method()
132 PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, in PerlIOVia_pushed() argument
135 IV code = PerlIOBase_pushed(aTHX_ f, mode, Nullsv, tab); in PerlIOVia_pushed()
143 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_pushed()
169 mode = PerlIO_modestr(f,lmode); in PerlIOVia_pushed()
172 result = PerlIOVia_method(aTHX_ f, MYMethod(PUSHED), G_SCALAR, in PerlIOVia_pushed()
185 modesv = (*PerlIONext(f) && (PerlIOBase(PerlIONext(f))->flags & PERLIO_F_UTF8)) in PerlIOVia_pushed()
187 result = PerlIOVia_method(aTHX_ f, MYMethod(UTF8), G_SCALAR, modesv, Nullsv); in PerlIOVia_pushed()
189 PerlIOBase(f)->flags |= PERLIO_F_UTF8; in PerlIOVia_pushed()
192 PerlIOBase(f)->flags &= ~PERLIO_F_UTF8; in PerlIOVia_pushed()
196 PerlIOBase(f)->flags &= ~PERLIO_F_FASTGETS; in PerlIOVia_pushed()
198 PerlIOBase(f)->flags |= PERLIO_F_FASTGETS; in PerlIOVia_pushed()
223 PerlIO * f, int narg, SV ** args) in PerlIOVia_open() argument
225 if (!f) { in PerlIOVia_open()
226 f = PerlIO_push(aTHX_ PerlIO_allocate(aTHX), self, mode, in PerlIOVia_open()
231 if (!PerlIO_push(aTHX_ f, self, mode, PerlIOArg)) in PerlIOVia_open()
234 if (f) { in PerlIOVia_open()
235 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_open()
240 PerlIOVia_method(aTHX_ f, MYMethod(FDOPEN), G_SCALAR, fdsv, in PerlIOVia_open()
248 PerlIOVia_method(aTHX_ f, MYMethod(SYSOPEN), G_SCALAR, in PerlIOVia_open()
253 PerlIOVia_method(aTHX_ f, MYMethod(OPEN), G_SCALAR, in PerlIOVia_open()
279 perm, PerlIONext(f), narg, args)) { in PerlIOVia_open()
281 PerlIONext(f), *PerlIONext(f)); in PerlIOVia_open()
288 (aTHX_ PerlIONext(f), mode, layers, m + 1, in PerlIOVia_open()
291 PerlIO_close(f); in PerlIOVia_open()
292 f = NULL; in PerlIOVia_open()
296 return f; in PerlIOVia_open()
300 PerlIONext(f), *PerlIONext(f)); in PerlIOVia_open()
308 PerlIO_pop(aTHX_ f); in PerlIOVia_open()
312 return f; in PerlIOVia_open()
316 PerlIOVia_popped(pTHX_ PerlIO * f) in PerlIOVia_popped() argument
318 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_popped()
319 PerlIOVia_method(aTHX_ f, MYMethod(POPPED), G_VOID, Nullsv); in PerlIOVia_popped()
342 PerlIOVia_close(pTHX_ PerlIO * f) in PerlIOVia_close() argument
344 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_close()
345 IV code = PerlIOBase_close(aTHX_ f); in PerlIOVia_close()
347 PerlIOVia_method(aTHX_ f, MYMethod(CLOSE), G_SCALAR, Nullsv); in PerlIOVia_close()
350 PerlIOBase(f)->flags &= ~(PERLIO_F_RDBUF | PERLIO_F_WRBUF); in PerlIOVia_close()
355 PerlIOVia_fileno(pTHX_ PerlIO * f) in PerlIOVia_fileno() argument
357 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_fileno()
359 PerlIOVia_method(aTHX_ f, MYMethod(FILENO), G_SCALAR, Nullsv); in PerlIOVia_fileno()
360 return (result) ? SvIV(result) : PerlIO_fileno(PerlIONext(f)); in PerlIOVia_fileno()
364 PerlIOVia_binmode(pTHX_ PerlIO * f) in PerlIOVia_binmode() argument
366 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_binmode()
368 PerlIOVia_method(aTHX_ f, MYMethod(BINMODE), G_SCALAR, Nullsv); in PerlIOVia_binmode()
370 PerlIO_pop(aTHX_ f); in PerlIOVia_binmode()
377 PerlIOVia_seek(pTHX_ PerlIO * f, Off_t offset, int whence) in PerlIOVia_seek() argument
379 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_seek()
384 PerlIOVia_method(aTHX_ f, MYMethod(SEEK), G_SCALAR, offsv, whsv, in PerlIOVia_seek()
397 PerlIOVia_tell(pTHX_ PerlIO * f) in PerlIOVia_tell() argument
399 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_tell()
401 PerlIOVia_method(aTHX_ f, MYMethod(TELL), G_SCALAR, Nullsv); in PerlIOVia_tell()
408 PerlIOVia_unread(pTHX_ PerlIO * f, const void *vbuf, Size_t count) in PerlIOVia_unread() argument
410 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_unread()
413 PerlIOVia_method(aTHX_ f, MYMethod(UNREAD), G_SCALAR, buf, Nullsv); in PerlIOVia_unread()
417 return PerlIOBase_unread(aTHX_ f, vbuf, count); in PerlIOVia_unread()
422 PerlIOVia_read(pTHX_ PerlIO * f, void *vbuf, Size_t count) in PerlIOVia_read() argument
425 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { in PerlIOVia_read()
426 if (PerlIOBase(f)->flags & PERLIO_F_FASTGETS) { in PerlIOVia_read()
427 rd = PerlIOBase_read(aTHX_ f, vbuf, count); in PerlIOVia_read()
430 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_read()
434 PerlIOVia_method(aTHX_ f, MYMethod(READ), G_SCALAR, buf, n, in PerlIOVia_read()
442 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_read()
467 PerlIOVia_write(pTHX_ PerlIO * f, const void *vbuf, Size_t count) in PerlIOVia_write() argument
469 if (PerlIOBase(f)->flags & PERLIO_F_CANWRITE) { in PerlIOVia_write()
470 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_write()
473 PerlIOVia_method(aTHX_ f, MYMethod(WRITE), G_SCALAR, buf, in PerlIOVia_write()
484 PerlIOVia_fill(pTHX_ PerlIO * f) in PerlIOVia_fill() argument
486 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { in PerlIOVia_fill()
487 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_fill()
489 PerlIOVia_method(aTHX_ f, MYMethod(FILL), G_SCALAR, Nullsv); in PerlIOVia_fill()
502 PerlIOBase(f)->flags |= PERLIO_F_EOF; in PerlIOVia_fill()
508 PerlIOVia_flush(pTHX_ PerlIO * f) in PerlIOVia_flush() argument
510 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_flush()
512 PerlIOVia_method(aTHX_ f, MYMethod(FLUSH), G_SCALAR, Nullsv); in PerlIOVia_flush()
521 PerlIOVia_get_base(pTHX_ PerlIO * f) in PerlIOVia_get_base() argument
523 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { in PerlIOVia_get_base()
524 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_get_base()
533 PerlIOVia_get_ptr(pTHX_ PerlIO * f) in PerlIOVia_get_ptr() argument
535 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { in PerlIOVia_get_ptr()
536 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_get_ptr()
546 PerlIOVia_get_cnt(pTHX_ PerlIO * f) in PerlIOVia_get_cnt() argument
548 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { in PerlIOVia_get_cnt()
549 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_get_cnt()
558 PerlIOVia_bufsiz(pTHX_ PerlIO * f) in PerlIOVia_bufsiz() argument
560 if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { in PerlIOVia_bufsiz()
561 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_bufsiz()
569 PerlIOVia_set_ptrcnt(pTHX_ PerlIO * f, STDCHAR * ptr, SSize_t cnt) in PerlIOVia_set_ptrcnt() argument
571 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_set_ptrcnt()
577 PerlIOVia_setlinebuf(pTHX_ PerlIO * f) in PerlIOVia_setlinebuf() argument
579 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_setlinebuf()
580 PerlIOVia_method(aTHX_ f, MYMethod(SETLINEBUF), G_VOID, Nullsv); in PerlIOVia_setlinebuf()
581 PerlIOBase_setlinebuf(aTHX_ f); in PerlIOVia_setlinebuf()
585 PerlIOVia_clearerr(pTHX_ PerlIO * f) in PerlIOVia_clearerr() argument
587 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_clearerr()
588 PerlIOVia_method(aTHX_ f, MYMethod(CLEARERR), G_VOID, Nullsv); in PerlIOVia_clearerr()
589 PerlIOBase_clearerr(aTHX_ f); in PerlIOVia_clearerr()
593 PerlIOVia_error(pTHX_ PerlIO * f) in PerlIOVia_error() argument
595 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_error()
597 PerlIOVia_method(aTHX_ f, "ERROR", &s->mERROR, G_SCALAR, Nullsv); in PerlIOVia_error()
598 return (result) ? SvIV(result) : PerlIOBase_error(aTHX_ f); in PerlIOVia_error()
602 PerlIOVia_eof(pTHX_ PerlIO * f) in PerlIOVia_eof() argument
604 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_eof()
606 PerlIOVia_method(aTHX_ f, "EOF", &s->mEOF, G_SCALAR, Nullsv); in PerlIOVia_eof()
607 return (result) ? SvIV(result) : PerlIOBase_eof(aTHX_ f); in PerlIOVia_eof()
611 PerlIOVia_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags) in PerlIOVia_getarg() argument
613 PerlIOVia *s = PerlIOSelf(f, PerlIOVia); in PerlIOVia_getarg()
626 arg = PerlIOVia_method(aTHX_ f, MYMethod(GETARG), G_SCALAR, Nullsv); in PerlIOVia_getarg()
639 PerlIOVia_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param, in PerlIOVia_dup() argument
642 if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) { in PerlIOVia_dup()
652 PerlIOVia *fs = PerlIOSelf(f, PerlIOVia); in PerlIOVia_dup()
667 return f; in PerlIOVia_dup()