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>
149 lines
4.3 KiB
C++
149 lines
4.3 KiB
C++
// Borland C++ - (C) Copyright 1991, 1992 by Borland International
|
|
|
|
//*******************************************************************
|
|
//
|
|
// program - MsgProc.c
|
|
// purpose - A windows program to send messages to MsgWnd application.
|
|
// This file is part of the TSTAPP project.
|
|
//
|
|
//*******************************************************************
|
|
|
|
#define STRICT
|
|
#include <windows.h>
|
|
#pragma hdrstop
|
|
#include <dde.h>
|
|
#include <string.h>
|
|
|
|
#include "msgproc.h"
|
|
#include "ddeclnt.h"
|
|
|
|
#if defined(__FLAT__)
|
|
#define _fstrcpy strcpy
|
|
#define _fstrcat strcat
|
|
#endif
|
|
|
|
static HWND hChannel;
|
|
static HWND hMsgWnd;
|
|
|
|
//*******************************************************************
|
|
// SendMsgWndMsg - send a message to the MsgWnd application
|
|
//
|
|
// paramaters:
|
|
// hWnd - The window handle of caller
|
|
// command - The command to send to msgwnd application
|
|
// msg - The message to send to msgwnd application
|
|
//
|
|
//*******************************************************************
|
|
void SendMsgWndMsg(HWND hWnd, char *command, char *msg)
|
|
{
|
|
HANDLE hmsg;
|
|
LPSTR lpmsg;
|
|
|
|
// If the msgwnd application is running and we have a conversation
|
|
// channel established with it, lets send our text message to it.
|
|
if (GetMsgLink(hWnd))
|
|
{
|
|
// Allocate some shared memory to put message into.
|
|
hmsg = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE,
|
|
(DWORD) (strlen(command) + (msg ? strlen(msg) : 0) + 8));
|
|
if (hmsg)
|
|
{
|
|
// Lock it down to get addres of memory.
|
|
lpmsg = GlobalLock(hmsg);
|
|
if (lpmsg)
|
|
{
|
|
// Build print command to send to msgwnd application.
|
|
_fstrcpy(lpmsg, "[");
|
|
_fstrcat(lpmsg, command);
|
|
if (msg)
|
|
{
|
|
_fstrcat(lpmsg, " (\"");
|
|
_fstrcat(lpmsg, msg);
|
|
_fstrcat(lpmsg, "\")");
|
|
}
|
|
_fstrcat(lpmsg, "]");
|
|
|
|
// Send the command.
|
|
DDEExecute(hChannel, lpmsg, 0);
|
|
|
|
GlobalUnlock(hmsg);
|
|
}
|
|
|
|
GlobalFree(hmsg);
|
|
}
|
|
}
|
|
}
|
|
|
|
//*******************************************************************
|
|
// GetLines - get number of lines printed by msgwnd
|
|
//
|
|
// paramaters:
|
|
// hWnd - The window handle of caller
|
|
//
|
|
// returns:
|
|
// handle to 'lines' data item.
|
|
// or
|
|
// NULL if it was not returned.
|
|
//
|
|
//*******************************************************************
|
|
HANDLE GetLines(HWND hWnd)
|
|
{
|
|
HANDLE hTmp;
|
|
|
|
hTmp = 0;
|
|
|
|
// If the msgwnd application is running and we have a conversation
|
|
// channel established with it, lets send our text message to it.
|
|
if (GetMsgLink(hWnd))
|
|
{
|
|
// Go ask for the 'lines' data item from msgwnd application.
|
|
hTmp = DDERead(hChannel, "lines", 5);
|
|
}
|
|
|
|
// Return handle to 'lines' data item or NULL if it was not returned.
|
|
return(hTmp);
|
|
}
|
|
|
|
//*******************************************************************
|
|
// CloseMsgWnd - close dde message link to the MsgWnd application
|
|
//
|
|
//*******************************************************************
|
|
void CloseMsgWnd()
|
|
{
|
|
// Tell msgwnd application we want to terminate our conversation.
|
|
DDEClientClose(hChannel);
|
|
hChannel = 0;
|
|
}
|
|
|
|
//*******************************************************************
|
|
// GetMsgLink - establish link to msgwnd application
|
|
//
|
|
//*******************************************************************
|
|
int GetMsgLink(HWND hWnd)
|
|
{
|
|
char msgbuf[80];
|
|
|
|
// See if msgwnd application is already running.
|
|
hMsgWnd = FindWindow("msgwnd", NULL);
|
|
if (!hMsgWnd)
|
|
{
|
|
// If not, try to activate it.
|
|
strcpy(msgbuf, "MSGWND.EXE");
|
|
WinExec(msgbuf, SW_SHOWNORMAL);
|
|
hMsgWnd = FindWindow("msgwnd", NULL);
|
|
hChannel = 0;
|
|
}
|
|
|
|
// Have we started a conversation with the msgwnd application yet?
|
|
if (!hChannel)
|
|
{
|
|
// No, try to start one.
|
|
hChannel = DDEClientOpen(hWnd, "msgwnd", "screen");
|
|
}
|
|
|
|
return((int) hChannel);
|
|
}
|
|
|
|
//*******************************************************************
|
|
|