Lines Matching defs:tab
61 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
62 if (tab && tab->callback) \
63 return (*tab->callback) args; \
74 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
75 if (tab && tab->callback) \
76 return (*tab->callback) args; \
86 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
87 if (tab && tab->callback) \
88 (*tab->callback) args; \
98 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;\
99 if (tab && tab->callback) \
100 (*tab->callback) args; \
472 f->tab = NULL;
482 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
484 if (tab && tab->Dup)
485 return (*tab->Dup)(aTHX_ PerlIO_allocate(aTHX), f, param, flags);
628 if (l->tab && l->tab->kind & PERLIO_K_DESTRUCT) {
629 DEBUG_i( PerlIO_debug("Destruct popping %s\n", l->tab->name) );
649 l->tab ? l->tab->name : "(Null)") );
650 if (l->tab && l->tab->Popped) {
656 if ((*l->tab->Popped) (aTHX_ f) != 0)
662 PerlIOBase(f)->tab = NULL;
692 SV * const name = l->tab && l->tab->name ?
693 newSVpv(l->tab->name, 0) : &PL_sv_undef;
694 SV * const arg = l->tab && l->tab->Getarg ?
695 (*l->tab->Getarg)(aTHX_ &l, 0, 0) : &PL_sv_undef;
838 PerlIO_tab_sv(pTHX_ PerlIO_funcs *tab)
841 SV * const sv = sv_bless(newRV_noinc(newSViv(PTR2IV(tab))), stash);
878 PerlIO_define_layer(pTHX_ PerlIO_funcs *tab)
882 PerlIO_list_push(aTHX_ PL_known_layers, tab, NULL);
883 DEBUG_i( PerlIO_debug("define %s %p\n", tab->name, (void*)tab) );
979 PERLIO_FUNCS_DECL(*tab) = &PerlIO_perlio;
981 tab = &PerlIO_crlf;
984 tab = &PerlIO_stdio;
986 DEBUG_i( PerlIO_debug("Pushing %s\n", tab->name) );
987 PerlIO_list_push(aTHX_ av, (PerlIO_funcs *)tab, &PL_sv_undef);
1010 PerlIOPop_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
1014 PERL_UNUSED_ARG(tab);
1077 PerlIO_funcs * tab)
1110 code = PerlIOBase_pushed(aTHX_ f, mode, NULL, tab);
1553 PerlIO_push(pTHX_ PerlIO *f, PERLIO_FUNCS_DECL(*tab), const char *mode, SV *arg)
1556 if (tab->fsize != sizeof(PerlIO_funcs)) {
1559 "PerlIO layer function table size", (UV)tab->fsize,
1562 if (tab->size) {
1564 if (tab->size < sizeof(PerlIOl)) {
1567 "PerlIO layer instance size", (UV)tab->size,
1573 Newxz(temp, tab->size, char);
1577 l->tab = (PerlIO_funcs*) tab;
1581 (void*)f, tab->name,
1583 if (*l->tab->Pushed &&
1584 (*l->tab->Pushed)
1585 (aTHX_ f, mode, arg, (PerlIO_funcs*) tab) != 0) {
1596 DEBUG_i( PerlIO_debug("PerlIO_push f=%p %s %s %p\n", (void*)f, tab->name,
1598 if (tab->Pushed &&
1599 (*tab->Pushed) (aTHX_ f, mode, arg, (PerlIO_funcs*) tab) != 0) {
1611 PerlIO_funcs * const tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_layer(aTHX_ 0));
1612 if (tab && tab->Open) {
1613 PerlIO* ret = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm, old, narg, args);
1629 if (PerlIOBase(f)->tab && PerlIOBase(f)->tab->kind & PERLIO_K_RAW) {
1643 PerlIORaw_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
1647 PERL_UNUSED_ARG(tab);
1658 if (l->tab && l->tab->Binmode) {
1660 if ((*l->tab->Binmode)(aTHX_ t) == 0) {
1677 PerlIOBase(f)->tab ? PerlIOBase(f)->tab->name : "(Null)") );
1690 PerlIO_funcs * const tab = PerlIO_layer_fetch(aTHX_ layers, n, NULL);
1691 if (tab) {
1692 if (!PerlIO_push(aTHX_ f, tab, mode, PerlIOArg)) {
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)
1793 PerlIO_funcs * const tab = PerlIOBase(f)->tab;
1794 if (tab && tab->Close)
1795 return (*tab->Close)(aTHX_ f);
1921 PerlIO_funcs *tab = NULL;
1931 if (l->tab && l->tab->Getarg)
1932 arg = (*l->tab->Getarg) (aTHX_ &l, NULL, 0);
1933 PerlIO_list_push(aTHX_ layera, l->tab,
1952 tab = t;
1957 if (tab) {
1961 if (narg > 1 && !(tab->kind & PERLIO_K_MULTIARG)) {
1962 Perl_croak(aTHX_ "More than one argument to open(,':%s')",tab->name);
1965 tab->name, layers ? layers : "(Null)", mode, fd,
1967 if (tab->Open)
1968 f = (*tab->Open) (aTHX_ tab, layera, n, mode, fd, imode, perm,
2035 const PerlIO_funcs *tab = PerlIOBase(f)->tab;
2037 if (tab && tab->Flush)
2038 return (*tab->Flush) (aTHX_ f);
2138 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2140 if (tab)
2141 return (tab->Get_base != NULL);
2152 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2154 if (tab)
2155 return (tab->Set_ptrcnt != NULL);
2166 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2168 if (tab)
2169 return (tab->Get_ptr != NULL && tab->Get_cnt != NULL);
2179 const PerlIO_funcs * const tab = PerlIOBase(f)->tab;
2181 if (tab)
2182 return (tab->Set_ptrcnt != NULL);
2232 PerlIOUtf8_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
2238 if (tab && tab->kind & PERLIO_K_UTF8)
2385 PerlIOBase_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
2393 if (tab && tab->Set_ptrcnt != NULL)
2471 (void*)f, PerlIOBase(f)->tab->name, (omode) ? omode : "(Null)",
2562 const PerlIO_funcs * const tab = PerlIOBase(n)->tab;
2563 if (tab && tab->Close) {
2564 if ((*tab->Close)(aTHX_ n) != 0)
2646 const PerlIO_funcs * const tab = PerlIOBase(nexto)->tab;
2647 if (tab && tab->Dup)
2648 f = (*tab->Dup)(aTHX_ f, nexto, param, flags);
2653 PerlIO_funcs * const self = PerlIOBase(o)->tab;
3026 PerlIOUnix_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
3028 IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
3073 if (PerlIOBase(f)->tab && PerlIOBase(f)->flags & PERLIO_F_OPEN)
3074 (*PerlIOBase(f)->tab->Close)(aTHX_ f);
3330 PerlIOStdio_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
3334 PerlIO_funcs * const toptab = PerlIOBase(n)->tab;
3335 if (toptab == tab) {
3348 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
3355 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
4200 if (l->tab == &PerlIO_stdio) {
4228 if (l->tab == &PerlIO_stdio) {
4252 PerlIOBuf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
4265 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
4275 PerlIO_funcs *tab =
4276 PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIOBase(next)->tab);
4277 if (tab && tab->Open)
4279 (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm,
4281 if (!next || (*PerlIOBase(f)->tab->Pushed) (aTHX_ f, mode, PerlIOArg, self) != 0) {
4286 PerlIO_funcs *tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_btm());
4294 if (tab && tab->Open)
4295 f = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm,
4838 PerlIOPending_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
4840 const IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
4940 PerlIOCrlf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
4944 code = PerlIOBuf_pushed(aTHX_ f, mode, arg, tab);
4948 (void*)f, PerlIOBase(f)->tab->name, (mode) ? mode : "(Null)",
4958 if (b && b->tab == &PerlIO_crlf) {