API Reference

type Server

 
   type Server is abstract new Limited_Controlled with private; 
 

Exceptions

   Server_In_Use : exception; 

Raised when an attempt is made to open a server that is already open

   Response_Not_Recognised  : exception; 

this is raised when the server responds with an unknown code or a code that should not be returned for that operation

   Not_Open : exception; 

Raised when an attempt to read or write to a server which hasn't been opened or which has been closed without being reopened. Procedures for inputting and outputting messages to and from a server

procedure Get , procedure Put

   procedure Get (The_Message :    out Message'Class;  
                  The_Server  : in     Server); 
 
   procedure Put (The_Message : in out Message'Class; 
                  The_Server  : in     Server); 
 

function Is_Open , procedure Open , procedure Close , function Host_name

   function Is_Open (The_Server : in Server) return Boolean;  
 
   procedure Open (The_Server : in out Server; 
                   Host_Name  : in     Unbounded_String) is abstract; 
 
   procedure Close (The_Server : in out Server); 
 
   function Host_name (The_Server : in Server) return Unbounded_String;