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>
159 lines
5.8 KiB
C++
159 lines
5.8 KiB
C++
//
|
|
/*
|
|
* ansiapi.h
|
|
* This file contains prototypes of ANSI version of OLE apis
|
|
* and mapping fooA to foo
|
|
*/
|
|
|
|
#ifndef _ANSIAPI_INCL
|
|
#define _ANSIAPI_INCL
|
|
|
|
#define UNICODEOLE32
|
|
|
|
#ifdef WIN32S
|
|
#if !defined(UNICODEOLE32)
|
|
#pragma message("Compiling for 32bit ANSI Ole!\n");
|
|
#endif
|
|
#endif
|
|
|
|
#define WASANSI() { \
|
|
OutputDebugString("\n\r\t\tUnicode string was ANSI!\r\n"); \
|
|
Assert(0); \
|
|
_asm { int 3 } \
|
|
}
|
|
|
|
|
|
|
|
#ifndef UNICODEOLE32
|
|
|
|
#define W2A(w, a, cb) lstrcpy (a, w)
|
|
#define A2W(a, w, cb) lstrcpy (w, a)
|
|
|
|
#define FREELOCALSTRING(p)
|
|
#define MAKE_STR_LOCAL_COPYW2A(s, l) l = s
|
|
#define MAKE_STR_LOCAL_COPYA2W(s, l) l = s
|
|
|
|
#define OLESTRCPY lstrcpy
|
|
#define OLESTRCAT lstrcat
|
|
#define OLESTRLEN lstrlen
|
|
#define OLESTRCMP lstrcmp
|
|
#define OLESTRCMPI lstrcmpi
|
|
|
|
#define DeleteFile_AW DeleteFile
|
|
#define _lopen_AW _lopen
|
|
#define _lcreat_AW _lcreat
|
|
#define GlobalAddAtom_AW GlobalAddAtom
|
|
#define GlobalGetAtomName_AW GlobalGetAtomName
|
|
#define RegOpenKey_AW RegOpenKey
|
|
|
|
#define CoLoadLibraryA CoLoadLibrary
|
|
|
|
#define StringFromCLSID2A StringFromCLSID2
|
|
#define StringFromIID2A StringFromIID2
|
|
#define StringFromGUID2A StringFromGUID2
|
|
#define CLSIDFromProgIDA CLSIDFromProgID
|
|
#define CLSIDFromStringA CLSIDFromString
|
|
#define ProgIDFromCLSIDA ProgIDFromCLSID
|
|
#define StringFromCLSIDA StringFromCLSID
|
|
|
|
#define UtDupStringA2W UtDupString
|
|
|
|
// Storage APIs
|
|
#define StgOpenStorageA StgOpenStorage
|
|
|
|
// IPersistFile ansi translation
|
|
|
|
#define IPersistFile_LoadA(pf, file, mode) (pf)->Load(file, mode)
|
|
|
|
// IMoniker ansi translation
|
|
|
|
#define IMoniker_GetDisplayNameA(pm, p1, p2, p3) (pm)->GetDisplayName(p1,p2,p3)
|
|
|
|
#define CreateFileMonikerA CreateFileMoniker
|
|
|
|
#else // UNICODEOLE32
|
|
|
|
|
|
#define W2A(w, a, cb) WideCharToMultiByte( \
|
|
CP_ACP, \
|
|
0, \
|
|
w, \
|
|
-1, \
|
|
a, \
|
|
cb, \
|
|
NULL, \
|
|
NULL)
|
|
|
|
#define A2W(a, w, cb) MultiByteToWideChar( \
|
|
CP_ACP, \
|
|
0, \
|
|
a, \
|
|
-1, \
|
|
w, \
|
|
cb)
|
|
|
|
|
|
#define FREELOCALSTRING(p) delete (p)
|
|
#define MAKE_STR_LOCAL_COPYW2A(s, l) { \
|
|
l = UtDupStringW2A(s); \
|
|
if (!l) { \
|
|
return ResultFromScode(S_OOM); \
|
|
} \
|
|
}
|
|
|
|
#define MAKE_STR_LOCAL_COPYA2W(s, l) { \
|
|
l = UtDupStringA2W(s); \
|
|
if (!l) { \
|
|
return ResultFromScode(S_OOM); \
|
|
} \
|
|
}
|
|
|
|
#define OLESTRCPY lstrcpyW
|
|
#define OLESTRCAT lstrcatW
|
|
#define OLESTRLEN lstrlenW
|
|
#define OLESTRCMP lstrcmpW
|
|
#define OLESTRCMPI lstrcmpiW
|
|
|
|
#define DeleteFile_AW DeleteFileW
|
|
#define _lopen_AW _lopenW
|
|
#define _lcreat_AW _lcreatW
|
|
#define GlobalAddAtom_AW GlobalAddAtomW
|
|
#define GlobalGetAtomName_AW GlobalGetAtomNameW
|
|
#define RegOpenKey_AW RegOpenKeyW
|
|
|
|
STDAPI_(HINSTANCE) CoLoadLibraryA(LPSTR lpszLibName, BOOL bAutoFree);
|
|
|
|
#define StringFromCLSID2A(rclsid, lpsz, cbMax) \
|
|
StringFromGUID2A(rclsid, lpsz, cbMax)
|
|
|
|
#define StringFromIID2A(riid, lpsz, cbMax) \
|
|
StringFromGUID2A(riid, lpsz, cbMax)
|
|
|
|
|
|
STDAPI_(int) StringFromGUID2A(REFGUID rguid, LPSTR lpsz, int cbMax);
|
|
STDAPI CLSIDFromProgIDA(LPCSTR szProgID, LPCLSID pclsid);
|
|
STDAPI CLSIDFromStringA(LPSTR lpsz, LPCLSID lpclsid);
|
|
STDAPI StringFromCLSIDA(REFCLSID rclsid, LPSTR FAR* lplpsz);
|
|
STDAPI ProgIDFromCLSIDA (REFCLSID clsid, LPSTR FAR* lplpszProgID);
|
|
|
|
LPWSTR UtDupStringA2W(LPCSTR pSrc);
|
|
LPSTR UtDupStringW2A(LPCWSTR pSrc);
|
|
|
|
// Storage APIs
|
|
STDAPI StgOpenStorageA(LPCSTR pwcsName,IStorage FAR *pstgPriority, DWORD grfMode, SNB snbExclude, DWORD reserved, IStorage FAR * FAR *ppstgOpen);
|
|
|
|
// IPersistFile ansi translation
|
|
|
|
HRESULT IPersistFile_LoadA(LPPERSISTFILE pIPF, LPSTR szFile, DWORD dwMode);
|
|
|
|
// IMoniker ansi translation
|
|
|
|
HRESULT IMoniker_GetDisplayNameA(LPMONIKER pm, LPBC p1, LPMONIKER p2, LPSTR FAR *p3);
|
|
|
|
//OLEAPI CreateFileMonikerA ( LPSTR lpszPathName, LPMONIKER FAR * ppmk );
|
|
|
|
#endif // !UNICODEOLE32
|
|
|
|
#endif // _ANSIAPI_INCL
|
|
|