Specification of package Tgx.Ios.Memory_Ios_Eorb

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 1996, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= -- ;

with Tgx.Shared_Memory_Eorb ;
package Tgx.Ios.Memory_Ios_Eorb is
   subtype Service_Name is Standard.String (1 .. 3) ;
   Null_Service_Name : constant Service_Name := "   " ;

   type Memory_Connection is new Io_Connection with
   record
      Shm_Id    : Tgx.Shared_Memory_Eorb.Memory_Id := 0 ;
      Server_Id : Tgx.Shared_Memory_Eorb.Process_Id := 0 ;  the server Pid
      Area      : Tgx.Shared_Memory_Eorb.Description ;
   end record ;

   type Memory_Access is access all Memory_Connection'class ;

   procedure Open (This : access Memory_Connection) ;

   procedure Close (This : access Memory_Connection) ;

   function Is_Alive (This : access Memory_Connection) return Boolean ;

   procedure Read ( This   : access Memory_Connection ;
                    Buffer : in System.Address ;
                    Number : in out Natural) ;

   procedure Write ( This   : access Memory_Connection ;
                     Buffer : in System.Address ;
                     Number : in Natural) ;

   function Bytes_Per_Io_Unit (This : access Memory_Connection)
      return Natural ;

   function Amount_Readable (This : access Memory_Connection)
      return Natural ;

    Returns the URL indicating the sending client
   function Url (Client   : access Memory_Connection)
      return Standard.String ;

   type Service_Connection is new Io_Server with
   record
       Server_Id : Tgx.Shared_Memory_Eorb.Process_Id ;
      Shm_Id    : Tgx.Shared_Memory_Eorb.Memory_Id ;
      Area      : Tgx.Shared_Memory_Eorb.Description ;
   end record ;
   type Service_Access is access all Service_Connection'class ;

   procedure Open (This : access Service_Connection) ;

   procedure Close (This : access Service_Connection) ;

   procedure New_Connection ( Server   : access Service_Connection ;
                              No_Guard : in Boolean := True; 
                              Result   : in out Io_Connection_Access);

   function Url (Server : access Service_Connection) return Standard.String ;
end Tgx.Ios.Memory_Ios_Eorb ;