Lines Matching refs:stdio
3296 FILE *stdio; /* The stream */ member
3305 FILE * const s = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_fileno()
3342 FILE *stdio; in PerlIOStdio_pushed() local
3343 if (fd >= 0 && (stdio = PerlSIO_fdopen(fd, in PerlIOStdio_pushed()
3345 PerlIOSelf(f, PerlIOStdio)->stdio = stdio; in PerlIOStdio_pushed()
3360 PerlIO_importFILE(FILE *stdio, const char *mode) in PerlIO_importFILE() argument
3369 if (stdio) { in PerlIO_importFILE()
3371 int fd0 = fileno(stdio); in PerlIO_importFILE()
3374 rc = fldata(stdio,filename,&fileinfo); in PerlIO_importFILE()
3415 s->stdio = stdio; in PerlIO_importFILE()
3416 fd0 = fileno(stdio); in PerlIO_importFILE()
3423 rc = fldata(stdio,filename,&fileinfo); in PerlIO_importFILE()
3448 FILE *stdio; in PerlIOStdio_open() local
3451 PerlIOUnix_refcnt_dec(fileno(s->stdio)); in PerlIOStdio_open()
3452 stdio = PerlSIO_freopen(path, PerlIOStdio_mode(mode, tmode), in PerlIOStdio_open()
3453 s->stdio); in PerlIOStdio_open()
3454 if (!s->stdio) in PerlIOStdio_open()
3456 s->stdio = stdio; in PerlIOStdio_open()
3457 fd = fileno(stdio); in PerlIOStdio_open()
3473 FILE *stdio; in PerlIOStdio_open() local
3480 stdio = PerlSIO_fopen(path, mode); in PerlIOStdio_open()
3481 if (stdio) { in PerlIOStdio_open()
3489 PerlIOSelf(f, PerlIOStdio)->stdio = stdio; in PerlIOStdio_open()
3490 fd = fileno(stdio); in PerlIOStdio_open()
3494 PerlSIO_fclose(stdio); in PerlIOStdio_open()
3504 FILE *stdio = NULL; in PerlIOStdio_open() local
3513 stdio = PerlSIO_stdin; in PerlIOStdio_open()
3516 stdio = PerlSIO_stdout; in PerlIOStdio_open()
3519 stdio = PerlSIO_stderr; in PerlIOStdio_open()
3524 stdio = PerlSIO_fdopen(fd, mode = in PerlIOStdio_open()
3527 if (stdio) { in PerlIOStdio_open()
3532 PerlIOSelf(f, PerlIOStdio)->stdio = stdio; in PerlIOStdio_open()
3533 fd = fileno(stdio); in PerlIOStdio_open()
3552 FILE *stdio = PerlIOSelf(o, PerlIOStdio)->stdio; in PerlIOStdio_dup() local
3553 const int fd = fileno(stdio); in PerlIOStdio_dup()
3556 const int dfd = PerlLIO_dup_cloexec(fileno(stdio)); in PerlIOStdio_dup()
3558 stdio = PerlSIO_fdopen(dfd, PerlIO_modestr(o,mode)); in PerlIOStdio_dup()
3568 stdio = PerlSIO_fdopen(fd, PerlIO_modestr(o,mode)); in PerlIOStdio_dup()
3570 PerlIOSelf(f, PerlIOStdio)->stdio = stdio; in PerlIOStdio_dup()
3571 if(stdio) { in PerlIOStdio_dup()
3572 int fd = fileno(stdio); in PerlIOStdio_dup()
3658 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_close() local
3659 if (!stdio) { in PerlIOStdio_close()
3664 const int fd = fileno(stdio); in PerlIOStdio_close()
3690 if (stdio == stdin) /* Some stdios are buggy fflush-ing inputs */ in PerlIOStdio_close()
3692 if (stdio == stdout || stdio == stderr) in PerlIOStdio_close()
3720 invalidate = PerlIOStdio_invalidate_fileno(aTHX_ stdio); in PerlIOStdio_close()
3734 result = PerlSIO_fclose(stdio); in PerlIOStdio_close()
3763 s = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_read()
3800 FILE * const s = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_unread()
3862 PerlIOSelf(f, PerlIOStdio)->stdio); in PerlIOStdio_write()
3875 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_seek() local
3878 return PerlSIO_fseek(stdio, offset, whence); in PerlIOStdio_seek()
3884 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_tell() local
3887 return PerlSIO_ftell(stdio); in PerlIOStdio_tell()
3893 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_flush() local
3897 return PerlSIO_fflush(stdio); in PerlIOStdio_flush()
3912 if (PerlSIO_fseek(stdio, (Off_t) 0, SEEK_CUR) != 0) in PerlIOStdio_flush()
3924 return PerlSIO_feof(PerlIOSelf(f, PerlIOStdio)->stdio); in PerlIOStdio_eof()
3932 return PerlSIO_ferror(PerlIOSelf(f, PerlIOStdio)->stdio); in PerlIOStdio_error()
3940 PerlSIO_clearerr(PerlIOSelf(f, PerlIOStdio)->stdio); in PerlIOStdio_clearerr()
3949 PerlSIO_setlinebuf(PerlIOSelf(f, PerlIOStdio)->stdio); in PerlIOStdio_setlinebuf()
3951 PerlSIO_setvbuf(PerlIOSelf(f, PerlIOStdio)->stdio, NULL, _IOLBF, 0); in PerlIOStdio_setlinebuf()
3959 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_get_base() local
3961 return (STDCHAR*)PerlSIO_get_base(stdio); in PerlIOStdio_get_base()
3967 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_get_bufsiz() local
3969 return PerlSIO_get_bufsiz(stdio); in PerlIOStdio_get_bufsiz()
3977 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_get_ptr() local
3979 return (STDCHAR*)PerlSIO_get_ptr(stdio); in PerlIOStdio_get_ptr()
3985 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_get_cnt() local
3987 return PerlSIO_get_cnt(stdio); in PerlIOStdio_get_cnt()
3993 FILE * const stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_set_ptrcnt() local
4009 PerlSIO_set_ptr(stdio, ptr); /* LHS STDCHAR* cast non-portable */ in PerlIOStdio_set_ptrcnt()
4012 assert(PerlSIO_get_cnt(stdio) == (cnt)); in PerlIOStdio_set_ptrcnt()
4028 PerlSIO_set_cnt(stdio, cnt); in PerlIOStdio_set_ptrcnt()
4030 PerlSIO_set_ptr(stdio, in PerlIOStdio_set_ptrcnt()
4031 PerlSIO_get_ptr(stdio) + (PerlSIO_get_cnt(stdio) - in PerlIOStdio_set_ptrcnt()
4044 FILE * stdio; in PerlIOStdio_fill() local
4049 stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIOStdio_fill()
4055 if (PerlSIO_fflush(stdio) != 0) in PerlIOStdio_fill()
4059 c = PerlSIO_fgetc(stdio); in PerlIOStdio_fill()
4062 if (! PerlSIO_ferror(stdio) || errno != EINTR) in PerlIOStdio_fill()
4076 STDCHAR *base = (STDCHAR*)PerlSIO_get_base(stdio); in PerlIOStdio_fill()
4077 SSize_t cnt = PerlSIO_get_cnt(stdio); in PerlIOStdio_fill()
4078 STDCHAR *ptr = (STDCHAR*)PerlSIO_get_ptr(stdio); in PerlIOStdio_fill()
4082 if (PerlSIO_feof(stdio)) in PerlIOStdio_fill()
4083 PerlSIO_clearerr(stdio); in PerlIOStdio_fill()
4100 if (PerlSIO_ungetc(c, stdio) != c) in PerlIOStdio_fill()
4160 FILE *stdio = NULL; in PerlIO_exportFILE() local
4171 stdio = PerlSIO_fdopen(PerlIO_fileno(f), mode); in PerlIO_exportFILE()
4172 if (stdio) { in PerlIO_exportFILE()
4179 s->stdio = stdio; in PerlIO_exportFILE()
4180 PerlIOUnix_refcnt_inc(fileno(stdio)); in PerlIO_exportFILE()
4190 return stdio; in PerlIO_exportFILE()
4198 FILE *stdio; in PerlIO_findFILE() local
4202 return s->stdio; in PerlIO_findFILE()
4213 stdio = PerlIO_exportFILE(f, NULL); in PerlIO_findFILE()
4214 if (stdio) { in PerlIO_findFILE()
4215 const int fd = fileno(stdio); in PerlIO_findFILE()
4219 return stdio; in PerlIO_findFILE()
4230 if (s->stdio == f) { /* not in a loop */ in PerlIO_releaseFILE()
5296 FILE *stdio = PerlIOSelf(f, PerlIOStdio)->stdio; in PerlIO_getname() local
5297 if (!stdio) { in PerlIO_getname()
5298 stdio = PerlIO_exportFILE(f,0); in PerlIO_getname()
5301 if (stdio) { in PerlIO_getname()
5302 name = fgetname(stdio, buf); in PerlIO_getname()
5303 if (exported) PerlIO_releaseFILE(f,stdio); in PerlIO_getname()
5507 FILE * const stdio = PerlSIO_tmpfile(); in PerlIO_tmpfile_flags() local
5509 if (stdio) in PerlIO_tmpfile_flags()
5510 f = PerlIO_fdopen(fileno(stdio), "w+"); in PerlIO_tmpfile_flags()