DEFINITION ChatDaemons

DEFINITION ChatDaemons;

   IMPORT Networks, RelatedEvents, Services;

   TYPE
      ChatDaemon = POINTER TO ChatDaemonRec;
      ChatDaemonRec = RECORD (Services.ObjectRec) END;

   PROCEDURE Create(VAR daemon: ChatDaemon; port: Networks.Address;
		    errors: RelatedEvents.Object) : BOOLEAN;
   PROCEDURE Terminate(daemon: ChatDaemon);

END ChatDaemons.