513 |
return 1; |
return 1; |
514 |
} |
} |
515 |
|
|
516 |
|
#ifndef __MINGW32__ |
517 |
/* thread-local block for input on fport's fdes. */ |
/* thread-local block for input on fport's fdes. */ |
518 |
static void |
static void |
519 |
fport_wait_for_input (SCM port) |
fport_wait_for_input (SCM port) |
538 |
while (n == -1 && errno == EINTR); |
while (n == -1 && errno == EINTR); |
539 |
} |
} |
540 |
} |
} |
541 |
|
#endif /* !__MINGW32__ */ |
542 |
|
|
543 |
static void fport_flush (SCM port); |
static void fport_flush (SCM port); |
544 |
|
|
551 |
scm_t_port *pt = SCM_PTAB_ENTRY (port); |
scm_t_port *pt = SCM_PTAB_ENTRY (port); |
552 |
scm_t_fport *fp = SCM_FSTREAM (port); |
scm_t_fport *fp = SCM_FSTREAM (port); |
553 |
|
|
554 |
|
#ifndef __MINGW32__ |
555 |
fport_wait_for_input (port); |
fport_wait_for_input (port); |
556 |
|
#endif /* !__MINGW32__ */ |
557 |
SCM_SYSCALL (count = read (fp->fdes, pt->read_buf, pt->read_buf_size)); |
SCM_SYSCALL (count = read (fp->fdes, pt->read_buf, pt->read_buf_size)); |
558 |
if (count == -1) |
if (count == -1) |
559 |
scm_syserror ("fport_fill_input"); |
scm_syserror ("fport_fill_input"); |