9 typedef FILE * InputStream;
10 typedef FILE * OutputStream;
16 croak("%s not implemented on this architecture", s);
27 if (strEQ(name, "_IOFBF"))
29 { *pval = _IOFBF; return TRUE; }
33 if (strEQ(name, "_IOLBF"))
35 { *pval = _IOLBF; return TRUE; }
39 if (strEQ(name, "_IONBF"))
41 { *pval = _IONBF; return TRUE; }
47 if (strEQ(name, "SEEK_SET"))
49 { *pval = SEEK_SET; return TRUE; }
53 if (strEQ(name, "SEEK_CUR"))
55 { *pval = SEEK_CUR; return TRUE; }
59 if (strEQ(name, "SEEK_END"))
61 { *pval = SEEK_END; return TRUE; }
65 if (strEQ(name, "SEEK_EOF"))
67 { *pval = SEEK_EOF; return TRUE; }
78 MODULE = IO PACKAGE = IO::Seekable PREFIX = f
87 fgetpos(handle, &pos);
88 ST(0) = sv_2mortal(newSVpv((char*)&pos, sizeof(Fpos_t)));
95 ST(0) = (SV *) not_here("IO::Seekable::fgetpos");
105 RETVAL = fsetpos(handle, (Fpos_t*)SvPVX(pos));
111 RETVAL = (SysRet) not_here("IO::Seekable::fsetpos");
116 MODULE = IO PACKAGE = IO::File PREFIX = f
119 new_tmpfile(packname = "IO::File")
126 MODULE = IO PACKAGE = IO::Handle PREFIX = f
133 if (constant(name, &i))
134 ST(0) = sv_2mortal(newSViv(i));
144 RETVAL = ungetc(c, handle);
157 RETVAL = ferror(handle);
170 RETVAL = Fflush(handle);
181 char * buf = SvPOK(ST(1)) ? sv_grow(ST(1), BUFSIZ) : 0;
189 setvbuf(handle, buf, type, size)
191 char * buf = SvPOK(ST(1)) ? sv_grow(ST(1), SvIV(ST(3))) : 0;
195 #ifdef _IOFBF /* Should be HAS_SETVBUF once Configure tests for that */
197 RETVAL = setvbuf(handle, buf, type, size);
203 RETVAL = (SysRet) not_here("IO::Handle::setvbuf");