?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Network Access: Socket Layer External Interface In 2DD' ??
MODULE nam$sk_await_socket_events;

{ PURPOSE:
{   This module contains the Socket Layer external interface that provides the ability
{   to await events on more than one socket.
{ DESIGN:
{   This module contains code that has an execution bracket of 2, 13. It resides on
{   OSF$JOB_TEMPLATE_2DD.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc nat$sk_socket_events
*copyc ost$status
?? POP ??
*copyc nlp$sk_await_socket_events
?? OLDTITLE ??
?? NEWTITLE := '[XDCL, #GATE] nap$sk_await_socket_events', EJECT ??
*copy nah$sk_await_socket_events

  PROCEDURE [XDCL, #GATE] nap$sk_await_socket_events
    (    socket_events: nat$sk_socket_events;
     VAR completed_events: nat$sk_socket_events;
     VAR count: integer;
     VAR status: ost$status);

    count := 0;
    status.normal := TRUE;
    REPEAT
      nlp$sk_await_socket_events (socket_events, completed_events, count, status);
    UNTIL (count > 0) OR (NOT status.normal);

  PROCEND nap$sk_await_socket_events;
?? OLDTITLE ??
MODEND nam$sk_await_socket_events;

