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>
141 lines
3.1 KiB
C++
141 lines
3.1 KiB
C++
// ---------------------------------------------------------------------------
|
|
// Copyright (C) 1994 Borland International
|
|
// CppOcf0.cpp
|
|
// ---------------------------------------------------------------------------
|
|
#include <ocf/ocfpch.h>
|
|
#include <ocf/ocdefs.h>
|
|
#include <windowsx.h>
|
|
#include "CppOcf0.h"
|
|
|
|
// Starting point of all Windows programs
|
|
//
|
|
int PASCAL
|
|
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
|
|
char far* /*lpCmdLine*/, int nCmdShow)
|
|
{
|
|
try {
|
|
MSG msg;
|
|
|
|
// Any previous instance?
|
|
if (!hPrevInstance)
|
|
// Initialize app-specific stuff
|
|
if (!InitApplication(hInstance))
|
|
return 0;
|
|
|
|
// Instance-specific
|
|
if (!InitInstance(hInstance, nCmdShow))
|
|
return 0;
|
|
|
|
// Standard Windows message loop
|
|
while (GetMessage(&msg, 0, 0, 0)) {
|
|
TranslateMessage(&msg);
|
|
DispatchMessage(&msg);
|
|
}
|
|
}
|
|
catch (...) {
|
|
MessageBox(GetFocus(), "Unknown exception", "Exception caught", MB_OK);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
//
|
|
// Initialize application-specific stuff and register the class
|
|
//
|
|
bool
|
|
InitApplication(HINSTANCE hInstance)
|
|
{
|
|
WNDCLASS wc;
|
|
|
|
wc.style = 0;
|
|
wc.lpfnWndProc = (WNDPROC) MainWndProc;
|
|
wc.cbClsExtra = 0;
|
|
wc.cbWndExtra = 0;
|
|
wc.hInstance = hInstance;
|
|
wc.hIcon = LoadIcon(0, IDI_APPLICATION);
|
|
wc.hCursor = LoadCursor(0, IDC_ARROW);
|
|
wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
|
|
wc.lpszMenuName = MENUNAME;
|
|
wc.lpszClassName = CLASSNAME;
|
|
return ToBool(RegisterClass(&wc));
|
|
}
|
|
|
|
|
|
//
|
|
// Initialize instance and display the main window
|
|
//
|
|
bool
|
|
InitInstance(HINSTANCE hInstance, int nCmdShow)
|
|
{
|
|
HWND hwnd;
|
|
|
|
hwnd = CreateWindow(CLASSNAME, TITLE,
|
|
WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN | WS_CLIPSIBLINGS,
|
|
CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
|
|
0, 0, hInstance, 0);
|
|
|
|
if (!hwnd)
|
|
return false;
|
|
ShowWindow(hwnd, nCmdShow);
|
|
UpdateWindow(hwnd);
|
|
return true;
|
|
}
|
|
|
|
|
|
//
|
|
// Standard message-handler routine for main window
|
|
//
|
|
long CALLBACK _export
|
|
MainWndProc(HWND hwnd, uint message, WPARAM wParam, LPARAM lParam)
|
|
{
|
|
switch (message) {
|
|
HANDLE_MSG(hwnd, WM_CREATE, MainWnd_OnCreate);
|
|
HANDLE_MSG(hwnd, WM_CLOSE, MainWnd_OnClose);
|
|
HANDLE_MSG(hwnd, WM_DESTROY, MainWnd_OnDestroy);
|
|
HANDLE_MSG(hwnd, WM_PAINT, MainWnd_OnPaint);
|
|
HANDLE_MSG(hwnd, WM_COMMAND, MainWnd_OnCommand);
|
|
}
|
|
return DefWindowProc(hwnd, message, wParam, lParam);
|
|
}
|
|
|
|
bool
|
|
MainWnd_OnCreate(HWND /*hwnd*/, CREATESTRUCT FAR* /*lpCreateStruct*/)
|
|
{
|
|
return true;
|
|
}
|
|
|
|
void
|
|
MainWnd_OnClose(HWND hwnd)
|
|
{
|
|
DestroyWindow(hwnd);
|
|
}
|
|
|
|
void
|
|
MainWnd_OnDestroy(HWND /*hwnd*/)
|
|
{
|
|
PostQuitMessage(0);
|
|
}
|
|
|
|
void
|
|
MainWnd_OnPaint(HWND hwnd)
|
|
{
|
|
PAINTSTRUCT ps;
|
|
BeginPaint(hwnd, &ps);
|
|
|
|
RECT rect;
|
|
GetClientRect(hwnd, &rect);
|
|
|
|
EndPaint(hwnd, &ps);
|
|
}
|
|
|
|
void
|
|
MainWnd_OnCommand(HWND hwnd, int id, HWND /*hwndCtl*/, uint /*codeNotify*/)
|
|
{
|
|
switch (id) {
|
|
case CM_EXIT: {
|
|
PostMessage(hwnd, WM_CLOSE, 0, 0);
|
|
break;
|
|
}
|
|
}
|
|
}
|