Specification of package Tgx.Ios.File_Ios

 ========================================================================= --
 ===                                                                   === --
 ===                 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.    === --
 ===                                                                   === --
 ========================================================================= --

 modif_{0} : JM : 04/02/02 : added for Miop


with Tgx.System_Ios ;
package Tgx.Ios.File_Ios is
   Invalid_File : constant := -1 ;

   type File_Connection is abstract new Io_Connection with
   record
      Fd        : Tgx.System_Ios.Handle := Invalid_File ;
      Fd_Bit    : Tgx.System_Ios.Descriptor ;
      Test      : Boolean := True ;
   end record ;

   type File_Access is access all File_Connection'class ;

   procedure Open (This : access File_Connection) ;

   procedure Close (This : access File_Connection) ;

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

   function Low_Level_Read ( This   : access File_Connection ;
                             The_Address : in System.Address ;
                             Pending  : in Tgx.System_Ios.Integer_32 ) return Tgx.System_Ios.Integer_32;                    

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

   function Low_Level_Write ( This   : access File_Connection ;
                              Next_Address : in System.Address ;
                              Remaining  : in Tgx.System_Ios.Integer_32 ) return Tgx.System_Ios.Integer_32;

   function Bytes_Per_Io_Unit (This : access File_Connection) return Natural ;

   function Amount_Readable (This : access File_Connection) return Natural ;

   type File_Server is abstract new Io_Server with
   record
      Fd        : Tgx.System_Ios.Handle := Invalid_File ;
      Fd_Bit    : Tgx.System_Ios.Descriptor ;
   end record ;

   type File_Server_Access is access all File_Server'class ;

   procedure Open (This : access File_Server) ;

   procedure Close (This : access File_Server) ;

    modif_{0} : JM : 04/02/02 : added for Miop
  
   { Reception class
   
   type File_Datagram_Reception is abstract new Io_Datagram_Reception with
   record
      Fd        : Tgx.System_Ios.Handle := Invalid_File ;
      Fd_Bit    : Tgx.System_Ios.Descriptor ;
      Test      : Boolean := False ;
   end record ;

   type File_Datagram_Reception_Access is access all File_Datagram_Reception'class ;

   procedure Open (This : access File_Datagram_Reception ) ;

   procedure Close (This : access File_Datagram_Reception ) ;

   procedure Read ( This   : access File_Datagram_Reception ;
                    Buffer : in System.Address ;
                    Number : in out Natural ) ;
   
    write inherited (raises a Bad service exception)
 
   function Bytes_Per_Io_Unit (This : access File_Datagram_Reception ) return Natural ;

   function Amount_Readable (This : access File_Datagram_Reception ) return Natural ;

   } Reception class

    end_{0}
   
private
   procedure Wait_For_Read (This : access File_Server) ;
end Tgx.Ios.File_Ios ;