1553 lines
53 KiB
C
1553 lines
53 KiB
C
/*
|
|
* OleView (typelib.c)
|
|
*
|
|
* Copyright 2006 Piotr Caban
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include "main.h"
|
|
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(oleview);
|
|
|
|
TYPELIB typelib;
|
|
static const WCHAR wszTypeLib[] = { 'T','Y','P','E','L','I','B','\0' };
|
|
|
|
static const WCHAR wszFailed[] = { '<','f','a','i','l','e','d','>','\0' };
|
|
|
|
static const WCHAR wszUUID[] = { 'u','u','i','d','\0' };
|
|
static const WCHAR wszOdl[] = { 'o','d','l','\0' };
|
|
|
|
static const WCHAR wszVT_BOOL[]
|
|
= { 'V','A','R','I','A','N','T','_','B','O','O','L','\0' };
|
|
static const WCHAR wszVT_UI1[]
|
|
= { 'u','n','s','i','g','n','e','d',' ','c','h','a','r','\0' };
|
|
static const WCHAR wszVT_UI2[]
|
|
= { 'u','n','s','i','g','n','e','d',' ','s','h','o','r','t','\0' };
|
|
static const WCHAR wszVT_UI4[]
|
|
= { 'u','n','s','i','g','n','e','d',' ','l','o','n','g','\0' };
|
|
static const WCHAR wszVT_UI8[] = { 'u','i','n','t','6','4','\0' };
|
|
static const WCHAR wszVT_UINT[]
|
|
= { 'u','n','s','i','g','n','e','d',' ','i','n','t','\0' };
|
|
static const WCHAR wszVT_I1[] = { 'c','h','a','r','\0' };
|
|
static const WCHAR wszVT_I2[] = { 's','h','o','r','t','\0' };
|
|
static const WCHAR wszVT_I4[] = { 'l','o','n','g','\0' };
|
|
static const WCHAR wszVT_I8[] = { 'i','n','t','6','4','\0' };
|
|
static const WCHAR wszVT_R4[] = { 's','i','n','g','l','e','\0' };
|
|
static const WCHAR wszVT_INT[] = { 'i','n','t','\0' };
|
|
static const WCHAR wszVT_BSTR[] = { 'B','S','T','R','\0' };
|
|
static const WCHAR wszVT_CY[] = { 'C','U','R','R','E','N','C','Y','\0' };
|
|
static const WCHAR wszVT_VARIANT[] = { 'V','A','R','I','A','N','T','\0' };
|
|
static const WCHAR wszVT_VOID[] = { 'v','o','i','d','\0' };
|
|
static const WCHAR wszVT_ERROR[] = { 'S','C','O','D','E','\0' };
|
|
static const WCHAR wszVT_LPSTR[] = { 'L','P','S','T','R','\0' };
|
|
static const WCHAR wszVT_LPWSTR[] = { 'L','P','W','S','T','R','\0' };
|
|
static const WCHAR wszVT_HRESULT[] = { 'H','R','E','S','U','L','T','\0' };
|
|
static const WCHAR wszVT_UNKNOWN[] = { 'I','U','n','k','n','o','w','n','\0' };
|
|
static const WCHAR wszVT_DISPATCH[] = { 'I','D','i','s','p','a','t','c','h','\0' };
|
|
static const WCHAR wszVT_DATE[] = { 'D','A','T','E','\0' };
|
|
static const WCHAR wszVT_R8[] = { 'd','o','u','b','l','e','\0' };
|
|
static const WCHAR wszVT_SAFEARRAY[] = { 'S','A','F','E','A','R','R','A','Y','\0' };
|
|
|
|
static const WCHAR wszFormat[] = { '0','x','%','.','8','l','x','\0' };
|
|
static const WCHAR wszStdCall[] = { '_','s','t','d','c','a','l','l','\0' };
|
|
static const WCHAR wszId[] = { 'i','d','\0' };
|
|
static const WCHAR wszHelpstring[] = { 'h','e','l','p','s','t','r','i','n','g','\0' };
|
|
static const WCHAR wszPropPut[] = { 'p','r','o','p','p','u','t','\0' };
|
|
static const WCHAR wszPropGet[] = { 'p','r','o','p','g','e','t','\0' };
|
|
static const WCHAR wszPropPutRef[] = { 'p','r','o','p','p','u','t','r','e','f','\0' };
|
|
static const WCHAR wszPARAMFLAG_FIN[] = { 'i','n','\0' };
|
|
static const WCHAR wszPARAMFLAG_FOUT[] = { 'o','u','t','\0' };
|
|
static const WCHAR wszPARAMFLAG_FLCID[] = { 'c','i','d','\0' };
|
|
static const WCHAR wszPARAMFLAG_FRETVAL[] = { 'r','e','t','v','a','l','\0' };
|
|
static const WCHAR wszPARAMFLAG_FOPT[] = { 'o','p','t','i','o','n','a','l','\0' };
|
|
static const WCHAR wszPARAMFLAG_FHASCUSTDATA[]
|
|
= { 'h','a','s','c','u','s','t','d','a','t','a','\0' };
|
|
static const WCHAR wszDefaultValue[]
|
|
= { 'd','e','f','a','u','l','t','v','a','l','u','e','\0' };
|
|
|
|
static const WCHAR wszReadOnly[] = { 'r','e','a','d','o','n','l','y','\0' };
|
|
static const WCHAR wszConst[] = { 'c','o','n','s','t','\0' };
|
|
|
|
static void ShowLastError(void)
|
|
{
|
|
DWORD error = GetLastError();
|
|
LPWSTR lpMsgBuf;
|
|
WCHAR wszTitle[MAX_LOAD_STRING];
|
|
|
|
LoadStringW(globals.hMainInst, IDS_TYPELIBTITLE, wszTitle, ARRAY_SIZE(wszTitle));
|
|
FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
|
|
NULL, error, 0, (LPWSTR)&lpMsgBuf, 0, NULL);
|
|
MessageBoxW(NULL, lpMsgBuf, wszTitle, MB_OK | MB_ICONERROR);
|
|
LocalFree(lpMsgBuf);
|
|
return;
|
|
}
|
|
|
|
static void SaveIdl(WCHAR *wszFileName)
|
|
{
|
|
HTREEITEM hIDL;
|
|
TVITEMW tvi;
|
|
HANDLE hFile;
|
|
DWORD len, dwNumWrite;
|
|
char *wszIdl;
|
|
TYPELIB_DATA *data;
|
|
|
|
hIDL = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_CHILD, (LPARAM)TVI_ROOT);
|
|
|
|
memset(&tvi, 0, sizeof(TVITEMW));
|
|
tvi.hItem = hIDL;
|
|
|
|
SendMessageW(typelib.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
data = (TYPELIB_DATA *)tvi.lParam;
|
|
|
|
hFile = CreateFileW(wszFileName, GENERIC_WRITE, FILE_SHARE_WRITE,
|
|
NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
|
|
if(hFile == INVALID_HANDLE_VALUE)
|
|
{
|
|
ShowLastError();
|
|
return;
|
|
}
|
|
|
|
len = WideCharToMultiByte( CP_UTF8, 0, data->idl, data->idlLen, NULL, 0, NULL, NULL );
|
|
wszIdl = HeapAlloc(GetProcessHeap(), 0, len);
|
|
WideCharToMultiByte( CP_UTF8, 0, data->idl, data->idlLen, wszIdl, len, NULL, NULL );
|
|
|
|
if(!WriteFile(hFile, wszIdl, len, &dwNumWrite, NULL))
|
|
ShowLastError();
|
|
|
|
HeapFree(GetProcessHeap(), 0, wszIdl);
|
|
CloseHandle(hFile);
|
|
}
|
|
|
|
static void GetSaveIdlAsPath(void)
|
|
{
|
|
OPENFILENAMEW saveidl;
|
|
WCHAR *pFileName;
|
|
WCHAR wszPath[MAX_LOAD_STRING];
|
|
WCHAR wszDir[MAX_LOAD_STRING];
|
|
static const WCHAR wszDefaultExt[] = { 'i','d','l',0 };
|
|
static const WCHAR wszIdlFiles[] = { '*','.','i','d','l','\0','\0' };
|
|
|
|
memset(&saveidl, 0, sizeof(saveidl));
|
|
|
|
lstrcpyW(wszDir, typelib.wszFileName);
|
|
pFileName = wszDir + lstrlenW(wszDir);
|
|
while(*pFileName != '.' && *pFileName != '\\' && *pFileName != '/'
|
|
&& pFileName > wszDir) pFileName -= 1;
|
|
if(*pFileName == '.')
|
|
{
|
|
*pFileName = '\0';
|
|
while(*pFileName != '\\' && *pFileName != '/' && pFileName > wszDir)
|
|
pFileName -= 1;
|
|
}
|
|
if(*pFileName == '\\' || *pFileName == '/') pFileName += 1;
|
|
lstrcpyW(wszPath, pFileName);
|
|
|
|
GetCurrentDirectoryW(MAX_LOAD_STRING, wszDir);
|
|
|
|
saveidl.lStructSize = sizeof(OPENFILENAMEW);
|
|
saveidl.hwndOwner = globals.hTypeLibWnd;
|
|
saveidl.hInstance = globals.hMainInst;
|
|
saveidl.lpstrFilter = wszIdlFiles;
|
|
saveidl.lpstrFile = wszPath;
|
|
saveidl.nMaxFile = MAX_LOAD_STRING;
|
|
saveidl.lpstrInitialDir = wszDir;
|
|
saveidl.Flags = OFN_PATHMUSTEXIST | OFN_OVERWRITEPROMPT | OFN_HIDEREADONLY;
|
|
saveidl.lpstrDefExt = wszDefaultExt;
|
|
|
|
if (GetSaveFileNameW(&saveidl))
|
|
SaveIdl(wszPath);
|
|
}
|
|
|
|
static void AddToStrW(WCHAR *wszDest, const WCHAR *wszSource)
|
|
{
|
|
lstrcpyW(&wszDest[lstrlenW(wszDest)], wszSource);
|
|
}
|
|
|
|
static void AddToTLDataStrW(TYPELIB_DATA *pTLData, const WCHAR *wszSource)
|
|
{
|
|
int SourceLen = lstrlenW(wszSource);
|
|
|
|
pTLData->idl = HeapReAlloc(GetProcessHeap(), 0, pTLData->idl,
|
|
sizeof(WCHAR)*(pTLData->idlLen+SourceLen+1));
|
|
|
|
memcpy(&pTLData->idl[pTLData->idlLen], wszSource, sizeof(WCHAR)*(SourceLen+1));
|
|
pTLData->idlLen += SourceLen;
|
|
}
|
|
|
|
static void AddToTLDataStrWithTabsW(TYPELIB_DATA *pTLData, WCHAR *wszSource)
|
|
{
|
|
int lineLen = lstrlenW(wszSource);
|
|
int newLinesNo = 0;
|
|
WCHAR *pSourcePos = wszSource;
|
|
WCHAR *pSourceBeg;
|
|
|
|
if(!lineLen) return;
|
|
while(*pSourcePos)
|
|
{
|
|
if(*pSourcePos == L'\n') newLinesNo++;
|
|
pSourcePos += 1;
|
|
}
|
|
if(*(pSourcePos - 1) != L'\n') newLinesNo++;
|
|
|
|
pTLData->idl = HeapReAlloc(GetProcessHeap(), 0, pTLData->idl,
|
|
sizeof(WCHAR)*(pTLData->idlLen+lineLen+4*newLinesNo+1));
|
|
|
|
pSourcePos = wszSource;
|
|
pSourceBeg = wszSource;
|
|
while(newLinesNo)
|
|
{
|
|
if(*pSourcePos != L'\n' && *pSourcePos)
|
|
{
|
|
pSourcePos += 1;
|
|
continue;
|
|
}
|
|
newLinesNo--;
|
|
|
|
if(*pSourcePos)
|
|
{
|
|
*pSourcePos = '\0';
|
|
lineLen = lstrlenW(pSourceBeg)+1;
|
|
*pSourcePos = '\n';
|
|
pSourcePos += 1;
|
|
}
|
|
else lineLen = lstrlenW(pSourceBeg);
|
|
|
|
pTLData->idl[pTLData->idlLen] = L' ';
|
|
pTLData->idl[pTLData->idlLen+1] = L' ';
|
|
pTLData->idl[pTLData->idlLen+2] = L' ';
|
|
pTLData->idl[pTLData->idlLen+3] = L' ';
|
|
memcpy(&pTLData->idl[pTLData->idlLen+4], pSourceBeg, sizeof(WCHAR)*lineLen);
|
|
pTLData->idlLen += lineLen + 4;
|
|
pTLData->idl[pTLData->idlLen] = '\0';
|
|
|
|
pSourceBeg = pSourcePos;
|
|
}
|
|
}
|
|
|
|
static TYPELIB_DATA *InitializeTLData(void)
|
|
{
|
|
TYPELIB_DATA *pTLData;
|
|
|
|
pTLData = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(TYPELIB_DATA));
|
|
|
|
pTLData->idl = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR));
|
|
pTLData->idl[0] = '\0';
|
|
|
|
return pTLData;
|
|
}
|
|
|
|
static void AddSpaces(TYPELIB_DATA *pTLData, int tabSize)
|
|
{
|
|
for(; tabSize>0; tabSize--)
|
|
AddToTLDataStrW(pTLData, L" ");
|
|
}
|
|
|
|
static void AddChildrenData(HTREEITEM hParent, TYPELIB_DATA *pData)
|
|
{
|
|
HTREEITEM hCur;
|
|
TVITEMW tvi;
|
|
|
|
memset(&tvi, 0, sizeof(tvi));
|
|
|
|
hCur = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_CHILD, (LPARAM)hParent);
|
|
if(!hCur) return;
|
|
|
|
do
|
|
{
|
|
tvi.hItem = hCur;
|
|
SendMessageW(typelib.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
if(tvi.lParam && ((TYPELIB_DATA *)(tvi.lParam))->idlLen)
|
|
AddToTLDataStrWithTabsW(pData, ((TYPELIB_DATA *)(tvi.lParam))->idl);
|
|
} while((hCur = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_NEXT, (LPARAM)hCur)));
|
|
}
|
|
|
|
static void CreateTypeInfo(WCHAR *wszAddTo, WCHAR *wszAddAfter, TYPEDESC tdesc, ITypeInfo *pTypeInfo)
|
|
{
|
|
int i;
|
|
BSTR bstrData;
|
|
HRESULT hRes;
|
|
ITypeInfo *pRefTypeInfo;
|
|
WCHAR wszBuf[MAX_LOAD_STRING];
|
|
WCHAR wszFormat[] = { '[','%','l','u',']','\0' };
|
|
|
|
switch(tdesc.vt&VT_TYPEMASK)
|
|
{
|
|
#define VTADDTOSTR(x) case x:\
|
|
AddToStrW(wszAddTo, wsz##x);\
|
|
break
|
|
VTADDTOSTR(VT_BOOL);
|
|
VTADDTOSTR(VT_UI1);
|
|
VTADDTOSTR(VT_UI2);
|
|
VTADDTOSTR(VT_UI4);
|
|
VTADDTOSTR(VT_UI8);
|
|
VTADDTOSTR(VT_UINT);
|
|
VTADDTOSTR(VT_I1);
|
|
VTADDTOSTR(VT_I2);
|
|
VTADDTOSTR(VT_I4);
|
|
VTADDTOSTR(VT_I8);
|
|
VTADDTOSTR(VT_R4);
|
|
VTADDTOSTR(VT_INT);
|
|
VTADDTOSTR(VT_BSTR);
|
|
VTADDTOSTR(VT_CY);
|
|
VTADDTOSTR(VT_VARIANT);
|
|
VTADDTOSTR(VT_VOID);
|
|
VTADDTOSTR(VT_ERROR);
|
|
VTADDTOSTR(VT_LPSTR);
|
|
VTADDTOSTR(VT_LPWSTR);
|
|
VTADDTOSTR(VT_HRESULT);
|
|
VTADDTOSTR(VT_UNKNOWN);
|
|
VTADDTOSTR(VT_DISPATCH);
|
|
VTADDTOSTR(VT_DATE);
|
|
VTADDTOSTR(VT_R8);
|
|
case VT_CARRAY:
|
|
for(i=0; i<U(tdesc).lpadesc->cDims; i++)
|
|
{
|
|
wsprintfW(wszBuf, wszFormat, U(tdesc).lpadesc->rgbounds[i].cElements);
|
|
AddToStrW(wszAddAfter, wszBuf);
|
|
}
|
|
CreateTypeInfo(wszAddTo, wszAddAfter, U(tdesc).lpadesc->tdescElem, pTypeInfo);
|
|
break;
|
|
case VT_SAFEARRAY:
|
|
AddToStrW(wszAddTo, wszVT_SAFEARRAY);
|
|
AddToStrW(wszAddTo, L"(");
|
|
CreateTypeInfo(wszAddTo, wszAddAfter, *U(tdesc).lptdesc, pTypeInfo);
|
|
AddToStrW(wszAddTo, L")");
|
|
break;
|
|
case VT_PTR:
|
|
CreateTypeInfo(wszAddTo, wszAddAfter, *U(tdesc).lptdesc, pTypeInfo);
|
|
AddToStrW(wszAddTo, L"*");
|
|
break;
|
|
case VT_USERDEFINED:
|
|
hRes = ITypeInfo_GetRefTypeInfo(pTypeInfo,
|
|
U(tdesc).hreftype, &pRefTypeInfo);
|
|
if(SUCCEEDED(hRes))
|
|
{
|
|
ITypeInfo_GetDocumentation(pRefTypeInfo, MEMBERID_NIL,
|
|
&bstrData, NULL, NULL, NULL);
|
|
AddToStrW(wszAddTo, bstrData);
|
|
SysFreeString(bstrData);
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
}
|
|
else AddToStrW(wszAddTo, wszFailed);
|
|
break;
|
|
default:
|
|
WINE_FIXME("tdesc.vt&VT_TYPEMASK == %d not supported\n",
|
|
tdesc.vt&VT_TYPEMASK);
|
|
}
|
|
}
|
|
|
|
static int EnumVars(ITypeInfo *pTypeInfo, int cVars, HTREEITEM hParent)
|
|
{
|
|
int i;
|
|
TVINSERTSTRUCTW tvis;
|
|
VARDESC *pVarDesc;
|
|
BSTR bstrName;
|
|
WCHAR wszText[MAX_LOAD_STRING];
|
|
WCHAR wszAfter[MAX_LOAD_STRING];
|
|
|
|
U(tvis).item.mask = TVIF_TEXT|TVIF_PARAM;
|
|
U(tvis).item.cchTextMax = MAX_LOAD_STRING;
|
|
U(tvis).item.pszText = wszText;
|
|
tvis.hInsertAfter = TVI_LAST;
|
|
tvis.hParent = hParent;
|
|
|
|
for(i=0; i<cVars; i++)
|
|
{
|
|
TYPELIB_DATA *tld;
|
|
|
|
if(FAILED(ITypeInfo_GetVarDesc(pTypeInfo, i, &pVarDesc))) continue;
|
|
if(FAILED(ITypeInfo_GetDocumentation(pTypeInfo, pVarDesc->memid, &bstrName,
|
|
NULL, NULL, NULL))) continue;
|
|
|
|
tld = InitializeTLData();
|
|
U(tvis).item.lParam = (LPARAM) tld;
|
|
if(pVarDesc->memid < MIN_VAR_ID)
|
|
{
|
|
|
|
AddToTLDataStrW(tld, L"[");
|
|
AddToTLDataStrW(tld, wszId);
|
|
AddToTLDataStrW(tld, L"(");
|
|
wsprintfW(wszText, wszFormat, pVarDesc->memid);
|
|
AddToTLDataStrW(tld, wszText);
|
|
memset(wszText, 0, sizeof(wszText));
|
|
AddToTLDataStrW(tld, L")");
|
|
|
|
if(pVarDesc->wVarFlags & VARFLAG_FREADONLY)
|
|
{
|
|
AddToTLDataStrW(tld, L", ");
|
|
AddToTLDataStrW(tld, wszReadOnly);
|
|
}
|
|
AddToTLDataStrW(tld, L"]\n");
|
|
}
|
|
|
|
memset(wszText, 0, sizeof(wszText));
|
|
memset(wszAfter, 0, sizeof(wszAfter));
|
|
CreateTypeInfo(wszText, wszAfter, pVarDesc->elemdescVar.tdesc, pTypeInfo);
|
|
AddToStrW(wszText, L" ");
|
|
if (bstrName) AddToStrW(wszText, bstrName);
|
|
AddToStrW(wszText, wszAfter);
|
|
AddToTLDataStrW(tld, wszText);
|
|
AddToTLDataStrW(tld, L";\n");
|
|
|
|
SendMessageW(typelib.hTree, TVM_INSERTITEMW, 0, (LPARAM)&tvis);
|
|
SysFreeString(bstrName);
|
|
ITypeInfo_ReleaseVarDesc(pTypeInfo, pVarDesc);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int EnumEnums(ITypeInfo *pTypeInfo, int cVars, HTREEITEM hParent)
|
|
{
|
|
int i;
|
|
TVINSERTSTRUCTW tvis;
|
|
VARDESC *pVarDesc;
|
|
BSTR bstrName;
|
|
WCHAR wszText[MAX_LOAD_STRING];
|
|
WCHAR wszAfter[MAX_LOAD_STRING];
|
|
|
|
U(tvis).item.mask = TVIF_TEXT|TVIF_PARAM;
|
|
U(tvis).item.cchTextMax = MAX_LOAD_STRING;
|
|
U(tvis).item.pszText = wszText;
|
|
tvis.hInsertAfter = TVI_LAST;
|
|
tvis.hParent = hParent;
|
|
|
|
for(i=0; i<cVars; i++)
|
|
{
|
|
TYPELIB_DATA *tld;
|
|
|
|
if(FAILED(ITypeInfo_GetVarDesc(pTypeInfo, i, &pVarDesc))) continue;
|
|
if(FAILED(ITypeInfo_GetDocumentation(pTypeInfo, pVarDesc->memid, &bstrName,
|
|
NULL, NULL, NULL))) continue;
|
|
|
|
tld = InitializeTLData();
|
|
U(tvis).item.lParam = (LPARAM) tld;
|
|
|
|
memset(wszText, 0, sizeof(wszText));
|
|
memset(wszAfter, 0, sizeof(wszAfter));
|
|
|
|
if (pVarDesc->varkind == VAR_CONST)
|
|
{
|
|
VARIANT var;
|
|
VariantInit(&var);
|
|
if (VariantChangeType(&var, U(*pVarDesc).lpvarValue, 0, VT_BSTR) == S_OK)
|
|
{
|
|
AddToStrW(wszText, wszConst);
|
|
AddToStrW(wszText, L" ");
|
|
AddToStrW(wszAfter, L" = ");
|
|
AddToStrW(wszAfter, V_BSTR(&var));
|
|
}
|
|
}
|
|
|
|
CreateTypeInfo(wszText, wszAfter, pVarDesc->elemdescVar.tdesc, pTypeInfo);
|
|
AddToStrW(wszText, L" ");
|
|
AddToStrW(wszText, bstrName);
|
|
AddToStrW(wszText, wszAfter);
|
|
AddToTLDataStrW(tld, bstrName);
|
|
AddToTLDataStrW(tld, wszAfter);
|
|
if (i<cVars-1)
|
|
AddToTLDataStrW(tld, L",");
|
|
AddToTLDataStrW(tld, L"\n");
|
|
|
|
SendMessageW(typelib.hTree, TVM_INSERTITEMW, 0, (LPARAM)&tvis);
|
|
SysFreeString(bstrName);
|
|
ITypeInfo_ReleaseVarDesc(pTypeInfo, pVarDesc);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int EnumFuncs(ITypeInfo *pTypeInfo, TYPEATTR *pTypeAttr, HTREEITEM hParent)
|
|
{
|
|
int i, j;
|
|
int cFuncs;
|
|
unsigned namesNo;
|
|
TVINSERTSTRUCTW tvis;
|
|
FUNCDESC *pFuncDesc;
|
|
BSTR bstrName, bstrHelpString, *bstrParamNames;
|
|
WCHAR wszText[MAX_LOAD_STRING];
|
|
WCHAR wszAfter[MAX_LOAD_STRING];
|
|
WCHAR szRhs[] = {'r','h','s',0}; /* Right-hand side of a propput */
|
|
BOOL bFirst;
|
|
|
|
U(tvis).item.mask = TVIF_TEXT|TVIF_PARAM;
|
|
tvis.hInsertAfter = TVI_LAST;
|
|
tvis.hParent = hParent;
|
|
|
|
cFuncs = pTypeAttr->cFuncs;
|
|
|
|
i = 0;
|
|
if(pTypeAttr->wTypeFlags & TYPEFLAG_FDUAL) { /* skip 7 members of IDispatch */
|
|
cFuncs += 7;
|
|
i += 7;
|
|
}
|
|
|
|
for(; i<cFuncs; i++)
|
|
{
|
|
TYPELIB_DATA *tld;
|
|
|
|
if(FAILED(ITypeInfo_GetFuncDesc(pTypeInfo, i, &pFuncDesc))) continue;
|
|
|
|
if(FAILED(ITypeInfo_GetDocumentation(pTypeInfo, pFuncDesc->memid, &bstrName,
|
|
&bstrHelpString, NULL, NULL))) continue;
|
|
|
|
memset(wszText, 0, sizeof(wszText));
|
|
memset(wszAfter, 0, sizeof(wszAfter));
|
|
tld = InitializeTLData();
|
|
U(tvis).item.cchTextMax = SysStringLen(bstrName);
|
|
U(tvis).item.pszText = bstrName;
|
|
U(tvis).item.lParam = (LPARAM) tld;
|
|
bFirst = TRUE;
|
|
if(pFuncDesc->memid < MIN_FUNC_ID || pTypeAttr->wTypeFlags & TYPEFLAG_FDUAL)
|
|
{
|
|
AddToTLDataStrW(tld, L"[");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(tld, wszId);
|
|
AddToTLDataStrW(tld, L"(");
|
|
wsprintfW(wszText, wszFormat, pFuncDesc->memid);
|
|
AddToTLDataStrW(tld, wszText);
|
|
AddToTLDataStrW(tld, L")");
|
|
memset(wszText, 0, sizeof(wszText));
|
|
}
|
|
|
|
CreateTypeInfo(wszText, wszAfter, pFuncDesc->elemdescFunc.tdesc, pTypeInfo);
|
|
switch(pFuncDesc->invkind)
|
|
{
|
|
case INVOKE_PROPERTYGET:
|
|
if(bFirst) AddToTLDataStrW(tld, L"[");
|
|
else AddToTLDataStrW(tld, L", ");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(tld, wszPropGet);
|
|
break;
|
|
case INVOKE_PROPERTYPUT:
|
|
if(bFirst) AddToTLDataStrW(tld, L"[");
|
|
else AddToTLDataStrW(tld, L", ");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(tld, wszPropPut);
|
|
break;
|
|
case INVOKE_PROPERTYPUTREF:
|
|
if(bFirst) AddToTLDataStrW(tld, L"[");
|
|
else AddToTLDataStrW(tld, L", ");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(tld, wszPropPutRef);
|
|
break;
|
|
default:;
|
|
}
|
|
if(SysStringLen(bstrHelpString))
|
|
{
|
|
if(bFirst) AddToTLDataStrW(tld, L"[");
|
|
else AddToTLDataStrW(tld, L", ");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(tld, wszHelpstring);
|
|
AddToTLDataStrW(tld, L"(\"");
|
|
AddToTLDataStrW(tld, bstrHelpString);
|
|
AddToTLDataStrW(tld, L"\")");
|
|
}
|
|
if(!bFirst) AddToTLDataStrW(tld, L"]\n");
|
|
|
|
if(pTypeAttr->wTypeFlags & TYPEFLAG_FOLEAUTOMATION) {
|
|
AddToTLDataStrW(tld, wszVT_HRESULT);
|
|
if(lstrcmpW(wszText, wszVT_VOID)) pFuncDesc->cParams++;
|
|
}
|
|
else {
|
|
AddToTLDataStrW(tld, wszText);
|
|
AddToTLDataStrW(tld, wszAfter);
|
|
}
|
|
|
|
bstrParamNames = HeapAlloc(GetProcessHeap(), 0,
|
|
sizeof(BSTR)*(pFuncDesc->cParams+1));
|
|
if(FAILED(ITypeInfo_GetNames(pTypeInfo, pFuncDesc->memid, bstrParamNames,
|
|
pFuncDesc->cParams+1, &namesNo)))
|
|
{
|
|
HeapFree(GetProcessHeap(), 0, bstrParamNames);
|
|
continue;
|
|
}
|
|
SysFreeString(bstrParamNames[0]);
|
|
|
|
AddToTLDataStrW(tld, L" ");
|
|
if(pFuncDesc->memid >= MIN_FUNC_ID)
|
|
{
|
|
AddToTLDataStrW(tld, wszStdCall);
|
|
AddToTLDataStrW(tld, L" ");
|
|
}
|
|
if (bstrName) AddToTLDataStrW(tld, bstrName);
|
|
AddToTLDataStrW(tld, L"(");
|
|
|
|
for(j=0; j<pFuncDesc->cParams; j++)
|
|
{
|
|
if(j != 0) AddToTLDataStrW(tld, L",");
|
|
if(pFuncDesc->cParams != 1)
|
|
{
|
|
AddToTLDataStrW(tld, L"\n");
|
|
AddSpaces(tld, TAB_SIZE);
|
|
}
|
|
bFirst = TRUE;
|
|
#define ENUM_PARAM_FLAG(x)\
|
|
if(U(pFuncDesc->lprgelemdescParam[j]).paramdesc.wParamFlags & x) \
|
|
{\
|
|
if(bFirst)\
|
|
AddToTLDataStrW(tld, L"[");\
|
|
else\
|
|
{\
|
|
AddToTLDataStrW(tld, L", ");\
|
|
}\
|
|
bFirst = FALSE;\
|
|
AddToTLDataStrW(tld, wsz##x);\
|
|
}
|
|
ENUM_PARAM_FLAG(PARAMFLAG_FIN);
|
|
ENUM_PARAM_FLAG(PARAMFLAG_FOUT);
|
|
ENUM_PARAM_FLAG(PARAMFLAG_FLCID);
|
|
ENUM_PARAM_FLAG(PARAMFLAG_FRETVAL);
|
|
ENUM_PARAM_FLAG(PARAMFLAG_FOPT);
|
|
ENUM_PARAM_FLAG(PARAMFLAG_FHASCUSTDATA);
|
|
|
|
if(U(pFuncDesc->lprgelemdescParam[j]).paramdesc.wParamFlags & PARAMFLAG_FHASDEFAULT)
|
|
{
|
|
VARIANT var, *param=&U(pFuncDesc->lprgelemdescParam[j]).paramdesc.pparamdescex->varDefaultValue;
|
|
VariantInit(&var);
|
|
if(bFirst) AddToTLDataStrW(tld, L"[");
|
|
else AddToTLDataStrW(tld, L", ");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(tld, wszDefaultValue);
|
|
AddToTLDataStrW(tld, L"(");
|
|
if (V_VT(param) == VT_BSTR)
|
|
{
|
|
AddToTLDataStrW(tld, L"\"");
|
|
AddToTLDataStrW(tld, V_BSTR(param));
|
|
AddToTLDataStrW(tld, L"\"");
|
|
} else if (VariantChangeType(&var, param, 0, VT_BSTR) == S_OK)
|
|
AddToTLDataStrW(tld, V_BSTR(&var));
|
|
AddToTLDataStrW(tld, L")");
|
|
}
|
|
|
|
if(!bFirst) AddToTLDataStrW(tld, L"] ");
|
|
|
|
memset(wszText, 0, sizeof(wszText));
|
|
memset(wszAfter, 0, sizeof(wszAfter));
|
|
CreateTypeInfo(wszText, wszAfter, pFuncDesc->lprgelemdescParam[j].tdesc,
|
|
pTypeInfo);
|
|
AddToTLDataStrW(tld, wszText);
|
|
AddToTLDataStrW(tld, wszAfter);
|
|
AddToTLDataStrW(tld, L" ");
|
|
if (j+1 < namesNo) {
|
|
if (bstrParamNames[j+1])
|
|
{
|
|
AddToTLDataStrW(tld, bstrParamNames[j+1]);
|
|
SysFreeString(bstrParamNames[j+1]);
|
|
}
|
|
} else {
|
|
AddToTLDataStrW(tld, szRhs);
|
|
}
|
|
}
|
|
AddToTLDataStrW(tld, L");\n");
|
|
|
|
SendMessageW(typelib.hTree, TVM_INSERTITEMW, 0, (LPARAM)&tvis);
|
|
HeapFree(GetProcessHeap(), 0, bstrParamNames);
|
|
SysFreeString(bstrName);
|
|
SysFreeString(bstrHelpString);
|
|
ITypeInfo_ReleaseFuncDesc(pTypeInfo, pFuncDesc);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int EnumImplTypes(ITypeInfo *pTypeInfo, int cImplTypes, HTREEITEM hParent)
|
|
{
|
|
int i;
|
|
TVINSERTSTRUCTW tvis;
|
|
ITypeInfo *pRefTypeInfo;
|
|
HREFTYPE hRefType;
|
|
TYPEATTR *pTypeAttr;
|
|
BSTR bstrName;
|
|
WCHAR wszInheritedInterfaces[MAX_LOAD_STRING];
|
|
|
|
if(!cImplTypes) return 0;
|
|
|
|
LoadStringW(globals.hMainInst, IDS_INHERITINTERFACES, wszInheritedInterfaces,
|
|
ARRAY_SIZE(wszInheritedInterfaces));
|
|
|
|
U(tvis).item.mask = TVIF_TEXT;
|
|
U(tvis).item.cchTextMax = MAX_LOAD_STRING;
|
|
U(tvis).item.pszText = wszInheritedInterfaces;
|
|
tvis.hInsertAfter = TVI_LAST;
|
|
tvis.hParent = hParent;
|
|
|
|
tvis.hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
|
|
for(i=0; i<cImplTypes; i++)
|
|
{
|
|
if(FAILED(ITypeInfo_GetRefTypeOfImplType(pTypeInfo, i, &hRefType))) continue;
|
|
if(FAILED(ITypeInfo_GetRefTypeInfo(pTypeInfo, hRefType, &pRefTypeInfo)))
|
|
continue;
|
|
if(FAILED(ITypeInfo_GetDocumentation(pRefTypeInfo, MEMBERID_NIL, &bstrName,
|
|
NULL, NULL, NULL)))
|
|
{
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
continue;
|
|
}
|
|
if(FAILED(ITypeInfo_GetTypeAttr(pRefTypeInfo, &pTypeAttr)))
|
|
{
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
continue;
|
|
}
|
|
|
|
U(tvis).item.cchTextMax = SysStringLen(bstrName);
|
|
U(tvis).item.pszText = bstrName;
|
|
|
|
hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
EnumVars(pRefTypeInfo, pTypeAttr->cVars, hParent);
|
|
EnumFuncs(pRefTypeInfo, pTypeAttr, hParent);
|
|
EnumImplTypes(pRefTypeInfo, pTypeAttr->cImplTypes, hParent);
|
|
|
|
SysFreeString(bstrName);
|
|
ITypeInfo_ReleaseTypeAttr(pRefTypeInfo, pTypeAttr);
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static void EnumCoclassImplTypes(ITypeInfo *pTypeInfo,
|
|
int cImplTypes, TYPELIB_DATA *pTLData)
|
|
{
|
|
int i;
|
|
ITypeInfo *pRefTypeInfo;
|
|
HREFTYPE hRefType;
|
|
TYPEATTR *pTypeAttr;
|
|
BSTR bstrName;
|
|
BOOL bFirst;
|
|
INT flags;
|
|
const WCHAR wszTKIND_INTERFACE[] = { 'i','n','t','e','r','f','a','c','e',' ','\0' };
|
|
const WCHAR wszTKIND_DISPATCH[]
|
|
= { 'd','i','s','p','i','n','t','e','r','f','a','c','e',' ','\0' };
|
|
const WCHAR wszIMPLTYPEFLAG_FDEFAULT[]
|
|
= { 'd','e','f','a','u','l','t','\0' };
|
|
const WCHAR wszIMPLTYPEFLAG_FSOURCE[]
|
|
= { 's','o','u','r','c','e','\0' };
|
|
const WCHAR wszIMPLTYPEFLAG_FRESTRICTED[]
|
|
= { 'r','e','s','t','r','i','c','t','e','d','\0' };
|
|
|
|
for(i=0; i<cImplTypes; i++)
|
|
{
|
|
if(FAILED(ITypeInfo_GetRefTypeOfImplType(pTypeInfo, i, &hRefType))) continue;
|
|
if(FAILED(ITypeInfo_GetRefTypeInfo(pTypeInfo, hRefType, &pRefTypeInfo)))
|
|
continue;
|
|
if(FAILED(ITypeInfo_GetDocumentation(pRefTypeInfo, MEMBERID_NIL, &bstrName,
|
|
NULL, NULL, NULL)))
|
|
{
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
continue;
|
|
}
|
|
if(FAILED(ITypeInfo_GetTypeAttr(pRefTypeInfo, &pTypeAttr)))
|
|
{
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
continue;
|
|
}
|
|
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
ITypeInfo_GetImplTypeFlags(pTypeInfo, i, &flags);
|
|
bFirst = TRUE;
|
|
#define ENUM_IMPLTYPEFLAG(x)\
|
|
if(flags & x) \
|
|
{\
|
|
if(bFirst)\
|
|
AddToTLDataStrW(pTLData, L"[");\
|
|
else\
|
|
{\
|
|
AddToTLDataStrW(pTLData, L", ");\
|
|
}\
|
|
bFirst = FALSE;\
|
|
AddToTLDataStrW(pTLData, wsz##x);\
|
|
}
|
|
ENUM_IMPLTYPEFLAG(IMPLTYPEFLAG_FDEFAULT);
|
|
ENUM_IMPLTYPEFLAG(IMPLTYPEFLAG_FSOURCE);
|
|
ENUM_IMPLTYPEFLAG(IMPLTYPEFLAG_FRESTRICTED);
|
|
if(!bFirst)
|
|
AddToTLDataStrW(pTLData, L"] ");
|
|
|
|
if(pTypeAttr->typekind == TKIND_INTERFACE ||
|
|
(pTypeAttr->wTypeFlags & TYPEFLAG_FDUAL))
|
|
AddToTLDataStrW(pTLData, wszTKIND_INTERFACE);
|
|
else if(pTypeAttr->typekind == TKIND_DISPATCH)
|
|
AddToTLDataStrW(pTLData, wszTKIND_DISPATCH);
|
|
AddToTLDataStrW(pTLData, L" ");
|
|
|
|
AddToTLDataStrW(pTLData, bstrName);
|
|
AddToTLDataStrW(pTLData, L";\n");
|
|
|
|
SysFreeString(bstrName);
|
|
ITypeInfo_ReleaseTypeAttr(pRefTypeInfo, pTypeAttr);
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
}
|
|
}
|
|
|
|
static void AddIdlData(HTREEITEM hCur, TYPELIB_DATA *pTLData)
|
|
{
|
|
TVITEMW tvi;
|
|
|
|
hCur = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_CHILD, (LPARAM)hCur);
|
|
memset(&tvi, 0, sizeof(TVITEMW));
|
|
tvi.mask = TVIF_PARAM;
|
|
|
|
while(hCur)
|
|
{
|
|
tvi.hItem = hCur;
|
|
SendMessageW(typelib.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
if(!((TYPELIB_DATA*)(tvi.lParam))->bHide) {
|
|
AddToTLDataStrW(pTLData, L"\n");
|
|
AddToTLDataStrWithTabsW(pTLData, ((TYPELIB_DATA*)(tvi.lParam))->idl);
|
|
}
|
|
hCur = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_NEXT, (LPARAM)hCur);
|
|
}
|
|
}
|
|
|
|
static void AddPredefinitions(HTREEITEM hFirst, TYPELIB_DATA *pTLData)
|
|
{
|
|
HTREEITEM hCur;
|
|
TVITEMW tvi;
|
|
WCHAR wszText[MAX_LOAD_STRING];
|
|
WCHAR wszPredefinition[] = { '/','/',' ','T','L','i','b',' ',':','\n',
|
|
'/','/',' ','F','o','r','w','a','r','d',' ','d','e','c','l','a','r','e',' ',
|
|
'a','l','l',' ','t','y','p','e','s',' ','d','e','f','i','n','e','d',' ',
|
|
'i','n',' ','t','h','i','s',' ','t','y','p','e','l','i','b','\0' };
|
|
|
|
hFirst = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_CHILD, (LPARAM)hFirst);
|
|
|
|
AddToTLDataStrWithTabsW(pTLData, wszPredefinition);
|
|
AddToTLDataStrW(pTLData, L"\n");
|
|
|
|
hCur = hFirst;
|
|
memset(&tvi, 0, sizeof(TVITEMW));
|
|
tvi.mask = TVIF_TEXT|TVIF_PARAM;
|
|
tvi.cchTextMax = MAX_LOAD_STRING;
|
|
tvi.pszText = wszText;
|
|
while(hCur)
|
|
{
|
|
tvi.hItem = hCur;
|
|
SendMessageW(typelib.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
if(((TYPELIB_DATA*)(tvi.lParam))->bPredefine &&
|
|
!((TYPELIB_DATA*)(tvi.lParam))->bHide)
|
|
{
|
|
AddToStrW(wszText, L";");
|
|
AddToTLDataStrWithTabsW(pTLData, wszText);
|
|
AddToTLDataStrW(pTLData, L"\n");
|
|
}
|
|
hCur = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_NEXT, (LPARAM)hCur);
|
|
}
|
|
}
|
|
|
|
static void CreateInterfaceInfo(ITypeInfo *pTypeInfo, int cImplTypes, WCHAR *wszName,
|
|
WCHAR *wszHelpString, ULONG ulHelpContext, TYPEATTR *pTypeAttr,
|
|
TYPELIB_DATA *pTLData)
|
|
{
|
|
ITypeInfo *pRefTypeInfo;
|
|
HREFTYPE hRefType;
|
|
BSTR bstrName;
|
|
WCHAR wszGuid[MAX_LOAD_STRING];
|
|
WCHAR wszHelpContext[MAX_LOAD_STRING];
|
|
|
|
const WCHAR wszInterface[] = { 'i','n','t','e','r','f','a','c','e',' ','\0' };
|
|
const WCHAR wszDispinterface[]
|
|
= { 'd','i','s','p','i','n','t','e','r','f','a','c','e',' ','\0' };
|
|
const WCHAR wszHelpcontext[] = { 'h','e','l','p','c','o','n','t','e','x','t','\0' };
|
|
const WCHAR wszTYPEFLAG_FAPPOBJECT[] = { 'a','p','p','o','b','j','e','c','t','\0' };
|
|
const WCHAR wszTYPEFLAG_FCANCREATE[] = { 'c','a','n','c','r','e','a','t','e','\0' };
|
|
const WCHAR wszTYPEFLAG_FLICENSED[] = { 'l','i','c','e','n','s','e','d','\0' };
|
|
const WCHAR wszTYPEFLAG_FPREDECLID[] = { 'p','r','e','d','e','c','l','i','d','\0' };
|
|
const WCHAR wszTYPEFLAG_FHIDDEN[] = { 'h','i','d','d','e','n','\0' };
|
|
const WCHAR wszTYPEFLAG_FCONTROL[] = { 'c','o','n','t','r','o','l','\0' };
|
|
const WCHAR wszTYPEFLAG_FDUAL[] = { 'd','u','a','l','\0' };
|
|
const WCHAR wszTYPEFLAG_FNONEXTENSIBLE[]
|
|
= { 'n','o','n','e','x','t','e','n','s','i','b','l','e','\0' };
|
|
const WCHAR wszTYPEFLAG_FOLEAUTOMATION[]
|
|
= { 'o','l','e','a','u','t','o','m','a','t','i','o','n','\0' };
|
|
const WCHAR wszTYPEFLAG_FRESTRICTED[]
|
|
= { 'r','e','s','t','r','i','c','t','e','d','\0' };
|
|
const WCHAR wszTYPEFLAG_FAGGREGATABLE[]
|
|
= { 'a','g','g','r','e','g','a','t','a','b','l','e','\0' };
|
|
const WCHAR wszTYPEFLAG_FREPLACEABLE[]
|
|
= { 'r','e','p','l','a','c','a','b','l','e','\0' };
|
|
const WCHAR wszTYPEFLAG_FREVERSEBIND[]
|
|
= { 'r','e','v','e','r','s','e','b','i','n','d','\0' };
|
|
const WCHAR wszTYPEFLAG_FPROXY[] = { 'p','r','o','x','y','\0' };
|
|
|
|
AddToTLDataStrW(pTLData, L"[\n");
|
|
if(pTypeAttr->typekind != TKIND_DISPATCH)
|
|
{
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
AddToTLDataStrW(pTLData, wszOdl);
|
|
AddToTLDataStrW(pTLData, L",\n");
|
|
}
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
AddToTLDataStrW(pTLData, wszUUID);
|
|
AddToTLDataStrW(pTLData, L"(");
|
|
StringFromGUID2(&(pTypeAttr->guid), wszGuid, MAX_LOAD_STRING);
|
|
wszGuid[lstrlenW(wszGuid)-1] = '\0';
|
|
AddToTLDataStrW(pTLData, &wszGuid[1]);
|
|
AddToTLDataStrW(pTLData, L")");
|
|
if(wszHelpString)
|
|
{
|
|
AddToTLDataStrW(pTLData, L",\n");
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
AddToTLDataStrW(pTLData, wszHelpstring);
|
|
AddToTLDataStrW(pTLData, L"(\"");
|
|
AddToTLDataStrW(pTLData, wszHelpString);
|
|
AddToTLDataStrW(pTLData, L"\")");
|
|
}
|
|
if(ulHelpContext)
|
|
{
|
|
AddToTLDataStrW(pTLData, L",\n");
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
AddToTLDataStrW(pTLData, wszHelpcontext);
|
|
AddToTLDataStrW(pTLData, L"(");
|
|
wsprintfW(wszHelpContext, wszFormat, ulHelpContext);
|
|
AddToTLDataStrW(pTLData, wszHelpContext);
|
|
AddToTLDataStrW(pTLData, L")");
|
|
}
|
|
if(pTypeAttr->wTypeFlags)
|
|
{
|
|
#define ENUM_FLAGS(x) if(pTypeAttr->wTypeFlags & x)\
|
|
{\
|
|
AddToTLDataStrW(pTLData, L",\n");\
|
|
AddSpaces(pTLData, TAB_SIZE);\
|
|
AddToTLDataStrW(pTLData, wsz##x);\
|
|
}
|
|
ENUM_FLAGS(TYPEFLAG_FAPPOBJECT);
|
|
ENUM_FLAGS(TYPEFLAG_FCANCREATE);
|
|
ENUM_FLAGS(TYPEFLAG_FLICENSED);
|
|
ENUM_FLAGS(TYPEFLAG_FPREDECLID);
|
|
ENUM_FLAGS(TYPEFLAG_FHIDDEN);
|
|
ENUM_FLAGS(TYPEFLAG_FCONTROL);
|
|
ENUM_FLAGS(TYPEFLAG_FDUAL);
|
|
ENUM_FLAGS(TYPEFLAG_FNONEXTENSIBLE);
|
|
ENUM_FLAGS(TYPEFLAG_FOLEAUTOMATION);
|
|
ENUM_FLAGS(TYPEFLAG_FRESTRICTED);
|
|
ENUM_FLAGS(TYPEFLAG_FAGGREGATABLE);
|
|
ENUM_FLAGS(TYPEFLAG_FREPLACEABLE);
|
|
ENUM_FLAGS(TYPEFLAG_FREVERSEBIND);
|
|
ENUM_FLAGS(TYPEFLAG_FPROXY);
|
|
}
|
|
AddToTLDataStrW(pTLData, L"\n]\n");
|
|
if(pTypeAttr->typekind != TKIND_DISPATCH) AddToTLDataStrW(pTLData, wszInterface);
|
|
else AddToTLDataStrW(pTLData, wszDispinterface);
|
|
AddToTLDataStrW(pTLData, wszName);
|
|
AddToTLDataStrW(pTLData, L" ");
|
|
if(cImplTypes && pTypeAttr->typekind != TKIND_DISPATCH)
|
|
{
|
|
AddToTLDataStrW(pTLData, L": ");
|
|
|
|
ITypeInfo_GetRefTypeOfImplType(pTypeInfo, 0, &hRefType);
|
|
if (SUCCEEDED(ITypeInfo_GetRefTypeInfo(pTypeInfo, hRefType, &pRefTypeInfo)))
|
|
{
|
|
ITypeInfo_GetDocumentation(pRefTypeInfo, MEMBERID_NIL, &bstrName,
|
|
NULL, NULL, NULL);
|
|
AddToTLDataStrW(pTLData, bstrName);
|
|
AddToTLDataStrW(pTLData, L" ");
|
|
|
|
SysFreeString(bstrName);
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
}
|
|
else
|
|
AddToTLDataStrW(pTLData, wszFailed);
|
|
}
|
|
AddToTLDataStrW(pTLData, L"{\n");
|
|
|
|
AddToStrW(pTLData->wszInsertAfter, L"};\n");
|
|
}
|
|
|
|
static void CreateTypedefHeader(ITypeInfo *pTypeInfo,
|
|
TYPEATTR *pTypeAttr, TYPELIB_DATA *pTLData)
|
|
{
|
|
BOOL bFirst = TRUE;
|
|
WCHAR wszGuid[MAX_LOAD_STRING];
|
|
const WCHAR wszTypedef[] = { 't','y','p','e','d','e','f',' ','\0' };
|
|
const WCHAR wszPublic[] = { 'p','u','b','l','i','c','\0' };
|
|
|
|
AddToTLDataStrW(pTLData, wszTypedef);
|
|
if(memcmp(&pTypeAttr->guid, &GUID_NULL, sizeof(GUID)))
|
|
{
|
|
AddToTLDataStrW(pTLData, L"[");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(pTLData, wszUUID);
|
|
AddToTLDataStrW(pTLData, L"(");
|
|
StringFromGUID2(&(pTypeAttr->guid), wszGuid, MAX_LOAD_STRING);
|
|
wszGuid[lstrlenW(wszGuid)-1] = '\0';
|
|
AddToTLDataStrW(pTLData, &wszGuid[1]);
|
|
AddToTLDataStrW(pTLData, L")");
|
|
}
|
|
if(pTypeAttr->typekind == TKIND_ALIAS)
|
|
{
|
|
if(bFirst) AddToTLDataStrW(pTLData, L"[");
|
|
else AddToTLDataStrW(pTLData, L", ");
|
|
bFirst = FALSE;
|
|
AddToTLDataStrW(pTLData, wszPublic);
|
|
}
|
|
if(!bFirst) AddToTLDataStrW(pTLData, L"]\n");
|
|
}
|
|
|
|
static void CreateCoclassHeader(ITypeInfo *pTypeInfo,
|
|
TYPEATTR *pTypeAttr, TYPELIB_DATA *pTLData)
|
|
{
|
|
WCHAR wszGuid[MAX_LOAD_STRING];
|
|
BSTR bstrHelpString;
|
|
const WCHAR wszNoncreatable[]
|
|
= { 'n','o','n','c','r','e','a','t','a','b','l','e','\0' };
|
|
|
|
AddToTLDataStrW(pTLData, L"[\n");
|
|
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
AddToTLDataStrW(pTLData, wszUUID);
|
|
AddToTLDataStrW(pTLData, L"(");
|
|
StringFromGUID2(&(pTypeAttr->guid), wszGuid, MAX_LOAD_STRING);
|
|
wszGuid[lstrlenW(wszGuid)-1] = '\0';
|
|
AddToTLDataStrW(pTLData, &wszGuid[1]);
|
|
AddToTLDataStrW(pTLData, L")");
|
|
|
|
if(SUCCEEDED(ITypeInfo_GetDocumentation(pTypeInfo, MEMBERID_NIL, NULL,
|
|
&bstrHelpString, NULL, NULL)))
|
|
{
|
|
if(SysStringLen(bstrHelpString))
|
|
{
|
|
AddToTLDataStrW(pTLData, L",\n");
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
AddToTLDataStrW(pTLData, wszHelpstring);
|
|
AddToTLDataStrW(pTLData, L"(\"");
|
|
AddToTLDataStrW(pTLData, bstrHelpString);
|
|
AddToTLDataStrW(pTLData, L"\")");
|
|
}
|
|
SysFreeString(bstrHelpString);
|
|
}
|
|
|
|
if(!(pTypeAttr->wTypeFlags & TYPEFLAG_FCANCREATE))
|
|
{
|
|
AddToTLDataStrW(pTLData, L",\n");
|
|
AddSpaces(pTLData, TAB_SIZE);
|
|
AddToTLDataStrW(pTLData, wszNoncreatable);
|
|
}
|
|
|
|
AddToTLDataStrW(pTLData, L"\n]\n");
|
|
}
|
|
|
|
static int PopulateTree(void)
|
|
{
|
|
TVINSERTSTRUCTW tvis;
|
|
TVITEMW tvi;
|
|
ITypeLib *pTypeLib;
|
|
TLIBATTR *pTLibAttr;
|
|
ITypeInfo *pTypeInfo, *pRefTypeInfo;
|
|
HREFTYPE hRefType;
|
|
TYPEATTR *pTypeAttr;
|
|
INT count, i;
|
|
ULONG ulHelpContext;
|
|
BSTR bstrName;
|
|
BSTR bstrData;
|
|
WCHAR wszText[MAX_LOAD_STRING];
|
|
WCHAR wszAfter[MAX_LOAD_STRING];
|
|
HRESULT hRes;
|
|
HTREEITEM hParent;
|
|
HTREEITEM hMain;
|
|
BOOL bInsert;
|
|
TYPELIB_DATA *tldDispatch;
|
|
TYPELIB_DATA *tld;
|
|
|
|
const WCHAR wszGeneratedInfo[] = { '/','/',' ','G','e','n','e','r','a','t','e','d',
|
|
' ','.','I','D','L',' ','f','i','l','e',' ','(','b','y',' ','t','h','e',' ',
|
|
'O','L','E','/','C','O','M',' ','O','b','j','e','c','t',' ',
|
|
'V','i','e','w','e','r',')','\n','/','/','\n','/','/',' ',
|
|
't','y','p','e','l','i','b',' ','f','i','l','e','n','a','m','e',':',' ','\0'};
|
|
|
|
const WCHAR wszFormat[] = { '%','s',' ','(','%','s',')','\0' };
|
|
const WCHAR wszFormat2[] = { 'v','e','r','s','i','o','n',
|
|
'(','%','l','d','.','%','l','d',')','\0' };
|
|
|
|
const WCHAR wszTKIND_ENUM[] = { 't','y','p','e','d','e','f',' ','e','n','u','m',' ','\0' };
|
|
const WCHAR wszTKIND_RECORD[]
|
|
= { 't','y','p','e','d','e','f',' ','s','t','r','u','c','t',' ','\0' };
|
|
const WCHAR wszTKIND_MODULE[] = { 'm','o','d','u','l','e',' ','\0' };
|
|
const WCHAR wszTKIND_INTERFACE[] = { 'i','n','t','e','r','f','a','c','e',' ','\0' };
|
|
const WCHAR wszTKIND_DISPATCH[]
|
|
= { 'd','i','s','p','i','n','t','e','r','f','a','c','e',' ','\0' };
|
|
const WCHAR wszTKIND_COCLASS[] = { 'c','o','c','l','a','s','s',' ','\0' };
|
|
const WCHAR wszTKIND_ALIAS[] = { 't','y','p','e','d','e','f',' ','\0' };
|
|
const WCHAR wszTKIND_UNION[]
|
|
= { 't','y','p','e','d','e','f',' ','u','n','i','o','n',' ','\0' };
|
|
|
|
const WCHAR wszLibrary[] = { 'l','i','b','r','a','r','y',' ','\0' };
|
|
const WCHAR wszTag[] = { 't','a','g','\0' };
|
|
|
|
WCHAR wszProperties[] = { 'p','r','o','p','e','r','t','i','e','s','\0' };
|
|
WCHAR wszMethods[] = { 'm','e','t','h','o','d','s','\0' };
|
|
|
|
U(tvis).item.mask = TVIF_TEXT|TVIF_PARAM;
|
|
U(tvis).item.cchTextMax = MAX_LOAD_STRING;
|
|
U(tvis).item.pszText = wszText;
|
|
tvis.hInsertAfter = TVI_LAST;
|
|
tvis.hParent = TVI_ROOT;
|
|
|
|
if(FAILED((hRes = LoadTypeLib(typelib.wszFileName, &pTypeLib))))
|
|
{
|
|
WCHAR wszMessage[MAX_LOAD_STRING];
|
|
WCHAR wszError[MAX_LOAD_STRING];
|
|
DWORD_PTR args[2];
|
|
|
|
LoadStringW(globals.hMainInst, IDS_ERROR_LOADTYPELIB, wszError, ARRAY_SIZE(wszError));
|
|
args[0] = (DWORD_PTR)typelib.wszFileName;
|
|
args[1] = hRes;
|
|
FormatMessageW(FORMAT_MESSAGE_FROM_STRING|FORMAT_MESSAGE_ARGUMENT_ARRAY,
|
|
wszError, 0, 0, wszMessage, ARRAY_SIZE(wszMessage), (__ms_va_list*)args);
|
|
MessageBoxW(globals.hMainWnd, wszMessage, NULL, MB_OK|MB_ICONEXCLAMATION);
|
|
return 1;
|
|
}
|
|
count = ITypeLib_GetTypeInfoCount(pTypeLib);
|
|
|
|
ITypeLib_GetDocumentation(pTypeLib, -1, &bstrName, &bstrData, NULL, NULL);
|
|
ITypeLib_GetLibAttr(pTypeLib, &pTLibAttr);
|
|
|
|
tld = InitializeTLData();
|
|
U(tvis).item.lParam = (LPARAM) tld;
|
|
AddToTLDataStrW(tld, wszGeneratedInfo);
|
|
AddToTLDataStrW(tld, typelib.wszFileName);
|
|
AddToTLDataStrW(tld, L"\n\n[\n");
|
|
AddSpaces(tld, TAB_SIZE);
|
|
AddToTLDataStrW(tld, wszUUID);
|
|
AddToTLDataStrW(tld, L"(");
|
|
StringFromGUID2(&(pTLibAttr->guid), wszText, MAX_LOAD_STRING);
|
|
wszText[lstrlenW(wszText)-1] = '\0';
|
|
AddToTLDataStrW(tld, &wszText[1]);
|
|
AddToTLDataStrW(tld, L"),\n");
|
|
AddSpaces(tld, TAB_SIZE);
|
|
wsprintfW(wszText, wszFormat2, pTLibAttr->wMajorVerNum, pTLibAttr->wMinorVerNum);
|
|
AddToTLDataStrW(tld, wszText);
|
|
|
|
if (bstrData)
|
|
{
|
|
/* helpstring is optional */
|
|
AddToTLDataStrW(tld, L",\n");
|
|
AddSpaces(tld, TAB_SIZE);
|
|
AddToTLDataStrW(tld, wszHelpstring);
|
|
AddToTLDataStrW(tld, L"(\"");
|
|
AddToTLDataStrW(tld, bstrData);
|
|
AddToTLDataStrW(tld, L"\")");
|
|
}
|
|
|
|
AddToTLDataStrW(tld, L"\n]\n");
|
|
AddToTLDataStrW(tld, wszLibrary);
|
|
if (bstrName) AddToTLDataStrW(tld, bstrName);
|
|
AddToTLDataStrW(tld, L"\n{\n");
|
|
|
|
AddToStrW(tld->wszInsertAfter, L"};");
|
|
|
|
wsprintfW(wszText, wszFormat, bstrName, bstrData);
|
|
SysFreeString(bstrName);
|
|
SysFreeString(bstrData);
|
|
tvis.hParent = (HTREEITEM)SendMessageW(typelib.hTree,
|
|
TVM_INSERTITEMW, 0, (LPARAM)&tvis);
|
|
|
|
for(i=0; i<count; i++)
|
|
{
|
|
bInsert = TRUE;
|
|
ITypeLib_GetTypeInfo(pTypeLib, i, &pTypeInfo);
|
|
|
|
ITypeInfo_GetDocumentation(pTypeInfo, MEMBERID_NIL, &bstrName, &bstrData,
|
|
&ulHelpContext, NULL);
|
|
ITypeInfo_GetTypeAttr(pTypeInfo, &pTypeAttr);
|
|
|
|
memset(wszText, 0, sizeof(wszText));
|
|
memset(wszAfter, 0, sizeof(wszAfter));
|
|
tld = InitializeTLData();
|
|
U(tvis).item.lParam = (LPARAM)tld;
|
|
switch(pTypeAttr->typekind)
|
|
{
|
|
case TKIND_ENUM:
|
|
AddToStrW(wszText, wszTKIND_ENUM);
|
|
AddToStrW(wszText, bstrName);
|
|
|
|
CreateTypedefHeader(pTypeInfo, pTypeAttr, tld);
|
|
AddToTLDataStrW(tld, &wszTKIND_ENUM[lstrlenW(wszTKIND_ALIAS)]);
|
|
AddToTLDataStrW(tld, L"{\n");
|
|
AddToStrW(tld->wszInsertAfter, L"} ");
|
|
AddToStrW(tld->wszInsertAfter, bstrName);
|
|
AddToStrW(tld->wszInsertAfter, L";\n");
|
|
|
|
bInsert = FALSE;
|
|
hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
EnumEnums(pTypeInfo, pTypeAttr->cVars, hParent);
|
|
AddChildrenData(hParent, tld);
|
|
AddToTLDataStrW(tld, tld->wszInsertAfter);
|
|
break;
|
|
case TKIND_RECORD:
|
|
AddToTLDataStrW(tld, wszTKIND_RECORD);
|
|
AddToTLDataStrW(tld, wszTag);
|
|
AddToTLDataStrW(tld, bstrName);
|
|
AddToTLDataStrW(tld, L" {\n");
|
|
|
|
AddToStrW(tld->wszInsertAfter, L"} ");
|
|
AddToStrW(tld->wszInsertAfter, bstrName);
|
|
AddToStrW(tld->wszInsertAfter, L";\n");
|
|
|
|
AddToStrW(wszText, wszTKIND_RECORD);
|
|
AddToStrW(wszText, bstrName);
|
|
break;
|
|
case TKIND_MODULE:
|
|
AddToStrW(wszText, wszTKIND_MODULE);
|
|
AddToStrW(wszText, bstrName);
|
|
break;
|
|
case TKIND_INTERFACE:
|
|
CreateInterfaceInfo(pTypeInfo, pTypeAttr->cImplTypes, bstrName,
|
|
bstrData, ulHelpContext, pTypeAttr, tld);
|
|
tld->bPredefine = TRUE;
|
|
|
|
AddToStrW(wszText, wszTKIND_INTERFACE);
|
|
AddToStrW(wszText, bstrName);
|
|
break;
|
|
case TKIND_COCLASS:
|
|
AddToStrW(wszText, wszTKIND_COCLASS);
|
|
AddToStrW(wszText, bstrName);
|
|
|
|
CreateCoclassHeader(pTypeInfo, pTypeAttr, tld);
|
|
AddToTLDataStrW(tld, wszTKIND_COCLASS);
|
|
AddToTLDataStrW(tld, bstrName);
|
|
AddToTLDataStrW(tld, L" {\n");
|
|
|
|
EnumCoclassImplTypes(pTypeInfo, pTypeAttr->cImplTypes, tld);
|
|
|
|
AddToStrW(tld->wszInsertAfter, L"};\n");
|
|
|
|
bInsert = FALSE;
|
|
hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
AddToTLDataStrW(tld, tld->wszInsertAfter);
|
|
break;
|
|
case TKIND_UNION:
|
|
AddToStrW(wszText, wszTKIND_UNION);
|
|
AddToStrW(wszText, bstrName);
|
|
break;
|
|
case TKIND_DISPATCH:
|
|
CreateInterfaceInfo(pTypeInfo, pTypeAttr->cImplTypes, bstrName,
|
|
bstrData, ulHelpContext, pTypeAttr, tld);
|
|
tld->bPredefine = TRUE;
|
|
if(pTypeAttr->wTypeFlags & TYPEFLAG_FDUAL)
|
|
tld->bHide = TRUE;
|
|
AddToStrW(wszText, wszTKIND_DISPATCH);
|
|
AddToStrW(wszText, bstrName);
|
|
|
|
hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
hMain = tvis.hParent;
|
|
tldDispatch = tld;
|
|
|
|
lstrcpyW(wszText, wszProperties);
|
|
tvis.hParent = hParent;
|
|
tld = InitializeTLData();
|
|
U(tvis).item.lParam = (LPARAM) tld;
|
|
AddToTLDataStrW(tld, wszProperties);
|
|
AddToTLDataStrW(tld, L":\n");
|
|
tvis.hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
EnumVars(pTypeInfo, pTypeAttr->cVars, tvis.hParent);
|
|
AddChildrenData(tvis.hParent, tld);
|
|
|
|
lstrcpyW(wszText, wszMethods);
|
|
tvis.hParent = hParent;
|
|
tld = InitializeTLData();
|
|
U(tvis).item.lParam = (LPARAM) tld;
|
|
AddToTLDataStrW(tld, wszMethods);
|
|
AddToTLDataStrW(tld, L":\n");
|
|
tvis.hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
EnumFuncs(pTypeInfo, pTypeAttr, tvis.hParent);
|
|
AddChildrenData(tvis.hParent, tld);
|
|
|
|
EnumImplTypes(pTypeInfo, pTypeAttr->cImplTypes, hParent);
|
|
AddChildrenData(hParent, tldDispatch);
|
|
AddToTLDataStrW(tldDispatch, tldDispatch->wszInsertAfter);
|
|
|
|
bInsert = FALSE;
|
|
tvis.hParent = hMain;
|
|
|
|
if(SUCCEEDED(ITypeInfo_GetRefTypeOfImplType(pTypeInfo, -1, &hRefType)))
|
|
{
|
|
bInsert = TRUE;
|
|
|
|
ITypeInfo_ReleaseTypeAttr(pTypeInfo, pTypeAttr);
|
|
SysFreeString(bstrName);
|
|
SysFreeString(bstrData);
|
|
|
|
memset(wszText, 0, sizeof(wszText));
|
|
tld = InitializeTLData();
|
|
U(tvis).item.lParam = (LPARAM) tld;
|
|
|
|
ITypeInfo_GetRefTypeInfo(pTypeInfo, hRefType, &pRefTypeInfo);
|
|
ITypeInfo_GetDocumentation(pRefTypeInfo, MEMBERID_NIL, &bstrName,
|
|
&bstrData, &ulHelpContext, NULL);
|
|
ITypeInfo_GetTypeAttr(pRefTypeInfo, &pTypeAttr);
|
|
|
|
CreateInterfaceInfo(pTypeInfo, pTypeAttr->cImplTypes, bstrName,
|
|
bstrData, ulHelpContext, pTypeAttr, tld);
|
|
tld->bPredefine = TRUE;
|
|
|
|
AddToStrW(wszText, wszTKIND_INTERFACE);
|
|
AddToStrW(wszText, bstrName);
|
|
ITypeInfo_Release(pRefTypeInfo);
|
|
}
|
|
break;
|
|
case TKIND_ALIAS:
|
|
AddToStrW(wszText, wszTKIND_ALIAS);
|
|
CreateTypeInfo(wszText, wszAfter, pTypeAttr->tdescAlias, pTypeInfo);
|
|
AddToStrW(wszText, L" ");
|
|
AddToStrW(wszText, bstrName);
|
|
AddToStrW(wszText, wszAfter);
|
|
|
|
CreateTypedefHeader(pTypeInfo, pTypeAttr, tld);
|
|
AddToTLDataStrW(tld, &wszText[lstrlenW(wszTKIND_ALIAS)]);
|
|
AddToTLDataStrW(tld, L";\n");
|
|
break;
|
|
default:
|
|
lstrcpyW(wszText, bstrName);
|
|
WINE_FIXME("pTypeAttr->typekind == %d not supported\n",
|
|
pTypeAttr->typekind);
|
|
}
|
|
|
|
if(bInsert)
|
|
{
|
|
hParent = TreeView_InsertItemW(typelib.hTree, &tvis);
|
|
|
|
EnumVars(pTypeInfo, pTypeAttr->cVars, hParent);
|
|
EnumFuncs(pTypeInfo, pTypeAttr, hParent);
|
|
EnumImplTypes(pTypeInfo, pTypeAttr->cImplTypes, hParent);
|
|
|
|
if(memcmp(bstrName, wszVT_UNKNOWN, sizeof(wszVT_UNKNOWN)))
|
|
AddChildrenData(hParent, tld);
|
|
AddToTLDataStrW(tld, tld->wszInsertAfter);
|
|
}
|
|
|
|
ITypeInfo_ReleaseTypeAttr(pTypeInfo, pTypeAttr);
|
|
ITypeInfo_Release(pTypeInfo);
|
|
SysFreeString(bstrName);
|
|
SysFreeString(bstrData);
|
|
}
|
|
SendMessageW(typelib.hTree, TVM_EXPAND, TVE_EXPAND, (LPARAM)tvis.hParent);
|
|
|
|
memset(&tvi, 0, sizeof(TVITEMW));
|
|
tvi.mask = TVIF_PARAM;
|
|
tvi.hItem = tvis.hParent;
|
|
|
|
SendMessageW(typelib.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
AddPredefinitions(tvi.hItem, (TYPELIB_DATA*)(tvi.lParam));
|
|
AddIdlData(tvi.hItem, (TYPELIB_DATA*)(tvi.lParam));
|
|
AddToTLDataStrW((TYPELIB_DATA*)(tvi.lParam),
|
|
((TYPELIB_DATA*)(tvi.lParam))->wszInsertAfter);
|
|
|
|
ITypeLib_Release(pTypeLib);
|
|
return 0;
|
|
}
|
|
|
|
void UpdateData(HTREEITEM item)
|
|
{
|
|
TVITEMW tvi;
|
|
|
|
memset(&tvi, 0, sizeof(TVITEMW));
|
|
tvi.mask = TVIF_PARAM;
|
|
tvi.hItem = item;
|
|
|
|
SendMessageW(typelib.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
if(!tvi.lParam)
|
|
{
|
|
SetWindowTextW(typelib.hEdit, L" ");
|
|
return;
|
|
}
|
|
|
|
SetWindowTextW(typelib.hEdit, ((TYPELIB_DATA*)tvi.lParam)->idl);
|
|
}
|
|
|
|
static void TypeLibResizeChild(void)
|
|
{
|
|
RECT client, stat;
|
|
|
|
MoveWindow(typelib.hStatusBar, 0, 0, 0, 0, TRUE);
|
|
|
|
if(IsWindowVisible(typelib.hStatusBar))
|
|
GetClientRect(typelib.hStatusBar, &stat);
|
|
else stat.bottom = 0;
|
|
|
|
GetClientRect(globals.hTypeLibWnd, &client);
|
|
MoveWindow(typelib.hPaneWnd, 0, 0,
|
|
client.right, client.bottom-stat.bottom, TRUE);
|
|
}
|
|
|
|
static void TypeLibMenuCommand(WPARAM wParam, HWND hWnd)
|
|
{
|
|
BOOL vis;
|
|
|
|
switch(wParam)
|
|
{
|
|
case IDM_SAVEAS:
|
|
GetSaveIdlAsPath();
|
|
break;
|
|
case IDM_STATUSBAR:
|
|
vis = IsWindowVisible(typelib.hStatusBar);
|
|
ShowWindow(typelib.hStatusBar, vis ? SW_HIDE : SW_SHOW);
|
|
CheckMenuItem(GetMenu(hWnd), LOWORD(wParam),
|
|
vis ? MF_UNCHECKED : MF_CHECKED);
|
|
TypeLibResizeChild();
|
|
break;
|
|
case IDM_CLOSE:
|
|
DestroyWindow(hWnd);
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void UpdateTypeLibStatusBar(int itemID)
|
|
{
|
|
WCHAR info[MAX_LOAD_STRING];
|
|
|
|
if(!LoadStringW(globals.hMainInst, itemID, info, ARRAY_SIZE(info)))
|
|
LoadStringW(globals.hMainInst, IDS_READY, info, ARRAY_SIZE(info));
|
|
|
|
SendMessageW(typelib.hStatusBar, SB_SETTEXTW, 0, (LPARAM)info);
|
|
}
|
|
|
|
static void EmptyTLTree(void)
|
|
{
|
|
HTREEITEM cur, del;
|
|
TVITEMW tvi;
|
|
|
|
tvi.mask = TVIF_PARAM;
|
|
cur = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_CHILD, (LPARAM)TVI_ROOT);
|
|
|
|
while(TRUE)
|
|
{
|
|
del = cur;
|
|
cur = (HTREEITEM)SendMessageW(typelib.hTree, TVM_GETNEXTITEM,
|
|
TVGN_CHILD, (LPARAM)del);
|
|
|
|
if(!cur) cur = (HTREEITEM)SendMessageW(typelib.hTree,
|
|
TVM_GETNEXTITEM, TVGN_NEXT, (LPARAM)del);
|
|
if(!cur) cur = (HTREEITEM)SendMessageW(typelib.hTree,
|
|
TVM_GETNEXTITEM, TVGN_PARENT, (LPARAM)del);
|
|
|
|
tvi.hItem = del;
|
|
SendMessageW(typelib.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
if(tvi.lParam)
|
|
{
|
|
HeapFree(GetProcessHeap(), 0, ((TYPELIB_DATA *)tvi.lParam)->idl);
|
|
HeapFree(GetProcessHeap(), 0, (TYPELIB_DATA *)tvi.lParam);
|
|
}
|
|
|
|
SendMessageW(typelib.hTree, TVM_DELETEITEM, 0, (LPARAM)del);
|
|
|
|
if(!cur) break;
|
|
}
|
|
}
|
|
|
|
static LRESULT CALLBACK TypeLibProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
|
|
{
|
|
switch(uMsg)
|
|
{
|
|
case WM_CREATE:
|
|
{
|
|
if(!CreatePanedWindow(hWnd, &typelib.hPaneWnd, globals.hMainInst))
|
|
DestroyWindow(hWnd);
|
|
typelib.hTree = CreateWindowExW(WS_EX_CLIENTEDGE, WC_TREEVIEWW, NULL,
|
|
WS_CHILD|WS_VISIBLE|TVS_HASLINES|TVS_HASBUTTONS|TVS_LINESATROOT,
|
|
0, 0, 0, 0, typelib.hPaneWnd, (HMENU)TYPELIB_TREE,
|
|
globals.hMainInst, NULL);
|
|
typelib.hEdit = CreateWindowExW(WS_EX_CLIENTEDGE, WC_EDITW, NULL,
|
|
WS_CHILD|WS_VISIBLE|ES_MULTILINE|ES_READONLY|WS_HSCROLL|WS_VSCROLL,
|
|
0, 0, 0, 0, typelib.hPaneWnd, NULL, globals.hMainInst, NULL);
|
|
|
|
SetLeft(typelib.hPaneWnd, typelib.hTree);
|
|
SetRight(typelib.hPaneWnd, typelib.hEdit);
|
|
|
|
if(PopulateTree()) DestroyWindow(hWnd);
|
|
else SetFocus(typelib.hTree);
|
|
break;
|
|
}
|
|
case WM_COMMAND:
|
|
TypeLibMenuCommand(LOWORD(wParam), hWnd);
|
|
break;
|
|
case WM_MENUSELECT:
|
|
UpdateTypeLibStatusBar(LOWORD(wParam));
|
|
break;
|
|
case WM_SETFOCUS:
|
|
SetFocus(typelib.hTree);
|
|
break;
|
|
case WM_SIZE:
|
|
if(wParam == SIZE_MINIMIZED) break;
|
|
TypeLibResizeChild();
|
|
break;
|
|
case WM_DESTROY:
|
|
EmptyTLTree();
|
|
break;
|
|
default:
|
|
return DefWindowProcW(hWnd, uMsg, wParam, lParam);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
BOOL TypeLibRegisterClassW(void)
|
|
{
|
|
WNDCLASSW wcc;
|
|
|
|
memset(&wcc, 0, sizeof(WNDCLASSW));
|
|
wcc.lpfnWndProc = TypeLibProc;
|
|
wcc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
|
|
wcc.hCursor = LoadCursorW(0, (LPCWSTR)IDC_ARROW);
|
|
wcc.lpszMenuName = MAKEINTRESOURCEW(IDM_TYPELIB);
|
|
wcc.lpszClassName = wszTypeLib;
|
|
|
|
if(!RegisterClassW(&wcc))
|
|
return FALSE;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
BOOL CreateTypeLibWindow(HINSTANCE hInst, WCHAR *wszFileName)
|
|
{
|
|
WCHAR wszTitle[MAX_LOAD_STRING];
|
|
LoadStringW(hInst, IDS_TYPELIBTITLE, wszTitle, ARRAY_SIZE(wszTitle));
|
|
|
|
if(wszFileName) lstrcpyW(typelib.wszFileName, wszFileName);
|
|
else
|
|
{
|
|
TVITEMW tvi;
|
|
|
|
memset(&tvi, 0, sizeof(TVITEMW));
|
|
tvi.hItem = (HTREEITEM)SendMessageW(globals.hTree, TVM_GETNEXTITEM,
|
|
TVGN_CARET, 0);
|
|
|
|
SendMessageW(globals.hTree, TVM_GETITEMW, 0, (LPARAM)&tvi);
|
|
lstrcpyW(typelib.wszFileName, ((ITEM_INFO*)tvi.lParam)->path);
|
|
}
|
|
|
|
globals.hTypeLibWnd = CreateWindowW(wszTypeLib, wszTitle,
|
|
WS_OVERLAPPEDWINDOW|WS_VISIBLE,
|
|
CW_USEDEFAULT, CW_USEDEFAULT, 800, 600, NULL, NULL, hInst, NULL);
|
|
if(!globals.hTypeLibWnd) return FALSE;
|
|
|
|
typelib.hStatusBar = CreateStatusWindowW(WS_VISIBLE|WS_CHILD,
|
|
wszTitle, globals.hTypeLibWnd, 0);
|
|
|
|
TypeLibResizeChild();
|
|
return TRUE;
|
|
}
|