msg_t *
OS2_receive_message (qid_t qid, int blockp, int interruptp)
{
tqueue_t * tqueue = (QID_TQUEUE (qid));
msg_t * message;
if (tqueue == 0)
{
if ((OS2_current_tid ()) != OS2_scheme_tid)
/* This behavior is a little random, but it's based on the
idea that if an inferior thread is reading from a closed
channel, this is due to a race condition, and the fact that
the channel is closed means that the thread is no longer
needed. So far this has only happened under one
circumstance, and in that case, this is the correct action. */
OS2_endthread ();
else
OS2_error_anonymous ();
}
while (1)
{
while ((read_tqueue (tqueue, 0)) != 0)
;
if ((TQUEUE_TYPE (tqueue)) == tqt_scm)
{
process_interrupt_messages ();
if (interruptp)
deliver_pending_interrupts ();
}
message = (read_subqueue (qid));
if ((!blockp) || (message != 0))
break;
(void) read_tqueue (tqueue, 1);
}
return (message);
}
void
OS_file_set_position (Tchannel channel, off_t position)
{
if ((set_file_pointer (channel, FILE_BEGIN, position)) != position)
OS2_error_anonymous ();
}