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