CydandClaude Fable 5
63312e07f9
- BORLAND/: Borland C++ 4.52 (chosen over 4.5 by byte-match: CODE/RP/CW32.LIB
is identical to 4.52's install lib). BCC32/TLINK32/TLIB/MAKE run natively on
Win11; CODE/BT/OPT.MAK is the shipped BTL4OPT.EXE's exact flag recipe
(extender = Borland PowerPack DPMI32, not Phar Lap TNT).
- restoration/source410/: the literal 1995-form reconstruction of the missing
BT game source (never mixed into CODE/). Round 1-3 state:
* 6 of 10 surviving original TUs COMPILE CLEAN under the period toolchain
(BTMSSN, BTCNSL, BTSCNRL, BTTEAM, BTL4MODE, BTL4ARND) - first builds
since 1996.
* BT_L4/BTL4APP.CPP pilot reconstruction: 12/12 functions, Fail() lands on
its binary-recorded line 400 exactly.
* BT/BTCNSL.HPP: console wire IDs recovered from the binary's ctors
(Killed=9, Damaged=10, ScoreUpdate=13, DeathWithoutHonor=15 [T1];
TeamScore=12 flagged [T4]).
* MUNGA/: 8 engine-header backfills back-dated from the BT412 WinTesla tree
(VDATA numbering decomp-verified; AUDREND's OpenAL-era virtual removed -
the period compiler is the drift detector).
* Tooling: backdate.py (WinTesla->1995 header transform), compile410.sh
(per-TU verification sweep under authentic OPT.MAK flags).
* README: corrected roadmap - MECH.HPP is the capstone grown with the mech
TU reconstructions; BTREG.CPP green = the header-family milestone.
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
157 lines
4.9 KiB
C++
157 lines
4.9 KiB
C++
/*------------------------------------------------------------------------*/
|
|
/* */
|
|
/* STREAMBL.H */
|
|
/* */
|
|
/* Copyright (c) 1992, 1994 Borland International */
|
|
/* All Rights Reserved */
|
|
/* */
|
|
/* Class definitions for object streaming */
|
|
/* */
|
|
/* */
|
|
/* +----------------+ +-------------+ */
|
|
/* |TStreamableTypes| |ObjectBuilder| */
|
|
/* +--+----------+--+ +-------------+ */
|
|
/* |class name| | BUILDER | */
|
|
/* +----------+ | delta | */
|
|
/* | +-------------+ */
|
|
/* | | */
|
|
/* | /\ */
|
|
/* | +-------- */
|
|
/* | | */
|
|
/* | | */
|
|
/* +----------------+ */
|
|
/* |TStreamableClass| */
|
|
/* +----------------+ */
|
|
/* | Module ID | */
|
|
/* +----------------+ */
|
|
/* */
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
#if !defined( CLASSLIB_STREAMBL_H )
|
|
#define CLASSLIB_STREAMBL_H
|
|
|
|
#if !defined( __STRING_H )
|
|
#include <string.h>
|
|
#endif
|
|
|
|
#if !defined( CLASSLIB_DEFS_H )
|
|
#include <classlib/defs.h>
|
|
#endif
|
|
|
|
#if defined(_FASTTHIS)
|
|
# define _BIDSFASTTHIS __fastthis
|
|
#else
|
|
# define _BIDSFASTTHIS
|
|
#endif
|
|
|
|
#if !defined( CLASSLIB_VECTIMP_H )
|
|
#include "classlib\vectimp.h"
|
|
#endif
|
|
|
|
#if defined( BI_CLASSLIB_NO_po )
|
|
#pragma option -po-
|
|
#endif
|
|
|
|
#if defined( BI_PLAT_MSW ) && !defined( __WINDOWS_H )
|
|
#include <windows.h>
|
|
#endif
|
|
|
|
#if defined( BI_NO_PER_INSTANCE_DATA ) && defined(_BIDSDLL)
|
|
|
|
extern HINSTANCE _hInstance;
|
|
typedef unsigned ModuleId;
|
|
inline ModuleId GetModuleId() { return (unsigned)_hInstance; }
|
|
|
|
#else
|
|
|
|
typedef unsigned ModuleId;
|
|
inline ModuleId GetModuleId() { return 1; }
|
|
|
|
#endif
|
|
|
|
class _BIDSCLASS _BIDSFASTTHIS _RTTI TStreamer;
|
|
class _BIDSCLASS _BIDSFASTTHIS _RTTI TStreamableBase;
|
|
|
|
typedef TStreamer *(* BUILDER)( TStreamableBase * );
|
|
|
|
struct _BIDSCLASS ObjectBuilder
|
|
{
|
|
|
|
enum { NoDelta = -1 };
|
|
|
|
_BIDSENTRY ObjectBuilder( BUILDER b, int d ) : Builder( b ), Delta( d )
|
|
{
|
|
}
|
|
|
|
BUILDER Builder;
|
|
int Delta;
|
|
|
|
};
|
|
|
|
#define __DELTA( d ) (FP_OFF((TStreamable *)(d *)1)-1)
|
|
|
|
class _BIDSCLASS TStreamableClass : public ObjectBuilder
|
|
{
|
|
|
|
public:
|
|
|
|
_BIDSENTRY TStreamableClass( const char *n,
|
|
BUILDER b,
|
|
int d = NoDelta,
|
|
ModuleId mid = GetModuleId() );
|
|
|
|
_BIDSENTRY ~TStreamableClass();
|
|
|
|
int _BIDSENTRY operator == ( const TStreamableClass& n ) const
|
|
{
|
|
if( strcmp( ObjectId, n.ObjectId ) != 0 )
|
|
return 0;
|
|
else
|
|
return (ModId == 0 || n.ModId == 0 || ModId == n.ModId);
|
|
}
|
|
|
|
int _BIDSENTRY operator < ( const TStreamableClass& n ) const
|
|
{
|
|
int res = strcmp( ObjectId, n.ObjectId );
|
|
if( res < 0 )
|
|
return 1;
|
|
else if( res > 0 )
|
|
return 0;
|
|
else if( ModId == 0 || n.ModId == 0 || ModId == n.ModId )
|
|
return 0;
|
|
else
|
|
return ModId < n.ModId;
|
|
}
|
|
|
|
private:
|
|
|
|
const char *ObjectId;
|
|
ModuleId ModId;
|
|
|
|
};
|
|
|
|
class _BIDSCLASS TStreamableTypes
|
|
{
|
|
|
|
public:
|
|
|
|
_BIDSENTRY TStreamableTypes() : Types( 5, 5 ) {}
|
|
|
|
void _BIDSENTRY RegisterType( ModuleId id, TStreamableClass& );
|
|
void _BIDSENTRY UnRegisterType( ModuleId id, TStreamableClass& );
|
|
const ObjectBuilder * _BIDSENTRY Lookup( ModuleId id,
|
|
const char *name ) const;
|
|
|
|
private:
|
|
|
|
TISVectorImp< TStreamableClass > Types;
|
|
|
|
};
|
|
|
|
#if defined( BI_CLASSLIB_NO_po )
|
|
#pragma option -po.
|
|
#endif
|
|
|
|
#endif // CLASSLIB_STREAMBLE_H
|
|
|