/* * TYPELIB2 * * Copyright 2004 Alastair Bridgewater * * 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 * * -------------------------------------------------------------------------------------- * Known problems: * * Badly incomplete. * * Only works on little-endian systems. * */ #include "config.h" #include "wine/port.h" #include #include #include #include #include #define COBJMACROS #define NONAMELESSUNION #define NONAMELESSSTRUCT #include "winerror.h" #include "windef.h" #include "winbase.h" #include "winnls.h" #include "winreg.h" #include "winuser.h" #include "wine/unicode.h" #include "objbase.h" #include "typelib.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(typelib2); /* WINE_DEFAULT_DEBUG_CHANNEL(ole); */ /****************************************************************************** * ICreateTypeLib2 {OLEAUT32} * * NOTES * The ICreateTypeLib2 interface provides an interface whereby one may create * new type library (.tlb) files. * * This interface inherits from ICreateTypeLib, and can be freely cast back * and forth between an ICreateTypeLib and an ICreateTypeLib2 on local clients. * This dispensation applies only to ICreateTypeLib objects obtained on MSFT * format type libraries (those made through CreateTypeLib2). * * METHODS */ /****************************************************************************** * ICreateTypeInfo2 {OLEAUT32} * * NOTES * The ICreateTypeInfo2 interface provides an interface whereby one may add * type information to type library (.tlb) files. * * This interface inherits from ICreateTypeInfo, and can be freely cast back * and forth between an ICreateTypeInfo and an ICreateTypeInfo2 on local clients. * This dispensation applies only to ICreateTypeInfo objects obtained on MSFT * format type libraries (those made through CreateTypeLib2). * * METHODS */ /****************************************************************************** * ITypeLib2 {OLEAUT32} * * NOTES * The ITypeLib2 interface provides an interface whereby one may query MSFT * format type library (.tlb) files. * * This interface inherits from ITypeLib, and can be freely cast back and * forth between an ITypeLib and an ITypeLib2 on local clients. This * dispensation applies only to ITypeLib objects obtained on MSFT format type * libraries (those made through CreateTypeLib2). * * METHODS */ /****************************************************************************** * ITypeInfo2 {OLEAUT32} * * NOTES * The ITypeInfo2 interface provides an interface whereby one may query type * information stored in MSFT format type library (.tlb) files. * * This interface inherits from ITypeInfo, and can be freely cast back and * forth between an ITypeInfo and an ITypeInfo2 on local clients. This * dispensation applies only to ITypeInfo objects obtained on MSFT format type * libraries (those made through CreateTypeLib2). * * METHODS */ /*================== Implementation Structures ===================================*/ /* Used for storing cyclic list. Tail address is kept */ typedef enum tagCyclicListElementType { CyclicListSentinel, CyclicListFunc, CyclicListVar } CyclicListElementType; typedef struct tagCyclicList { struct tagCyclicList *next; int indice; int name; CyclicListElementType type; union { int val; int *data; }u; } CyclicList; enum MSFT_segment_index { MSFT_SEG_TYPEINFO = 0, /* type information */ MSFT_SEG_IMPORTINFO, /* import information */ MSFT_SEG_IMPORTFILES, /* import filenames */ MSFT_SEG_REFERENCES, /* references (?) */ MSFT_SEG_GUIDHASH, /* hash table for guids? */ MSFT_SEG_GUID, /* guid storage */ MSFT_SEG_NAMEHASH, /* hash table for names */ MSFT_SEG_NAME, /* name storage */ MSFT_SEG_STRING, /* string storage */ MSFT_SEG_TYPEDESC, /* type descriptions */ MSFT_SEG_ARRAYDESC, /* array descriptions */ MSFT_SEG_CUSTDATA, /* custom data */ MSFT_SEG_CUSTDATAGUID, /* custom data guids */ MSFT_SEG_UNKNOWN, /* ??? */ MSFT_SEG_UNKNOWN2, /* ??? */ MSFT_SEG_MAX /* total number of segments */ }; typedef struct tagMSFT_ImpFile { int guid; LCID lcid; int version; char filename[0]; /* preceded by two bytes of encoded (length << 2) + flags in the low two bits. */ } MSFT_ImpFile; typedef struct tagICreateTypeLib2Impl { const ICreateTypeLib2Vtbl *lpVtbl; const ITypeLib2Vtbl *lpVtblTypeLib2; LONG ref; WCHAR *filename; MSFT_Header typelib_header; INT helpStringDll; MSFT_pSeg typelib_segdir[MSFT_SEG_MAX]; char *typelib_segment_data[MSFT_SEG_MAX]; int typelib_segment_block_length[MSFT_SEG_MAX]; int typelib_guids; /* Number of defined typelib guids */ int typeinfo_guids; /* Number of defined typeinfo guids */ INT typelib_typeinfo_offsets[0x200]; /* Hope that's enough. */ INT *typelib_namehash_segment; INT *typelib_guidhash_segment; struct tagICreateTypeInfo2Impl *typeinfos; struct tagICreateTypeInfo2Impl *last_typeinfo; } ICreateTypeLib2Impl; static inline ICreateTypeLib2Impl *impl_from_ITypeLib2( ITypeLib2 *iface ) { return (ICreateTypeLib2Impl *)((char*)iface - FIELD_OFFSET(ICreateTypeLib2Impl, lpVtblTypeLib2)); } typedef struct tagICreateTypeInfo2Impl { const ICreateTypeInfo2Vtbl *lpVtbl; const ITypeInfo2Vtbl *lpVtblTypeInfo2; LONG ref; ICreateTypeLib2Impl *typelib; MSFT_TypeInfoBase *typeinfo; struct tagCyclicList *typedata; /* tail of cyclic list */ TYPEKIND typekind; int datawidth; struct tagICreateTypeInfo2Impl *next_typeinfo; struct tagICreateTypeInfo2Impl *dual; } ICreateTypeInfo2Impl; static inline ICreateTypeInfo2Impl *impl_from_ITypeInfo2( ITypeInfo2 *iface ) { return (ICreateTypeInfo2Impl *)((char*)iface - FIELD_OFFSET(ICreateTypeInfo2Impl, lpVtblTypeInfo2)); } static ULONG WINAPI ICreateTypeLib2_fnRelease(ICreateTypeLib2 *iface); static CyclicList *alloc_cyclic_list_item(CyclicListElementType type) { CyclicList *ret = heap_alloc_zero(sizeof(CyclicList)); if (!ret) return NULL; ret->type = type; return ret; } /*================== Internal functions ===================================*/ static inline UINT cti2_get_var_count(const MSFT_TypeInfoBase *typeinfo) { return typeinfo->cElement >> 16; } static inline UINT cti2_get_func_count(const MSFT_TypeInfoBase *typeinfo) { return typeinfo->cElement & 0xFFFF; } static inline INT ctl2_get_record_size(const CyclicList *iter) { return iter->u.data[0] & 0xFFFF; } static void ctl2_update_var_size(const ICreateTypeInfo2Impl *This, CyclicList *var, int size) { int old = ctl2_get_record_size(var), i; if (old >= size) return; /* initialize fields included in size but currently unused */ for (i = old/sizeof(int); i < (size/sizeof(int) - 1); i++) { /* HelpContext/HelpStringContext being 0 means it's not set */ var->u.data[i] = (i == 5 || i == 9) ? 0 : -1; } var->u.data[0] += size - old; This->typedata->next->u.val += size - old; } /* NOTE: entry always assumed to be a function */ static inline INVOKEKIND ctl2_get_invokekind(const CyclicList *func) { /* INVOKEKIND uses bit flags up to 8 */ return (func->u.data[4] >> 3) & 0xF; } static inline SYSKIND ctl2_get_syskind(const ICreateTypeLib2Impl *This) { return This->typelib_header.varflags & 0xF; } /**************************************************************************** * ctl2_init_header * * Initializes the type library header of a new typelib. */ static void ctl2_init_header( ICreateTypeLib2Impl *This) /* [I] The typelib to initialize. */ { This->typelib_header.magic1 = MSFT_SIGNATURE; This->typelib_header.magic2 = 0x00010002; This->typelib_header.posguid = -1; This->typelib_header.lcid = This->typelib_header.lcid2 = GetUserDefaultLCID(); This->typelib_header.varflags = 0x40; This->typelib_header.version = 0; This->typelib_header.flags = 0; This->typelib_header.nrtypeinfos = 0; This->typelib_header.helpstring = -1; This->typelib_header.helpstringcontext = 0; This->typelib_header.helpcontext = 0; This->typelib_header.nametablecount = 0; This->typelib_header.nametablechars = 0; This->typelib_header.NameOffset = -1; This->typelib_header.helpfile = -1; This->typelib_header.CustomDataOffset = -1; This->typelib_header.res44 = 0x20; This->typelib_header.res48 = 0x80; This->typelib_header.dispatchpos = -1; This->typelib_header.nimpinfos = 0; This->helpStringDll = -1; } /**************************************************************************** * ctl2_init_segdir * * Initializes the segment directory of a new typelib. */ static void ctl2_init_segdir( ICreateTypeLib2Impl *This) /* [I] The typelib to initialize. */ { int i; MSFT_pSeg *segdir; segdir = &This->typelib_segdir[MSFT_SEG_TYPEINFO]; for (i = 0; i < 15; i++) { segdir[i].offset = -1; segdir[i].length = 0; segdir[i].res08 = -1; segdir[i].res0c = 0x0f; } } /**************************************************************************** * ctl2_hash_guid * * Generates a hash key from a GUID. * * RETURNS * * The hash key for the GUID. */ static int ctl2_hash_guid( REFGUID guid) /* [I] The guid to find. */ { int hash; int i; hash = 0; for (i = 0; i < 8; i ++) { hash ^= ((const short *)guid)[i]; } return hash & 0x1f; } /**************************************************************************** * ctl2_find_guid * * Locates a guid in a type library. * * RETURNS * * The offset into the GUID segment of the guid, or -1 if not found. */ static int ctl2_find_guid( ICreateTypeLib2Impl *This, /* [I] The typelib to operate against. */ int hash_key, /* [I] The hash key for the guid. */ REFGUID guid) /* [I] The guid to find. */ { int offset; MSFT_GuidEntry *guidentry; offset = This->typelib_guidhash_segment[hash_key]; while (offset != -1) { guidentry = (MSFT_GuidEntry *)&This->typelib_segment_data[MSFT_SEG_GUID][offset]; if (IsEqualGUID(guidentry, guid)) return offset; offset = guidentry->next_hash; } return offset; } /**************************************************************************** * ctl2_find_name * * Locates a name in a type library. * * RETURNS * * The offset into the NAME segment of the name, or -1 if not found. * * NOTES * * The name must be encoded as with ctl2_encode_name(). */ static int ctl2_find_name( ICreateTypeLib2Impl *This, /* [I] The typelib to operate against. */ const char *name) /* [I] The encoded name to find. */ { int offset; int *namestruct; offset = This->typelib_namehash_segment[name[2] & 0x7f]; while (offset != -1) { namestruct = (int *)&This->typelib_segment_data[MSFT_SEG_NAME][offset]; if (!((namestruct[2] ^ *((const int *)name)) & 0xffff00ff)) { /* hash codes and lengths match, final test */ if (!strncasecmp(name+4, (void *)(namestruct+3), name[0])) break; } /* move to next item in hash bucket */ offset = namestruct[1]; } return offset; } /**************************************************************************** * ctl2_encode_name * * Encodes a name string to a form suitable for storing into a type library * or comparing to a name stored in a type library. * * RETURNS * * The length of the encoded name, including padding and length+hash fields. * * NOTES * * Will throw an exception if name or result are NULL. Is not multithread * safe in the slightest. */ static int ctl2_encode_name( ICreateTypeLib2Impl *This, /* [I] The typelib to operate against (used for LCID only). */ const WCHAR *name, /* [I] The name string to encode. */ char **result) /* [O] A pointer to a pointer to receive the encoded name. */ { int length; static char converted_name[0x104]; int offset; int value; length = WideCharToMultiByte(CP_ACP, 0, name, strlenW(name), converted_name+4, 0x100, NULL, NULL); converted_name[0] = length & 0xff; converted_name[length + 4] = 0; converted_name[1] = 0x00; value = LHashValOfNameSysA(ctl2_get_syskind(This), This->typelib_header.lcid, converted_name + 4); converted_name[2] = value; converted_name[3] = value >> 8; for (offset = (4 - length) & 3; offset; offset--) converted_name[length + offset + 3] = 0x57; *result = converted_name; return (length + 7) & ~3; } /**************************************************************************** * ctl2_decode_name * * Converts string stored in typelib data to unicode. */ static void ctl2_decode_name( char *data, /* [I] String to be decoded */ WCHAR **string) /* [O] Decoded string */ { int i, length; static WCHAR converted_string[0x104]; length = data[0]; for(i=0; i> 8) & 0xff; for (offset = (4 - (length + 2)) & 3; offset; offset--) converted_string[length + offset + 1] = 0x57; *result = converted_string; return (length + 5) & ~3; } /**************************************************************************** * ctl2_decode_string * * Converts string stored in typelib data to unicode. */ static void ctl2_decode_string( char *data, /* [I] String to be decoded */ WCHAR **string) /* [O] Decoded string */ { int i, length; static WCHAR converted_string[0x104]; length = data[0] + (data[1]<<8); if((length&0x3) == 1) length >>= 2; for(i=0; itypelib_segment_data[segment]) { if (!block_size) block_size = 0x2000; This->typelib_segment_block_length[segment] = block_size; This->typelib_segment_data[segment] = heap_alloc(block_size); if (!This->typelib_segment_data[segment]) return -1; memset(This->typelib_segment_data[segment], 0x57, block_size); } while ((This->typelib_segdir[segment].length + size) > This->typelib_segment_block_length[segment]) { char *block; block_size = This->typelib_segment_block_length[segment]; block = heap_realloc(This->typelib_segment_data[segment], block_size << 1); if (!block) return -1; if (segment == MSFT_SEG_TYPEINFO) { /* TypeInfos have a direct pointer to their memory space, so we have to fix them up. */ ICreateTypeInfo2Impl *typeinfo; for (typeinfo = This->typeinfos; typeinfo; typeinfo = typeinfo->next_typeinfo) { typeinfo->typeinfo = (void *)&block[((char *)typeinfo->typeinfo) - This->typelib_segment_data[segment]]; } } memset(block + block_size, 0x57, block_size); This->typelib_segment_block_length[segment] = block_size << 1; This->typelib_segment_data[segment] = block; } offset = This->typelib_segdir[segment].length; This->typelib_segdir[segment].length += size; return offset; } /**************************************************************************** * ctl2_alloc_typeinfo * * Allocates and initializes a typeinfo structure in a type library. * * RETURNS * * Success: The offset of the new typeinfo. * Failure: -1 (this is invariably an out of memory condition). */ static int ctl2_alloc_typeinfo( ICreateTypeLib2Impl *This, /* [I] The type library to allocate in. */ int nameoffset) /* [I] The offset of the name for this typeinfo. */ { int offset; MSFT_TypeInfoBase *typeinfo; offset = ctl2_alloc_segment(This, MSFT_SEG_TYPEINFO, sizeof(MSFT_TypeInfoBase), 0); if (offset == -1) return -1; This->typelib_typeinfo_offsets[This->typelib_header.nrtypeinfos++] = offset; typeinfo = (void *)(This->typelib_segment_data[MSFT_SEG_TYPEINFO] + offset); typeinfo->typekind = (This->typelib_header.nrtypeinfos - 1) << 16; typeinfo->memoffset = -1; /* should be EOF if no elements */ typeinfo->res2 = 0; typeinfo->res3 = 0; typeinfo->res4 = 3; typeinfo->res5 = 0; typeinfo->cElement = 0; typeinfo->res7 = 0; typeinfo->res8 = 0; typeinfo->res9 = 0; typeinfo->resA = 0; typeinfo->posguid = -1; typeinfo->flags = 0; typeinfo->NameOffset = nameoffset; typeinfo->version = 0; typeinfo->docstringoffs = -1; typeinfo->helpstringcontext = 0; typeinfo->helpcontext = 0; typeinfo->oCustData = -1; typeinfo->cbSizeVft = 0; typeinfo->cImplTypes = 0; typeinfo->size = 0; typeinfo->datatype1 = -1; typeinfo->datatype2 = 0; typeinfo->res18 = 0; typeinfo->res19 = -1; return offset; } /**************************************************************************** * ctl2_alloc_guid * * Allocates and initializes a GUID structure in a type library. Also updates * the GUID hash table as needed. * * RETURNS * * Success: The offset of the new GUID. * Failure: -1 (this is invariably an out of memory condition). */ static int ctl2_alloc_guid( ICreateTypeLib2Impl *This, /* [I] The type library to allocate in. */ MSFT_GuidEntry *guid) /* [I] The GUID to store. */ { int offset; MSFT_GuidEntry *guid_space; int hash_key; hash_key = ctl2_hash_guid(&guid->guid); offset = ctl2_find_guid(This, hash_key, &guid->guid); if (offset != -1) return offset; offset = ctl2_alloc_segment(This, MSFT_SEG_GUID, sizeof(MSFT_GuidEntry), 0); if (offset == -1) return -1; guid_space = (void *)(This->typelib_segment_data[MSFT_SEG_GUID] + offset); *guid_space = *guid; guid_space->next_hash = This->typelib_guidhash_segment[hash_key]; This->typelib_guidhash_segment[hash_key] = offset; return offset; } /**************************************************************************** * ctl2_alloc_name * * Allocates and initializes a name within a type library. Also updates the * name hash table as needed. * * RETURNS * * Success: The offset within the segment of the new name. * Failure: -1 (this is invariably an out of memory condition). */ static int ctl2_alloc_name( ICreateTypeLib2Impl *This, /* [I] The type library to allocate in. */ const WCHAR *name) /* [I] The name to store. */ { int length; int offset; MSFT_NameIntro *name_space; char *encoded_name; length = ctl2_encode_name(This, name, &encoded_name); offset = ctl2_find_name(This, encoded_name); if (offset != -1) return offset; offset = ctl2_alloc_segment(This, MSFT_SEG_NAME, length + 8, 0); if (offset == -1) return -1; name_space = (void *)(This->typelib_segment_data[MSFT_SEG_NAME] + offset); name_space->hreftype = -1; name_space->next_hash = -1; memcpy(&name_space->namelen, encoded_name, length); if (This->typelib_namehash_segment[encoded_name[2] & 0x7f] != -1) name_space->next_hash = This->typelib_namehash_segment[encoded_name[2] & 0x7f]; This->typelib_namehash_segment[encoded_name[2] & 0x7f] = offset; This->typelib_header.nametablecount += 1; This->typelib_header.nametablechars += *encoded_name; return offset; } /**************************************************************************** * ctl2_alloc_string * * Allocates and initializes a string in a type library. * * RETURNS * * Success: The offset within the segment of the new string. * Failure: -1 (this is invariably an out of memory condition). */ static int ctl2_alloc_string( ICreateTypeLib2Impl *This, /* [I] The type library to allocate in. */ const WCHAR *string) /* [I] The string to store. */ { int length; int offset; char *string_space; char *encoded_string; length = ctl2_encode_string(This, string, &encoded_string); for (offset = 0; offset < This->typelib_segdir[MSFT_SEG_STRING].length; offset += ((((This->typelib_segment_data[MSFT_SEG_STRING][offset + 1] << 8) & 0xff) | (This->typelib_segment_data[MSFT_SEG_STRING][offset + 0] & 0xff)) + 5) & ~3) { if (!memcmp(encoded_string, This->typelib_segment_data[MSFT_SEG_STRING] + offset, length)) return offset; } offset = ctl2_alloc_segment(This, MSFT_SEG_STRING, length, 0); if (offset == -1) return -1; string_space = This->typelib_segment_data[MSFT_SEG_STRING] + offset; memcpy(string_space, encoded_string, length); return offset; } /**************************************************************************** * ctl2_alloc_importinfo * * Allocates and initializes an import information structure in a type library. * * RETURNS * * Success: The offset of the new importinfo. * Failure: -1 (this is invariably an out of memory condition). */ static int ctl2_alloc_importinfo( ICreateTypeLib2Impl *This, /* [I] The type library to allocate in. */ MSFT_ImpInfo *impinfo) /* [I] The import information to store. */ { int offset; MSFT_ImpInfo *impinfo_space; impinfo_space = (MSFT_ImpInfo*)&This->typelib_segment_data[MSFT_SEG_IMPORTINFO][0]; for (offset=0; offsettypelib_segdir[MSFT_SEG_IMPORTINFO].length; offset+=sizeof(MSFT_ImpInfo)) { if(impinfo_space->oImpFile == impinfo->oImpFile && impinfo_space->oGuid == impinfo->oGuid) return offset; impinfo_space += 1; } impinfo->flags |= This->typelib_header.nimpinfos++; offset = ctl2_alloc_segment(This, MSFT_SEG_IMPORTINFO, sizeof(MSFT_ImpInfo), 0); if (offset == -1) return -1; impinfo_space = (void *)(This->typelib_segment_data[MSFT_SEG_IMPORTINFO] + offset); *impinfo_space = *impinfo; return offset; } /**************************************************************************** * ctl2_alloc_importfile * * Allocates and initializes an import file definition in a type library. * * RETURNS * * Success: The offset of the new importinfo. * Failure: -1 (this is invariably an out of memory condition). */ static int ctl2_alloc_importfile( ICreateTypeLib2Impl *This, /* [I] The type library to allocate in. */ int guidoffset, /* [I] The offset to the GUID for the imported library. */ LCID lcid, /* [I] The LCID of imported library. */ int major_version, /* [I] The major version number of the imported library. */ int minor_version, /* [I] The minor version number of the imported library. */ const WCHAR *filename) /* [I] The filename of the imported library. */ { int length; int offset; MSFT_ImpFile *importfile; char *encoded_string; length = ctl2_encode_string(This, filename, &encoded_string); encoded_string[0] <<= 2; encoded_string[0] |= 1; for (offset = 0; offset < This->typelib_segdir[MSFT_SEG_IMPORTFILES].length; offset += ((((((This->typelib_segment_data[MSFT_SEG_IMPORTFILES][offset + 0xd] << 8) & 0xff00) | (This->typelib_segment_data[MSFT_SEG_IMPORTFILES][offset + 0xc] & 0xff)) >> 2) + 5) & 0xfffc) + 0xc) { if (!memcmp(encoded_string, This->typelib_segment_data[MSFT_SEG_IMPORTFILES] + offset + 0xc, length)) return offset; } offset = ctl2_alloc_segment(This, MSFT_SEG_IMPORTFILES, length + 0xc, 0); if (offset == -1) return -1; importfile = (MSFT_ImpFile *)&This->typelib_segment_data[MSFT_SEG_IMPORTFILES][offset]; importfile->guid = guidoffset; importfile->lcid = lcid; importfile->version = major_version | (minor_version << 16); memcpy(importfile->filename, encoded_string, length); return offset; } /**************************************************************************** * ctl2_encode_variant * * Encodes a variant, inline if possible or in custom data segment * * RETURNS * * Success: S_OK * Failure: Error code from winerror.h */ static HRESULT ctl2_encode_variant( ICreateTypeLib2Impl *This, /* [I] The typelib to allocate data in */ int *encoded_value, /* [O] The encoded default value or data offset */ VARIANT *value, /* [I] Default value to be encoded */ VARTYPE arg_type) /* [I] Argument type */ { VARIANT v; HRESULT hres; int mask = 0; TRACE("%p %d %d\n", This, V_VT(value), arg_type); if(arg_type == VT_INT) arg_type = VT_I4; if(arg_type == VT_UINT) arg_type = VT_UI4; v = *value; if(V_VT(value) != arg_type) { hres = VariantChangeType(&v, value, 0, arg_type); if(FAILED(hres)) return hres; } /* Check if default value can be stored in encoded_value */ switch(arg_type) { case VT_I4: case VT_UI4: mask = 0x3ffffff; if(V_UI4(&v)>0x3ffffff) break; case VT_I1: case VT_UI1: case VT_BOOL: if(!mask) mask = 0xff; case VT_I2: case VT_UI2: if(!mask) mask = 0xffff; *encoded_value = (V_UI4(&v)&mask) | ((0x80+0x4*arg_type)<<24); return S_OK; } switch(arg_type) { case VT_I4: case VT_R4: case VT_UI4: case VT_INT: case VT_UINT: case VT_HRESULT: case VT_PTR: { /* Construct the data to be allocated */ int data[2]; data[0] = arg_type + (V_UI4(&v)<<16); data[1] = (V_UI4(&v)>>16) + 0x57570000; /* Check if the data was already allocated */ /* Currently the structures doesn't allow to do it in a nice way */ for(*encoded_value=0; *encoded_value<=This->typelib_segdir[MSFT_SEG_CUSTDATA].length-8; *encoded_value+=4) if(!memcmp(&This->typelib_segment_data[MSFT_SEG_CUSTDATA][*encoded_value], data, 8)) return S_OK; /* Allocate the data */ *encoded_value = ctl2_alloc_segment(This, MSFT_SEG_CUSTDATA, 8, 0); if(*encoded_value == -1) return E_OUTOFMEMORY; memcpy(&This->typelib_segment_data[MSFT_SEG_CUSTDATA][*encoded_value], data, 8); return S_OK; } case VT_BSTR: { /* Construct the data */ int i, len = (6+SysStringLen(V_BSTR(&v))+3) & ~0x3; char *data = heap_alloc(len); if(!data) return E_OUTOFMEMORY; *((unsigned short*)data) = arg_type; *((unsigned*)(data+2)) = SysStringLen(V_BSTR(&v)); for(i=0; itypelib_segdir[MSFT_SEG_CUSTDATA].length-len; *encoded_value+=4) if(!memcmp(&This->typelib_segment_data[MSFT_SEG_CUSTDATA][*encoded_value], data, len)) { heap_free(data); return S_OK; } /* Allocate the data */ *encoded_value = ctl2_alloc_segment(This, MSFT_SEG_CUSTDATA, len, 0); if(*encoded_value == -1) { heap_free(data); return E_OUTOFMEMORY; } memcpy(&This->typelib_segment_data[MSFT_SEG_CUSTDATA][*encoded_value], data, len); heap_free(data); return S_OK; } default: FIXME("Argument type not yet handled\n"); return E_NOTIMPL; } } static int ctl2_find_custdata( ICreateTypeLib2Impl *This, REFGUID guid, int offset) { while (offset != -1) { MSFT_CDGuid *cdentry = (MSFT_CDGuid *)&This->typelib_segment_data[MSFT_SEG_CUSTDATAGUID][offset]; MSFT_GuidEntry *guidentry = (MSFT_GuidEntry *)&This->typelib_segment_data[MSFT_SEG_GUID][cdentry->GuidOffset]; if (IsEqualGUID(guidentry, guid)) return offset; offset = cdentry->next; } return -1; } /**************************************************************************** * ctl2_decode_variant * * Decodes a variant * * RETURNS * * Success: S_OK * Failure: Error code from winerror.h */ static HRESULT ctl2_decode_variant( ICreateTypeLib2Impl *This, /* [I] The typelib that contains the variant */ int data_offs, /* [I] Offset within the data array, or the encoded value itself */ VARIANT *value) /* [O] Decoded value */ { char *encoded_data; VARTYPE type; if (data_offs & 0x80000000) { /* data_offs contains the encoded value */ V_VT(value) = (data_offs & ~0x80000000) >> 26; V_UI4(value) = data_offs & ~0xFF000000; return S_OK; } encoded_data = &This->typelib_segment_data[MSFT_SEG_CUSTDATA][data_offs]; type = *encoded_data; switch(type) { case VT_I4: case VT_R4: case VT_UI4: case VT_INT: case VT_UINT: case VT_HRESULT: case VT_PTR: { V_VT(value) = type; V_UI4(value) = *(unsigned*)(encoded_data + 2); return S_OK; } case VT_BSTR: { unsigned len, i; len = *(unsigned*)(encoded_data + 2); V_VT(value) = type; V_BSTR(value) = SysAllocStringByteLen(NULL, len * sizeof(OLECHAR)); for (i = 0; i < len; ++i) V_BSTR(value)[i] = *(encoded_data + 6 + i); return S_OK; } default: FIXME("Don't yet have decoder for this VARTYPE: %u\n", type); return E_NOTIMPL; } } /**************************************************************************** * ctl2_set_custdata * * Adds a custom data element to an object in a type library. * * RETURNS * * Success: S_OK. * Failure: One of E_INVALIDARG or E_OUTOFMEMORY. */ static HRESULT ctl2_set_custdata( ICreateTypeLib2Impl *This, /* [I] The type library to store the custom data in. */ REFGUID guid, /* [I] The GUID used as a key to retrieve the custom data. */ VARIANT *pVarVal, /* [I] The custom data itself. */ int *offset) /* [I/O] The list of custom data to prepend to. */ { MSFT_GuidEntry guidentry; HRESULT status; int dataoffset; int guidoffset; int custoffset; int *custdata; BOOL new_segment = FALSE; switch(V_VT(pVarVal)) { case VT_I4: case VT_R4: case VT_UI4: case VT_INT: case VT_UINT: case VT_HRESULT: case VT_BSTR: /* empty */ break; default: return DISP_E_BADVARTYPE; } guidentry.guid = *guid; guidentry.hreftype = -1; guidentry.next_hash = -1; guidoffset = ctl2_alloc_guid(This, &guidentry); if (guidoffset == -1) return E_OUTOFMEMORY; status = ctl2_encode_variant(This, &dataoffset, pVarVal, V_VT(pVarVal)); if (status) return status; custoffset = ctl2_find_custdata(This, guid, *offset); if (custoffset == -1) { custoffset = ctl2_alloc_segment(This, MSFT_SEG_CUSTDATAGUID, 12, 0); if (custoffset == -1) return E_OUTOFMEMORY; new_segment = TRUE; } custdata = (int *)&This->typelib_segment_data[MSFT_SEG_CUSTDATAGUID][custoffset]; custdata[0] = guidoffset; custdata[1] = dataoffset; if (new_segment) { custdata[2] = *offset; *offset = custoffset; } return S_OK; } /**************************************************************************** * ctl2_encode_typedesc * * Encodes a type description, storing information in the TYPEDESC and ARRAYDESC * segments as needed. * * RETURNS * * Success: 0. * Failure: -1. */ static int ctl2_encode_typedesc( ICreateTypeLib2Impl *This, /* [I] The type library in which to encode the TYPEDESC. */ const TYPEDESC *tdesc, /* [I] The type description to encode. */ int *encoded_tdesc, /* [O] The encoded type description. */ int *width, /* [O] The width of the type, or NULL. */ int *alignment, /* [O] The alignment of the type, or NULL. */ int *decoded_size) /* [O] The total size of the unencoded TYPEDESCs, including nested descs. */ { int default_tdesc; int scratch; int typeoffset; int arrayoffset; int *typedata; int *arraydata; int target_type; int child_size; default_tdesc = 0x80000000 | (tdesc->vt << 16) | tdesc->vt; if (!width) width = &scratch; if (!alignment) alignment = &scratch; if (!decoded_size) decoded_size = &scratch; *decoded_size = 0; switch (tdesc->vt) { case VT_UI1: case VT_I1: *encoded_tdesc = default_tdesc; *width = 1; *alignment = 1; break; case VT_INT: *encoded_tdesc = 0x80000000 | (VT_I4 << 16) | VT_INT; if (ctl2_get_syskind(This) == SYS_WIN16) { *width = 2; *alignment = 2; } else { *width = 4; *alignment = 4; } break; case VT_UINT: *encoded_tdesc = 0x80000000 | (VT_UI4 << 16) | VT_UINT; if (ctl2_get_syskind(This) == SYS_WIN16) { *width = 2; *alignment = 2; } else { *width = 4; *alignment = 4; } break; case VT_UI2: case VT_I2: case VT_BOOL: *encoded_tdesc = default_tdesc; *width = 2; *alignment = 2; break; case VT_I4: case VT_UI4: case VT_R4: case VT_ERROR: case VT_BSTR: case VT_HRESULT: *encoded_tdesc = default_tdesc; *width = 4; *alignment = 4; break; case VT_CY: *encoded_tdesc = default_tdesc; *width = 8; *alignment = 4; /* guess? */ break; case VT_VOID: *encoded_tdesc = 0x80000000 | (VT_EMPTY << 16) | tdesc->vt; *width = 0; *alignment = 1; break; case VT_PTR: case VT_SAFEARRAY: /* FIXME: Make with the error checking. */ FIXME("PTR or SAFEARRAY vartype, may not work correctly.\n"); ctl2_encode_typedesc(This, tdesc->u.lptdesc, &target_type, NULL, NULL, &child_size); for (typeoffset = 0; typeoffset < This->typelib_segdir[MSFT_SEG_TYPEDESC].length; typeoffset += 8) { typedata = (void *)&This->typelib_segment_data[MSFT_SEG_TYPEDESC][typeoffset]; if (((typedata[0] & 0xffff) == tdesc->vt) && (typedata[1] == target_type)) break; } if (typeoffset == This->typelib_segdir[MSFT_SEG_TYPEDESC].length) { int mix_field; if (target_type & 0x80000000) { mix_field = (target_type >> 16) & VT_TYPEMASK; } else { typedata = (void *)&This->typelib_segment_data[MSFT_SEG_TYPEDESC][target_type]; switch((typedata[0]>>16) & ~VT_ARRAY) { case VT_UI1: case VT_I1: case VT_UI2: case VT_I2: case VT_I4: case VT_UI4: mix_field = typedata[0]>>16; break; default: mix_field = ((typedata[0] >> 16) == 0x7fff) ? 0x7fff : 0x7ffe; break; } } if (tdesc->vt == VT_PTR) mix_field |= VT_BYREF; else if (tdesc->vt == VT_SAFEARRAY) mix_field |= VT_ARRAY; typeoffset = ctl2_alloc_segment(This, MSFT_SEG_TYPEDESC, 8, 0); typedata = (void *)&This->typelib_segment_data[MSFT_SEG_TYPEDESC][typeoffset]; typedata[0] = (mix_field << 16) | tdesc->vt; typedata[1] = target_type; } *encoded_tdesc = typeoffset; *width = 4; *alignment = 4; *decoded_size = sizeof(TYPEDESC) + child_size; break; case VT_CARRAY: { /* FIXME: Make with the error checking. */ int num_dims = tdesc->u.lpadesc->cDims, elements = 1, dim; ctl2_encode_typedesc(This, &tdesc->u.lpadesc->tdescElem, &target_type, width, alignment, NULL); arrayoffset = ctl2_alloc_segment(This, MSFT_SEG_ARRAYDESC, (2 + 2 * num_dims) * sizeof(int), 0); arraydata = (void *)&This->typelib_segment_data[MSFT_SEG_ARRAYDESC][arrayoffset]; arraydata[0] = target_type; arraydata[1] = num_dims; arraydata[1] |= ((num_dims * 2 * sizeof(int)) << 16); arraydata += 2; for(dim = 0; dim < num_dims; dim++) { arraydata[0] = tdesc->u.lpadesc->rgbounds[dim].cElements; arraydata[1] = tdesc->u.lpadesc->rgbounds[dim].lLbound; elements *= tdesc->u.lpadesc->rgbounds[dim].cElements; arraydata += 2; } typeoffset = ctl2_alloc_segment(This, MSFT_SEG_TYPEDESC, 8, 0); typedata = (void *)&This->typelib_segment_data[MSFT_SEG_TYPEDESC][typeoffset]; typedata[0] = (0x7ffe << 16) | VT_CARRAY; typedata[1] = arrayoffset; *encoded_tdesc = typeoffset; *width = *width * elements; *decoded_size = sizeof(ARRAYDESC) + (num_dims - 1) * sizeof(SAFEARRAYBOUND); break; } case VT_USERDEFINED: { const MSFT_TypeInfoBase *basetype; INT basevt = 0x7fff; TRACE("USERDEFINED.\n"); if (tdesc->u.hreftype % sizeof(*basetype) == 0 && tdesc->u.hreftype < This->typelib_segdir[MSFT_SEG_TYPEINFO].length) { basetype = (MSFT_TypeInfoBase*)&(This->typelib_segment_data[MSFT_SEG_TYPEINFO][tdesc->u.hreftype]); switch(basetype->typekind & 0xf) { case TKIND_ENUM: basevt = VT_I4; break; default: FIXME("USERDEFINED basetype %d not handled\n", basetype->typekind & 0xf); break; } } for (typeoffset = 0; typeoffset < This->typelib_segdir[MSFT_SEG_TYPEDESC].length; typeoffset += 8) { typedata = (void *)&This->typelib_segment_data[MSFT_SEG_TYPEDESC][typeoffset]; if ((typedata[0] == ((basevt << 16) | VT_USERDEFINED)) && (typedata[1] == tdesc->u.hreftype)) break; } if (typeoffset == This->typelib_segdir[MSFT_SEG_TYPEDESC].length) { typeoffset = ctl2_alloc_segment(This, MSFT_SEG_TYPEDESC, 8, 0); typedata = (void *)&This->typelib_segment_data[MSFT_SEG_TYPEDESC][typeoffset]; typedata[0] = (basevt << 16) | VT_USERDEFINED; typedata[1] = tdesc->u.hreftype; } *encoded_tdesc = typeoffset; *width = 0; *alignment = 1; break; } default: FIXME("Unrecognized type %d.\n", tdesc->vt); *encoded_tdesc = default_tdesc; *width = 0; *alignment = 1; break; } return 0; } /**************************************************************************** * ctl2_decode_typedesc * * Decodes a type description from an ICreateTypeLib2Impl. * * RETURNS * * Success: S_OK. * Failure: HRESULT error code. */ static HRESULT ctl2_decode_typedesc( ICreateTypeLib2Impl *This, /* [I] The type library from which to decode the TYPEDESC. */ int encoded_tdesc, /* [I] The encoded type description. */ TYPEDESC *tdesc) /* [O] The decoded type description. */ { int *typedata, i; HRESULT hres; if (encoded_tdesc & 0x80000000) { tdesc->vt = encoded_tdesc & VT_TYPEMASK; tdesc->u.lptdesc = NULL; return S_OK; } typedata = (void *)&This->typelib_segment_data[MSFT_SEG_TYPEDESC][encoded_tdesc]; tdesc->vt = typedata[0] & 0xFFFF; switch(tdesc->vt) { case VT_PTR: case VT_SAFEARRAY: tdesc->u.lptdesc = heap_alloc_zero(sizeof(TYPEDESC)); if (!tdesc->u.lptdesc) return E_OUTOFMEMORY; hres = ctl2_decode_typedesc(This, typedata[1], tdesc->u.lptdesc); if (FAILED(hres)) { heap_free(tdesc->u.lptdesc); return hres; } return S_OK; case VT_CARRAY: { int arrayoffset, *arraydata, num_dims; arrayoffset = typedata[1]; arraydata = (void *)&This->typelib_segment_data[MSFT_SEG_ARRAYDESC][arrayoffset]; num_dims = arraydata[1] & 0xFFFF; tdesc->u.lpadesc = heap_alloc_zero(sizeof(ARRAYDESC) + sizeof(SAFEARRAYBOUND) * (num_dims - 1)); if (!tdesc->u.lpadesc) return E_OUTOFMEMORY; hres = ctl2_decode_typedesc(This, arraydata[0], &tdesc->u.lpadesc->tdescElem); if (FAILED(hres)) { heap_free(tdesc->u.lpadesc); return E_OUTOFMEMORY; } for (i = 0; i < num_dims; ++i) { tdesc->u.lpadesc->rgbounds[i].cElements = arraydata[2 + i * 2]; tdesc->u.lpadesc->rgbounds[i].lLbound = arraydata[3 + i * 2]; } return S_OK; } case VT_USERDEFINED: tdesc->u.hreftype = typedata[1]; return S_OK; default: FIXME("unable to decode typedesc (%08x): unknown VT: %d\n", encoded_tdesc, tdesc->vt); return E_NOTIMPL; } } /**************************************************************************** * ctl2_find_nth_reference * * Finds a reference by index into the linked list of reference records. * * RETURNS * * Success: Offset of the desired reference record. * Failure: -1. */ static int ctl2_find_nth_reference( ICreateTypeLib2Impl *This, /* [I] The type library in which to search. */ int offset, /* [I] The starting offset of the reference list. */ int index) /* [I] The index of the reference to find. */ { MSFT_RefRecord *ref; for (; index && (offset != -1); index--) { ref = (MSFT_RefRecord *)&This->typelib_segment_data[MSFT_SEG_REFERENCES][offset]; offset = ref->onext; } return offset; } /**************************************************************************** * ctl2_find_typeinfo_from_offset * * Finds an ITypeInfo given an offset into the TYPEINFO segment. * * RETURNS * * Success: S_OK. * Failure: TYPE_E_ELEMENTNOTFOUND. */ static HRESULT ctl2_find_typeinfo_from_offset( ICreateTypeLib2Impl *This, /* [I] The typelib to find the typeinfo in. */ int offset, /* [I] The offset of the desired typeinfo. */ ITypeInfo **ppTinfo) /* [I] The typeinfo found. */ { void *typeinfodata; ICreateTypeInfo2Impl *typeinfo; typeinfodata = &This->typelib_segment_data[MSFT_SEG_TYPEINFO][offset]; for (typeinfo = This->typeinfos; typeinfo; typeinfo = typeinfo->next_typeinfo) { if (typeinfo->typeinfo == typeinfodata) { *ppTinfo = (ITypeInfo *)&typeinfo->lpVtblTypeInfo2; ITypeInfo2_AddRef(*ppTinfo); return S_OK; } } ERR("Failed to find typeinfo, invariant varied.\n"); return TYPE_E_ELEMENTNOTFOUND; } /**************************************************************************** * funcrecord_reallochdr * * Ensure FuncRecord data block contains header of required size * * PARAMS * * typedata [IO] - reference to pointer to data block * need [I] - required size of block in bytes * * RETURNS * * Number of additionally allocated bytes */ static INT funcrecord_reallochdr(INT **typedata, int need) { int tail = (*typedata)[5]*((*typedata)[4]&0x1000?16:12); int hdr = (*typedata)[0] - tail; int i; if (hdr >= need) return 0; *typedata = heap_realloc(*typedata, need + tail); if (!*typedata) return -1; if (tail) memmove((char*)*typedata + need, (const char*)*typedata + hdr, tail); (*typedata)[0] = need + tail; /* fill in default values */ for(i = (hdr+3)/4; (i+1)*4 <= need; i++) { switch(i) { case 2: (*typedata)[i] = 0; break; case 7: (*typedata)[i] = -1; break; case 8: (*typedata)[i] = -1; break; case 9: (*typedata)[i] = -1; break; case 10: (*typedata)[i] = -1; break; case 11: (*typedata)[i] = 0; break; case 12: (*typedata)[i] = -1; break; } } return need - hdr; } /*================== ICreateTypeInfo2 Implementation ===================================*/ /****************************************************************************** * ICreateTypeInfo2_QueryInterface {OLEAUT32} * */ static HRESULT WINAPI ICreateTypeInfo2_fnQueryInterface( ICreateTypeInfo2 * iface, REFIID riid, VOID **ppvObject) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; TRACE("(%p)->(IID: %s)\n",This,debugstr_guid(riid)); *ppvObject=NULL; if(IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid,&IID_ICreateTypeInfo)|| IsEqualIID(riid,&IID_ICreateTypeInfo2)) { *ppvObject = This; } else if (IsEqualIID(riid, &IID_ITypeInfo) || IsEqualIID(riid, &IID_ITypeInfo2)) { *ppvObject = &This->lpVtblTypeInfo2; } if(*ppvObject) { ICreateTypeInfo2_AddRef(iface); TRACE("-- Interface: (%p)->(%p)\n",ppvObject,*ppvObject); return S_OK; } TRACE("-- Interface: E_NOINTERFACE\n"); return E_NOINTERFACE; } /****************************************************************************** * ICreateTypeInfo2_AddRef {OLEAUT32} */ static ULONG WINAPI ICreateTypeInfo2_fnAddRef(ICreateTypeInfo2 *iface) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; ULONG ref = InterlockedIncrement(&This->ref); TRACE("(%p)->ref was %u\n",This, ref - 1); if(ref==1 && This->typelib) ICreateTypeLib2_AddRef((ICreateTypeLib2 *)This->typelib); return ref; } /****************************************************************************** * ICreateTypeInfo2_Release {OLEAUT32} */ static ULONG WINAPI ICreateTypeInfo2_fnRelease(ICreateTypeInfo2 *iface) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; ULONG ref = InterlockedDecrement(&This->ref); TRACE("(%p)->(%u)\n",This, ref); if (!ref) { if (This->typelib) { ICreateTypeLib2_fnRelease((ICreateTypeLib2 *)This->typelib); /* Keep This->typelib reference to make stored ICreateTypeInfo structure valid */ /* This->typelib = NULL; */ } /* ICreateTypeLib2 frees all ICreateTypeInfos when it releases. */ /* HeapFree(GetProcessHeap(),0,This); */ return 0; } return ref; } /****************************************************************************** * ICreateTypeInfo2_SetGuid {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetGuid(ICreateTypeInfo2 *iface, REFGUID guid) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; MSFT_GuidEntry guidentry; int offset; TRACE("(%p,%s)\n", iface, debugstr_guid(guid)); guidentry.guid = *guid; guidentry.hreftype = This->typelib->typelib_typeinfo_offsets[This->typeinfo->typekind >> 16]; guidentry.next_hash = -1; offset = ctl2_alloc_guid(This->typelib, &guidentry); if (offset == -1) return E_OUTOFMEMORY; This->typeinfo->posguid = offset; if (IsEqualIID(guid, &IID_IDispatch)) { This->typelib->typelib_header.dispatchpos = This->typelib->typelib_typeinfo_offsets[This->typeinfo->typekind >> 16]; } return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetTypeFlags {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetTypeFlags(ICreateTypeInfo2 *iface, UINT uTypeFlags) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; TRACE("(%p,0x%x)\n", iface, uTypeFlags); if(uTypeFlags & TYPEFLAG_FDUAL) { This->typeinfo->typekind |= 0x10; This->typeinfo->typekind &= ~0x0f; This->typeinfo->typekind |= TKIND_DISPATCH; if(!This->dual) { This->dual = heap_alloc(sizeof(ICreateTypeInfo2Impl)); if(!This->dual) return E_OUTOFMEMORY; memcpy(This->dual, This, sizeof(ICreateTypeInfo2Impl)); This->dual->ref = 0; This->dual->typekind = This->typekind==TKIND_DISPATCH ? TKIND_INTERFACE : TKIND_DISPATCH; This->dual->dual = This; } /* Make sure dispatch is in typeinfos queue */ if(This->typekind != TKIND_DISPATCH) { if(This->typelib->last_typeinfo == This) This->typelib->last_typeinfo = This->dual; if(This->typelib->typeinfos == This) This->typelib->typeinfos = This->dual; else { ICreateTypeInfo2Impl *iter; for(iter=This->typelib->typeinfos; iter->next_typeinfo!=This; iter=iter->next_typeinfo); iter->next_typeinfo = This->dual; } } else iface = (ICreateTypeInfo2*)&This->dual->lpVtbl; } if (uTypeFlags & (TYPEFLAG_FDISPATCHABLE|TYPEFLAG_FDUAL)) { static const WCHAR stdole2tlb[] = { 's','t','d','o','l','e','2','.','t','l','b',0 }; ITypeLib *stdole; ITypeInfo *dispatch; HREFTYPE hreftype; HRESULT hres; hres = LoadTypeLib(stdole2tlb, &stdole); if(FAILED(hres)) return hres; hres = ITypeLib_GetTypeInfoOfGuid(stdole, &IID_IDispatch, &dispatch); ITypeLib_Release(stdole); if(FAILED(hres)) return hres; hres = ICreateTypeInfo2_AddRefTypeInfo(iface, dispatch, &hreftype); ITypeInfo_Release(dispatch); if(FAILED(hres)) return hres; } This->typeinfo->flags = uTypeFlags; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetDocString {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetDocString( ICreateTypeInfo2* iface, LPOLESTR pStrDoc) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; int offset; TRACE("(%p,%s)\n", iface, debugstr_w(pStrDoc)); if (!pStrDoc) return E_INVALIDARG; offset = ctl2_alloc_string(This->typelib, pStrDoc); if (offset == -1) return E_OUTOFMEMORY; This->typeinfo->docstringoffs = offset; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetHelpContext {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetHelpContext( ICreateTypeInfo2* iface, DWORD dwHelpContext) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; TRACE("(%p,%d)\n", iface, dwHelpContext); This->typeinfo->helpcontext = dwHelpContext; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetVersion {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetVersion( ICreateTypeInfo2* iface, WORD wMajorVerNum, WORD wMinorVerNum) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; TRACE("(%p,%d,%d)\n", iface, wMajorVerNum, wMinorVerNum); This->typeinfo->version = wMajorVerNum | (wMinorVerNum << 16); return S_OK; } /****************************************************************************** * ICreateTypeInfo2_AddRefTypeInfo {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnAddRefTypeInfo( ICreateTypeInfo2* iface, ITypeInfo* pTInfo, HREFTYPE* phRefType) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; ITypeLib *container; UINT index; HRESULT res; TRACE("(%p,%p,%p)\n", iface, pTInfo, phRefType); if(!pTInfo || !phRefType) return E_INVALIDARG; /* * Unfortunately, we can't rely on the passed-in TypeInfo even having the * same internal structure as one of ours. It could be from another * implementation of ITypeInfo. So we need to do the following... */ res = ITypeInfo_GetContainingTypeLib(pTInfo, &container, &index); if (FAILED(res)) { TRACE("failed to find containing typelib.\n"); return res; } if (container == (ITypeLib *)&This->typelib->lpVtblTypeLib2) { /* Process locally defined TypeInfo */ *phRefType = This->typelib->typelib_typeinfo_offsets[index]; } else { BSTR name; TLIBATTR *tlibattr; TYPEATTR *typeattr; TYPEKIND typekind; MSFT_GuidEntry guid, *check_guid; MSFT_ImpInfo impinfo; int guid_offset, import_offset; HRESULT hres; /* Allocate container GUID */ hres = ITypeLib_GetLibAttr(container, &tlibattr); if(FAILED(hres)) { ITypeLib_Release(container); return hres; } guid.guid = tlibattr->guid; guid.hreftype = This->typelib->typelib_segdir[MSFT_SEG_IMPORTFILES].length+2; guid.next_hash = -1; guid_offset = ctl2_alloc_guid(This->typelib, &guid); if(guid_offset == -1) { ITypeLib_ReleaseTLibAttr(container, tlibattr); ITypeLib_Release(container); return E_OUTOFMEMORY; } check_guid = (MSFT_GuidEntry*)&This->typelib->typelib_segment_data[MSFT_SEG_GUID][guid_offset]; if(check_guid->hreftype == guid.hreftype) This->typelib->typelib_guids++; /* Get import file name */ hres = QueryPathOfRegTypeLib(&guid.guid, tlibattr->wMajorVerNum, tlibattr->wMinorVerNum, tlibattr->lcid, &name); if(FAILED(hres)) { ITypeLib_ReleaseTLibAttr(container, tlibattr); ITypeLib_Release(container); return hres; } /* Import file */ import_offset = ctl2_alloc_importfile(This->typelib, guid_offset, tlibattr->lcid, tlibattr->wMajorVerNum, tlibattr->wMinorVerNum, strrchrW(name, '\\')+1); ITypeLib_ReleaseTLibAttr(container, tlibattr); SysFreeString(name); if(import_offset == -1) { ITypeLib_Release(container); return E_OUTOFMEMORY; } /* Allocate referenced guid */ hres = ITypeInfo_GetTypeAttr(pTInfo, &typeattr); if(FAILED(hres)) { ITypeLib_Release(container); return hres; } guid.guid = typeattr->guid; guid.hreftype = This->typelib->typeinfo_guids*12+1; guid.next_hash = -1; typekind = typeattr->typekind; ITypeInfo_ReleaseTypeAttr(pTInfo, typeattr); guid_offset = ctl2_alloc_guid(This->typelib, &guid); if(guid_offset == -1) { ITypeLib_Release(container); return E_OUTOFMEMORY; } check_guid = (MSFT_GuidEntry*)&This->typelib->typelib_segment_data[MSFT_SEG_GUID][guid_offset]; if(check_guid->hreftype == guid.hreftype) This->typelib->typeinfo_guids++; /* Allocate importinfo */ impinfo.flags = (typekind<<24) | MSFT_IMPINFO_OFFSET_IS_GUID; impinfo.oImpFile = import_offset; impinfo.oGuid = guid_offset; *phRefType = ctl2_alloc_importinfo(This->typelib, &impinfo)+1; if(IsEqualGUID(&guid.guid, &IID_IDispatch)) This->typelib->typelib_header.dispatchpos = *phRefType; } ITypeLib_Release(container); return S_OK; } /****************************************************************************** * ICreateTypeInfo2_AddFuncDesc {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnAddFuncDesc( ICreateTypeInfo2* iface, UINT index, FUNCDESC* pFuncDesc) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *iter, *insert; int *typedata; int i, num_defaults = 0, num_retval = 0; int decoded_size; HRESULT hres; TRACE("(%p,%d,%p)\n", iface, index, pFuncDesc); if(!pFuncDesc || pFuncDesc->oVft&3) return E_INVALIDARG; TRACE("{%d,%p,%p,%d,%d,%d,%d,%d,%d,%d,{%d},%d}\n", pFuncDesc->memid, pFuncDesc->lprgscode, pFuncDesc->lprgelemdescParam, pFuncDesc->funckind, pFuncDesc->invkind, pFuncDesc->callconv, pFuncDesc->cParams, pFuncDesc->cParamsOpt, pFuncDesc->oVft, pFuncDesc->cScodes, pFuncDesc->elemdescFunc.tdesc.vt, pFuncDesc->wFuncFlags); if(pFuncDesc->cParamsOpt || pFuncDesc->cScodes) FIXME("Unimplemented parameter - created typelib will be incorrect\n"); switch(This->typekind) { case TKIND_MODULE: if(pFuncDesc->funckind != FUNC_STATIC) return TYPE_E_BADMODULEKIND; break; case TKIND_DISPATCH: if(pFuncDesc->funckind != FUNC_DISPATCH) return TYPE_E_BADMODULEKIND; break; default: if(pFuncDesc->funckind != FUNC_PUREVIRTUAL) return TYPE_E_BADMODULEKIND; } if(cti2_get_func_count(This->typeinfo) < index) return TYPE_E_ELEMENTNOTFOUND; if((pFuncDesc->invkind&(INVOKE_PROPERTYPUT|INVOKE_PROPERTYPUTREF)) && !pFuncDesc->cParams) return TYPE_E_INCONSISTENTPROPFUNCS; /* get number of arguments with default values specified */ for (i = 0; i < pFuncDesc->cParams; i++) { if(pFuncDesc->lprgelemdescParam[i].u.paramdesc.wParamFlags & PARAMFLAG_FHASDEFAULT) num_defaults++; if(pFuncDesc->lprgelemdescParam[i].u.paramdesc.wParamFlags & PARAMFLAG_FRETVAL) num_retval++; } if (!This->typedata) { This->typedata = alloc_cyclic_list_item(CyclicListSentinel); if(!This->typedata) return E_OUTOFMEMORY; This->typedata->next = This->typedata; if(This->dual) This->dual->typedata = This->typedata; } /* allocate type data space for us */ insert = alloc_cyclic_list_item(CyclicListFunc); if(!insert) return E_OUTOFMEMORY; insert->u.data = heap_alloc(FIELD_OFFSET(MSFT_FuncRecord, HelpContext) + sizeof(int[(num_defaults?4:3)])*pFuncDesc->cParams); if(!insert->u.data) { heap_free(insert); return E_OUTOFMEMORY; } /* fill out the basic type information */ typedata = insert->u.data; typedata[0] = FIELD_OFFSET(MSFT_FuncRecord, HelpContext) + pFuncDesc->cParams*(num_defaults?16:12); ctl2_encode_typedesc(This->typelib, &pFuncDesc->elemdescFunc.tdesc, &typedata[1], NULL, NULL, &decoded_size); typedata[2] = pFuncDesc->wFuncFlags; typedata[3] = ((sizeof(FUNCDESC) + decoded_size) << 16) | (unsigned short)(pFuncDesc->oVft?pFuncDesc->oVft+1:0); typedata[4] = (pFuncDesc->callconv << 8) | (pFuncDesc->invkind << 3) | pFuncDesc->funckind; if(num_defaults) typedata[4] |= 0x1000; if (num_retval) typedata[4] |= 0x4000; typedata[5] = pFuncDesc->cParams; /* NOTE: High word of typedata[3] is total size of FUNCDESC + size of all ELEMDESCs for params + TYPEDESCs for pointer params and return types. */ /* That is, total memory allocation required to reconstitute the FUNCDESC in its entirety. */ typedata[3] += (sizeof(ELEMDESC) * pFuncDesc->cParams) << 16; typedata[3] += (sizeof(PARAMDESCEX) * num_defaults) << 16; /* add default values */ if(num_defaults) { for (i = 0; i < pFuncDesc->cParams; i++) if(pFuncDesc->lprgelemdescParam[i].u.paramdesc.wParamFlags & PARAMFLAG_FHASDEFAULT) { hres = ctl2_encode_variant(This->typelib, typedata+6+i, &pFuncDesc->lprgelemdescParam[i].u.paramdesc.pparamdescex->varDefaultValue, pFuncDesc->lprgelemdescParam[i].tdesc.vt); if(FAILED(hres)) { heap_free(insert->u.data); heap_free(insert); return hres; } } else typedata[6+i] = 0xffffffff; num_defaults = pFuncDesc->cParams; } /* add arguments */ for (i = 0; i < pFuncDesc->cParams; i++) { ctl2_encode_typedesc(This->typelib, &pFuncDesc->lprgelemdescParam[i].tdesc, &typedata[6+num_defaults+(i*3)], NULL, NULL, &decoded_size); typedata[7+num_defaults+(i*3)] = -1; typedata[8+num_defaults+(i*3)] = pFuncDesc->lprgelemdescParam[i].u.paramdesc.wParamFlags; typedata[3] += decoded_size << 16; } /* update the index data */ insert->indice = pFuncDesc->memid; insert->name = -1; /* insert type data to list */ if(index == cti2_get_func_count(This->typeinfo)) { insert->next = This->typedata->next; This->typedata->next = insert; This->typedata = insert; if(This->dual) This->dual->typedata = This->typedata; } else { iter = This->typedata->next; for(i=0; inext; insert->next = iter->next; iter->next = insert; } /* update type data size */ This->typedata->next->u.val += FIELD_OFFSET(MSFT_FuncRecord, HelpContext) + pFuncDesc->cParams*(num_defaults?16:12); /* Increment the number of function elements */ This->typeinfo->cElement += 1; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_AddImplType {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnAddImplType( ICreateTypeInfo2* iface, UINT index, HREFTYPE hRefType) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; TRACE("(%p,%d,%d)\n", iface, index, hRefType); if (This->typekind == TKIND_COCLASS) { int offset; MSFT_RefRecord *ref; if (index == 0) { if (This->typeinfo->datatype1 != -1) return TYPE_E_ELEMENTNOTFOUND; offset = ctl2_alloc_segment(This->typelib, MSFT_SEG_REFERENCES, sizeof(MSFT_RefRecord), 0); if (offset == -1) return E_OUTOFMEMORY; This->typeinfo->datatype1 = offset; } else { int lastoffset; lastoffset = ctl2_find_nth_reference(This->typelib, This->typeinfo->datatype1, index - 1); if (lastoffset == -1) return TYPE_E_ELEMENTNOTFOUND; ref = (MSFT_RefRecord *)&This->typelib->typelib_segment_data[MSFT_SEG_REFERENCES][lastoffset]; if (ref->onext != -1) return TYPE_E_ELEMENTNOTFOUND; offset = ctl2_alloc_segment(This->typelib, MSFT_SEG_REFERENCES, sizeof(MSFT_RefRecord), 0); if (offset == -1) return E_OUTOFMEMORY; ref->onext = offset; } ref = (MSFT_RefRecord *)&This->typelib->typelib_segment_data[MSFT_SEG_REFERENCES][offset]; ref->reftype = hRefType; ref->flags = 0; ref->oCustData = -1; ref->onext = -1; This->typeinfo->cImplTypes++; } else if (This->typekind == TKIND_INTERFACE) { if (This->typeinfo->cImplTypes && index==1) return TYPE_E_BADMODULEKIND; if( index != 0) return TYPE_E_ELEMENTNOTFOUND; This->typeinfo->datatype1 = hRefType; This->typeinfo->cImplTypes = 1; } else if (This->typekind == TKIND_DISPATCH) { if(index != 0) return TYPE_E_ELEMENTNOTFOUND; /* FIXME: Check if referenced typeinfo is IDispatch */ This->typeinfo->flags |= TYPEFLAG_FDISPATCHABLE; This->typeinfo->cImplTypes = 1; } else { FIXME("AddImplType unsupported on typekind %d\n", This->typekind); return E_OUTOFMEMORY; } return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetImplTypeFlags {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetImplTypeFlags( ICreateTypeInfo2* iface, UINT index, INT implTypeFlags) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; int offset; MSFT_RefRecord *ref; TRACE("(%p,%d,0x%x)\n", iface, index, implTypeFlags); if (This->typekind != TKIND_COCLASS) { return TYPE_E_BADMODULEKIND; } offset = ctl2_find_nth_reference(This->typelib, This->typeinfo->datatype1, index); if (offset == -1) return TYPE_E_ELEMENTNOTFOUND; ref = (MSFT_RefRecord *)&This->typelib->typelib_segment_data[MSFT_SEG_REFERENCES][offset]; ref->flags = implTypeFlags; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetAlignment {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetAlignment( ICreateTypeInfo2* iface, WORD cbAlignment) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; TRACE("(%p,%d)\n", iface, cbAlignment); if (!cbAlignment) return E_INVALIDARG; if (cbAlignment > 16) return E_INVALIDARG; This->typeinfo->typekind &= ~0xffc0; This->typeinfo->typekind |= cbAlignment << 6; /* FIXME: There's probably some way to simplify this. */ switch (This->typekind) { case TKIND_ALIAS: default: break; case TKIND_ENUM: case TKIND_INTERFACE: case TKIND_DISPATCH: case TKIND_COCLASS: if (cbAlignment > 4) cbAlignment = 4; break; case TKIND_RECORD: case TKIND_MODULE: case TKIND_UNION: cbAlignment = 1; break; } This->typeinfo->typekind |= cbAlignment << 11; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetSchema {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetSchema( ICreateTypeInfo2* iface, LPOLESTR pStrSchema) { FIXME("(%p,%s), stub!\n", iface, debugstr_w(pStrSchema)); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_AddVarDesc {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnAddVarDesc( ICreateTypeInfo2* iface, UINT index, VARDESC* pVarDesc) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; HRESULT status = S_OK; CyclicList *insert; INT *typedata; int var_datawidth; int var_alignment; int var_type_size; int alignment; TRACE("(%p,%d,%p)\n", iface, index, pVarDesc); TRACE("%d, %p, %d, {{%x, %d}, {%p, %x}}, 0x%x, %d\n", pVarDesc->memid, pVarDesc->lpstrSchema, pVarDesc->u.oInst, pVarDesc->elemdescVar.tdesc.u.hreftype, pVarDesc->elemdescVar.tdesc.vt, pVarDesc->elemdescVar.u.paramdesc.pparamdescex, pVarDesc->elemdescVar.u.paramdesc.wParamFlags, pVarDesc->wVarFlags, pVarDesc->varkind); if (cti2_get_var_count(This->typeinfo) != index) return TYPE_E_ELEMENTNOTFOUND; if (!This->typedata) { This->typedata = alloc_cyclic_list_item(CyclicListSentinel); if(!This->typedata) return E_OUTOFMEMORY; This->typedata->next = This->typedata; if(This->dual) This->dual->typedata = This->typedata; } insert = alloc_cyclic_list_item(CyclicListVar); if(!insert) return E_OUTOFMEMORY; /* allocate whole structure, it's fixed size always */ insert->u.data = heap_alloc(sizeof(MSFT_VarRecord)); if(!insert->u.data) { heap_free(insert); return E_OUTOFMEMORY; } insert->next = This->typedata->next; This->typedata->next = insert; This->typedata = insert; if(This->dual) This->dual->typedata = This->typedata; This->typedata->next->u.val += FIELD_OFFSET(MSFT_VarRecord, HelpContext); typedata = This->typedata->u.data; /* fill out the basic type information */ /* no optional fields initially */ typedata[0] = FIELD_OFFSET(MSFT_VarRecord, HelpContext) | (index << 16); typedata[2] = pVarDesc->wVarFlags; typedata[3] = (sizeof(VARDESC) << 16) | pVarDesc->varkind; /* update the index data */ insert->indice = 0x40000000 + index; insert->name = -1; /* figure out type widths and whatnot */ ctl2_encode_typedesc(This->typelib, &pVarDesc->elemdescVar.tdesc, &typedata[1], &var_datawidth, &var_alignment, &var_type_size); if (pVarDesc->varkind != VAR_CONST) { /* pad out starting position to data width */ This->datawidth += var_alignment - 1; This->datawidth &= ~(var_alignment - 1); typedata[4] = This->datawidth; /* add the new variable to the total data width */ This->datawidth += var_datawidth; if(This->dual) This->dual->datawidth = This->datawidth; /* add type description size to total required allocation */ typedata[3] += var_type_size << 16; /* fix type alignment */ alignment = (This->typeinfo->typekind >> 11) & 0x1f; if (alignment < var_alignment) { alignment = var_alignment; This->typeinfo->typekind &= ~0xf800; This->typeinfo->typekind |= alignment << 11; } /* ??? */ if (!This->typeinfo->res2) This->typeinfo->res2 = 0x1a; if ((index == 0) || (index == 1) || (index == 2) || (index == 4) || (index == 9)) { This->typeinfo->res2 <<= 1; } /* ??? */ if (This->typeinfo->res3 == -1) This->typeinfo->res3 = 0; This->typeinfo->res3 += 0x2c; /* pad data width to alignment */ This->typeinfo->size = (This->datawidth + (alignment - 1)) & ~(alignment - 1); } else { VARIANT *value = pVarDesc->DUMMYUNIONNAME.lpvarValue; status = ctl2_encode_variant(This->typelib, typedata+4, value, V_VT(value)); /* ??? native sets size 0x34 */ typedata[3] += 0x10 << 16; } /* increment the number of variable elements */ This->typeinfo->cElement += 0x10000; return status; } /****************************************************************************** * ICreateTypeInfo2_SetFuncAndParamNames {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetFuncAndParamNames( ICreateTypeInfo2* iface, UINT index, LPOLESTR* names, UINT cNames) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *iter, *iter2; int offset, len, i; char *namedata; TRACE("(%p %d %p %d)\n", This, index, names, cNames); if(!names) return E_INVALIDARG; if(index >= cti2_get_func_count(This->typeinfo) || cNames == 0) return TYPE_E_ELEMENTNOTFOUND; for(iter=This->typedata->next->next, i=0; /* empty */; iter=iter->next) if (iter->type == CyclicListFunc) if (i++ >= index) break; /* cNames == cParams for put or putref accessor, cParams+1 otherwise */ if(cNames != iter->u.data[5] + (ctl2_get_invokekind(iter) & (INVOKE_PROPERTYPUT|INVOKE_PROPERTYPUTREF) ? 0 : 1)) return TYPE_E_ELEMENTNOTFOUND; TRACE("function name %s\n", debugstr_w(names[0])); len = ctl2_encode_name(This->typelib, names[0], &namedata); for(iter2=This->typedata->next->next; iter2!=This->typedata->next; iter2=iter2->next) { int cmp = memcmp(namedata, This->typelib->typelib_segment_data[MSFT_SEG_NAME]+iter2->name+8, len); if (iter2->name != -1 && cmp == 0) { if (iter2->type == CyclicListFunc) { INVOKEKIND inv1 = ctl2_get_invokekind(iter); INVOKEKIND inv2 = ctl2_get_invokekind(iter2); /* it's allowed to have PUT, PUTREF and GET methods with the same name */ if ((inv1 != inv2) && (inv1 & (INVOKE_PROPERTYPUT|INVOKE_PROPERTYPUTREF|INVOKE_PROPERTYGET)) && (inv2 & (INVOKE_PROPERTYPUT|INVOKE_PROPERTYPUTREF|INVOKE_PROPERTYGET))) continue; } return TYPE_E_AMBIGUOUSNAME; } } offset = ctl2_alloc_name(This->typelib, names[0]); if(offset == -1) return E_OUTOFMEMORY; iter->name = offset; namedata = This->typelib->typelib_segment_data[MSFT_SEG_NAME] + offset; if (*((INT*)namedata) == -1) *((INT *)namedata) = This->typelib->typelib_typeinfo_offsets[This->typeinfo->typekind >> 16]; len = ctl2_get_record_size(iter)/4 - iter->u.data[5]*3; for (i = 1; i < cNames; i++) { offset = ctl2_alloc_name(This->typelib, names[i]); iter->u.data[len + ((i-1)*3) + 1] = offset; } return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetVarName {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetVarName( ICreateTypeInfo2* iface, UINT index, LPOLESTR szName) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *iter; int offset, i; char *namedata; TRACE("(%p,%d,%s)\n", This, index, debugstr_w(szName)); if (cti2_get_var_count(This->typeinfo) <= index) return TYPE_E_ELEMENTNOTFOUND; offset = ctl2_alloc_name(This->typelib, szName); if (offset == -1) return E_OUTOFMEMORY; namedata = This->typelib->typelib_segment_data[MSFT_SEG_NAME] + offset; if (*((INT *)namedata) == -1) { *((INT *)namedata) = This->typelib->typelib_typeinfo_offsets[This->typeinfo->typekind >> 16]; namedata[9] |= 0x10; } if (This->typekind == TKIND_ENUM) { namedata[9] |= 0x20; } for(iter = This->typedata->next->next, i = 0; /* empty */; iter = iter->next) if (iter->type == CyclicListVar) if (i++ >= index) break; iter->name = offset; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetTypeDescAlias {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetTypeDescAlias( ICreateTypeInfo2* iface, TYPEDESC* pTDescAlias) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; int encoded_typedesc; int width; if (This->typekind != TKIND_ALIAS) { return TYPE_E_WRONGTYPEKIND; } FIXME("(%p,%p), hack!\n", iface, pTDescAlias); if (ctl2_encode_typedesc(This->typelib, pTDescAlias, &encoded_typedesc, &width, NULL, NULL) == -1) { return E_OUTOFMEMORY; } This->typeinfo->size = width; This->typeinfo->datatype1 = encoded_typedesc; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_DefineFuncAsDllEntry {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnDefineFuncAsDllEntry( ICreateTypeInfo2* iface, UINT index, LPOLESTR szDllName, LPOLESTR szProcName) { FIXME("(%p,%d,%s,%s), stub!\n", iface, index, debugstr_w(szDllName), debugstr_w(szProcName)); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetFuncDocString {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetFuncDocString( ICreateTypeInfo2* iface, UINT index, LPOLESTR szDocString) { FIXME("(%p,%d,%s), stub!\n", iface, index, debugstr_w(szDocString)); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetVarDocString {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetVarDocString( ICreateTypeInfo2* iface, UINT index, LPOLESTR docstring) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *iter; TRACE("(%p,%d,%s)\n", This, index, debugstr_w(docstring)); if (!docstring) return E_INVALIDARG; if (cti2_get_var_count(This->typeinfo) <= index) return TYPE_E_ELEMENTNOTFOUND; for (iter = This->typedata->next->next; iter != This->typedata->next; iter = iter->next) if (iter->type == CyclicListVar) { if (index-- == 0) { int offset = ctl2_alloc_string(This->typelib, docstring); if (offset == -1) return E_OUTOFMEMORY; ctl2_update_var_size(This, iter, FIELD_OFFSET(MSFT_VarRecord, res9)); iter->u.data[6] = offset; return S_OK; } } return TYPE_E_ELEMENTNOTFOUND; } /****************************************************************************** * ICreateTypeInfo2_SetFuncHelpContext {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetFuncHelpContext( ICreateTypeInfo2* iface, UINT index, DWORD dwHelpContext) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *func; TRACE("(%p,%d,%d)\n", iface, index, dwHelpContext); if(cti2_get_func_count(This->typeinfo) < index) return TYPE_E_ELEMENTNOTFOUND; if(cti2_get_func_count(This->typeinfo) == index && This->typedata->type == CyclicListFunc) func = This->typedata; else for(func=This->typedata->next->next; func!=This->typedata; func=func->next) if (func->type == CyclicListFunc) if(index-- == 0) break; This->typedata->next->u.val += funcrecord_reallochdr(&func->u.data, 7*sizeof(int)); if(!func->u.data) return E_OUTOFMEMORY; func->u.data[6] = dwHelpContext; return S_OK; } /****************************************************************************** * ICreateTypeInfo2_SetVarHelpContext {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetVarHelpContext( ICreateTypeInfo2* iface, UINT index, DWORD context) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *iter; TRACE("(%p,%d,%d)\n", This, index, context); if (cti2_get_var_count(This->typeinfo) <= index) return TYPE_E_ELEMENTNOTFOUND; for (iter = This->typedata->next->next; iter != This->typedata->next; iter = iter->next) if (iter->type == CyclicListVar) { if (index-- == 0) { ctl2_update_var_size(This, iter, FIELD_OFFSET(MSFT_VarRecord, HelpString)); iter->u.data[5] = context; return S_OK; } } return TYPE_E_ELEMENTNOTFOUND; } /****************************************************************************** * ICreateTypeInfo2_SetMops {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetMops( ICreateTypeInfo2* iface, UINT index, BSTR bstrMops) { FIXME("(%p,%d,%p), stub!\n", iface, index, bstrMops); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetTypeIdldesc {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnSetTypeIdldesc( ICreateTypeInfo2* iface, IDLDESC* pIdlDesc) { FIXME("(%p,%p), stub!\n", iface, pIdlDesc); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_LayOut {OLEAUT32} */ static HRESULT WINAPI ICreateTypeInfo2_fnLayOut( ICreateTypeInfo2* iface) { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *iter, *iter2, *last = NULL, **typedata; HREFTYPE hreftype; HRESULT hres; unsigned user_vft = 0; int i; TRACE("(%p)\n", This); /* FIXME: LayOut should be run on all ImplTypes */ if(This->typekind == TKIND_COCLASS || This->typekind == TKIND_ALIAS) return S_OK; /* Validate inheritance */ This->typeinfo->datatype2 = 0; hreftype = This->typeinfo->datatype1; /* Process internally defined interfaces */ for(i=0; itypelib->typelib_header.nrtypeinfos; i++) { MSFT_TypeInfoBase *header; if(hreftype&1) break; header = (MSFT_TypeInfoBase*)&(This->typelib->typelib_segment_data[MSFT_SEG_TYPEINFO][hreftype]); This->typeinfo->datatype2 += (header->cElement<<16) + 1; hreftype = header->datatype1; } if(i == This->typelib->typelib_header.nrtypeinfos) return TYPE_E_CIRCULARTYPE; /* Process externally defined interfaces */ if(hreftype != -1) { ITypeInfo *cur, *next; TYPEATTR *typeattr; hres = ICreateTypeInfo_QueryInterface(iface, &IID_ITypeInfo, (void**)&next); if(FAILED(hres)) return hres; hres = ITypeInfo_GetRefTypeInfo(next, hreftype, &cur); ITypeInfo_Release(next); if(FAILED(hres)) return hres; while(1) { hres = ITypeInfo_GetTypeAttr(cur, &typeattr); if(FAILED(hres)) { ITypeInfo_Release(cur); return hres; } if(IsEqualGUID(&typeattr->guid, &IID_IDispatch)) This->typeinfo->flags |= TYPEFLAG_FDISPATCHABLE; This->typeinfo->datatype2 += (typeattr->cFuncs<<16) + 1; ITypeInfo_ReleaseTypeAttr(cur, typeattr); hres = ITypeInfo_GetRefTypeOfImplType(cur, 0, &hreftype); if(hres == TYPE_E_ELEMENTNOTFOUND) break; if(FAILED(hres)) { ITypeInfo_Release(cur); return hres; } hres = ITypeInfo_GetRefTypeInfo(cur, hreftype, &next); if(FAILED(hres)) { ITypeInfo_Release(cur); return hres; } ITypeInfo_Release(cur); cur = next; } ITypeInfo_Release(cur); } /* Get cbSizeVft of inherited interface */ /* Makes LayOut running recursively */ if(This->typeinfo->datatype1 != -1) { ITypeInfo *cur, *inherited; TYPEATTR *typeattr; hres = ICreateTypeInfo_QueryInterface(iface, &IID_ITypeInfo, (void**)&cur); if(FAILED(hres)) return hres; hres = ITypeInfo_GetRefTypeInfo(cur, This->typeinfo->datatype1, &inherited); ITypeInfo_Release(cur); if(FAILED(hres)) return hres; hres = ITypeInfo_GetTypeAttr(inherited, &typeattr); if(FAILED(hres)) { ITypeInfo_Release(inherited); return hres; } This->typeinfo->cbSizeVft = typeattr->cbSizeVft * 4 / sizeof(void *); ITypeInfo_ReleaseTypeAttr(inherited, typeattr); ITypeInfo_Release(inherited); } else This->typeinfo->cbSizeVft = 0; if(!This->typedata) return S_OK; typedata = heap_alloc(sizeof(CyclicList*)*cti2_get_func_count(This->typeinfo)); if(!typedata) return E_OUTOFMEMORY; /* Assign IDs and VTBL entries */ for(iter=This->typedata->next->next; iter!=This->typedata->next; iter=iter->next) if (iter->type == CyclicListFunc) last = iter; if(last && last->u.data[3]&1) user_vft = last->u.data[3]&0xffff; i = 0; for(iter=This->typedata->next->next; iter!=This->typedata->next; iter=iter->next) { /* Assign MEMBERID if MEMBERID_NIL was specified */ if(iter->indice == MEMBERID_NIL) { iter->indice = 0x60000000 + i + (This->typeinfo->datatype2<<16); for(iter2=This->typedata->next->next; iter2!=This->typedata->next; iter2=iter2->next) { if(iter == iter2) continue; if(iter2->indice == iter->indice) { iter->indice = 0x60000000 + This->typeinfo->cElement + (This->typeinfo->datatype2<<16); for(iter2=This->typedata->next->next; iter2!=This->typedata->next; iter2=iter2->next) { if(iter == iter2) continue; if(iter2->indice == iter->indice) { ++iter->indice; iter2 = This->typedata->next; } } break; } } } if (iter->type != CyclicListFunc) continue; typedata[i] = iter; iter->u.data[0] = ctl2_get_record_size(iter) | (i<<16); if((iter->u.data[3]&1) != (user_vft&1)) { heap_free(typedata); return TYPE_E_INVALIDID; } if(user_vft&1) { if(user_vft < (iter->u.data[3]&0xffff)) user_vft = (iter->u.data[3]&0xffff); if((iter->u.data[3]&0xffff) < This->typeinfo->cbSizeVft) { heap_free(typedata); return TYPE_E_INVALIDID; } } else if(This->typekind != TKIND_MODULE) { iter->u.data[3] = (iter->u.data[3]&0xffff0000) | This->typeinfo->cbSizeVft; This->typeinfo->cbSizeVft += 4; } /* Construct a list of elements with the same memberid */ iter->u.data[4] = (iter->u.data[4]&0xffff) | (i<<16); for(iter2=This->typedata->next->next; iter2!=iter; iter2=iter2->next) { if(iter->indice == iter2->indice) { int v1, v2; v1 = iter->u.data[4] >> 16; v2 = iter2->u.data[4] >> 16; iter->u.data[4] = (iter->u.data[4]&0xffff) | (v2<<16); iter2->u.data[4] = (iter2->u.data[4]&0xffff) | (v1<<16); break; } } i++; } if(user_vft) This->typeinfo->cbSizeVft = user_vft+3; for(i=0; i< cti2_get_func_count(This->typeinfo); i++) { if(typedata[i]->u.data[4]>>16 > i) { INVOKEKIND inv = ctl2_get_invokekind(typedata[i]); i = typedata[i]->u.data[4] >> 16; while(i > typedata[i]->u.data[4]>>16) { INVOKEKIND invkind = ctl2_get_invokekind(typedata[i]); if(inv & invkind) { heap_free(typedata); return TYPE_E_DUPLICATEID; } i = typedata[i]->u.data[4] >> 16; inv |= invkind; } if(inv & INVOKE_FUNC) { heap_free(typedata); return TYPE_E_INCONSISTENTPROPFUNCS; } } } heap_free(typedata); return S_OK; } /****************************************************************************** * ICreateTypeInfo2_DeleteFuncDesc {OLEAUT32} * * Delete a function description from a type. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnDeleteFuncDesc( ICreateTypeInfo2* iface, /* [I] The typeinfo from which to delete a function. */ UINT index) /* [I] The index of the function to delete. */ { FIXME("(%p,%d), stub!\n", iface, index); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_DeleteFuncDescByMemId {OLEAUT32} * * Delete a function description from a type. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnDeleteFuncDescByMemId( ICreateTypeInfo2* iface, /* [I] The typeinfo from which to delete a function. */ MEMBERID memid, /* [I] The member id of the function to delete. */ INVOKEKIND invKind) /* [I] The invocation type of the function to delete. (?) */ { FIXME("(%p,%d,%d), stub!\n", iface, memid, invKind); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_DeleteVarDesc {OLEAUT32} * * Delete a variable description from a type. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY, E_INVALIDARG, TYPE_E_IOERROR, * TYPE_E_INVDATAREAD, TYPE_E_UNSUPFORMAT or TYPE_E_INVALIDSTATE. */ static HRESULT WINAPI ICreateTypeInfo2_fnDeleteVarDesc( ICreateTypeInfo2* iface, /* [I] The typeinfo from which to delete the variable description. */ UINT index) /* [I] The index of the variable description to delete. */ { FIXME("(%p,%d), stub!\n", iface, index); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_DeleteVarDescByMemId {OLEAUT32} * * Delete a variable description from a type. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY, E_INVALIDARG, TYPE_E_IOERROR, * TYPE_E_INVDATAREAD, TYPE_E_UNSUPFORMAT or TYPE_E_INVALIDSTATE. */ static HRESULT WINAPI ICreateTypeInfo2_fnDeleteVarDescByMemId( ICreateTypeInfo2* iface, /* [I] The typeinfo from which to delete the variable description. */ MEMBERID memid) /* [I] The member id of the variable description to delete. */ { FIXME("(%p,%d), stub!\n", iface, memid); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_DeleteImplType {OLEAUT32} * * Delete an interface implementation from a type. (?) * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnDeleteImplType( ICreateTypeInfo2* iface, /* [I] The typeinfo from which to delete. */ UINT index) /* [I] The index of the interface to delete. */ { FIXME("(%p,%d), stub!\n", iface, index); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetCustData {OLEAUT32} * * Set the custom data for a type. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetCustData( ICreateTypeInfo2* iface, /* [I] The typeinfo in which to set the custom data. */ REFGUID guid, /* [I] The GUID used as a key to retrieve the custom data. */ VARIANT* pVarVal) /* [I] The custom data. */ { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; TRACE("(%p,%s,%p)!\n", iface, debugstr_guid(guid), pVarVal); if (!pVarVal) return E_INVALIDARG; return ctl2_set_custdata(This->typelib, guid, pVarVal, &This->typeinfo->oCustData); } /****************************************************************************** * ICreateTypeInfo2_SetFuncCustData {OLEAUT32} * * Set the custom data for a function. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetFuncCustData( ICreateTypeInfo2* iface, /* [I] The typeinfo in which to set the custom data. */ UINT index, /* [I] The index of the function for which to set the custom data. */ REFGUID guid, /* [I] The GUID used as a key to retrieve the custom data. */ VARIANT* pVarVal) /* [I] The custom data. */ { ICreateTypeInfo2Impl *This = (ICreateTypeInfo2Impl *)iface; CyclicList *iter; TRACE("(%p,%d,%s,%p)\n", iface, index, debugstr_guid(guid), pVarVal); if(index >= cti2_get_func_count(This->typeinfo)) return TYPE_E_ELEMENTNOTFOUND; for(iter=This->typedata->next->next; /* empty */; iter=iter->next) if (iter->type == CyclicListFunc) if (index-- == 0) break; This->typedata->next->u.val += funcrecord_reallochdr(&iter->u.data, 13*sizeof(int)); if(!iter->u.data) return E_OUTOFMEMORY; iter->u.data[4] |= 0x80; return ctl2_set_custdata(This->typelib, guid, pVarVal, &iter->u.data[12]); } /****************************************************************************** * ICreateTypeInfo2_SetParamCustData {OLEAUT32} * * Set the custom data for a function parameter. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetParamCustData( ICreateTypeInfo2* iface, /* [I] The typeinfo in which to set the custom data. */ UINT indexFunc, /* [I] The index of the function on which the parameter resides. */ UINT indexParam, /* [I] The index of the parameter on which to set the custom data. */ REFGUID guid, /* [I] The GUID used as a key to retrieve the custom data. */ VARIANT* pVarVal) /* [I] The custom data. */ { FIXME("(%p,%d,%d,%s,%p), stub!\n", iface, indexFunc, indexParam, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetVarCustData {OLEAUT32} * * Set the custom data for a variable. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetVarCustData( ICreateTypeInfo2* iface, /* [I] The typeinfo in which to set the custom data. */ UINT index, /* [I] The index of the variable on which to set the custom data. */ REFGUID guid, /* [I] The GUID used as a key to retrieve the custom data. */ VARIANT* pVarVal) /* [I] The custom data. */ { FIXME("(%p,%d,%s,%p), stub!\n", iface, index, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetImplTypeCustData {OLEAUT32} * * Set the custom data for an implemented interface. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetImplTypeCustData( ICreateTypeInfo2* iface, /* [I] The typeinfo on which to set the custom data. */ UINT index, /* [I] The index of the implemented interface on which to set the custom data. */ REFGUID guid, /* [I] The GUID used as a key to retrieve the custom data. */ VARIANT* pVarVal) /* [I] The custom data. */ { FIXME("(%p,%d,%s,%p), stub!\n", iface, index, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetHelpStringContext {OLEAUT32} * * Set the help string context for the typeinfo. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetHelpStringContext( ICreateTypeInfo2* iface, /* [I] The typeinfo on which to set the help string context. */ ULONG dwHelpStringContext) /* [I] The help string context. */ { FIXME("(%p,%d), stub!\n", iface, dwHelpStringContext); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetFuncHelpStringContext {OLEAUT32} * * Set the help string context for a function. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetFuncHelpStringContext( ICreateTypeInfo2* iface, /* [I] The typeinfo on which to set the help string context. */ UINT index, /* [I] The index for the function on which to set the help string context. */ ULONG dwHelpStringContext) /* [I] The help string context. */ { FIXME("(%p,%d,%d), stub!\n", iface, index, dwHelpStringContext); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetVarHelpStringContext {OLEAUT32} * * Set the help string context for a variable. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetVarHelpStringContext( ICreateTypeInfo2* iface, /* [I] The typeinfo on which to set the help string context. */ UINT index, /* [I] The index of the variable on which to set the help string context. */ ULONG dwHelpStringContext) /* [I] The help string context */ { FIXME("(%p,%d,%d), stub!\n", iface, index, dwHelpStringContext); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_Invalidate {OLEAUT32} * * Undocumented function. (!) */ static HRESULT WINAPI ICreateTypeInfo2_fnInvalidate( ICreateTypeInfo2* iface) { FIXME("(%p), stub!\n", iface); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeInfo2_SetName {OLEAUT32} * * Set the name for a typeinfo. * * RETURNS * * Success: S_OK. * Failure: One of STG_E_INSUFFICIENTMEMORY, E_OUTOFMEMORY, E_INVALIDARG or TYPE_E_INVALIDSTATE. */ static HRESULT WINAPI ICreateTypeInfo2_fnSetName( ICreateTypeInfo2* iface, LPOLESTR szName) { FIXME("(%p,%s), stub!\n", iface, debugstr_w(szName)); return E_OUTOFMEMORY; } /*================== ITypeInfo2 Implementation ===================================*/ /****************************************************************************** * ITypeInfo2_QueryInterface {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnQueryInterface(ITypeInfo2 * iface, REFIID riid, LPVOID * ppv) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); return ICreateTypeInfo2_QueryInterface((ICreateTypeInfo2 *)This, riid, ppv); } /****************************************************************************** * ITypeInfo2_AddRef {OLEAUT32} */ static ULONG WINAPI ITypeInfo2_fnAddRef(ITypeInfo2 * iface) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); return ICreateTypeInfo2_AddRef((ICreateTypeInfo2 *)This); } /****************************************************************************** * ITypeInfo2_Release {OLEAUT32} */ static ULONG WINAPI ITypeInfo2_fnRelease(ITypeInfo2 * iface) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); return ICreateTypeInfo2_Release((ICreateTypeInfo2 *)This); } /****************************************************************************** * ITypeInfo2_GetTypeAttr {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetTypeAttr( ITypeInfo2* iface, TYPEATTR** ppTypeAttr) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); HRESULT hres; TRACE("(%p,%p)\n", iface, ppTypeAttr); if(!ppTypeAttr) return E_INVALIDARG; hres = ICreateTypeInfo_LayOut((ICreateTypeInfo*)This); if(FAILED(hres)) return hres; *ppTypeAttr = heap_alloc_zero(sizeof(TYPEATTR)); if(!*ppTypeAttr) return E_OUTOFMEMORY; if(This->typeinfo->posguid != -1) { MSFT_GuidEntry *guid; guid = (MSFT_GuidEntry*)&This->typelib->typelib_segment_data[MSFT_SEG_GUID][This->typeinfo->posguid]; (*ppTypeAttr)->guid = guid->guid; } (*ppTypeAttr)->lcid = This->typelib->typelib_header.lcid; (*ppTypeAttr)->cbSizeInstance = This->typeinfo->size; (*ppTypeAttr)->typekind = This->typekind; (*ppTypeAttr)->cFuncs = cti2_get_func_count(This->typeinfo); if(This->typeinfo->flags&TYPEFLAG_FDUAL && This->typekind==TKIND_DISPATCH) (*ppTypeAttr)->cFuncs += sizeof(IDispatchVtbl)/sizeof(void*); (*ppTypeAttr)->cVars = cti2_get_var_count(This->typeinfo); (*ppTypeAttr)->cImplTypes = This->typeinfo->cImplTypes; (*ppTypeAttr)->cbSizeVft = This->typekind == TKIND_DISPATCH ? sizeof(IDispatchVtbl) : This->typeinfo->cbSizeVft; (*ppTypeAttr)->cbAlignment = (This->typeinfo->typekind>>11) & 0x1f; (*ppTypeAttr)->wTypeFlags = This->typeinfo->flags; (*ppTypeAttr)->wMajorVerNum = LOWORD(This->typeinfo->version); (*ppTypeAttr)->wMinorVerNum = HIWORD(This->typeinfo->version); if((*ppTypeAttr)->typekind == TKIND_ALIAS) FIXME("TKIND_ALIAS handling not implemented\n"); return S_OK; } /****************************************************************************** * ITypeInfo2_GetTypeComp {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetTypeComp( ITypeInfo2* iface, ITypeComp** ppTComp) { FIXME("(%p,%p), stub!\n", iface, ppTComp); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetFuncDesc {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetFuncDesc( ITypeInfo2* iface, UINT index, FUNCDESC** ppFuncDesc) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); int i, *typedata, num_defaults = 0, hdr_len, tail, has_defaults; CyclicList *desc; HRESULT hres; TRACE("(%p,%d,%p), semi-stub\n", iface, index, ppFuncDesc); if (!ppFuncDesc) return E_INVALIDARG; if (index >= cti2_get_func_count(This->typeinfo)) return TYPE_E_ELEMENTNOTFOUND; hres = ICreateTypeInfo2_LayOut((ICreateTypeInfo2*)This); if (FAILED(hres)) return hres; desc = This->typedata->next; for (i = index; i >= 0; ) { desc = desc->next; if (desc->type == CyclicListFunc) --i; } typedata = desc->u.data; *ppFuncDesc = heap_alloc_zero(sizeof(FUNCDESC)); if (!*ppFuncDesc) return E_OUTOFMEMORY; (*ppFuncDesc)->memid = desc->indice; (*ppFuncDesc)->lprgscode = NULL; /* FIXME: Unimplemented */ (*ppFuncDesc)->funckind = typedata[4] & 0x7; (*ppFuncDesc)->invkind = (typedata[4] >> 3) & 0xF; (*ppFuncDesc)->callconv = (typedata[4] >> 8) & 0xF; (*ppFuncDesc)->cParams = typedata[5]; (*ppFuncDesc)->cParamsOpt = 0; /* FIXME: Unimplemented*/ (*ppFuncDesc)->oVft = typedata[3] & 0xFFFF; if ((*ppFuncDesc)->oVft) --(*ppFuncDesc)->oVft; (*ppFuncDesc)->cScodes = 0; /* FIXME: Unimplemented*/ hres = ctl2_decode_typedesc(This->typelib, typedata[1], &(*ppFuncDesc)->elemdescFunc.tdesc); if (FAILED(hres)) { heap_free(*ppFuncDesc); return hres; } (*ppFuncDesc)->wFuncFlags = typedata[2]; has_defaults = typedata[4] & 0x1000; tail = typedata[5] * (has_defaults ? 16 : 12); hdr_len = (ctl2_get_record_size(desc) - tail) / sizeof(int); if ((*ppFuncDesc)->cParams > 0) { (*ppFuncDesc)->lprgelemdescParam = heap_alloc_zero((*ppFuncDesc)->cParams * sizeof(ELEMDESC)); if (!(*ppFuncDesc)->lprgelemdescParam) { heap_free(*ppFuncDesc); return E_OUTOFMEMORY; } if (has_defaults) { num_defaults = (*ppFuncDesc)->cParams; for (i = 0; i < num_defaults; ++i) { if (typedata[hdr_len + i] != 0xFFFFFFFF) { (*ppFuncDesc)->lprgelemdescParam[i].u.paramdesc.wParamFlags |= PARAMFLAG_FHASDEFAULT; (*ppFuncDesc)->lprgelemdescParam[i].u.paramdesc.pparamdescex = heap_alloc(sizeof(PARAMDESCEX)); if (!(*ppFuncDesc)->lprgelemdescParam[i].u.paramdesc.pparamdescex) { ITypeInfo2_ReleaseFuncDesc(iface, *ppFuncDesc); return E_OUTOFMEMORY; } (*ppFuncDesc)->lprgelemdescParam[i].u.paramdesc.pparamdescex->cBytes = sizeof(PARAMDESCEX); hres = ctl2_decode_variant(This->typelib, typedata[hdr_len + i], &(*ppFuncDesc)->lprgelemdescParam[i].u.paramdesc.pparamdescex->varDefaultValue); if (FAILED(hres)) { ITypeInfo2_ReleaseFuncDesc(iface, *ppFuncDesc); return hres; } } } } for (i = 0; i < (*ppFuncDesc)->cParams; ++i) { hres = ctl2_decode_typedesc(This->typelib, typedata[hdr_len + num_defaults + (i * 3)], &((*ppFuncDesc)->lprgelemdescParam + i)->tdesc); if (FAILED(hres)) { ITypeInfo2_ReleaseFuncDesc(iface, *ppFuncDesc); return hres; } (*ppFuncDesc)->lprgelemdescParam[i].u.paramdesc.wParamFlags = typedata[hdr_len + num_defaults + (i * 3) + 2]; } } return S_OK; } /****************************************************************************** * ITypeInfo2_GetVarDesc {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetVarDesc( ITypeInfo2* iface, UINT index, VARDESC** ppVarDesc) { FIXME("(%p,%d,%p), stub!\n", iface, index, ppVarDesc); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetNames {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetNames( ITypeInfo2* iface, MEMBERID memid, BSTR* rgBstrNames, UINT cMaxNames, UINT* pcNames) { FIXME("(%p,%d,%p,%d,%p), stub!\n", iface, memid, rgBstrNames, cMaxNames, pcNames); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetRefTypeOfImplType {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetRefTypeOfImplType( ITypeInfo2* iface, UINT index, HREFTYPE* pRefType) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); MSFT_RefRecord *ref; int offset; TRACE("(%p,%d,%p)\n", iface, index, pRefType); if(!pRefType) return E_INVALIDARG; if(This->typeinfo->flags&TYPEFLAG_FDUAL) { if(index == -1) { *pRefType = -2; return S_OK; } if(This->typekind == TKIND_DISPATCH) return ITypeInfo2_GetRefTypeOfImplType((ITypeInfo2*)&This->dual->lpVtblTypeInfo2, index, pRefType); } if(index>=This->typeinfo->cImplTypes) return TYPE_E_ELEMENTNOTFOUND; if(This->typekind == TKIND_INTERFACE) { *pRefType = This->typeinfo->datatype1 + 2; return S_OK; } offset = ctl2_find_nth_reference(This->typelib, This->typeinfo->datatype1, index); if(offset == -1) return TYPE_E_ELEMENTNOTFOUND; ref = (MSFT_RefRecord *)&This->typelib->typelib_segment_data[MSFT_SEG_REFERENCES][offset]; *pRefType = ref->reftype; return S_OK; } /****************************************************************************** * ITypeInfo2_GetImplTypeFlags {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetImplTypeFlags( ITypeInfo2* iface, UINT index, INT* pImplTypeFlags) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); int offset; MSFT_RefRecord *ref; TRACE("(%p,%d,%p)\n", iface, index, pImplTypeFlags); if(!pImplTypeFlags) return E_INVALIDARG; if(index >= This->typeinfo->cImplTypes) return TYPE_E_ELEMENTNOTFOUND; if(This->typekind != TKIND_COCLASS) { *pImplTypeFlags = 0; return S_OK; } offset = ctl2_find_nth_reference(This->typelib, This->typeinfo->datatype1, index); if(offset == -1) return TYPE_E_ELEMENTNOTFOUND; ref = (MSFT_RefRecord *)&This->typelib->typelib_segment_data[MSFT_SEG_REFERENCES][offset]; *pImplTypeFlags = ref->flags; return S_OK; } /****************************************************************************** * ITypeInfo2_GetIDsOfNames {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetIDsOfNames( ITypeInfo2* iface, LPOLESTR* rgszNames, UINT cNames, MEMBERID* pMemId) { FIXME("(%p,%p,%d,%p), stub!\n", iface, rgszNames, cNames, pMemId); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_Invoke {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnInvoke( ITypeInfo2* iface, PVOID pvInstance, MEMBERID memid, WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr) { FIXME("(%p,%p,%d,%x,%p,%p,%p,%p), stub!\n", iface, pvInstance, memid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetDocumentation {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetDocumentation( ITypeInfo2* iface, MEMBERID memid, BSTR* pBstrName, BSTR* pBstrDocString, DWORD* pdwHelpContext, BSTR* pBstrHelpFile) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); HRESULT status = TYPE_E_ELEMENTNOTFOUND; INT nameoffset, docstringoffset, helpcontext; TRACE("(%p,%d,%p,%p,%p,%p)\n", iface, memid, pBstrName, pBstrDocString, pdwHelpContext, pBstrHelpFile); if (memid == -1) { nameoffset = This->typeinfo->NameOffset; docstringoffset = This->typeinfo->docstringoffs; helpcontext = This->typeinfo->helpcontext; status = S_OK; } else { CyclicList *iter; if (This->typedata) { for(iter=This->typedata->next->next; iter!=This->typedata->next; iter=iter->next) { if (iter->indice == memid) { if (iter->type == CyclicListFunc) { const int *typedata = iter->u.data; int size = ctl2_get_record_size(iter) - typedata[5]*(typedata[4]&0x1000?16:12); nameoffset = iter->name; /* FIXME implement this once SetFuncDocString is implemented */ docstringoffset = -1; helpcontext = (size < 7*sizeof(int)) ? 0 : typedata[6]; status = S_OK; } else { FIXME("Not implemented for variable members\n"); } break; } } } } if (!status) { WCHAR *string; if (pBstrName) { if (nameoffset == -1) *pBstrName = NULL; else { MSFT_NameIntro *name = (MSFT_NameIntro*)&This->typelib-> typelib_segment_data[MSFT_SEG_NAME][nameoffset]; ctl2_decode_name((char*)&name->namelen, &string); *pBstrName = SysAllocString(string); if(!*pBstrName) return E_OUTOFMEMORY; } } if (pBstrDocString) { if (docstringoffset == -1) *pBstrDocString = NULL; else { MSFT_NameIntro *name = (MSFT_NameIntro*)&This->typelib-> typelib_segment_data[MSFT_SEG_NAME][docstringoffset]; ctl2_decode_name((char*)&name->namelen, &string); *pBstrDocString = SysAllocString(string); if(!*pBstrDocString) { if (pBstrName) SysFreeString(*pBstrName); return E_OUTOFMEMORY; } } } if (pdwHelpContext) { *pdwHelpContext = helpcontext; } if (pBstrHelpFile) { status = ITypeLib_GetDocumentation((ITypeLib*)&This->typelib->lpVtblTypeLib2, -1, NULL, NULL, NULL, pBstrHelpFile); if (status) { if (pBstrName) SysFreeString(*pBstrName); if (pBstrDocString) SysFreeString(*pBstrDocString); } } } return status; } /****************************************************************************** * ITypeInfo2_GetDllEntry {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetDllEntry( ITypeInfo2* iface, MEMBERID memid, INVOKEKIND invKind, BSTR* pBstrDllName, BSTR* pBstrName, WORD* pwOrdinal) { FIXME("(%p,%d,%d,%p,%p,%p), stub!\n", iface, memid, invKind, pBstrDllName, pBstrName, pwOrdinal); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetRefTypeInfo {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetRefTypeInfo( ITypeInfo2* iface, HREFTYPE hRefType, ITypeInfo** ppTInfo) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); TRACE("(%p,%d,%p)\n", iface, hRefType, ppTInfo); if(!ppTInfo) return E_INVALIDARG; if(hRefType==-2 && This->dual) { *ppTInfo = (ITypeInfo*)&This->dual->lpVtblTypeInfo2; ITypeInfo_AddRef(*ppTInfo); return S_OK; } if(hRefType&1) { ITypeLib *tl; MSFT_ImpInfo *impinfo; MSFT_ImpFile *impfile; MSFT_GuidEntry *guid; WCHAR *filename; HRESULT hres; if((hRefType&(~0x3)) >= This->typelib->typelib_segdir[MSFT_SEG_IMPORTINFO].length) return E_FAIL; impinfo = (MSFT_ImpInfo*)&This->typelib->typelib_segment_data[MSFT_SEG_IMPORTINFO][hRefType&(~0x3)]; impfile = (MSFT_ImpFile*)&This->typelib->typelib_segment_data[MSFT_SEG_IMPORTFILES][impinfo->oImpFile]; guid = (MSFT_GuidEntry*)&This->typelib->typelib_segment_data[MSFT_SEG_GUID][impinfo->oGuid]; ctl2_decode_string(impfile->filename, &filename); hres = LoadTypeLib(filename, &tl); if(FAILED(hres)) return hres; hres = ITypeLib_GetTypeInfoOfGuid(tl, &guid->guid, ppTInfo); ITypeLib_Release(tl); return hres; } else { ICreateTypeInfo2Impl *iter; int i = 0; for(iter=This->typelib->typeinfos; iter; iter=iter->next_typeinfo) { if(This->typelib->typelib_typeinfo_offsets[i] == (hRefType&(~0x3))) { *ppTInfo = (ITypeInfo*)&iter->lpVtblTypeInfo2; ITypeLib_AddRef(*ppTInfo); return S_OK; } i++; } } return E_FAIL; } /****************************************************************************** * ITypeInfo2_AddressOfMember {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnAddressOfMember( ITypeInfo2* iface, MEMBERID memid, INVOKEKIND invKind, PVOID* ppv) { FIXME("(%p,%d,%d,%p), stub!\n", iface, memid, invKind, ppv); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_CreateInstance {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnCreateInstance( ITypeInfo2* iface, IUnknown* pUnkOuter, REFIID riid, PVOID* ppvObj) { FIXME("(%p,%p,%s,%p), stub!\n", iface, pUnkOuter, debugstr_guid(riid), ppvObj); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetMops {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetMops( ITypeInfo2* iface, MEMBERID memid, BSTR* pBstrMops) { FIXME("(%p,%d,%p), stub!\n", iface, memid, pBstrMops); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetContainingTypeLib {OLEAUT32} */ static HRESULT WINAPI ITypeInfo2_fnGetContainingTypeLib( ITypeInfo2* iface, ITypeLib** ppTLib, UINT* pIndex) { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); TRACE("(%p,%p,%p)\n", iface, ppTLib, pIndex); *ppTLib = (ITypeLib *)&This->typelib->lpVtblTypeLib2; ICreateTypeLib_AddRef((ICreateTypeLib*)This->typelib); *pIndex = This->typeinfo->typekind >> 16; return S_OK; } static void release_typedesc(TYPEDESC *tdesc) { while (tdesc) { TYPEDESC *next; if (tdesc->vt == VT_USERDEFINED) next = NULL; else next = tdesc->u.lptdesc; heap_free(tdesc); tdesc = next; } } /****************************************************************************** * ITypeInfo2_ReleaseTypeAttr {OLEAUT32} */ static void WINAPI ITypeInfo2_fnReleaseTypeAttr( ITypeInfo2* iface, TYPEATTR* pTypeAttr) { TRACE("(%p,%p)\n", iface, pTypeAttr); if (pTypeAttr->tdescAlias.vt != VT_USERDEFINED) release_typedesc(pTypeAttr->tdescAlias.u.lptdesc); heap_free(pTypeAttr); } /****************************************************************************** * ITypeInfo2_ReleaseFuncDesc {OLEAUT32} */ static void WINAPI ITypeInfo2_fnReleaseFuncDesc( ITypeInfo2* iface, FUNCDESC* pFuncDesc) { int i; TRACE("(%p,%p)\n", iface, pFuncDesc); heap_free(pFuncDesc->lprgscode); if (pFuncDesc->lprgelemdescParam) { for (i = 0; i < pFuncDesc->cParams; ++i) { if (pFuncDesc->lprgelemdescParam[i].tdesc.vt != VT_USERDEFINED) release_typedesc(pFuncDesc->lprgelemdescParam[i].tdesc.u.lptdesc); heap_free(pFuncDesc->lprgelemdescParam[i].u.paramdesc.pparamdescex); } heap_free(pFuncDesc->lprgelemdescParam); } heap_free(pFuncDesc->elemdescFunc.u.paramdesc.pparamdescex); if (pFuncDesc->elemdescFunc.tdesc.vt != VT_USERDEFINED) release_typedesc(pFuncDesc->elemdescFunc.tdesc.u.lptdesc); heap_free(pFuncDesc); } /****************************************************************************** * ITypeInfo2_ReleaseVarDesc {OLEAUT32} */ static void WINAPI ITypeInfo2_fnReleaseVarDesc( ITypeInfo2* iface, VARDESC* pVarDesc) { FIXME("(%p,%p), stub!\n", iface, pVarDesc); } /****************************************************************************** * ITypeInfo2_GetTypeKind {OLEAUT32} * * Get the TYPEKIND value for a TypeInfo. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetTypeKind( ITypeInfo2* iface, /* [I] The TypeInfo to obtain the typekind for. */ TYPEKIND* pTypeKind) /* [O] The typekind for this TypeInfo. */ { FIXME("(%p,%p), stub!\n", iface, pTypeKind); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetTypeFlags {OLEAUT32} * * Get the Type Flags for a TypeInfo. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetTypeFlags( ITypeInfo2* iface, /* [I] The TypeInfo to obtain the typeflags for. */ ULONG* pTypeFlags) /* [O] The type flags for this TypeInfo. */ { FIXME("(%p,%p), stub!\n", iface, pTypeFlags); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetFuncIndexOfMemId {OLEAUT32} * * Gets the index of a function given its member id. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetFuncIndexOfMemId( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the function. */ MEMBERID memid, /* [I] The member id for the function. */ INVOKEKIND invKind, /* [I] The invocation kind for the function. */ UINT* pFuncIndex) /* [O] The index of the function. */ { FIXME("(%p,%d,%d,%p), stub!\n", iface, memid, invKind, pFuncIndex); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetVarIndexOfMemId {OLEAUT32} * * Gets the index of a variable given its member id. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetVarIndexOfMemId( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the variable. */ MEMBERID memid, /* [I] The member id for the variable. */ UINT* pVarIndex) /* [O] The index of the variable. */ { FIXME("(%p,%d,%p), stub!\n", iface, memid, pVarIndex); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetCustData {OLEAUT32} * * Gets a custom data element from a TypeInfo. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ REFGUID guid, /* [I] The GUID under which the custom data is stored. */ VARIANT* pVarVal) /* [O] The custom data. */ { ICreateTypeInfo2Impl *This = impl_from_ITypeInfo2(iface); MSFT_CDGuid *cdentry; int offset; TRACE("(%p,%s,%p)\n", iface, debugstr_guid(guid), pVarVal); if (!guid || !pVarVal) return E_INVALIDARG; VariantClear(pVarVal); offset = ctl2_find_custdata(This->typelib, guid, This->typeinfo->oCustData); if (offset == -1) return S_OK; cdentry = (MSFT_CDGuid *)&This->typelib->typelib_segment_data[MSFT_SEG_CUSTDATAGUID][offset]; return ctl2_decode_variant(This->typelib, cdentry->DataOffset, pVarVal); } /****************************************************************************** * ITypeInfo2_GetFuncCustData {OLEAUT32} * * Gets a custom data element from a function. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetFuncCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT index, /* [I] The index of the function for which to retrieve the custom data. */ REFGUID guid, /* [I] The GUID under which the custom data is stored. */ VARIANT* pVarVal) /* [O] The custom data. */ { FIXME("(%p,%d,%s,%p), stub!\n", iface, index, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetParamCustData {OLEAUT32} * * Gets a custom data element from a parameter. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetParamCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT indexFunc, /* [I] The index of the function for which to retrieve the custom data. */ UINT indexParam, /* [I] The index of the parameter for which to retrieve the custom data. */ REFGUID guid, /* [I] The GUID under which the custom data is stored. */ VARIANT* pVarVal) /* [O] The custom data. */ { FIXME("(%p,%d,%d,%s,%p), stub!\n", iface, indexFunc, indexParam, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetVarCustData {OLEAUT32} * * Gets a custom data element from a variable. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetVarCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT index, /* [I] The index of the variable for which to retrieve the custom data. */ REFGUID guid, /* [I] The GUID under which the custom data is stored. */ VARIANT* pVarVal) /* [O] The custom data. */ { FIXME("(%p,%d,%s,%p), stub!\n", iface, index, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetImplTypeCustData {OLEAUT32} * * Gets a custom data element from an implemented type of a TypeInfo. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetImplTypeCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT index, /* [I] The index of the implemented type for which to retrieve the custom data. */ REFGUID guid, /* [I] The GUID under which the custom data is stored. */ VARIANT* pVarVal) /* [O] The custom data. */ { FIXME("(%p,%d,%s,%p), stub!\n", iface, index, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetDocumentation2 {OLEAUT32} * * Gets some documentation from a TypeInfo in a locale-aware fashion. * * RETURNS * * Success: S_OK. * Failure: One of STG_E_INSUFFICIENTMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetDocumentation2( ITypeInfo2* iface, /* [I] The TypeInfo to retrieve the documentation from. */ MEMBERID memid, /* [I] The member id (why?). */ LCID lcid, /* [I] The locale (why?). */ BSTR* pbstrHelpString, /* [O] The help string. */ DWORD* pdwHelpStringContext, /* [O] The help string context. */ BSTR* pbstrHelpStringDll) /* [O] The help file name. */ { FIXME("(%p,%d,%d,%p,%p,%p), stub!\n", iface, memid, lcid, pbstrHelpString, pdwHelpStringContext, pbstrHelpStringDll); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetAllCustData {OLEAUT32} * * Gets all of the custom data associated with a TypeInfo. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetAllCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ CUSTDATA* pCustData) /* [O] A pointer to the custom data. */ { FIXME("(%p,%p), stub!\n", iface, pCustData); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetAllFuncCustData {OLEAUT32} * * Gets all of the custom data associated with a function. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetAllFuncCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT index, /* [I] The index of the function for which to retrieve the custom data. */ CUSTDATA* pCustData) /* [O] A pointer to the custom data. */ { FIXME("(%p,%d,%p), stub!\n", iface, index, pCustData); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetAllParamCustData {OLEAUT32} * * Gets all of the custom data associated with a parameter. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetAllParamCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT indexFunc, /* [I] The index of the function for which to retrieve the custom data. */ UINT indexParam, /* [I] The index of the parameter for which to retrieve the custom data. */ CUSTDATA* pCustData) /* [O] A pointer to the custom data. */ { FIXME("(%p,%d,%d,%p), stub!\n", iface, indexFunc, indexParam, pCustData); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetAllVarCustData {OLEAUT32} * * Gets all of the custom data associated with a variable. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetAllVarCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT index, /* [I] The index of the variable for which to retrieve the custom data. */ CUSTDATA* pCustData) /* [O] A pointer to the custom data. */ { FIXME("(%p,%d,%p), stub!\n", iface, index, pCustData); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeInfo2_GetAllImplTypeCustData {OLEAUT32} * * Gets all of the custom data associated with an implemented type. * * RETURNS * * Success: S_OK. * Failure: One of E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeInfo2_fnGetAllImplTypeCustData( ITypeInfo2* iface, /* [I] The TypeInfo in which to find the custom data. */ UINT index, /* [I] The index of the implemented type for which to retrieve the custom data. */ CUSTDATA* pCustData) /* [O] A pointer to the custom data. */ { FIXME("(%p,%d,%p), stub!\n", iface, index, pCustData); return E_OUTOFMEMORY; } /*================== ICreateTypeInfo2 & ITypeInfo2 VTABLEs And Creation ===================================*/ static const ICreateTypeInfo2Vtbl ctypeinfo2vt = { ICreateTypeInfo2_fnQueryInterface, ICreateTypeInfo2_fnAddRef, ICreateTypeInfo2_fnRelease, ICreateTypeInfo2_fnSetGuid, ICreateTypeInfo2_fnSetTypeFlags, ICreateTypeInfo2_fnSetDocString, ICreateTypeInfo2_fnSetHelpContext, ICreateTypeInfo2_fnSetVersion, ICreateTypeInfo2_fnAddRefTypeInfo, ICreateTypeInfo2_fnAddFuncDesc, ICreateTypeInfo2_fnAddImplType, ICreateTypeInfo2_fnSetImplTypeFlags, ICreateTypeInfo2_fnSetAlignment, ICreateTypeInfo2_fnSetSchema, ICreateTypeInfo2_fnAddVarDesc, ICreateTypeInfo2_fnSetFuncAndParamNames, ICreateTypeInfo2_fnSetVarName, ICreateTypeInfo2_fnSetTypeDescAlias, ICreateTypeInfo2_fnDefineFuncAsDllEntry, ICreateTypeInfo2_fnSetFuncDocString, ICreateTypeInfo2_fnSetVarDocString, ICreateTypeInfo2_fnSetFuncHelpContext, ICreateTypeInfo2_fnSetVarHelpContext, ICreateTypeInfo2_fnSetMops, ICreateTypeInfo2_fnSetTypeIdldesc, ICreateTypeInfo2_fnLayOut, ICreateTypeInfo2_fnDeleteFuncDesc, ICreateTypeInfo2_fnDeleteFuncDescByMemId, ICreateTypeInfo2_fnDeleteVarDesc, ICreateTypeInfo2_fnDeleteVarDescByMemId, ICreateTypeInfo2_fnDeleteImplType, ICreateTypeInfo2_fnSetCustData, ICreateTypeInfo2_fnSetFuncCustData, ICreateTypeInfo2_fnSetParamCustData, ICreateTypeInfo2_fnSetVarCustData, ICreateTypeInfo2_fnSetImplTypeCustData, ICreateTypeInfo2_fnSetHelpStringContext, ICreateTypeInfo2_fnSetFuncHelpStringContext, ICreateTypeInfo2_fnSetVarHelpStringContext, ICreateTypeInfo2_fnInvalidate, ICreateTypeInfo2_fnSetName }; static const ITypeInfo2Vtbl typeinfo2vt = { ITypeInfo2_fnQueryInterface, ITypeInfo2_fnAddRef, ITypeInfo2_fnRelease, ITypeInfo2_fnGetTypeAttr, ITypeInfo2_fnGetTypeComp, ITypeInfo2_fnGetFuncDesc, ITypeInfo2_fnGetVarDesc, ITypeInfo2_fnGetNames, ITypeInfo2_fnGetRefTypeOfImplType, ITypeInfo2_fnGetImplTypeFlags, ITypeInfo2_fnGetIDsOfNames, ITypeInfo2_fnInvoke, ITypeInfo2_fnGetDocumentation, ITypeInfo2_fnGetDllEntry, ITypeInfo2_fnGetRefTypeInfo, ITypeInfo2_fnAddressOfMember, ITypeInfo2_fnCreateInstance, ITypeInfo2_fnGetMops, ITypeInfo2_fnGetContainingTypeLib, ITypeInfo2_fnReleaseTypeAttr, ITypeInfo2_fnReleaseFuncDesc, ITypeInfo2_fnReleaseVarDesc, ITypeInfo2_fnGetTypeKind, ITypeInfo2_fnGetTypeFlags, ITypeInfo2_fnGetFuncIndexOfMemId, ITypeInfo2_fnGetVarIndexOfMemId, ITypeInfo2_fnGetCustData, ITypeInfo2_fnGetFuncCustData, ITypeInfo2_fnGetParamCustData, ITypeInfo2_fnGetVarCustData, ITypeInfo2_fnGetImplTypeCustData, ITypeInfo2_fnGetDocumentation2, ITypeInfo2_fnGetAllCustData, ITypeInfo2_fnGetAllFuncCustData, ITypeInfo2_fnGetAllParamCustData, ITypeInfo2_fnGetAllVarCustData, ITypeInfo2_fnGetAllImplTypeCustData, }; static ICreateTypeInfo2 *ICreateTypeInfo2_Constructor(ICreateTypeLib2Impl *typelib, WCHAR *szName, TYPEKIND tkind) { ICreateTypeInfo2Impl *pCreateTypeInfo2Impl; int nameoffset; int typeinfo_offset; MSFT_TypeInfoBase *typeinfo; TRACE("Constructing ICreateTypeInfo2 for %s with tkind %d\n", debugstr_w(szName), tkind); pCreateTypeInfo2Impl = heap_alloc_zero(sizeof(ICreateTypeInfo2Impl)); if (!pCreateTypeInfo2Impl) return NULL; pCreateTypeInfo2Impl->lpVtbl = &ctypeinfo2vt; pCreateTypeInfo2Impl->lpVtblTypeInfo2 = &typeinfo2vt; pCreateTypeInfo2Impl->ref = 1; pCreateTypeInfo2Impl->typelib = typelib; ICreateTypeLib_AddRef((ICreateTypeLib*)typelib); nameoffset = ctl2_alloc_name(typelib, szName); typeinfo_offset = ctl2_alloc_typeinfo(typelib, nameoffset); typeinfo = (MSFT_TypeInfoBase *)&typelib->typelib_segment_data[MSFT_SEG_TYPEINFO][typeinfo_offset]; typelib->typelib_segment_data[MSFT_SEG_NAME][nameoffset + 9] = 0x38; *((int *)&typelib->typelib_segment_data[MSFT_SEG_NAME][nameoffset]) = typeinfo_offset; pCreateTypeInfo2Impl->typeinfo = typeinfo; pCreateTypeInfo2Impl->typekind = tkind; typeinfo->typekind |= tkind | 0x20; ICreateTypeInfo2_SetAlignment((ICreateTypeInfo2 *)pCreateTypeInfo2Impl, 4); switch (tkind) { case TKIND_ENUM: case TKIND_INTERFACE: case TKIND_DISPATCH: case TKIND_COCLASS: typeinfo->size = 4; break; case TKIND_RECORD: case TKIND_UNION: typeinfo->size = 0; break; case TKIND_MODULE: typeinfo->size = 2; break; case TKIND_ALIAS: typeinfo->size = -0x75; break; default: FIXME("(%s,%d), unrecognized typekind %d\n", debugstr_w(szName), tkind, tkind); typeinfo->size = 0xdeadbeef; break; } if (typelib->last_typeinfo) typelib->last_typeinfo->next_typeinfo = pCreateTypeInfo2Impl; typelib->last_typeinfo = pCreateTypeInfo2Impl; if (!typelib->typeinfos) typelib->typeinfos = pCreateTypeInfo2Impl; TRACE(" -- %p\n", pCreateTypeInfo2Impl); return (ICreateTypeInfo2 *)pCreateTypeInfo2Impl; } /*================== ICreateTypeLib2 Implementation ===================================*/ /****************************************************************************** * ICreateTypeLib2_QueryInterface {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnQueryInterface( ICreateTypeLib2 * iface, REFIID riid, VOID **ppvObject) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; TRACE("(%p)->(IID: %s)\n",This,debugstr_guid(riid)); *ppvObject=NULL; if(IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid,&IID_ICreateTypeLib)|| IsEqualIID(riid,&IID_ICreateTypeLib2)) { *ppvObject = This; } else if (IsEqualIID(riid, &IID_ITypeLib) || IsEqualIID(riid, &IID_ITypeLib2)) { *ppvObject = &This->lpVtblTypeLib2; } if(*ppvObject) { ICreateTypeLib2_AddRef(iface); TRACE("-- Interface: (%p)->(%p)\n",ppvObject,*ppvObject); return S_OK; } TRACE("-- Interface: E_NOINTERFACE\n"); return E_NOINTERFACE; } /****************************************************************************** * ICreateTypeLib2_AddRef {OLEAUT32} */ static ULONG WINAPI ICreateTypeLib2_fnAddRef(ICreateTypeLib2 *iface) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; ULONG ref = InterlockedIncrement(&This->ref); TRACE("(%p)->(%u)\n", This, ref); return ref; } /****************************************************************************** * ICreateTypeLib2_Release {OLEAUT32} */ static ULONG WINAPI ICreateTypeLib2_fnRelease(ICreateTypeLib2 *iface) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; ULONG ref = InterlockedDecrement(&This->ref); TRACE("(%p)->(%u)\n", This, ref); if (!ref) { int i; for (i = 0; i < MSFT_SEG_MAX; i++) { heap_free(This->typelib_segment_data[i]); This->typelib_segment_data[i] = NULL; } heap_free(This->filename); This->filename = NULL; while (This->typeinfos) { ICreateTypeInfo2Impl *typeinfo = This->typeinfos; This->typeinfos = typeinfo->next_typeinfo; if(typeinfo->typedata) { CyclicList *iter, *rem; rem = typeinfo->typedata->next; typeinfo->typedata->next = NULL; iter = rem->next; heap_free(rem); while(iter) { rem = iter; iter = iter->next; heap_free(rem->u.data); heap_free(rem); } } heap_free(typeinfo->dual); heap_free(typeinfo); } heap_free(This); } return ref; } /****************************************************************************** * ICreateTypeLib2_CreateTypeInfo {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnCreateTypeInfo( ICreateTypeLib2 * iface, LPOLESTR szName, TYPEKIND tkind, ICreateTypeInfo **tinfo) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; char *name; TRACE("(%p,%s,%d,%p)\n", iface, debugstr_w(szName), tkind, tinfo); if (!szName || !tinfo) return E_INVALIDARG; ctl2_encode_name(This, szName, &name); if(ctl2_find_name(This, name) != -1) return TYPE_E_NAMECONFLICT; *tinfo = (ICreateTypeInfo *)ICreateTypeInfo2_Constructor(This, szName, tkind); if (!*tinfo) return E_OUTOFMEMORY; return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetName {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSetName( ICreateTypeLib2 * iface, LPOLESTR szName) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; int offset; TRACE("(%p,%s)\n", iface, debugstr_w(szName)); offset = ctl2_alloc_name(This, szName); if (offset == -1) return E_OUTOFMEMORY; This->typelib_header.NameOffset = offset; return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetVersion {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSetVersion(ICreateTypeLib2 * iface, WORD wMajorVerNum, WORD wMinorVerNum) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; TRACE("(%p,%d,%d)\n", iface, wMajorVerNum, wMinorVerNum); This->typelib_header.version = wMajorVerNum | (wMinorVerNum << 16); return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetGuid {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSetGuid(ICreateTypeLib2 * iface, REFGUID guid) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; MSFT_GuidEntry guidentry; int offset; TRACE("(%p,%s)\n", iface, debugstr_guid(guid)); guidentry.guid = *guid; guidentry.hreftype = -2; guidentry.next_hash = -1; offset = ctl2_alloc_guid(This, &guidentry); if (offset == -1) return E_OUTOFMEMORY; This->typelib_header.posguid = offset; return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetDocString {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSetDocString(ICreateTypeLib2 * iface, LPOLESTR szDoc) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; int offset; TRACE("(%p,%s)\n", iface, debugstr_w(szDoc)); if (!szDoc) return E_INVALIDARG; offset = ctl2_alloc_string(This, szDoc); if (offset == -1) return E_OUTOFMEMORY; This->typelib_header.helpstring = offset; return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetHelpFileName {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSetHelpFileName(ICreateTypeLib2 * iface, LPOLESTR szHelpFileName) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; int offset; TRACE("(%p,%s)\n", iface, debugstr_w(szHelpFileName)); offset = ctl2_alloc_string(This, szHelpFileName); if (offset == -1) return E_OUTOFMEMORY; This->typelib_header.helpfile = offset; This->typelib_header.varflags |= 0x10; return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetHelpContext {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSetHelpContext(ICreateTypeLib2 * iface, DWORD dwHelpContext) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; TRACE("(%p,%d)\n", iface, dwHelpContext); This->typelib_header.helpcontext = dwHelpContext; return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetLcid {OLEAUT32} * * Sets both the lcid and lcid2 members in the header to lcid. * * As a special case if lcid == LOCALE_NEUTRAL (0), then the first header lcid * is set to US English while the second one is set to 0. */ static HRESULT WINAPI ICreateTypeLib2_fnSetLcid(ICreateTypeLib2 * iface, LCID lcid) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; TRACE("(%p,%d)\n", iface, lcid); This->typelib_header.lcid = This->typelib_header.lcid2 = lcid; if(lcid == LOCALE_NEUTRAL) This->typelib_header.lcid = MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US); return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetLibFlags {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSetLibFlags(ICreateTypeLib2 * iface, UINT uLibFlags) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; TRACE("(%p,0x%x)\n", iface, uLibFlags); This->typelib_header.flags = uLibFlags; return S_OK; } static int ctl2_write_chunk(HANDLE hFile, const void *segment, int length) { DWORD dwWritten; if (!WriteFile(hFile, segment, length, &dwWritten, 0)) { CloseHandle(hFile); return 0; } return -1; } static int ctl2_write_segment(ICreateTypeLib2Impl *This, HANDLE hFile, int segment) { DWORD dwWritten; if (!WriteFile(hFile, This->typelib_segment_data[segment], This->typelib_segdir[segment].length, &dwWritten, 0)) { CloseHandle(hFile); return 0; } return -1; } static HRESULT ctl2_finalize_typeinfos(ICreateTypeLib2Impl *This, int filesize) { ICreateTypeInfo2Impl *typeinfo; HRESULT hres; for (typeinfo = This->typeinfos; typeinfo; typeinfo = typeinfo->next_typeinfo) { typeinfo->typeinfo->memoffset = filesize; hres = ICreateTypeInfo2_fnLayOut((ICreateTypeInfo2 *)typeinfo); if(FAILED(hres)) return hres; if (typeinfo->typedata) filesize += typeinfo->typedata->next->u.val + cti2_get_var_count(typeinfo->typeinfo) * 12 + cti2_get_func_count(typeinfo->typeinfo) * 12 + 4; } return S_OK; } static int ctl2_finalize_segment(ICreateTypeLib2Impl *This, int filepos, int segment) { if (This->typelib_segdir[segment].length) { This->typelib_segdir[segment].offset = filepos; } else { This->typelib_segdir[segment].offset = -1; } return This->typelib_segdir[segment].length; } static void ctl2_write_typeinfos(ICreateTypeLib2Impl *This, HANDLE hFile) { ICreateTypeInfo2Impl *typeinfo; for (typeinfo = This->typeinfos; typeinfo; typeinfo = typeinfo->next_typeinfo) { CyclicList *iter; int offset = 0; if (!typeinfo->typedata) continue; iter = typeinfo->typedata->next; ctl2_write_chunk(hFile, &iter->u.val, sizeof(int)); for(iter=iter->next; iter!=typeinfo->typedata->next; iter=iter->next) ctl2_write_chunk(hFile, iter->u.data, ctl2_get_record_size(iter)); for(iter=typeinfo->typedata->next->next; iter!=typeinfo->typedata->next; iter=iter->next) ctl2_write_chunk(hFile, &iter->indice, sizeof(int)); for(iter=typeinfo->typedata->next->next; iter!=typeinfo->typedata->next; iter=iter->next) ctl2_write_chunk(hFile, &iter->name, sizeof(int)); for(iter=typeinfo->typedata->next->next; iter!=typeinfo->typedata->next; iter=iter->next) { ctl2_write_chunk(hFile, &offset, sizeof(int)); offset += ctl2_get_record_size(iter); } } } /****************************************************************************** * ICreateTypeLib2_SaveAllChanges {OLEAUT32} */ static HRESULT WINAPI ICreateTypeLib2_fnSaveAllChanges(ICreateTypeLib2 * iface) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; int retval; int filepos; HANDLE hFile; HRESULT hres; TRACE("(%p)\n", iface); retval = TYPE_E_IOERROR; hFile = CreateFileW(This->filename, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); if (hFile == INVALID_HANDLE_VALUE) return retval; filepos = sizeof(MSFT_Header) + sizeof(MSFT_SegDir); filepos += This->typelib_header.nrtypeinfos * 4; filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_TYPEINFO); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_GUIDHASH); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_GUID); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_REFERENCES); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_IMPORTINFO); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_IMPORTFILES); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_NAMEHASH); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_NAME); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_STRING); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_TYPEDESC); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_ARRAYDESC); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_CUSTDATA); filepos += ctl2_finalize_segment(This, filepos, MSFT_SEG_CUSTDATAGUID); hres = ctl2_finalize_typeinfos(This, filepos); if(FAILED(hres)) { CloseHandle(hFile); return hres; } if (!ctl2_write_chunk(hFile, &This->typelib_header, sizeof(This->typelib_header))) return retval; if (This->typelib_header.varflags & HELPDLLFLAG) if (!ctl2_write_chunk(hFile, &This->helpStringDll, sizeof(This->helpStringDll))) return retval; if (!ctl2_write_chunk(hFile, This->typelib_typeinfo_offsets, This->typelib_header.nrtypeinfos * 4)) return retval; if (!ctl2_write_chunk(hFile, This->typelib_segdir, sizeof(This->typelib_segdir))) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_TYPEINFO )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_GUIDHASH )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_GUID )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_REFERENCES )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_IMPORTINFO )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_IMPORTFILES )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_NAMEHASH )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_NAME )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_STRING )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_TYPEDESC )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_ARRAYDESC )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_CUSTDATA )) return retval; if (!ctl2_write_segment(This, hFile, MSFT_SEG_CUSTDATAGUID)) return retval; ctl2_write_typeinfos(This, hFile); if (!CloseHandle(hFile)) return retval; return S_OK; } /****************************************************************************** * ICreateTypeLib2_DeleteTypeInfo {OLEAUT32} * * Deletes a named TypeInfo from a type library. * * RETURNS * * Success: S_OK * Failure: E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeLib2_fnDeleteTypeInfo( ICreateTypeLib2 * iface, /* [I] The type library to delete from. */ LPOLESTR szName) /* [I] The name of the typeinfo to delete. */ { FIXME("(%p,%s), stub!\n", iface, debugstr_w(szName)); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeLib2_SetCustData {OLEAUT32} * * Sets custom data for a type library. * * RETURNS * * Success: S_OK * Failure: E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeLib2_fnSetCustData( ICreateTypeLib2 * iface, /* [I] The type library to store the custom data in. */ REFGUID guid, /* [I] The GUID used as a key to retrieve the custom data. */ VARIANT *pVarVal) /* [I] The custom data itself. */ { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; TRACE("(%p,%s,%p)\n", iface, debugstr_guid(guid), pVarVal); return ctl2_set_custdata(This, guid, pVarVal, &This->typelib_header.CustomDataOffset); } /****************************************************************************** * ICreateTypeLib2_SetHelpStringContext {OLEAUT32} * * Sets a context number for the library help string. * * PARAMS * iface [I] The type library to set the help string context for. * dwContext [I] The help string context. * * RETURNS * Success: S_OK * Failure: E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeLib2_fnSetHelpStringContext(ICreateTypeLib2 * iface, ULONG dwContext) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; TRACE("(%p,%d)\n", iface, dwContext); This->typelib_header.helpstringcontext = dwContext; return S_OK; } /****************************************************************************** * ICreateTypeLib2_SetHelpStringDll {OLEAUT32} * * Set the DLL used to look up localized help strings. * * PARAMS * iface [I] The type library to set the help DLL for. * szDllName [I] The name of the help DLL. * * RETURNS * Success: S_OK * Failure: E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ICreateTypeLib2_fnSetHelpStringDll(ICreateTypeLib2 * iface, LPOLESTR szDllName) { ICreateTypeLib2Impl *This = (ICreateTypeLib2Impl *)iface; int offset; TRACE("(%p,%s)\n", iface, debugstr_w(szDllName)); if (!szDllName) return E_INVALIDARG; offset = ctl2_alloc_string(This, szDllName); if (offset == -1) return E_OUTOFMEMORY; This->typelib_header.varflags |= HELPDLLFLAG; This->helpStringDll = offset; return S_OK; } /*================== ITypeLib2 Implementation ===================================*/ /****************************************************************************** * ITypeLib2_QueryInterface {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnQueryInterface(ITypeLib2 * iface, REFIID riid, LPVOID * ppv) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); return ICreateTypeLib2_QueryInterface((ICreateTypeLib2 *)This, riid, ppv); } /****************************************************************************** * ITypeLib2_AddRef {OLEAUT32} */ static ULONG WINAPI ITypeLib2_fnAddRef(ITypeLib2 * iface) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); return ICreateTypeLib2_AddRef((ICreateTypeLib2 *)This); } /****************************************************************************** * ITypeLib2_Release {OLEAUT32} */ static ULONG WINAPI ITypeLib2_fnRelease(ITypeLib2 * iface) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); return ICreateTypeLib2_Release((ICreateTypeLib2 *)This); } /****************************************************************************** * ITypeLib2_GetTypeInfoCount {OLEAUT32} */ static UINT WINAPI ITypeLib2_fnGetTypeInfoCount( ITypeLib2 * iface) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); TRACE("(%p)\n", iface); return This->typelib_header.nrtypeinfos; } /****************************************************************************** * ITypeLib2_GetTypeInfo {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnGetTypeInfo( ITypeLib2 * iface, UINT index, ITypeInfo** ppTInfo) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); TRACE("(%p,%d,%p)\n", iface, index, ppTInfo); if (!ppTInfo) return E_INVALIDARG; if (index >= This->typelib_header.nrtypeinfos) { return TYPE_E_ELEMENTNOTFOUND; } return ctl2_find_typeinfo_from_offset(This, This->typelib_typeinfo_offsets[index], ppTInfo); } /****************************************************************************** * ITypeLib2_GetTypeInfoType {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnGetTypeInfoType( ITypeLib2 * iface, UINT index, TYPEKIND* kind) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); TRACE("(%p,%d,%p)\n", iface, index, kind); if (!kind) return E_INVALIDARG; if (index >= This->typelib_header.nrtypeinfos) { return TYPE_E_ELEMENTNOTFOUND; } *kind = (This->typelib_segment_data[MSFT_SEG_TYPEINFO][This->typelib_typeinfo_offsets[index]]) & 0xF; return S_OK; } /****************************************************************************** * ITypeLib2_GetTypeInfoOfGuid {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnGetTypeInfoOfGuid( ITypeLib2 * iface, REFGUID guid, ITypeInfo** ppTinfo) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); int guidoffset; int typeinfo; TRACE("(%p,%s,%p)\n", iface, debugstr_guid(guid), ppTinfo); guidoffset = ctl2_find_guid(This, ctl2_hash_guid(guid), guid); if (guidoffset == -1) return TYPE_E_ELEMENTNOTFOUND; typeinfo = ((MSFT_GuidEntry *)&This->typelib_segment_data[MSFT_SEG_GUID][guidoffset])->hreftype; if (typeinfo < 0) return TYPE_E_ELEMENTNOTFOUND; return ctl2_find_typeinfo_from_offset(This, typeinfo, ppTinfo); } /****************************************************************************** * ITypeLib2_GetLibAttr {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnGetLibAttr( ITypeLib2 * iface, TLIBATTR** ppTLibAttr) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); TRACE("(%p,%p)\n", This, ppTLibAttr); if(!ppTLibAttr) return E_INVALIDARG; *ppTLibAttr = heap_alloc_zero(sizeof(TLIBATTR)); if(!*ppTLibAttr) return E_OUTOFMEMORY; if(This->typelib_header.posguid != -1) { MSFT_GuidEntry *guid; guid = (MSFT_GuidEntry*)&This->typelib_segment_data[MSFT_SEG_GUID][This->typelib_header.posguid]; (*ppTLibAttr)->guid = guid->guid; } (*ppTLibAttr)->lcid = This->typelib_header.lcid; (*ppTLibAttr)->syskind = ctl2_get_syskind(This); (*ppTLibAttr)->wMajorVerNum = LOWORD(This->typelib_header.version); (*ppTLibAttr)->wMinorVerNum = HIWORD(This->typelib_header.version); (*ppTLibAttr)->wLibFlags = This->typelib_header.flags; return S_OK; } /****************************************************************************** * ITypeLib2_GetTypeComp {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnGetTypeComp( ITypeLib2 * iface, ITypeComp** ppTComp) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); FIXME("(%p,%p), stub!\n", This, ppTComp); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeLib2_GetDocumentation {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnGetDocumentation( ITypeLib2 * iface, INT index, BSTR* pBstrName, BSTR* pBstrDocString, DWORD* pdwHelpContext, BSTR* pBstrHelpFile) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); WCHAR *string; TRACE("(%p,%d,%p,%p,%p,%p)\n", This, index, pBstrName, pBstrDocString, pdwHelpContext, pBstrHelpFile); if(index != -1) { ICreateTypeInfo2Impl *iter; for(iter=This->typeinfos; iter!=NULL && index!=0; iter=iter->next_typeinfo) index--; if(!iter) return TYPE_E_ELEMENTNOTFOUND; return ITypeInfo_GetDocumentation((ITypeInfo*)&iter->lpVtblTypeInfo2, -1, pBstrName, pBstrDocString, pdwHelpContext, pBstrHelpFile); } if(pBstrName) { if(This->typelib_header.NameOffset == -1) *pBstrName = NULL; else { MSFT_NameIntro *name = (MSFT_NameIntro*)&This-> typelib_segment_data[MSFT_SEG_NAME][This->typelib_header.NameOffset]; ctl2_decode_name((char*)&name->namelen, &string); *pBstrName = SysAllocString(string); if(!*pBstrName) return E_OUTOFMEMORY; } } if(pBstrDocString) { if(This->typelib_header.helpstring == -1) *pBstrDocString = NULL; else { ctl2_decode_string(&This->typelib_segment_data[MSFT_SEG_STRING][This->typelib_header.helpstring], &string); *pBstrDocString = SysAllocString(string); if(!*pBstrDocString) { if(pBstrName) SysFreeString(*pBstrName); return E_OUTOFMEMORY; } } } if(pdwHelpContext) *pdwHelpContext = This->typelib_header.helpcontext; if(pBstrHelpFile) { if(This->typelib_header.helpfile == -1) *pBstrHelpFile = NULL; else { ctl2_decode_string(&This->typelib_segment_data[MSFT_SEG_STRING][This->typelib_header.helpfile], &string); *pBstrHelpFile = SysAllocString(string); if(!*pBstrHelpFile) { if(pBstrName) SysFreeString(*pBstrName); if(pBstrDocString) SysFreeString(*pBstrDocString); return E_OUTOFMEMORY; } } } return S_OK; } /****************************************************************************** * ITypeLib2_IsName {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnIsName( ITypeLib2 * iface, LPOLESTR szNameBuf, ULONG lHashVal, BOOL* pfName) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); char *encoded_name; int nameoffset; MSFT_NameIntro *nameintro; TRACE("(%p,%s,%x,%p)\n", iface, debugstr_w(szNameBuf), lHashVal, pfName); ctl2_encode_name(This, szNameBuf, &encoded_name); nameoffset = ctl2_find_name(This, encoded_name); *pfName = 0; if (nameoffset == -1) return S_OK; nameintro = (MSFT_NameIntro *)(&This->typelib_segment_data[MSFT_SEG_NAME][nameoffset]); if (nameintro->hreftype == -1) return S_OK; *pfName = 1; FIXME("Should be decoding our copy of the name over szNameBuf.\n"); return S_OK; } /****************************************************************************** * ITypeLib2_FindName {OLEAUT32} */ static HRESULT WINAPI ITypeLib2_fnFindName( ITypeLib2 * iface, LPOLESTR szNameBuf, ULONG lHashVal, ITypeInfo** ppTInfo, MEMBERID* rgMemId, USHORT* pcFound) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); FIXME("(%p,%s,%x,%p,%p,%p), stub!\n", This, debugstr_w(szNameBuf), lHashVal, ppTInfo, rgMemId, pcFound); return E_OUTOFMEMORY; } /****************************************************************************** * ITypeLib2_ReleaseTLibAttr {OLEAUT32} */ static void WINAPI ITypeLib2_fnReleaseTLibAttr( ITypeLib2 * iface, TLIBATTR* attr) { TRACE("(%p,%p)\n", iface, attr); heap_free(attr); } /****************************************************************************** * ICreateTypeLib2_GetCustData {OLEAUT32} * * Retrieves a custom data value stored on a type library. * * RETURNS * * Success: S_OK * Failure: E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeLib2_fnGetCustData( ITypeLib2 * iface, /* [I] The type library in which to find the custom data. */ REFGUID guid, /* [I] The GUID under which the custom data is stored. */ VARIANT* pVarVal) /* [O] The custom data. */ { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); FIXME("(%p,%s,%p), stub!\n", This, debugstr_guid(guid), pVarVal); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeLib2_GetLibStatistics {OLEAUT32} * * Retrieves some statistics about names in a type library, supposedly for * hash table optimization purposes. * * RETURNS * * Success: S_OK * Failure: E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeLib2_fnGetLibStatistics( ITypeLib2 * iface, /* [I] The type library to get statistics about. */ ULONG* pcUniqueNames, /* [O] The number of unique names in the type library. */ ULONG* pcchUniqueNames) /* [O] The number of changed (?) characters in names in the type library. */ { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); FIXME("(%p,%p,%p), stub!\n", This, pcUniqueNames, pcchUniqueNames); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeLib2_GetDocumentation2 {OLEAUT32} * * Obtain locale-aware help string information. * * RETURNS * * Success: S_OK * Failure: STG_E_INSUFFICIENTMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeLib2_fnGetDocumentation2( ITypeLib2 * iface, INT index, LCID lcid, BSTR* pbstrHelpString, DWORD* pdwHelpStringContext, BSTR* pbstrHelpStringDll) { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); FIXME("(%p,%d,%d,%p,%p,%p), stub!\n", This, index, lcid, pbstrHelpString, pdwHelpStringContext, pbstrHelpStringDll); return E_OUTOFMEMORY; } /****************************************************************************** * ICreateTypeLib2_GetAllCustData {OLEAUT32} * * Retrieve all of the custom data for a type library. * * RETURNS * * Success: S_OK * Failure: E_OUTOFMEMORY or E_INVALIDARG. */ static HRESULT WINAPI ITypeLib2_fnGetAllCustData( ITypeLib2 * iface, /* [I] The type library in which to find the custom data. */ CUSTDATA* pCustData) /* [O] The structure in which to place the custom data. */ { ICreateTypeLib2Impl *This = impl_from_ITypeLib2(iface); FIXME("(%p,%p), stub!\n", This, pCustData); return E_OUTOFMEMORY; } /*================== ICreateTypeLib2 & ITypeLib2 VTABLEs And Creation ===================================*/ static const ICreateTypeLib2Vtbl ctypelib2vt = { ICreateTypeLib2_fnQueryInterface, ICreateTypeLib2_fnAddRef, ICreateTypeLib2_fnRelease, ICreateTypeLib2_fnCreateTypeInfo, ICreateTypeLib2_fnSetName, ICreateTypeLib2_fnSetVersion, ICreateTypeLib2_fnSetGuid, ICreateTypeLib2_fnSetDocString, ICreateTypeLib2_fnSetHelpFileName, ICreateTypeLib2_fnSetHelpContext, ICreateTypeLib2_fnSetLcid, ICreateTypeLib2_fnSetLibFlags, ICreateTypeLib2_fnSaveAllChanges, ICreateTypeLib2_fnDeleteTypeInfo, ICreateTypeLib2_fnSetCustData, ICreateTypeLib2_fnSetHelpStringContext, ICreateTypeLib2_fnSetHelpStringDll }; static const ITypeLib2Vtbl typelib2vt = { ITypeLib2_fnQueryInterface, ITypeLib2_fnAddRef, ITypeLib2_fnRelease, ITypeLib2_fnGetTypeInfoCount, ITypeLib2_fnGetTypeInfo, ITypeLib2_fnGetTypeInfoType, ITypeLib2_fnGetTypeInfoOfGuid, ITypeLib2_fnGetLibAttr, ITypeLib2_fnGetTypeComp, ITypeLib2_fnGetDocumentation, ITypeLib2_fnIsName, ITypeLib2_fnFindName, ITypeLib2_fnReleaseTLibAttr, ITypeLib2_fnGetCustData, ITypeLib2_fnGetLibStatistics, ITypeLib2_fnGetDocumentation2, ITypeLib2_fnGetAllCustData, }; static ICreateTypeLib2 *ICreateTypeLib2_Constructor(SYSKIND syskind, LPCOLESTR szFile) { ICreateTypeLib2Impl *pCreateTypeLib2Impl; int failed = 0; TRACE("Constructing ICreateTypeLib2 (%d, %s)\n", syskind, debugstr_w(szFile)); pCreateTypeLib2Impl = heap_alloc_zero(sizeof(ICreateTypeLib2Impl)); if (!pCreateTypeLib2Impl) return NULL; pCreateTypeLib2Impl->filename = heap_alloc((strlenW(szFile) + 1) * sizeof(WCHAR)); if (!pCreateTypeLib2Impl->filename) { heap_free(pCreateTypeLib2Impl); return NULL; } strcpyW(pCreateTypeLib2Impl->filename, szFile); ctl2_init_header(pCreateTypeLib2Impl); ctl2_init_segdir(pCreateTypeLib2Impl); pCreateTypeLib2Impl->typelib_header.varflags |= syskind; /* * The following two calls return an offset or -1 if out of memory. We * specifically need an offset of 0, however, so... */ if (ctl2_alloc_segment(pCreateTypeLib2Impl, MSFT_SEG_GUIDHASH, 0x80, 0x80)) { failed = 1; } if (ctl2_alloc_segment(pCreateTypeLib2Impl, MSFT_SEG_NAMEHASH, 0x200, 0x200)) { failed = 1; } pCreateTypeLib2Impl->typelib_guidhash_segment = (int *)pCreateTypeLib2Impl->typelib_segment_data[MSFT_SEG_GUIDHASH]; pCreateTypeLib2Impl->typelib_namehash_segment = (int *)pCreateTypeLib2Impl->typelib_segment_data[MSFT_SEG_NAMEHASH]; memset(pCreateTypeLib2Impl->typelib_guidhash_segment, 0xff, 0x80); memset(pCreateTypeLib2Impl->typelib_namehash_segment, 0xff, 0x200); pCreateTypeLib2Impl->lpVtbl = &ctypelib2vt; pCreateTypeLib2Impl->lpVtblTypeLib2 = &typelib2vt; pCreateTypeLib2Impl->ref = 1; if (failed) { ICreateTypeLib2_fnRelease((ICreateTypeLib2 *)pCreateTypeLib2Impl); return 0; } return (ICreateTypeLib2 *)pCreateTypeLib2Impl; } /****************************************************************************** * CreateTypeLib2 [OLEAUT32.180] * * Obtains an ICreateTypeLib2 object for creating a new-style (MSFT) type * library. * * NOTES * * See also CreateTypeLib. * * RETURNS * Success: S_OK * Failure: Status */ HRESULT WINAPI CreateTypeLib2( SYSKIND syskind, /* [I] System type library is for */ LPCOLESTR szFile, /* [I] Type library file name */ ICreateTypeLib2** ppctlib) /* [O] Storage for object returned */ { TRACE("(%d,%s,%p)\n", syskind, debugstr_w(szFile), ppctlib); if (!szFile) return E_INVALIDARG; *ppctlib = ICreateTypeLib2_Constructor(syskind, szFile); return (*ppctlib)? S_OK: E_OUTOFMEMORY; } /****************************************************************************** * ClearCustData (OLEAUT32.171) * * Clear a custom data types' data. * * PARAMS * lpCust [I] The custom data type instance * * RETURNS * Nothing. */ void WINAPI ClearCustData(LPCUSTDATA lpCust) { if (lpCust && lpCust->cCustData) { if (lpCust->prgCustData) { DWORD i; for (i = 0; i < lpCust->cCustData; i++) VariantClear(&lpCust->prgCustData[i].varValue); /* FIXME - Should be using a per-thread IMalloc */ heap_free(lpCust->prgCustData); lpCust->prgCustData = NULL; } lpCust->cCustData = 0; } }