local_fgetc (SCM port)
{
FILE *s = (FILE *) SCM_STREAM (port);
-#if 0
pre_read (port);
if (feof (s))
return EOF;
else
-#endif
return fgetc (s);
}
char *p; /* pointer to current buffer position */
int limit = 80; /* current size of buffer */
-#if 0
pre_read (port);
-#endif
/* If this is a socket port or something where we can't rely on
ftell to determine how much we've read, then call the generic
{
FILE *fp = (FILE *) SCM_STREAM (port);
-#if 0
pre_write (port);
-#endif
return fputc (c, fp);
}
local_fputs (char *s, SCM port)
{
FILE *fp = (FILE *) SCM_STREAM (port);
-#if 0
pre_write (port);
-#endif
return fputs (s, fp);
}
SCM port)
{
FILE *fp = (FILE *) SCM_STREAM (port);
-#if 0
pre_write (port);
-#endif
return ffwrite (ptr, size, nitems, fp);
}