Specification of package Tgx.Ios.File_Ios.Socket_Ios.Ssl_Socket_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.    === --
 ===                                                                   === --
 ========================================================================= --
with Tgx.System_Ios ;
use  Tgx.System_Ios ;
with Tgx.Openssl ;
use  Tgx.Openssl ;
package Tgx.Ios.File_Ios.Socket_Ios.SSL_Socket_Ios is

    Local declarations usually provided by Tgx.System_Ios
   subtype Port is Tgx.System_Ios.Port;
   subtype Socket_Type is Integer_32;
   Invalid_File : constant := Tgx.Ios.File_Ios.Invalid_File;

   Af_Unspec : Tgx.System_Ios.Socket_Address_Family renames Tgx.System_Ios.Af_Unspec;
   Af_Unix : Tgx.System_Ios.Socket_Address_Family renames Tgx.System_Ios.Af_Unix;
   Af_Inet : Tgx.System_Ios.Socket_Address_Family renames Tgx.System_Ios.Af_Inet;
   function Ip_Name (Host_Name : in String) return String renames Tgx.Ios.File_Ios.Socket_Ios.Ip_Name;
   Ssl_Ip : constant Socket_Protocol := Tgx.Ios.File_Ios.Socket_Ios.Tcp;

   type SSL_Connection is new Socket_Connection with
   record
      Sslst    : SSL;
   end record ;
   type SSL_Socket_Access is access all SSL_Connection'class ;

   procedure Open (This : access SSL_Connection) ;

   procedure Close (This : access SSL_Connection) ;

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

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

   type SSL_Listener is new Service_Connection with null record;
   type Service_Access is access all SSL_Listener'class ;

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

    Returns the URL used by clients to connect to server
   function Url (Server   : access SSL_Listener) return Standard.String ;
   procedure Use_Ip_In_Urls (Mode : in Boolean) ;

end Tgx.Ios.File_Ios.Socket_Ios.SSL_Socket_Ios ;