Lines Matching defs:layers
266 PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
672 /* Return as an array the stack of layers on a filehandle. Note that
674 * times as many array elements as there are layers in the stack: the
849 during loading of layers.
1391 PerlIOScalar_open(pTHX_ PerlIO_funcs * self, PerlIO_list_t * layers, IV n,
1607 PerlIOBase_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers,
1611 PerlIO_funcs * const tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_layer(aTHX_ 0));
1613 PerlIO* ret = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm, old, narg, args);
1654 * Strip all layers that are not suitable for a raw stream
1686 PerlIO_list_t *layers, IV n, IV max)
1690 PerlIO_funcs * const tab = PerlIO_layer_fetch(aTHX_ layers, n, NULL);
1709 PerlIO_list_t * const layers = PerlIO_list_alloc(aTHX);
1710 code = PerlIO_parse_layers(aTHX_ layers, names);
1712 code = PerlIO_apply_layera(aTHX_ f, mode, layers, 0, layers->cur);
1714 PerlIO_list_free(aTHX_ layers);
1740 if a pushed layer knows it needs to flush lower layers
1852 PerlIO_resolve_layers(pTHX_ const char *layers,
1879 if (!layers || !*layers)
1880 layers = Perl_PerlIO_context_layers(aTHX_ mode);
1881 if (layers && *layers) {
1889 if (PerlIO_parse_layers(aTHX_ av, layers) == 0) {
1905 PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
1912 if (!layers || !*layers)
1913 layers = Perl_PerlIO_context_layers(aTHX_ mode);
1914 if (layers && *layers)
1915 PerlIO_apply_layers(aTHX_ f, mode, layers);
1940 layera = PerlIO_resolve_layers(aTHX_ layers, mode, narg, args);
1965 tab->name, layers ? layers : "(Null)", mode, fd,
1977 * More layers above the one that we used to open -
1981 /* If pushing layers fails close the file */
2228 * utf8 and raw dummy layers
2807 DEBUG_i( PerlIO_debug("Cleanup layers for %p\n",(void*)aTHX) );
2809 DEBUG_i( PerlIO_debug("Cleanup layers\n") );
2905 * If so, free any lower layers that have already been
3067 PerlIOUnix_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers,
3122 * FIXME: pop layers ???
3439 PerlIOStdio_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers,
3548 /* This assumes no layers underneath - which is what
4175 /* De-link any lower layers so new :stdio sticks */
4181 /* Link previous lower layers under new one */
4185 /* restore layers list */
4269 PerlIOBuf_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers,
4276 PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIOBase(next)->tab);
4279 (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm,
4286 PerlIO_funcs *tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_btm());
4295 f = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm,
4349 * the next layers. For read state, we seek() the next layers to the
4391 /* Reload n as some layers may pop themselves on seek */
5558 /* Returns the layers set by "use open" */
5561 SV *layers;
5579 layers = cop_hints_fetch_pvn(PL_curcop, direction, 5, 0, 0);
5581 assert(layers);
5582 return SvOK(layers) ? SvPV_nolen_const(layers) : NULL;