-- XTransport.mesa

DIRECTORY
  Environment USING [Block];
  
XTransport: DEFINITIONS =
  BEGIN
  
  Object:TYPE = RECORD [
    clientListener:PROCEDURE[h:Handle, client:LONG CARDINAL, swapped:BOOLEAN],
    close:PROCEDURE[h:Handle],
    destroy:PROCEDURE[h:Handle],
    write:PROCEDURE[h:Handle, client:LONG CARDINAL, data:Environment.Block],
    priv:LONG CARDINAL];
    
  Handle:LONG POINTER TO Object;
  
  Init:PROCEDURE;
  
  END.