Files
CydandClaude Fable 5 fdd9ac9d97 Initial import: Tesla Release 4.10 (Tesla:BattleTech & Tesla:Red Planet)
Archival snapshot of the Virtual World Entertainment Tesla cockpit
software, 1994-1996: MUNGA engine and L4 pod layer source (Borland
C++ 5.0), BT/RP game code, and game content (models, audio, maps,
gauges, Division renderer data). Includes third-party libraries:
Division dVS/DPL graphics, HMI SOS audio, WATTCP networking.

Files are preserved byte-for-byte (.gitattributes disables all
line-ending conversion). README.md documents the layout, target
hardware, and toolchain.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-02 13:21:58 -05:00

225 lines
5.7 KiB
C++

//===========================================================================//
// File: watcher.cc //
// Project: MUNGA Brick: Watcher //
// Contents: //
//---------------------------------------------------------------------------//
// Date Who Modification //
// -------- --- ---------------------------------------------------------- //
// 12/14/94 ECH Initial coding. //
//---------------------------------------------------------------------------//
// Copyright (C) 1994-1995, Virtual World Entertainment, Inc. //
// All Rights reserved worldwide //
// This unpublished sourcecode is PROPRIETARY and CONFIDENTIAL //
//===========================================================================//
#include <munga.hpp>
#pragma hdrstop
#if !defined(WATCHER_HPP)
# include <watcher.hpp>
#endif
#if !defined(ENTITY_HPP)
#include <entity.hpp>
#endif
#if !defined(CSTR_HPP)
#include <cstr.hpp>
#endif
#if !defined(OBJSTRM_HPP)
#include <objstrm.hpp>
#endif
#if !defined(NAMELIST_HPP)
#include <namelist.hpp>
#endif
#if !defined(SUBSYSTM_HPP)
#include <subsystm.hpp>
#endif
//#############################################################################
//########################## AttributeWatcher ###########################
//#############################################################################
//
//#############################################################################
//#############################################################################
//
AttributeWatcher::~AttributeWatcher()
{
}
//
//#############################################################################
//#############################################################################
//
AttributeWatcher::AttributeWatcher(
PlugStream *stream,
Entity *entity
):
Component(stream)
{
Check(stream);
Check(entity);
#if 0
//
// Get attribute ptr
//
int subsystem_ID;
DynamicMemoryStream_Read(stream, &subsystem_ID);
Simulation *simulation;
if ((simulation = entity->GetSubsystem(subsystem_ID)) == NULL)
{
simulation = entity;
}
Check(simulation);
Simulation::AttributeID attribute_ID;
DynamicMemoryStream_Read(stream, &attribute_ID);
attributePointer = simulation->GetAttributePointer(attribute_ID);
Check_Pointer(attributePointer);
#else
//
// HACK - Get attribute pointer using names
//
CString subsystem_name;
*stream >> subsystem_name;
if ((simulation = entity->FindSubsystem(subsystem_name)) == NULL)
{
#if DEBUG_LEVEL>0
{
CString entity_name("Entity");
if (!(subsystem_name == entity_name))
{
Dump(subsystem_name);
}
Verify(subsystem_name == entity_name);
}
#else
{
CString entity_name("Entity");
if (!(subsystem_name == entity_name))
{
DEBUG_STREAM <<
"AttributeWatcher::AttributeWatcher - subsystem " <<
subsystem_name <<
"\n";
Fail("AttributeWatcher::AttributeWatcher - subsystem not found\n");
}
}
#endif
simulation = entity;
}
Check(simulation);
CString attribute_name;
*stream >> attribute_name;
#if DEBUG_LEVEL>2
Tell("AttributeWatcher::AttributeWatcher - " << attribute_name << "\n");
#endif
attributePointer = simulation->GetAttributePointer(attribute_name);
#if DEBUG_LEVEL>0
if (attributePointer == NULL)
{
Dump(attribute_name);
}
#else
if (attributePointer == NULL)
{
DEBUG_STREAM <<
"AttributeWatcher::AttributeWatcher - attribute " <<
attribute_name <<
"\n";
Fail("AttributeWatcher::AttributeWatcher - attribute not found\n");
}
#endif
Check_Pointer(attributePointer);
#endif
//
// Get other fields
//
*stream >> sendNotificationOnChange;
attributeChanged = False;
}
//
//#############################################################################
// BuildFromPage
//#############################################################################
//
void
AttributeWatcher::BuildFromPage(
PlugStream *stream,
NameList *name_list,
ClassID class_ID,
ObjectID object_ID
)
{
Component::BuildFromPage(stream, name_list, class_ID, object_ID);
//
// HACK - Store attribute pointer using names
//
MEM_STRM_WRITE_ENTRY(*stream, name_list, CString, subsystem);
MEM_STRM_WRITE_ENTRY(*stream, name_list, CString, attribute);
//
// Store other fields
//
Logical send_notification_on_change = True;
*stream << send_notification_on_change;
}
//
//#############################################################################
//#############################################################################
//
Logical
AttributeWatcher::TestInstance() const
{
Component::TestInstance();
Check(simulation);
Check_Pointer(attributePointer);
return True;
}
//
//#############################################################################
//#############################################################################
//
Logical
AttributeWatcher::DidAttributeChange()
{
if (attributeChanged)
{
attributeChanged = False;
return True;
}
return False;
}
//
//#############################################################################
//#############################################################################
//
void
AttributeWatcher::SendNotificationOfChange()
{
Fail("AttributeWatcher::SendNotificationOfChange - Should never reach here");
}
#ifdef TEST_CLASS
# include "watcher.tcp"
#endif