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

142 lines
3.3 KiB
C++

//=======================================================================//
// File: debug1on.hpp //
// Project: Architecture //
// Author: J.M. Albertson //
// 4-12-95 CPB added Str_Cat macro //
//-----------------------------------------------------------------------//
// Copyright (C) 1994, Virtual World Entertainments, All Rights reserved //
// PROPRIETARY AND CONFIDENTIAL //
//=======================================================================//
#if !defined(OLD_DEBUG_LEVEL)
# define OLD_DEBUG_LEVEL 1
#else
# undef OLD_DEBUG_LEVEL
# if DEBUG_LEVEL>=3
# define OLD_DEBUG_LEVEL 3
# elif DEBUG_LEVEL==1
# define OLD_DEBUG_LEVEL 1
# elif DEBUG_LEVEL==0
# define OLD_DEBUG_LEVEL 0
# endif
#endif
#undef DEBUG_LEVEL
#undef Verify
#undef Verify_And_Dump
#undef Dump
#undef Tell
#undef Warn
#undef Warn_And_Dump
#undef Check_Signature
#undef Check_Pointer
#undef Check
#undef Check_Fpu
#undef Fail
#undef Cast_Object
#undef DEBUG_CODE
#undef Mem_Copy
#undef Str_Copy
#undef Str_Cat
#undef Sqrt
#undef Arctan
#undef Arccos
#undef Arcsin
#define DEBUG_LEVEL 1
#define DEBUG_CODE(x) { x }
#define Dump(v)\
(DEBUG_STREAM << __FILE__ "(" << __LINE__ << "): "#v" = " << (v) << endl << flush)
#define Verify(c)\
if (!(c)) {\
Verify_Failed(#c,__FILE__,__LINE__);\
}
#define Verify_And_Dump(c,v)\
if (!(c)) {\
DEBUG_STREAM << __FILE__ "(" << __LINE__ << "): "#v" = " << (v) << endl;\
Verify_Failed(#c,__FILE__,__LINE__);\
}
#define Warn(c)\
if (c) {\
DEBUG_STREAM << __FILE__"(" << __LINE__ << "): Warning -> "#c"\n" << flush;\
}
#define Warn_And_Dump(c,v)\
if (c) {\
DEBUG_STREAM << __FILE__ "(" << __LINE__ << "): "#v" = " << (v) << endl;\
DEBUG_STREAM << __FILE__"(" << __LINE__ << "): Warning -> "#c"\n" << flush;\
}
#define Tell(m)\
(DEBUG_STREAM << m << flush)
#define Check_Pointer(p) Verify(p)
#define Check_Fpu() Verify(Fpu_Ok())
#define Mem_Copy(destination, source, length, available)\
{\
Check_Pointer(destination);\
Check_Pointer(source);\
memcpy(destination, source, length);\
}
#define Str_Copy(destination, source, available)\
{\
Check_Pointer(destination);\
Check_Pointer(source);\
strcpy(destination, source);\
}
#define Str_Cat(destination, source, available)\
{\
Check_Pointer(destination);\
Check_Pointer(source);\
strcat(destination, source);\
}
#define Sqrt(value)\
((value>=0.0f) ? sqrt(value) : (Fail("Bad parameter to sqrt"),0.0f))
#define Arctan(y,x)\
(\
(!Small_Enough(y) || !Small_Enough(x))\
? atan2((y),(x)) :\
(Fail("Zero Arctan!"),0.0f)\
)
#define Arccos(x)\
(\
((x)>=-1.0f && (x)<=1.0f)\
? acos(x) :\
(Fail("Out of range Arccos!"),0.0f)\
)
#define Arcsin(x)\
(\
((x)>=-1.0f && (x)<=1.0f)\
? asin(x) :\
(Fail("Out of range Arcsin!"),0.0f)\
)
#define Power(x,y)\
(\
((x)<0.0f)\
? (Fail("Out of range Power!"),0.0f) :\
pow(x,y)\
)
#define Check_Signature(p) Check_Pointer(p)
#define Check(p) Check_Pointer(p)
#define Fail(m)\
Fail_To_Debugger(m,__FILE__,__LINE__)
#define Cast_Object(type, ptr) ((type)(ptr))