------------------------------------------------------------------------
--                                                                    --
--        DTraq Data Logging, Monitoring, and Playback                --
--                                                                    --
--           Copyright (C) 2003 McKae Technologies                    --
--                                                                    --
-- DTraq is free  software; you can redistribute it  and/or modify it --
-- under terms of the GNU  General Public License as published by the --
-- Free Software  Foundation; either version  2, or (at  your option) --
-- any later  ver- sion.   DTraq is distributed  in the hope  that it --
-- will be useful, but WITHOUT ANY WARRANTY; without even the implied --
-- warranty of  MERCHANTABILITY or FITNESS FOR  A PARTICULAR PURPOSE. --
-- See the GNU  General Public License for more  details.  You should --
-- have received a copy of the GNU General Public License distributed --
-- with DTraq; see file COPYING.   If not, write to the Free Software --
-- Foundation, 59  Temple Place -  Suite 330, Boston,  MA 02111-1307, --
-- USA.                                                               --
--                                                                    --
-- As a  special exception, if other files  instantiate generics from --
-- this unit,  or you link this  unit with other files  to produce an --
-- executable,  this unit  does  not by  itself  cause the  resulting --
-- executable to be covered by  the GNU General Public License.  This --
-- exception does  not however invalidate  any other reasons  why the --
-- executable file might be covered by the GNU Public License.        --
--                                                                    --
-- DTraq is maintained by McKae Technologies (http://www.dtraq.com).  --
------------------------------------------------------------------------

with Dtraq.Client_Transport_Socket;

package Dtraq.Client_Transport is

   use Dtraq.Client_Transport_Socket;

   -- Exception thrown when a connection could not be made, and the
   -- Continue was set to require a connection in order to continue
   -- executing (Continue = False).
   Connection_Failed : exception
     renames Dtraq.Client_Transport_Socket.Connection_Failed;

   -- Value to use to indicate no reconnection attempt is to be made
   -- if unable to connect or if the connection is lost.
   No_Reconnect : Duration_Interval
     renames Dtraq.Client_Transport_Socket.No_Reconnect;

   -- Define levels of status information to provide
   subtype Verboseness is Dtraq.Client_Transport_Socket.Verboseness;

   -- Connect to the specified Dtraq server
   procedure Connect_To_Server
     (
      -- Host identifier on which the Dtraq server is running
      Host              : in String := "localhost";

      -- Port number on which the Dtraq server is listening
      Port              : in Natural := Default_Data_Port;

      -- Number of times to retry the connection if the initial
      -- attempt fails.
      Retry_Count       : in Natural           := 10;

      -- Interval (in seconds) between reconnect attempts.
      Retry_Interval    : in Duration_Interval := 10.0;

      -- Timeout period to receive downloaded initialization data from
      -- the server
      Initialization_Timeout : in Duration_Interval := 30.0;

      -- Whether to continue execution if a connection to the Dtraq
      -- server cannot be made.
      Continue          : in Boolean           := True;

      -- If the connection is lost, or if the initial connection could
      -- not be made and it was directed to continue execution anyway,
      -- this is the interval to wait before making another connection
      -- attempt.
      Reconnect_Interval : in Duration_Interval := No_Reconnect;

      -- How verbose of status information to provide
      Verbosity         : in Verboseness       := Errors_Only;

      -- File in which to write the status information.
      Error_Log         : in Text_IO.File_Access := Text_IO.Standard_Output)
     renames Dtraq.Client_Transport_Socket.Connect_To_Server;

   -- Break the connection
   procedure Disconnect_From_Server
     renames Dtraq.Client_Transport_Socket.Disconnect_From_Server;

end Dtraq.Client_Transport;