Lines Matching refs:tab
61 PerlIO_funcs *tab = PerlIOBase(f)->tab; \
62 if (tab && tab->callback) \
63 return (*tab->callback) args; \
74 PerlIO_funcs *tab = PerlIOBase(f)->tab; \
75 if (tab && tab->callback) \
76 return (*tab->callback) args; \
86 PerlIO_funcs *tab = PerlIOBase(f)->tab; \
87 if (tab && tab->callback) \
88 (*tab->callback) args; \
98 PerlIO_funcs *tab = PerlIOBase(f)->tab; \
99 if (tab && tab->callback) \
100 (*tab->callback) args; \
533 PerlIO_funcs *tab = PerlIOBase(f)->tab;
535 if (tab && tab->Dup)
536 return (*tab->Dup)(aTHX_ PerlIO_allocate(aTHX), f, param, flags);
667 if (l->tab->kind & PERLIO_K_DESTRUCT) {
668 PerlIO_debug("Destruct popping %s\n", l->tab->name);
686 PerlIO_debug("PerlIO_pop f=%p %s\n", (void*)f, l->tab->name);
687 if (l->tab->Popped) {
693 if ((*l->tab->Popped) (aTHX_ f) != 0)
716 SV *name = l->tab && l->tab->name ?
717 newSVpv(l->tab->name, 0) : &PL_sv_undef;
718 SV *arg = l->tab && l->tab->Getarg ?
719 (*l->tab->Getarg)(aTHX_ &l, 0, 0) : &PL_sv_undef;
858 PerlIO_tab_sv(pTHX_ PerlIO_funcs *tab)
861 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(tab))), stash);
894 PerlIO_define_layer(pTHX_ PerlIO_funcs *tab)
898 PerlIO_list_push(aTHX_ PL_known_layers, tab, Nullsv);
899 PerlIO_debug("define %s %p\n", tab->name, (void*)tab);
999 PerlIO_funcs *tab = &PerlIO_perlio;
1001 tab = &PerlIO_crlf;
1004 tab = &PerlIO_stdio;
1006 PerlIO_debug("Pushing %s\n", tab->name);
1007 PerlIO_list_push(aTHX_ av, PerlIO_find_layer(aTHX_ tab->name, 0, 0),
1031 PerlIOPop_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
1145 PerlIO_push(pTHX_ PerlIO *f, PerlIO_funcs *tab, const char *mode, SV *arg)
1147 if (tab->fsize != sizeof(PerlIO_funcs)) {
1151 if (tab->size) {
1153 if (tab->size < sizeof(PerlIOl)) {
1157 Newc('L',l,tab->size,char,PerlIOl);
1159 Zero(l, tab->size, char);
1161 l->tab = tab;
1163 PerlIO_debug("PerlIO_push f=%p %s %s %p\n", (void*)f, tab->name,
1165 if (*l->tab->Pushed &&
1166 (*l->tab->Pushed) (aTHX_ f, mode, arg, tab) != 0) {
1174 PerlIO_debug("PerlIO_push f=%p %s %s %p\n", (void*)f, tab->name,
1176 if (tab->Pushed &&
1177 (*tab->Pushed) (aTHX_ f, mode, arg, tab) != 0) {
1189 if (PerlIOBase(f)->tab->kind & PERLIO_K_RAW) {
1203 PerlIORaw_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
1215 if (l->tab->Binmode) {
1217 if ((*l->tab->Binmode)(aTHX_ f) == 0) {
1233 PerlIO_debug(":raw f=%p :%s\n", (void*)f, PerlIOBase(f)->tab->name);
1246 PerlIO_funcs *tab = PerlIO_layer_fetch(aTHX_ layers, n, NULL);
1247 if (tab) {
1248 if (!PerlIO_push(aTHX_ f, tab, mode, PerlIOArg)) {
1283 (void*)f, PerlIOBase(f)->tab->name, iotype, mode,
1309 if (PerlIOBase(f)->tab->kind & PERLIO_K_CANCRLF) {
1338 PerlIO_funcs *tab = PerlIOBase(f)->tab;
1339 if (tab && tab->Close)
1340 return (*tab->Close)(aTHX_ f);
1490 PerlIO_funcs *tab = NULL;
1499 SV *arg = (l->tab->Getarg)
1500 ? (*l->tab->Getarg) (aTHX_ &l, NULL, 0)
1502 PerlIO_list_push(aTHX_ layera, l->tab, arg);
1519 tab = t;
1524 if (tab) {
1528 if (narg > 1 && !(tab->kind & PERLIO_K_MULTIARG)) {
1529 Perl_croak(aTHX_ "More than one argument to open(,':%s')",tab->name);
1532 tab->name, layers, mode, fd, imode, perm,
1534 if (tab->Open)
1535 f = (*tab->Open) (aTHX_ tab, layera, n, mode, fd, imode, perm,
1596 PerlIO_funcs *tab = PerlIOBase(f)->tab;
1598 if (tab && tab->Flush)
1599 return (*tab->Flush) (aTHX_ f);
1696 PerlIO_funcs *tab = PerlIOBase(f)->tab;
1698 if (tab)
1699 return (tab->Get_base != NULL);
1712 PerlIO_funcs *tab = PerlIOBase(f)->tab;
1714 if (tab)
1715 return (tab->Set_ptrcnt != NULL);
1728 PerlIO_funcs *tab = PerlIOBase(f)->tab;
1730 if (tab)
1731 return (tab->Get_ptr != NULL && tab->Get_cnt != NULL);
1744 PerlIO_funcs *tab = PerlIOBase(f)->tab;
1746 if (tab)
1747 return (tab->Set_ptrcnt != NULL);
1799 PerlIOUtf8_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
1802 if (tab->kind & PERLIO_K_UTF8)
1874 PerlIO_funcs *tab = PerlIO_default_btm();
1875 if (tab && tab->Open)
1876 return (*tab->Open) (aTHX_ tab, layers, n - 1, mode, fd, imode, perm,
1956 PerlIOBase_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
1965 if (tab->Set_ptrcnt != NULL)
2010 f, PerlIOBase(f)->tab->name, (omode) ? omode : "(Null)",
2090 PerlIO_funcs *tab = PerlIOBase(n)->tab;
2091 if (tab && tab->Close) {
2092 if ((*tab->Close)(aTHX_ n) != 0)
2168 PerlIO_funcs *tab = PerlIOBase(nexto)->tab;
2169 if (tab && tab->Dup)
2170 f = (*tab->Dup)(aTHX_ f, nexto, param, flags);
2175 PerlIO_funcs *self = PerlIOBase(o)->tab;
2364 PerlIOUnix_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
2366 IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
2412 (*PerlIOBase(f)->tab->Close)(aTHX_ f);
2629 PerlIOStdio_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
2633 PerlIO_funcs *toptab = PerlIOBase(n)->tab;
2634 if (toptab == tab) {
2653 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
3352 if (l->tab == &PerlIO_stdio) {
3368 if (l->tab == &PerlIO_stdio) {
3387 PerlIOBuf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
3400 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
3410 PerlIO_funcs *tab =
3411 PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIOBase(next)->tab);
3412 if (tab && tab->Open)
3414 (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm,
3416 if (!next || (*PerlIOBase(f)->tab->Pushed) (aTHX_ f, mode, PerlIOArg, self) != 0) {
3421 PerlIO_funcs *tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_btm());
3429 if (tab && tab->Open)
3430 f = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm,
3944 PerlIOPending_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
3946 IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab);
4023 PerlIOCrlf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab)
4027 code = PerlIOBuf_pushed(aTHX_ f, mode, arg, tab);
4030 f, PerlIOBase(f)->tab->name, (mode) ? mode : "(Null)",
4041 if (b && b->tab == &PerlIO_crlf) {
4299 if (PerlIOBase(f)->tab == &PerlIO_crlf) {