*/
}
+#undef PerlIO_tmpfile
+PerlIO *
+PerlIO_tmpfile()
+{
+ return tmpfile();
+}
+
#else /* PERLIO_IS_STDIO */
#ifdef USE_SFIO
return (PerlIO *) stdout;
}
-#ifdef HAS_SETLINEBUF
-extern void setlinebuf _((FILE *iop));
-#endif
-
#undef PerlIO_fast_gets
int
PerlIO_fast_gets(f)
char *ptr;
int cnt;
{
+#ifdef FILE_bufsiz
char *e = (char *)(FILE_base(f) + FILE_bufsiz(f));
int ec = e - ptr;
if (ptr > e)
warn("Setting ptr %p > base %p\n",ptr, FILE_base(f)+FILE_bufsiz(f));
if (cnt != ec)
warn("Setting cnt to %d, ptr implies %d\n",cnt,ec);
+#endif
#if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE)
FILE_ptr(f) = (STDCHAR *) ptr;
#else
return fdopen(fd,mode);
}
+#undef PerlIO_reopen
+PerlIO *
+PerlIO_reopen(fd,mode)
+char *name;
+char *mode;
+PerlIO *f;
+const char *mode;
+{
+ return freopen(name,mode,f);
+}
#undef PerlIO_close
int
return feof(f);
}
+#undef PerlIO_getname
+char *
+PerlIO_getname(f,buf)
+PerlIO *f;
+char *buf;
+{
+#ifdef VMS
+ return fgetname(f,buf);
+#else
+ croak("Don't know how to get file name");
+#endif
+}
+
#undef PerlIO_getc
int
PerlIO_getc(f)
{
return PerlIO_seek(f,*pos,0);
}
+#else
+#ifndef PERLIO_IS_STDIO
+#undef PerlIO_setpos
+int
+PerlIO_setpos(f,pos)
+PerlIO *f;
+const Fpos_t *pos;
+{
+ return fsetpos(f, pos);
+}
+#endif
#endif
#ifndef HAS_FGETPOS
*pos = PerlIO_tell(f);
return 0;
}
+#else
+#ifndef PERLIO_IS_STDIO
+#undef PerlIO_getpos
+int
+PerlIO_getpos(f,pos)
+PerlIO *f;
+Fpos_t *pos;
+{
+ return fgetpos(f, pos);
+}
+#endif
#endif
#if (defined(PERLIO_IS_STDIO) || !defined(USE_SFIO)) && !defined(HAS_VPRINTF)
int val = vsprintf(s, fmt, ap);
if (n >= 0)
{
- if (strlen(s) >= n)
+ if (strlen(s) >= (STRLEN)n)
{
PerlIO_puts(PerlIO_stderr(),"panic: sprintf overflow - memory corrupted!\n");
my_exit(1);