UNSAFE INTERFACE ThreadInternal;

FROM Ctypes IMPORT int;

<* EXTERNAL ThreadInternal__Poll *>
PROCEDURE Poll(fd: int; read: int(*boolean*); timeout: LONGREAL(*Time.T*)): int(*SchedulerPosix.WaitResult*);

Thin wrapper around poll.

Model a set of integers of arbitrary size?

CONST FDSetSize = BITSIZE(INTEGER);

TYPE FDSet = SET OF [0 .. FDSetSize-1];
     FDS = REF ARRAY OF FDSet;

<* EXTERNAL ThreadInternal__Select *>
PROCEDURE Select(nfds: int; VAR read, write, except: FDSet;
                 timeout: LONGREAL(*Time.T*)): int;

Thin wrapper around select.

<* EXTERNAL ThreadInternal__StackGrowsDown *>
PROCEDURE StackGrowsDown(): int;

END ThreadInternal.