/*------------------------------------------------------------
* Bport fill
*/
static int bport_fill(ScmPort *p, int cnt)
{
bport *data = (bport*)p->src.buf.data;
SCM_ASSERT(data != NULL);
if (SCM_FALSEP(data->fill_proc)) {
return 0; /* indicates EOF */
}
ScmObj vec = Scm_MakeU8VectorFromArrayShared(
cnt, (unsigned char*)p->src.buf.buffer);
ScmObj r = Scm_ApplyRec(data->fill_proc, SCM_LIST1(vec));
if (SCM_INTP(r)) return SCM_INT_VALUE(r);
else if (SCM_EOFP(r)) return 0;
else return -1;
}
/*------------------------------------------------------------
* Bport flush
*/
static int bport_flush(ScmPort *p, int cnt, int forcep)
{
bport *data = (bport*)p->src.buf.data;
ScmObj vec, r;
SCM_ASSERT(data != NULL);
if (SCM_FALSEP(data->flush_proc)) {
return cnt; /* blackhole */
}
vec = Scm_MakeU8VectorFromArrayShared(cnt,
(unsigned char*)p->src.buf.buffer);
r = Scm_ApplyRec(data->flush_proc, SCM_LIST2(vec, SCM_MAKE_BOOL(forcep)));
if (SCM_INTP(r)) return SCM_INT_VALUE(r);
else if (SCM_EOFP(r)) return 0;
else return -1;
}