3 * Copyright (c) 1996, Nick Ing-Simmons
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
13 #define PERLIO_NOT_STDIO 0
14 #if !defined(PERLIO_IS_STDIO) && !defined(USE_SFIO)
18 * This file provides those parts of PerlIO abstraction
19 * which are not #defined in perlio.h.
20 * Which these are depends on various Configure #ifdef's
26 #ifdef PERLIO_IS_STDIO
31 /* Does nothing (yet) except force this file to be included
32 in perl binary. That allows this file to force inclusion
33 of other functions that may be required by loadable
34 extensions e.g. for FileHandle::tmpfile
45 #else /* PERLIO_IS_STDIO */
52 /* This section is just to make sure these functions
53 get pulled in from libsfio.a
66 /* Force this file to be included in perl binary. Which allows
67 * this file to force inclusion of other functions that may be
68 * required by loadable extensions e.g. for FileHandle::tmpfile
72 * sfio does its own 'autoflush' on stdout in common cases.
73 * Flush results in a lot of lseek()s to regular files and
74 * lot of small writes to pipes.
76 sfset(sfstdout,SF_SHARE,0);
81 /* Implement all the PerlIO interface using stdio.
82 - this should be only file to include <stdio.h>
89 return (PerlIO *) stderr;
96 return (PerlIO *) stdin;
103 return (PerlIO *) stdout;
106 #undef PerlIO_fast_gets
111 #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) && defined(STDIO_CNT_LVALUE)
118 #undef PerlIO_has_cntptr
123 #if defined(USE_STDIO_PTR)
130 #undef PerlIO_canset_cnt
135 #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE)
142 #undef PerlIO_set_cnt
144 PerlIO_set_cnt(f,cnt)
149 warn("Setting cnt to %d\n",cnt);
150 #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE)
153 croak("Cannot set 'cnt' of FILE * on this system");
157 #undef PerlIO_set_ptrcnt
159 PerlIO_set_ptrcnt(f,ptr,cnt)
165 char *e = (char *)(FILE_base(f) + FILE_bufsiz(f));
168 warn("Setting ptr %p > base %p\n",ptr, FILE_base(f)+FILE_bufsiz(f));
170 warn("Setting cnt to %d, ptr implies %d\n",cnt,ec);
172 #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE)
173 FILE_ptr(f) = (STDCHAR *) ptr;
175 croak("Cannot set 'ptr' of FILE * on this system");
177 #if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE)
180 croak("Cannot set 'cnt' of FILE * on this system");
184 #undef PerlIO_get_cnt
192 croak("Cannot get 'cnt' of FILE * on this system");
197 #undef PerlIO_get_bufsiz
203 return FILE_bufsiz(f);
205 croak("Cannot get 'bufsiz' of FILE * on this system");
210 #undef PerlIO_get_ptr
216 return (char *) FILE_ptr(f);
218 croak("Cannot get 'ptr' of FILE * on this system");
223 #undef PerlIO_get_base
229 return (char *) FILE_base(f);
231 croak("Cannot get 'base' of FILE * on this system");
236 #undef PerlIO_has_base
259 PerlIO_open(path,mode)
263 return fopen(path,mode);
268 PerlIO_fdopen(fd,mode)
272 return fdopen(fd,mode);
308 #undef PerlIO_clearerr
332 #undef PerlIO_setlinebuf
337 #ifdef HAS_SETLINEBUF
340 setvbuf(f, Nullch, _IOLBF, 0);
364 PerlIO_read(f,buf,count)
369 return fread(buf,1,count,f);
374 PerlIO_write(f,buf,count)
379 return fwrite1(buf,1,count,f);
382 #undef PerlIO_vprintf
384 PerlIO_vprintf(f,fmt,ap)
389 return vfprintf(f,fmt,ap);
403 PerlIO_seek(f,offset,whence)
408 return fseek(f,offset,whence);
422 PerlIO_printf(PerlIO *f,const char *fmt,...)
424 PerlIO_printf(f,fmt,va_alist)
437 result = vfprintf(f,fmt,ap);
442 #undef PerlIO_stdoutf
445 PerlIO_stdoutf(const char *fmt,...)
447 PerlIO_stdoutf(fmt, va_alist)
459 result = PerlIO_vprintf(PerlIO_stdout(),fmt,ap);
464 #undef PerlIO_tmpfile
471 #undef PerlIO_importFILE
473 PerlIO_importFILE(f,fl)
480 #undef PerlIO_exportFILE
482 PerlIO_exportFILE(f,fl)
489 #undef PerlIO_findFILE
497 #undef PerlIO_releaseFILE
499 PerlIO_releaseFILE(p,f)
508 /* Does nothing (yet) except force this file to be included
509 in perl binary. That allows this file to force inclusion
510 of other functions that may be required by loadable
511 extensions e.g. for FileHandle::tmpfile
515 #endif /* USE_SFIO */
516 #endif /* PERLIO_IS_STDIO */
525 return PerlIO_seek(f,*pos,0);
528 #ifndef PERLIO_IS_STDIO
535 return fsetpos(f, pos);
547 *pos = PerlIO_tell(f);
551 #ifndef PERLIO_IS_STDIO
558 return fgetpos(f, pos);
563 #if (defined(PERLIO_IS_STDIO) || !defined(USE_SFIO)) && !defined(HAS_VPRINTF)
566 vprintf(fd, pat, args)
570 _doprnt(pat, args, fd);
571 return 0; /* wrong, but perl doesn't use the return value */
576 #ifndef PerlIO_vsprintf
578 PerlIO_vsprintf(s,n,fmt,ap)
584 int val = vsprintf(s, fmt, ap);
589 PerlIO_puts(PerlIO_stderr(),"panic: sprintf overflow - memory corrupted!\n");
597 #ifndef PerlIO_sprintf
600 PerlIO_sprintf(char *s, int n, const char *fmt,...)
602 PerlIO_sprintf(s, n, fmt, va_alist)
616 result = PerlIO_vsprintf(s, n, fmt, ap);