erik/openDecal
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial commit: Complete open-source Decal rebuild

Browse source 
All 5 phases of the open-source Decal rebuild:

Phase 1: 14 decompiled .NET projects (Interop.*, Adapter, FileService, DecalUtil)
Phase 2: 10 native DLLs rewritten as C# COM servers with matching GUIDs
  - DecalDat, DHS, SpellFilter, DecalInput, DecalNet, DecalFilters
  - Decal.Core, DecalControls, DecalRender, D3DService
Phase 3: C++ shims for Inject.DLL (D3D9 hooking) and LauncherHook.DLL
Phase 4: DenAgent WinForms tray application
Phase 5: WiX installer and build script

25 C# projects building with 0 errors.
Native C++ projects require VS 2022 + Windows SDK (x86).

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
erik 2026-02-08 18:27:56 +01:00
commit d1442e3747
1382 changed files with 170725 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

92
Native/PlainText/ScriptSiteImpl.cpp Normal file
View file

@ -0,0 +1,92 @@
// ScriptSiteImpl.cpp
// Implementation of IActiveScriptSiteImpl
#include "stdafx.h"
#include "ScriptSiteImpl.h"
HRESULT IActiveScriptSiteImpl::createScriptEngine( LPCOLESTR strLanguage )
{
CLSID clsidScript;
//CComPtr< IActiveScript > pScript;
HRESULT hRes = ::CLSIDFromProgID( strLanguage, &clsidScript );
_ASSERTE( SUCCEEDED( hRes ) );
hRes = ::CoCreateInstance( clsidScript, NULL, CLSCTX_INPROC_SERVER, IID_IActiveScript, reinterpret_cast< void ** >( &m_pScript ) );
_ASSERTE( SUCCEEDED( hRes ) );
// Configure the script engine
//pScript->Clone(&m_pScript);
m_pScript->SetScriptSite( this );
return hRes;
}
void IActiveScriptSiteImpl::addNamedItem( BSTR szName, IUnknown *pObject, DWORD dwFlags )
{
USES_CONVERSION;
HRESULT hRes = m_pScript->AddNamedItem( szName, dwFlags );
cObject o( szName, pObject );
m_objects.push_back( o );
}
STDMETHODIMP IActiveScriptSiteImpl::GetItemInfo(LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppunkItem, ITypeInfo **ppTypeInfo)
{
// First look for the item
for( cObjectList::iterator i = m_objects.begin(); i != m_objects.end(); ++ i )
{
if( ::wcscmp( i->m_strName, pstrName ) == 0 )
{
if( dwReturnMask & SCRIPTINFO_IUNKNOWN )
{
*ppunkItem = i->m_pObject;
( *ppunkItem )->AddRef();
}
if( dwReturnMask & SCRIPTINFO_ITYPEINFO )
{
CComPtr< IProvideClassInfo > pPCI;
HRESULT hRes = i->m_pObject->QueryInterface( &pPCI );
if( SUCCEEDED( hRes ) )
{
HRESULT hRes = pPCI->GetClassInfo( ppTypeInfo );
_ASSERTE( SUCCEEDED( hRes ) );
}
else
*ppTypeInfo = NULL;
}
return S_OK;
}
}
// The item was not found
return TYPE_E_ELEMENTNOTFOUND;
}
STDMETHODIMP IActiveScriptSiteImpl::OnScriptError(IActiveScriptError *pase)
{
USES_CONVERSION;
EXCEPINFO ei;
DWORD dwCookie;
ULONG uLine;
LONG nChar;
CComBSTR strLine;
pase->GetExceptionInfo( &ei );
pase->GetSourcePosition( &dwCookie, &uLine, &nChar );
pase->GetSourceLineText( &strLine );
TCHAR szError[ 1024 ];
::_stprintf( szError, _T( "0x%08X (%i, %i): %s" ),
ei.wCode, uLine, nChar, OLE2T( ei.bstrDescription ) );
::MessageBox( NULL, szError, OLE2T( ei.bstrSource ), MB_ICONERROR | MB_OK );
_ASSERTE( FALSE );
return S_OK;
}