Lines Matching refs:aTHX_
214 Perl_croak(aTHX_ "Cannot apply \"%s\" in non-PerlIO perl", names); in PerlIO_apply_layers()
271 Perl_croak(aTHX_ "More than one argument to open"); in PerlIO_openn()
305 Perl_croak(aTHX_ "Usage class->find(name[,load])"); in XS()
384 SV * const sv = Perl_newSVpvf(aTHX_ "%s:%" LINE_Tf " ", in PerlIO_debug()
386 Perl_sv_vcatpvf(aTHX_ sv, fmt, &ap); in PerlIO_debug()
405 # define VERIFY_HEAD(f) PerlIO_verify_head(aTHX_ f)
485 return (*tab->Dup)(aTHX_ PerlIO_allocate(aTHX), f, param, flags); in PerlIO_fdupopen()
487 return PerlIOBase_dup(aTHX_ PerlIO_allocate(aTHX), f, param, flags); in PerlIO_fdupopen()
502 PerlIO_cleantable(aTHX_ &table[0].next); in PerlIO_cleantable()
577 PerlIO_list_push(aTHX_ list, proto->array[i].funcs, arg); in PerlIO_clone_list()
590 PL_known_layers = PerlIO_clone_list(aTHX_ proto->Iknown_layers, param); in PerlIO_clone()
591 PL_def_layerlist = PerlIO_clone_list(aTHX_ proto->Idef_layerlist, param); in PerlIO_clone()
631 PerlIO_pop(aTHX_ x); in PerlIO_destruct()
656 if ((*l->tab->Popped) (aTHX_ f) != 0) in PerlIO_pop()
695 (*l->tab->Getarg)(aTHX_ &l, 0, 0) : &PL_sv_undef; in PerlIO_get_layers()
729 Perl_croak(aTHX_ "Recursive call to Perl_load_module in PerlIO_find_layer"); in PerlIO_find_layer()
745 Perl_load_module(aTHX_ 0, pkgsv, NULL, layer, NULL); in PerlIO_find_layer()
747 return PerlIO_find_layer(aTHX_ name, len, 0); in PerlIO_find_layer()
763 Perl_warn(aTHX_ "set %" SVf " %p %p %p", in perlio_mg_set()
776 Perl_warn(aTHX_ "get %" SVf " %p %p %p", in perlio_mg_get()
785 Perl_warn(aTHX_ "clear %" SVf, SVfARG(sv)); in perlio_mg_clear()
792 Perl_warn(aTHX_ "free %" SVf, SVfARG(sv)); in perlio_mg_free()
818 Perl_warn(aTHX_ "attrib %" SVf, SVfARG(sv)); in XS()
822 SV * const layer = PerlIO_find_layer(aTHX_ name, len, 1); in XS()
864 Perl_croak(aTHX_ "Usage class->find(name[,load])"); in XS()
869 PerlIO_funcs * const layer = PerlIO_find_layer(aTHX_ name, len, load); in XS()
871 (layer) ? sv_2mortal(PerlIO_tab_sv(aTHX_ layer)) : in XS()
882 PerlIO_list_push(aTHX_ PL_known_layers, tab, NULL); in PerlIO_define_layer()
906 Perl_ck_warner(aTHX_ packWARN(WARN_LAYER), in PerlIO_parse_layers()
940 Perl_ck_warner(aTHX_ packWARN(WARN_LAYER), in PerlIO_parse_layers()
954 PerlIO_find_layer(aTHX_ s, llen, 1); in PerlIO_parse_layers()
959 PerlIO_list_push(aTHX_ av, layer, in PerlIO_parse_layers()
964 Perl_ck_warner(aTHX_ packWARN(WARN_LAYER), "Unknown PerlIO layer \"%.*s\"", in PerlIO_parse_layers()
987 PerlIO_list_push(aTHX_ av, (PerlIO_funcs *)tab, &PL_sv_undef); in PerlIO_default_buffer()
1005 Perl_croak(aTHX_ "panic: PerlIO layer array corrupt"); in PerlIO_layer_fetch()
1017 PerlIO_pop(aTHX_ f); in PerlIOPop_pushed()
1090 Perl_warner(aTHX_ packWARN(WARN_LAYER), "%s", PL_no_modify); in PerlIOScalar_pushed()
1110 code = PerlIOBase_pushed(aTHX_ f, mode, NULL, tab); in PerlIOScalar_pushed()
1119 Perl_warner(aTHX_ packWARN(WARN_UTF8), code_point_warning); in PerlIOScalar_pushed()
1147 IV code = PerlIOBase_close(aTHX_ f); in PerlIOScalar_close()
1185 Perl_warner(aTHX_ packWARN(WARN_LAYER), "Offset outside string"); in PerlIOScalar_seek()
1209 Perl_PerlIO_save_errno(aTHX_ f); in PerlIOScalar_read()
1225 Perl_warner(aTHX_ packWARN(WARN_UTF8), code_point_warning); in PerlIOScalar_read()
1269 Perl_warner(aTHX_ packWARN(WARN_UTF8), code_point_warning); in PerlIOScalar_write()
1349 return PerlIOScalar_get_base(aTHX_ f) + s->posn; in PerlIOScalar_get_ptr()
1403 if ( (f = PerlIO_push(aTHX_ f, self, mode, arg)) ) { in PerlIOScalar_open()
1417 var = PerlIO_sv_dup(aTHX_ var, param); in PerlIOScalar_arg()
1439 if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) { in PerlIOScalar_dup()
1447 SV * const rv = PerlIOScalar_arg(aTHX_ o, param, flags); in PerlIOScalar_dup()
1494 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_unix)); in PerlIO_default_layers()
1495 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_raw)); in PerlIO_default_layers()
1496 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_perlio)); in PerlIO_default_layers()
1497 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_stdio)); in PerlIO_default_layers()
1498 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_crlf)); in PerlIO_default_layers()
1499 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_utf8)); in PerlIO_default_layers()
1500 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_remove)); in PerlIO_default_layers()
1501 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_byte)); in PerlIO_default_layers()
1502 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_scalar)); in PerlIO_default_layers()
1503 PerlIO_list_push(aTHX_ PL_def_layerlist, (PerlIO_funcs *)osLayer, in PerlIO_default_layers()
1506 PerlIO_parse_layers(aTHX_ PL_def_layerlist, s); in PerlIO_default_layers()
1509 PerlIO_default_buffer(aTHX_ PL_def_layerlist); in PerlIO_default_layers()
1513 PerlIO_default_buffer(aTHX_ PL_def_layerlist); in PerlIO_default_layers()
1535 return PerlIO_layer_fetch(aTHX_ av, n, PERLIO_FUNCS_CAST(&PerlIO_stdio)); in PerlIO_default_layer()
1538 #define PerlIO_default_top() PerlIO_default_layer(aTHX_ -1)
1539 #define PerlIO_default_btm() PerlIO_default_layer(aTHX_ 0)
1557 Perl_croak( aTHX_ in PerlIO_push()
1565 Perl_croak( aTHX_ in PerlIO_push()
1585 (aTHX_ f, mode, arg, (PerlIO_funcs*) tab) != 0) { in PerlIO_push()
1586 PerlIO_pop(aTHX_ f); in PerlIO_push()
1599 (*tab->Pushed) (aTHX_ f, mode, arg, (PerlIO_funcs*) tab) != 0) { in PerlIO_push()
1611 … PerlIO_funcs * const tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_layer(aTHX_ 0)); in PerlIOBase_open()
1613 … PerlIO* ret = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm, old, narg, args); in PerlIOBase_open()
1614 if (ret && PerlIO_push(aTHX_ ret, self, mode, PerlIOArg) == NULL) { in PerlIOBase_open()
1635 PerlIO_pop(aTHX_ f); in PerlIOBase_binmode()
1660 if ((*l->tab->Binmode)(aTHX_ t) == 0) { in PerlIORaw_pushed()
1672 PerlIO_pop(aTHX_ t); in PerlIORaw_pushed()
1690 PerlIO_funcs * const tab = PerlIO_layer_fetch(aTHX_ layers, n, NULL); in PerlIO_apply_layera()
1692 if (!PerlIO_push(aTHX_ f, tab, mode, PerlIOArg)) { in PerlIO_apply_layera()
1710 code = PerlIO_parse_layers(aTHX_ layers, names); in PerlIO_apply_layers()
1712 code = PerlIO_apply_layera(aTHX_ f, mode, layers, 0, layers->cur); in PerlIO_apply_layers()
1714 PerlIO_list_free(aTHX_ layers); in PerlIO_apply_layers()
1744 return cBOOL(PerlIO_apply_layers(aTHX_ f, NULL, names) == 0); in PerlIO_binmode()
1785 return cBOOL(PerlIO_push(aTHX_ f, PERLIO_FUNCS_CAST(&PerlIO_raw), NULL, NULL)); in PerlIO_binmode()
1795 return (*tab->Close)(aTHX_ f); in PerlIO__close()
1797 return PerlIOBase_close(aTHX_ f); in PerlIO__close()
1808 const int code = PerlIO__close(aTHX_ f); in Perl_PerlIO_close()
1810 PerlIO_pop(aTHX_ f); in Perl_PerlIO_close()
1821 Perl_PerlIO_or_Base(f, Fileno, fileno, -1, (aTHX_ f)); in Perl_PerlIO_fileno()
1839 return PerlIO_find_layer(aTHX_ STR_WITH_LEN("Array"), 0); in PerlIO_layer_from_ref()
1841 return PerlIO_find_layer(aTHX_ STR_WITH_LEN("Hash"), 0); in PerlIO_layer_from_ref()
1843 return PerlIO_find_layer(aTHX_ STR_WITH_LEN("Code"), 0); in PerlIO_layer_from_ref()
1845 return PerlIO_find_layer(aTHX_ STR_WITH_LEN("Glob"), 0); in PerlIO_layer_from_ref()
1866 PerlIO_funcs * const handler = PerlIO_layer_from_ref(aTHX_ SvRV(arg)); in PerlIO_resolve_layers()
1869 PerlIO_list_push(aTHX_ def, handler, &PL_sv_undef); in PerlIO_resolve_layers()
1880 layers = Perl_PerlIO_context_layers(aTHX_ mode); in PerlIO_resolve_layers()
1884 av = PerlIO_clone_list(aTHX_ def, NULL); in PerlIO_resolve_layers()
1889 if (PerlIO_parse_layers(aTHX_ av, layers) == 0) { in PerlIO_resolve_layers()
1893 PerlIO_list_free(aTHX_ av); in PerlIO_resolve_layers()
1913 layers = Perl_PerlIO_context_layers(aTHX_ mode); in PerlIO_openn()
1915 PerlIO_apply_layers(aTHX_ f, mode, layers); in PerlIO_openn()
1932 arg = (*l->tab->Getarg) (aTHX_ &l, NULL, 0); in PerlIO_openn()
1933 PerlIO_list_push(aTHX_ layera, l->tab, in PerlIO_openn()
1940 layera = PerlIO_resolve_layers(aTHX_ layers, mode, narg, args); in PerlIO_openn()
1950 PerlIO_funcs * const t = PerlIO_layer_fetch(aTHX_ layera, n, NULL); in PerlIO_openn()
1962 Perl_croak(aTHX_ "More than one argument to open(,':%s')",tab->name); in PerlIO_openn()
1968 f = (*tab->Open) (aTHX_ tab, layera, n, mode, fd, imode, perm, in PerlIO_openn()
1980 if (PerlIO_apply_layera(aTHX_ f, mode, layera, n + 1, layera->cur) != 0) { in PerlIO_openn()
1988 PerlIO_list_free(aTHX_ layera); in PerlIO_openn()
1999 Perl_PerlIO_or_Base(f, Read, read, -1, (aTHX_ f, vbuf, count)); in Perl_PerlIO_read()
2007 Perl_PerlIO_or_Base(f, Unread, unread, -1, (aTHX_ f, vbuf, count)); in Perl_PerlIO_unread()
2015 Perl_PerlIO_or_fail(f, Write, -1, (aTHX_ f, vbuf, count)); in Perl_PerlIO_write()
2021 Perl_PerlIO_or_fail(f, Seek, -1, (aTHX_ f, offset, whence)); in Perl_PerlIO_seek()
2027 Perl_PerlIO_or_fail(f, Tell, -1, (aTHX_ f)); in Perl_PerlIO_tell()
2038 return (*tab->Flush) (aTHX_ f); in Perl_PerlIO_flush()
2096 Perl_PerlIO_or_fail(f, Fill, -1, (aTHX_ f)); in Perl_PerlIO_fill()
2113 Perl_PerlIO_or_Base(f, Eof, eof, -1, (aTHX_ f)); in Perl_PerlIO_eof()
2119 Perl_PerlIO_or_Base(f, Error, error, -1, (aTHX_ f)); in Perl_PerlIO_error()
2125 Perl_PerlIO_or_Base_void(f, Clearerr, clearerr, (aTHX_ f)); in Perl_PerlIO_clearerr()
2131 Perl_PerlIO_or_Base_void(f, Setlinebuf, setlinebuf, (aTHX_ f)); in Perl_PerlIO_setlinebuf()
2191 Perl_PerlIO_or_fail(f, Get_base, NULL, (aTHX_ f)); in Perl_PerlIO_get_base()
2198 Perl_PerlIO_or_fail(f, Get_bufsiz, -1, (aTHX_ f)); in Perl_PerlIO_get_bufsiz()
2204 Perl_PerlIO_or_fail(f, Get_ptr, NULL, (aTHX_ f)); in Perl_PerlIO_get_ptr()
2210 Perl_PerlIO_or_fail(f, Get_cnt, -1, (aTHX_ f)); in Perl_PerlIO_get_cnt()
2216 Perl_PerlIO_or_fail_void(f, Set_ptrcnt, (aTHX_ f, NULL, cnt)); in Perl_PerlIO_set_cnt()
2222 Perl_PerlIO_or_fail_void(f, Set_ptrcnt, (aTHX_ f, ptr, cnt)); in Perl_PerlIO_set_ptrcnt()
2493 PerlIO_push(aTHX_ f, PERLIO_FUNCS_CAST(&PerlIO_pending), "r", NULL); in PerlIOBase_unread()
2495 return PerlIOBuf_unread(aTHX_ f, vbuf, count); in PerlIOBase_unread()
2564 if ((*tab->Close)(aTHX_ n) != 0) in PerlIOBase_close()
2648 f = (*tab->Dup)(aTHX_ f, nexto, param, flags); in PerlIOBase_dup()
2650 f = PerlIOBase_dup(aTHX_ f, nexto, param, flags); in PerlIOBase_dup()
2661 arg = (*self->Getarg)(aTHX_ o, param, flags); in PerlIOBase_dup()
2662 f = PerlIO_push(aTHX_ f, self, PerlIO_modestr(o,buf), arg); in PerlIOBase_dup()
2729 S_more_refcounted_fds(aTHX_ fd); in PerlIOUnix_refcnt_inc()
2734 Perl_croak(aTHX_ "refcnt_inc: fd %d: %d <= 0\n", in PerlIOUnix_refcnt_inc()
2743 Perl_croak(aTHX_ "refcnt_inc: fd %d < 0\n", fd); in PerlIOUnix_refcnt_inc()
2785 Perl_croak(aTHX_ "refcnt: fd %d >= refcnt_size %d\n", in PerlIOUnix_refcnt()
2790 Perl_croak(aTHX_ "refcnt: fd %d: %d <= 0\n", in PerlIOUnix_refcnt()
2797 Perl_croak(aTHX_ "refcnt: fd %d < 0\n", fd); in PerlIOUnix_refcnt()
2815 PerlIO_cleantable(aTHX_ &PL_perlio); in PerlIO_cleanup()
2821 PerlIO_list_free(aTHX_ PL_known_layers); in PerlIO_cleanup()
2825 PerlIO_list_free(aTHX_ PL_def_layerlist); in PerlIO_cleanup()
3028 IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab); in PerlIOUnix_pushed()
3037 PerlIOUnix_setfd(aTHX_ f, PerlIO_fileno(PerlIONext(f)), in PerlIOUnix_pushed()
3074 (*PerlIOBase(f)->tab->Close)(aTHX_ f); in PerlIOUnix_open()
3107 if (!(f = PerlIO_push(aTHX_ f, self, mode, PerlIOArg))) { in PerlIOUnix_open()
3112 PerlIOUnix_setfd(aTHX_ f, fd, imode); in PerlIOUnix_open()
3115 PerlIOUnix_seek(aTHX_ f, 0, SEEK_END); in PerlIOUnix_open()
3140 f = PerlIOBase_dup(aTHX_ f, o, param, flags); in PerlIOUnix_dup()
3143 PerlIOUnix_setfd(aTHX_ f, fd, os->oflags); in PerlIOUnix_dup()
3179 if (PL_sig_pending && S_perlio_async_run(aTHX_ f)) in PerlIOUnix_read()
3204 if (PL_sig_pending && S_perlio_async_run(aTHX_ f)) in PerlIOUnix_write()
3225 code = PerlIOBase_close(aTHX_ f); in PerlIOUnix_close()
3241 if (PL_sig_pending && S_perlio_async_run(aTHX_ f)) in PerlIOUnix_close()
3337 PerlIO_pop(aTHX_ f); in PerlIOStdio_pushed()
3348 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab); in PerlIOStdio_pushed()
3355 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab); in PerlIOStdio_pushed()
3413 …if ((f = PerlIO_push(aTHX_(PerlIO_allocate(aTHX)), PERLIO_FUNCS_CAST(&PerlIO_stdio), mode, NULL)))… in PerlIO_importFILE()
3487 f = PerlIO_push(aTHX_ f, self, mode, PerlIOArg); in PerlIOStdio_open()
3531 if ((f = PerlIO_push(aTHX_ f, self, mode, PerlIOArg))) { in PerlIOStdio_open()
3551 if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) { in PerlIOStdio_dup()
3720 invalidate = PerlIOStdio_invalidate_fileno(aTHX_ stdio); in PerlIOStdio_close()
3783 if (PL_sig_pending && S_perlio_async_run(aTHX_ f)) in PerlIOStdio_read()
3849 unread += PerlIOBase_unread(aTHX_ f, vbuf, count); in PerlIOStdio_unread()
3865 if (PL_sig_pending && S_perlio_async_run(aTHX_ f)) in PerlIOStdio_write()
4064 if (PL_sig_pending && S_perlio_async_run(aTHX_ f)) in PerlIOStdio_fill()
4081 PerlIOStdio_set_ptrcnt(aTHX_ f,ptr,cnt+1); in PerlIOStdio_fill()
4091 if (PerlIOStdio_unread(aTHX_ f,&ch,1) == 1) { in PerlIOStdio_fill()
4177 if ((f2 = PerlIO_push(aTHX_ f, PERLIO_FUNCS_CAST(&PerlIO_stdio), buf, NULL))) { in PerlIO_exportFILE()
4236 PerlIO_pop(aTHX_ p); in PerlIO_releaseFILE()
4265 return PerlIOBase_pushed(aTHX_ f, mode, arg, tab); in PerlIOBuf_pushed()
4276 PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIOBase(next)->tab); in PerlIOBuf_open()
4279 (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm, in PerlIOBuf_open()
4281 if (!next || (*PerlIOBase(f)->tab->Pushed) (aTHX_ f, mode, PerlIOArg, self) != 0) { in PerlIOBuf_open()
4286 PerlIO_funcs *tab = PerlIO_layer_fetch(aTHX_ layers, n - 1, PerlIO_default_btm()); in PerlIOBuf_open()
4295 f = (*tab->Open)(aTHX_ tab, layers, n - 1, mode, fd, imode, perm, in PerlIOBuf_open()
4300 if (PerlIO_push(aTHX_ f, self, mode, PerlIOArg) == 0) { in PerlIOBuf_open()
4317 PerlIO_binmode(aTHX_ f, '<'/*not used*/, O_BINARY, NULL); in PerlIOBuf_open()
4494 return PerlIOBase_read(aTHX_ f, vbuf, count); in PerlIOBuf_read()
4554 unread += PerlIOBase_unread(aTHX_ f, vbuf, count); in PerlIOBuf_unread()
4653 const IV code = PerlIOBase_popped(aTHX_ f); in PerlIOBuf_popped()
4666 const IV code = PerlIOBase_close(aTHX_ f); in PerlIOBuf_close()
4742 return PerlIOBase_dup(aTHX_ f, o, param, flags); in PerlIOBuf_dup()
4822 PerlIO_pop(aTHX_ f); in PerlIOPending_flush()
4833 PerlIOBuf_set_ptrcnt(aTHX_ f, ptr, cnt); in PerlIOPending_set_ptrcnt()
4840 const IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab); in PerlIOPending_pushed()
4860 got = PerlIOBuf_read(aTHX_ f, vbuf, avail); in PerlIOPending_read()
4944 code = PerlIOBuf_pushed(aTHX_ f, mode, arg, tab); in PerlIOCrlf_pushed()
4962 PerlIO_pop(aTHX_ f); in PerlIOCrlf_pushed()
4981 return PerlIOBuf_unread(aTHX_ f, vbuf, count); in PerlIOCrlf_unread()
5021 unread += PerlIOBase_unread(aTHX_ f, (const STDCHAR *) vbuf + unread, count); in PerlIOCrlf_unread()
5134 Perl_croak(aTHX_ "ptr wrong %p != %p fl=%08" UVxf in PerlIOCrlf_set_ptrcnt()
5158 return PerlIOBuf_write(aTHX_ f, vbuf, count); in PerlIOCrlf_write()
5212 return PerlIOBuf_flush(aTHX_ f); in PerlIOCrlf_flush()
5223 PerlIO_pop(aTHX_ f); in PerlIOCrlf_binmode()
5226 return PerlIOBase_binmode(aTHX_ f); in PerlIOCrlf_binmode()
5326 return PerlIO_openn(aTHX_ NULL, mode, fd, 0, 0, NULL, 0, NULL); in PerlIO_fdopen()
5335 return PerlIO_openn(aTHX_ NULL, mode, -1, 0, 0, NULL, 1, &name); in PerlIO_open()
5344 return PerlIO_openn(aTHX_ NULL, mode, -1, 0, 0, f, 1, &name); in PerlIO_reopen()