INTERFACE TCPServer;

IMPORT Thread, Time, IP;

TYPE
  T <: REFANY;

TYPE
  RequestHandler = PROCEDURE (t: T;  request: TEXT): TEXT
                      RAISES {Thread.Alerted};

TYPE
  Refresher = PROCEDURE (t: T) RAISES {Thread.Alerted};

TYPE
  ErrorLogger = PROCEDURE (x: TEXT);

PROCEDURE Fork (socket    : CARDINAL;
                n_threads : CARDINAL;
                handler   : RequestHandler;
                refresher : Refresher;
                refresh_interval: Time.T;
                err_log   : ErrorLogger;
                address   : IP.Address := IP.NullAddress;
                maskBits  : [0 .. 32] := 0): T;

PROCEDURE Join (t: T);
PROCEDURE Abort (t: T);

END TCPServer.