//===========================================================================//
// File:	l4host.cpp                                                          //
// Project: MUNGA           Brick: Connection Library                        //
// Contents: additional L4 data types and functions for hosts                //
//---------------------------------------------------------------------------//
//   Date    Who  Modification                                               //
// --------  ---  ---------------------------------------------------------- //
// 04/09/95  GAC  Initial coding.                                            //
//---------------------------------------------------------------------------//
// Copyright (C) 1994-1995, Virtual World Entertainment, Inc.                //
// All Rights reserved worldwide                                             //
// This unpublished sourcecode is PROPRIETARY and CONFIDENTIAL               //
//===========================================================================//

#include <mungal4.hpp>
#pragma hdrstop

#if !defined(L4HOST_HPP)
#	include	<l4host.hpp>
#endif

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Constructor for l4host
//
L4Host::L4Host(
	HostID			host_ID,
	HostType			host_type,
	NetworkAddress network_address,
	unsigned long	network_socket,
	const CString	&net_name):
	Host(
		host_ID,
		host_type,
		network_address),
	SymbolicName(net_name)
{
	NetworkSocket	=	network_socket;
	// ConnectStatus	=	NoNetworkConnectionStatus;
	pad_head			=	0;
	pad_tail			=	0;
	pad_size			=	L4HOST_PAD_BUFFER_SIZE;
	#if defined(TRACE_SEND_BUFFER)
	sprintf(sendBufferTraceName,"Send Buffer %d",network_address&0xff);
	sendBufferTrace =
		new TraceOf<int>(
			sendBufferTraceName,
			0,
			Trace::IntegerType,
			TraceSample::IntegerSnapshot
			);
	Register_Object(sendBufferTrace);
	sendBufferTrace->TakeSnapshot(4096);
	#endif
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Destructor for l4host
//
L4Host::~L4Host()
{
}