source410: literal 4.10 source reconstruction + BC++ 4.52 fleet toolchain archived
- 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>
This commit is contained in:
Claude Fable 5
@@ -0,0 +1,50 @@
|
||||
//----------------------------------------------------------------------------
|
||||
// ObjectConnections - (C) Copyright 1994 by Borland International
|
||||
// Tool to generate a GUID from the network card ID, using the OLE 2 API func.
|
||||
//----------------------------------------------------------------------------
|
||||
|
||||
#define STRICT
|
||||
#include <windows.h>
|
||||
#include <string.h>
|
||||
#include <compobj.h>
|
||||
|
||||
int CALLBACK __export
|
||||
GuidProc(HWND hDlg, UINT msg, WPARAM wParam, LPARAM /*lParam*/)
|
||||
{
|
||||
if (msg == WM_COMMAND && wParam != 'G') // ignore msgs from edit control
|
||||
::EndDialog(hDlg, TRUE); // quit on OK or ESC or Alt-F4
|
||||
else if (msg != WM_INITDIALOG)
|
||||
return 0;
|
||||
else { // do all the work at INITDIALOG
|
||||
GUID id;
|
||||
IMalloc* alloc;
|
||||
char far* guidStr = 0;
|
||||
::CoInitialize(0); // init OLE to get memory for GUID
|
||||
::CoGetMalloc(MEMCTX_TASK, &alloc);
|
||||
::CoCreateGuid(&id);
|
||||
::StringFromCLSID(id, &guidStr);
|
||||
if (guidStr) {
|
||||
::OpenClipboard(hDlg); // copy GUID string to clipboard
|
||||
::EmptyClipboard();
|
||||
HANDLE cbhdl = ::GlobalAlloc(GHND,lstrlen(guidStr)+1);
|
||||
char far* cbdata = (char far*)::GlobalLock(cbhdl);
|
||||
lstrcpy(cbdata, guidStr);
|
||||
::GlobalUnlock(cbhdl);
|
||||
::SetClipboardData(CF_TEXT, cbhdl);
|
||||
::CloseClipboard();
|
||||
::SetDlgItemText(hDlg, 'G', guidStr); // show GUID, overwrites error msg
|
||||
}
|
||||
if (alloc) {
|
||||
alloc->Free(guidStr);
|
||||
alloc->Release();
|
||||
}
|
||||
::CoUninitialize();
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
int PASCAL
|
||||
WinMain(HINSTANCE hInst, HINSTANCE/*hPrev*/, char far*/*cmdLine*/, int/*show*/)
|
||||
{
|
||||
return ::DialogBox(hInst, "GuidDlg", 0,(DLGPROC)GuidProc);
|
||||
}
|
||||
@@ -0,0 +1,72 @@
|
||||
//----------------------------------------------------------------------------
|
||||
// ObjectConnections - (C) Copyright 1994 by Borland International
|
||||
//----------------------------------------------------------------------------
|
||||
|
||||
#define IDC_GUID 71 //=='G'
|
||||
#define IDI_MAIN 1
|
||||
|
||||
GuidDlg DIALOG 40, 40, 210, 80
|
||||
STYLE DS_MODALFRAME | DS_NOIDLEMSG | WS_POPUP | WS_VISIBLE | WS_CAPTION
|
||||
CAPTION "GUIDGEN - OLE 2 Unique Id Generator"
|
||||
FONT 8, "MS Sans Serif"
|
||||
{
|
||||
LTEXT "The following base GUID has been placed on the clipboard:", -1, 6, 5, 198, 12, SS_LEFT
|
||||
CONTROL "! OLE Error - Could Not Generate GUID !", IDC_GUID, "edit", ES_CENTER |ES_MULTILINE |ES_READONLY, 6, 19, 198, 14
|
||||
LTEXT "Enter this into the app registration: REGDATA(clsid, \"{...}\")", -1, 6, 33, 198, 12, SS_LEFT
|
||||
PUSHBUTTON "OK", IDOK, 95, 48, 30, 16
|
||||
ICON IDI_MAIN, -1, 45, 45, 18, 20, SS_ICON | WS_CHILD | WS_VISIBLE
|
||||
CTEXT "Copyright 1994 Borland International Inc. All Rights Reserved", -1, 0, 69, 210, 9, SS_CENTER
|
||||
}
|
||||
|
||||
IDI_MAIN ICON
|
||||
{
|
||||
'00 00 01 00 01 00 20 20 10 00 00 00 00 00 E8 02'
|
||||
'00 00 16 00 00 00 28 00 00 00 20 00 00 00 40 00'
|
||||
'00 00 01 00 04 00 00 00 00 00 80 02 00 00 00 00'
|
||||
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
|
||||
'00 00 00 00 BF 00 00 BF 00 00 00 BF BF 00 BF 00'
|
||||
'00 00 BF 00 BF 00 BF BF 00 00 C0 C0 C0 00 80 80'
|
||||
'80 00 00 00 FF 00 00 FF 00 00 00 FF FF 00 FF 00'
|
||||
'00 00 FF 00 FF 00 FF FF 00 00 FF FF FF 00 FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF F9 99'
|
||||
'99 99 FF FF FF FF FF FF F9 FF FF FF FF FF F9 FF'
|
||||
'9F F9 FF FF FF FF FF FF F9 FF FF FF FF FF F9 FF'
|
||||
'9F F9 FF 99 99 9F FF FF F9 FF FF FF FF FF F9 FF'
|
||||
'FF F9 FF F9 FF FF FF FF F9 FF F9 9F FF FF FF FF'
|
||||
'FF FF FF FF 9F FF F9 FF F9 FF 9F F9 FF FF FF FF'
|
||||
'9F FF FF FF F9 FF FF 99 F9 FF 9F F9 9F FF FF F9'
|
||||
'99 FF FF FF FF 9F FF FF 99 FF F9 9F F9 FF FF F9'
|
||||
'F9 FF FF 9F FF 9F FF FF FF FF FF 9F F9 FF FF 9F'
|
||||
'FF 9F FF F9 99 FF FF FF FF F9 FF F9 9F FF FF 99'
|
||||
'99 9F FF FF FF FF FF FF FF F9 FF FF FF FF F9 FF'
|
||||
'FF F9 FF F9 99 99 FF F9 99 99 9F FF FF FF F9 FF'
|
||||
'FF F9 FF 9F FF FF 9F FF 9F F9 FF FF FF FF FF FF'
|
||||
'FF FF FF 9F FF FF 9F FF F9 F9 FF FF FF FF FF F9'
|
||||
'9F FF FF 9F FF FF 9F FF FF 99 FF FF FF FF FF 9F'
|
||||
'F9 FF FF F9 99 99 FF FF FF F9 FF FF 99 9F FF FF'
|
||||
'F9 FF FF FF FF FF FF F9 9F FF FF FF F9 FF FF F9'
|
||||
'F9 FF FF FF FF FF FF 9F FF FF FF FF F9 FF F9 FF'
|
||||
'9F FF FF FF 9F FF FF 9F FF FF FF FF F9 FF F9 FF'
|
||||
'9F FF F9 FF 9F FF FF F9 FF F9 FF FF F9 FF FF 99'
|
||||
'FF FF F9 FF 9F FF FF FF 9F F9 FF FF 99 FF FF FF'
|
||||
'FF 99 99 99 9F FF FF FF F9 9F FF FF F9 FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF CC CC'
|
||||
'CC CC CC CC CC CC CC CC CC CC CC CC CC CC FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF'
|
||||
'FF FF FF FF FF FF FF FF FF FF FF FF FF FF 00 00'
|
||||
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
|
||||
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
|
||||
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
|
||||
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
|
||||
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
|
||||
'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
|
||||
'00 00 1C 0E 1E 78 3E 1F 0C 7C 63 31 8C 66 67 31'
|
||||
'8C 66 60 31 8C 66 3E 31 8C 7C 1C 31 9E 78'
|
||||
}
|
||||
|
||||
@@ -0,0 +1,16 @@
|
||||
#----------------------------------------------------------------------------
|
||||
# ObjectComponents
|
||||
# (C) Copyright 1994 by Borland International, All Rights Reserved
|
||||
#----------------------------------------------------------------------------
|
||||
!if !$d(MODEL)
|
||||
MODEL = s
|
||||
!endif
|
||||
MODELS = sml
|
||||
EXERES = guidgen
|
||||
DOSSTUB= wrw.stb
|
||||
USERLIBS = $(BCROOT)\LIB\ole2w16
|
||||
|
||||
!include $(BCEXAMPLEDIR)\makefile.gen
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user