Files
TeslaRel410/BORLAND/BC45/SOURCE/OWL/FINDREPL.CPP
T
CydandClaude Fable 5 63312e07f9 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>
2026-07-19 07:33:26 -05:00

198 lines
4.8 KiB
C++

//----------------------------------------------------------------------------
// ObjectWindows
// (C) Copyright 1992, 1994 by Borland International, All Rights Reserved
//
// Implementation of FindReplace- abstract, Find-, Replace- common Dialog
// classes
//----------------------------------------------------------------------------
#pragma hdrignore SECTION
#include <owl/owlpch.h>
#include <owl/findrepl.h>
#if !defined(ctlFirst)
# include <dlgs.h>
#endif
#if !defined(SECTION) || SECTION == 1
TFindReplaceDialog::TData::TData(uint32 flags, int buffSize)
:
Flags(flags), BuffSize(buffSize), Error(0)
{
FindWhat = new char[BuffSize];
ReplaceWith = new char[BuffSize];
*FindWhat = *ReplaceWith = 0;
}
TFindReplaceDialog::TData::TData(const TData& src)
:
Flags(src.Flags),
BuffSize(src.BuffSize),
Error(0)
{
FindWhat = strnewdup(src.FindWhat, BuffSize);
ReplaceWith = strnewdup(src.ReplaceWith, BuffSize);
}
TFindReplaceDialog::TData::~TData()
{
delete [] FindWhat;
delete [] ReplaceWith;
}
TFindReplaceDialog::TData&
TFindReplaceDialog::TData::operator =(const TData& src)
{
Flags = src.Flags;
BuffSize = src.BuffSize;
Error = 0;
delete [] FindWhat;
FindWhat = strnewdup(src.FindWhat, BuffSize);
delete [] ReplaceWith;
ReplaceWith = strnewdup(src.ReplaceWith, BuffSize);
return *this;
}
//----------------------------------------------------------------------------
DEFINE_RESPONSE_TABLE1(TFindReplaceDialog, TCommonDialog)
EV_WM_NCDESTROY,
END_RESPONSE_TABLE;
IMPLEMENT_CASTABLE(TFindReplaceDialog);
void
TFindReplaceDialog::Init(TResId templateId)
{
memset(&fr, 0, sizeof(FINDREPLACE));
fr.lStructSize = sizeof(FINDREPLACE);
fr.hwndOwner = Parent ? Parent->HWindow : 0;
fr.hInstance = *GetModule();
Data.Flags &= ~(FR_FINDNEXT|FR_REPLACE|FR_REPLACEALL|FR_DIALOGTERM);
fr.Flags = FR_ENABLEHOOK | Data.Flags;
if (templateId) {
fr.lpTemplateName = templateId;
fr.Flags |= FR_ENABLETEMPLATE;
}
else
fr.Flags &= ~FR_ENABLETEMPLATE;
fr.lpstrFindWhat = Data.FindWhat;
fr.wFindWhatLen = (uint16)Data.BuffSize;
fr.lpstrReplaceWith = Data.ReplaceWith;
fr.wReplaceWithLen = (uint16)Data.BuffSize;
}
TFindReplaceDialog::TFindReplaceDialog(TWindow* parent,
TData& data,
TResId templateId,
const char far* title,
TModule* module)
:
TCommonDialog(parent, title, module),
Data(data)
{
Init(templateId);
}
HWND
TFindReplaceDialog::DoCreate()
{
return 0;
}
bool
TFindReplaceDialog::DialogFunction(uint msg, WPARAM wParam, LPARAM lParam)
{
return TCommonDialog::DialogFunction(msg, wParam, lParam);
}
//
// Make sure flags get copied over before we go
//
void
TFindReplaceDialog::EvNCDestroy()
{
Data.Flags = fr.Flags;
TWindow::EvNCDestroy();
}
void
TFindReplaceDialog::UpdateData(LPARAM lParam)
{
if (lParam)
Data.Flags = ((LPFINDREPLACE)lParam)->Flags;
else
Data.Flags = fr.Flags;
}
//----------------------------------------------------------------------------
IMPLEMENT_CASTABLE(TFindDialog);
TFindDialog::TFindDialog(TWindow* parent,
TData& data,
TResId templateId,
const char far* title,
TModule* module)
: TFindReplaceDialog(parent, data, templateId, title, module)
{
}
HWND
TFindDialog::DoCreate()
{
(DLGPROC)fr.lpfnHook = (DLGPROC)(FARPROC)StdDlgProcInstance;
return ::FindText(&fr);
}
//----------------------------------------------------------------------------
IMPLEMENT_CASTABLE(TReplaceDialog);
TReplaceDialog::TReplaceDialog(TWindow* parent,
TData& data,
TResId templateId,
const char far* title,
TModule* module)
: TFindReplaceDialog(parent, data, templateId, title, module)
{
}
HWND
TReplaceDialog::DoCreate()
{
(DLGPROC)fr.lpfnHook = (DLGPROC)(FARPROC)StdDlgProcInstance;
return ::ReplaceText(&fr);
}
#endif
#if !defined(SECTION) || SECTION == 2
//Keep streaming out if not used
void
TFindReplaceDialog::TData::Read(ipstream& is)
{
is >> Flags;
is >> BuffSize;
FindWhat = new char[BuffSize];
ReplaceWith = new char[BuffSize];
is.readBytes(FindWhat, BuffSize);
is.readBytes(ReplaceWith, BuffSize);
}
void
TFindReplaceDialog::TData::Write(opstream& os)
{
os << Flags;
os << BuffSize;
os.writeBytes(FindWhat, BuffSize);
os.writeBytes(ReplaceWith, BuffSize);
}
#endif