mirror of
https://github.com/reactos/wine.git
synced 2024-11-30 15:10:27 +00:00
65639ab722
Set funckind when processing SLTG functions.
616 lines
24 KiB
C
616 lines
24 KiB
C
/*
|
|
* typelib.h internal wine data structures
|
|
* used to decode typelib's
|
|
*
|
|
* Copyright 1999 Rein KLazes
|
|
*
|
|
* 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
|
|
*/
|
|
#ifndef _WINE_TYPELIB_H
|
|
#define _WINE_TYPELIB_H
|
|
|
|
#include <stdarg.h>
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "oleauto.h"
|
|
#include "wine/windef16.h"
|
|
|
|
#define HELPDLLFLAG (0x0100)
|
|
#define DO_NOT_SEEK (-1)
|
|
|
|
#define MSFT_HREFTYPE_INTHISFILE(href) (!((href) & 3))
|
|
#define MSFT_HREFTYPE_INDEX(href) ((href) /sizeof(MSFT_TypeInfoBase))
|
|
|
|
/*-------------------------FILE STRUCTURES-----------------------------------*/
|
|
|
|
/* There are two known file formats, those created with ICreateTypeLib
|
|
* have the signature "SLTG" as their first four bytes, while those created
|
|
* with ICreateTypeLib2 have "MSFT".
|
|
*/
|
|
|
|
/*****************************************************
|
|
* MSFT typelibs
|
|
*
|
|
* These are TypeLibs created with ICreateTypeLib2
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* structure of the typelib type2 header
|
|
* it is at the beginning of a type lib file
|
|
*
|
|
*/
|
|
typedef struct tagMSFT_Header {
|
|
/*0x00*/INT magic1; /* 0x5446534D "MSFT" */
|
|
INT magic2; /* 0x00010002 version nr? */
|
|
INT posguid; /* position of libid in guid table */
|
|
/* (should be, else -1) */
|
|
INT lcid; /* locale id */
|
|
/*0x10*/INT lcid2;
|
|
INT varflags; /* (largely) unknown flags ,seems to be always 41 */
|
|
/* becomes 0x51 with a helpfile defined */
|
|
/* if help dll defined it's 0x151 */
|
|
/* update : the lower nibble is syskind */
|
|
INT version; /* set with SetVersion() */
|
|
INT flags; /* set with SetFlags() */
|
|
/*0x20*/INT nrtypeinfos; /* number of typeinfo's (till so far) */
|
|
INT helpstring; /* position of help string in stringtable */
|
|
INT helpstringcontext;
|
|
INT helpcontext;
|
|
/*0x30*/INT nametablecount; /* number of names in name table */
|
|
INT nametablechars; /* nr of characters in name table */
|
|
INT NameOffset; /* offset of name in name table */
|
|
INT helpfile; /* position of helpfile in stringtable */
|
|
/*0x40*/INT CustomDataOffset; /* if -1 no custom data, else it is offset */
|
|
/* in customer data/guid offset table */
|
|
INT res44; /* unknown always: 0x20 (guid hash size?) */
|
|
INT res48; /* unknown always: 0x80 (name hash size?) */
|
|
INT dispatchpos; /* HREFTYPE to IDispatch, or -1 if no IDispatch */
|
|
/*0x50*/INT nimpinfos; /* number of impinfos */
|
|
} MSFT_Header;
|
|
|
|
/* segments in the type lib file have a structure like this: */
|
|
typedef struct tagMSFT_pSeg {
|
|
INT offset; /* absolute offset in file */
|
|
INT length; /* length of segment */
|
|
INT res08; /* unknown always -1 */
|
|
INT res0c; /* unknown always 0x0f in the header */
|
|
/* 0x03 in the typeinfo_data */
|
|
} MSFT_pSeg;
|
|
|
|
/* layout of the main segment directory */
|
|
typedef struct tagMSFT_SegDir {
|
|
/*1*/MSFT_pSeg pTypeInfoTab; /* each type info get an entry of 0x64 bytes */
|
|
/* (25 ints) */
|
|
/*2*/MSFT_pSeg pImpInfo; /* table with info for imported types */
|
|
/*3*/MSFT_pSeg pImpFiles; /* import libaries */
|
|
/*4*/MSFT_pSeg pRefTab; /* References table */
|
|
/*5*/MSFT_pSeg pLibtab; /* always exists, alway same size (0x80) */
|
|
/* hash table w offsets to guid????? */
|
|
/*6*/MSFT_pSeg pGuidTab; /* all guids are stored here together with */
|
|
/* offset in some table???? */
|
|
/*7*/MSFT_pSeg res07; /* always created, alway same size (0x200) */
|
|
/* purpose largely unknown */
|
|
/*8*/MSFT_pSeg pNametab; /* name tables */
|
|
/*9*/MSFT_pSeg pStringtab; /* string table */
|
|
/*A*/MSFT_pSeg pTypdescTab; /* table with type descriptors */
|
|
/*B*/MSFT_pSeg pArrayDescriptions;
|
|
/*C*/MSFT_pSeg pCustData; /* data table, used for custom data and default */
|
|
/* parameter values */
|
|
/*D*/MSFT_pSeg pCDGuids; /* table with offsets for the guids and into */
|
|
/* the customer data table */
|
|
/*E*/MSFT_pSeg res0e; /* unknown */
|
|
/*F*/MSFT_pSeg res0f; /* unknown */
|
|
} MSFT_SegDir;
|
|
|
|
|
|
/* base type info data */
|
|
typedef struct tagMSFT_TypeInfoBase {
|
|
/*000*/ INT typekind; /* it is the TKIND_xxx */
|
|
/* some byte alignment stuf */
|
|
INT memoffset; /* points past the file, if no elements */
|
|
INT res2; /* zero if no element, N*0x40 */
|
|
INT res3; /* -1 if no lement, (N-1)*0x38 */
|
|
/*010*/ INT res4; /* always? 3 */
|
|
INT res5; /* always? zero */
|
|
INT cElement; /* counts elements, HI=cVars, LO=cFuncs */
|
|
INT res7; /* always? zero */
|
|
/*020*/ INT res8; /* always? zero */
|
|
INT res9; /* always? zero */
|
|
INT resA; /* always? zero */
|
|
INT posguid; /* position in guid table */
|
|
/*030*/ INT flags; /* Typeflags */
|
|
INT NameOffset; /* offset in name table */
|
|
INT version; /* element version */
|
|
INT docstringoffs; /* offset of docstring in string tab */
|
|
/*040*/ INT helpstringcontext; /* */
|
|
INT helpcontext; /* */
|
|
INT oCustData; /* offset in customer data table */
|
|
#ifdef WORDS_BIGENDIAN
|
|
INT16 cbSizeVft; /* virtual table size, not including inherits */
|
|
INT16 cImplTypes; /* nr of implemented interfaces */
|
|
#else
|
|
INT16 cImplTypes; /* nr of implemented interfaces */
|
|
INT16 cbSizeVft; /* virtual table size, not including inherits */
|
|
#endif
|
|
/*050*/ INT size; /* size in bytes, at least for structures */
|
|
/* FIXME: name of this field */
|
|
INT datatype1; /* position in type description table */
|
|
/* or in base intefaces */
|
|
/* if coclass: offset in reftable */
|
|
/* if interface: reference to inherited if */
|
|
/* if module: offset to dllname in name table */
|
|
INT datatype2; /* if 0x8000, entry above is valid */
|
|
/* actually dunno */
|
|
/* else it is zero? */
|
|
INT res18; /* always? 0 */
|
|
/*060*/ INT res19; /* always? -1 */
|
|
} MSFT_TypeInfoBase;
|
|
|
|
/* layout of an entry with information on imported types */
|
|
typedef struct tagMSFT_ImpInfo {
|
|
INT flags; /* bits 0 - 15: count */
|
|
/* bit 16: if set oGuid is an offset to Guid */
|
|
/* if clear oGuid is a typeinfo index in the specified typelib */
|
|
/* bits 24 - 31: TKIND of reference */
|
|
INT oImpFile; /* offset in the Import File table */
|
|
INT oGuid; /* offset in Guid table or typeinfo index (see bit 16 of res0) */
|
|
} MSFT_ImpInfo;
|
|
|
|
#define MSFT_IMPINFO_OFFSET_IS_GUID 0x00010000
|
|
|
|
/* function description data */
|
|
typedef struct {
|
|
/* INT recsize; record size including some xtra stuff */
|
|
INT DataType; /* data type of the member, eg return of function */
|
|
INT Flags; /* something to do with attribute flags (LOWORD) */
|
|
#ifdef WORDS_BIGENDIAN
|
|
INT16 funcdescsize; /* size of reconstituted FUNCDESC and related structs */
|
|
INT16 VtableOffset; /* offset in vtable */
|
|
#else
|
|
INT16 VtableOffset; /* offset in vtable */
|
|
INT16 funcdescsize; /* size of reconstituted FUNCDESC and related structs */
|
|
#endif
|
|
INT FKCCIC; /* bit string with the following */
|
|
/* meaning (bit 0 is the msb): */
|
|
/* bit 2 indicates that oEntry is numeric */
|
|
/* bit 3 that parameter has default values */
|
|
/* calling convention (bits 4-7 ) */
|
|
/* bit 8 indicates that custom data is present */
|
|
/* Invocation kind (bits 9-12 ) */
|
|
/* function kind (eg virtual), bits 13-15 */
|
|
#ifdef WORDS_BIGENDIAN
|
|
INT16 nroargs; /* nr of optional arguments */
|
|
INT16 nrargs; /* number of arguments (including optional ????) */
|
|
#else
|
|
INT16 nrargs; /* number of arguments (including optional ????) */
|
|
INT16 nroargs; /* nr of optional arguments */
|
|
#endif
|
|
/* optional attribute fields, the number of them is variable */
|
|
INT OptAttr[1];
|
|
/*
|
|
0* INT helpcontext;
|
|
1* INT oHelpString;
|
|
2* INT oEntry; // either offset in string table or numeric as it is //
|
|
3* INT res9; // unknown (-1) //
|
|
4* INT resA; // unknown (-1) //
|
|
5* INT HelpStringContext;
|
|
// these are controlled by a bit set in the FKCCIC field //
|
|
6* INT oCustData; // custom data for function //
|
|
7* INT oArgCustData[1]; // custom data per argument //
|
|
*/
|
|
} MSFT_FuncRecord;
|
|
|
|
/* after this may follow an array with default value pointers if the
|
|
* appropriate bit in the FKCCIC field has been set:
|
|
* INT oDefautlValue[nrargs];
|
|
*/
|
|
|
|
/* Parameter info one per argument*/
|
|
typedef struct {
|
|
INT DataType;
|
|
INT oName;
|
|
INT Flags;
|
|
} MSFT_ParameterInfo;
|
|
|
|
/* Variable description data */
|
|
typedef struct {
|
|
/* INT recsize; // record size including some xtra stuff */
|
|
INT DataType; /* data type of the variable */
|
|
INT Flags; /* VarFlags (LOWORD) */
|
|
#ifdef WORDS_BIGENDIAN
|
|
INT16 vardescsize; /* size of reconstituted VARDESC and related structs */
|
|
INT16 VarKind; /* VarKind */
|
|
#else
|
|
INT16 VarKind; /* VarKind */
|
|
INT16 vardescsize; /* size of reconstituted VARDESC and related structs */
|
|
#endif
|
|
INT OffsValue; /* value of the variable or the offset */
|
|
/* in the data structure */
|
|
/* optional attribute fields, the number of them is variable */
|
|
/* controlled by record length */
|
|
INT HelpContext;
|
|
INT oHelpString;
|
|
INT res9; /* unknown (-1) */
|
|
INT oCustData; /* custom data for variable */
|
|
INT HelpStringContext;
|
|
|
|
} MSFT_VarRecord;
|
|
|
|
/* Structure of the reference data */
|
|
typedef struct {
|
|
INT reftype; /* either offset in type info table, then it's */
|
|
/* a multiple of 64 */
|
|
/* or offset in the external reference table */
|
|
/* with an offset of 1 */
|
|
INT flags;
|
|
INT oCustData; /* custom data */
|
|
INT onext; /* next offset, -1 if last */
|
|
} MSFT_RefRecord;
|
|
|
|
/* this is how a guid is stored */
|
|
typedef struct {
|
|
GUID guid;
|
|
INT hreftype; /* -2 for the typelib guid, typeinfo offset
|
|
for typeinfo guid, low two bits are 01 if
|
|
this is an imported typeinfo, low two bits
|
|
are 10 if this is an imported typelib (used
|
|
by imported typeinfos) */
|
|
INT next_hash; /* offset to next guid in the hash bucket */
|
|
} MSFT_GuidEntry;
|
|
/* some data preceding entries in the name table */
|
|
typedef struct {
|
|
INT hreftype; /* is -1 if name is for neither a typeinfo,
|
|
a variable, or a function (that is, name
|
|
is for a typelib or a function parameter).
|
|
otherwise is the offset of the first
|
|
typeinfo that this name refers to (either
|
|
to the typeinfo itself or to a member of
|
|
the typeinfo */
|
|
INT next_hash; /* offset to next name in the hash bucket */
|
|
INT namelen; /* only lower 8 bits are valid,
|
|
lower-middle 8 bits are unknown (flags?),
|
|
upper 16 bits are hash code */
|
|
} MSFT_NameIntro;
|
|
/* the custom data table directory has enties like this */
|
|
typedef struct {
|
|
INT GuidOffset;
|
|
INT DataOffset;
|
|
INT next; /* next offset in the table, -1 if it's the last */
|
|
} MSFT_CDGuid;
|
|
|
|
|
|
/***********************************************************
|
|
*
|
|
* SLTG typelibs.
|
|
*
|
|
* These are created with ICreateTypeLib
|
|
*
|
|
*/
|
|
|
|
#include "pshpack1.h"
|
|
|
|
typedef struct {
|
|
/*00*/ DWORD SLTG_magic; /* 0x47544c53 == "SLTG" */
|
|
/*04*/ WORD nrOfFileBlks; /* no of SLTG_BlkEntry's + 1 */
|
|
/*06*/ WORD res06; /* ?? always 9 */
|
|
/*08*/ WORD res08; /* some kind of len/offset ?? */
|
|
/*0a*/ WORD first_blk; /* 1 based index into blk entries that
|
|
corresponds to first block in file */
|
|
/*0c*/ DWORD res0c; /* always 0x000204ff */
|
|
/*10*/ DWORD res10; /* always 0x00000000 */
|
|
/*14*/ DWORD res14; /* always 0x000000c0 */
|
|
/*18*/ DWORD res18; /* always 0x46000000 */
|
|
/*1c*/ DWORD res1c; /* always 0x00000044 */
|
|
/*20*/ DWORD res20; /* always 0xffff0000 */
|
|
} SLTG_Header;
|
|
|
|
/* This gets followed by a list of block entries */
|
|
typedef struct {
|
|
/*00*/ DWORD len;
|
|
/*04*/ WORD index_string; /* offs from start of SLTG_Magic to index string */
|
|
/*06*/ WORD next;
|
|
} SLTG_BlkEntry;
|
|
|
|
/* The order of the blocks in the file is given by starting at Block
|
|
entry firt_blk and stepping through using the next pointer */
|
|
|
|
/* These then get followed by this magic */
|
|
typedef struct {
|
|
/*00*/ BYTE res00; /* always 0x01 */
|
|
/*01*/ CHAR CompObj_magic[8]; /* always "CompObj" */
|
|
/*09*/ CHAR dir_magic[4]; /* always "dir" */
|
|
} SLTG_Magic;
|
|
|
|
#define SLTG_COMPOBJ_MAGIC "CompObj"
|
|
#define SLTG_DIR_MAGIC "dir"
|
|
|
|
/* Next we have SLTG_Header.nrOfFileBlks - 2 of Index strings. These
|
|
are presumably unique to within the file and look something like
|
|
"AAAAAAAAAA" with the first character incremented from 'A' to ensure
|
|
uniqueness. I guess successive chars increment when we need to wrap
|
|
the first one. */
|
|
|
|
typedef struct {
|
|
/*00*/ CHAR string[11];
|
|
} SLTG_Index;
|
|
|
|
|
|
/* This is followed by SLTG_pad9 */
|
|
typedef struct {
|
|
/*00*/ CHAR pad[9]; /* 9 '\0's */
|
|
} SLTG_Pad9;
|
|
|
|
|
|
/* Now we have the noOfFileBlks - 1 worth of blocks. The length of
|
|
each block is given by its entry in SLTG_BlkEntry. */
|
|
|
|
/* type SLTG_NAME in rather like a BSTR except that the length in
|
|
bytes is given by the first WORD and the string contains 8bit chars */
|
|
|
|
typedef WORD SLTG_Name;
|
|
|
|
/* The main library block looks like this. This one seems to come last */
|
|
|
|
typedef struct {
|
|
/*00*/ WORD magic; /* 0x51cc */
|
|
/*02*/ WORD res02; /* 0x0003, 0x0004 */
|
|
/*04*/ WORD name; /* offset to name in name table */
|
|
/*06*/ SLTG_Name res06; /* maybe this is just WORD == 0xffff */
|
|
SLTG_Name helpstring;
|
|
SLTG_Name helpfile;
|
|
DWORD helpcontext;
|
|
WORD syskind; /* == 1 for win32, 0 for win16 */
|
|
WORD lcid; /* == 0x409, 0x809 etc */
|
|
DWORD res12; /* == 0 */
|
|
WORD libflags; /* LIBFLAG_* */
|
|
WORD maj_vers;
|
|
WORD min_vers;
|
|
GUID uuid;
|
|
} SLTG_LibBlk;
|
|
|
|
#define SLTG_LIBBLK_MAGIC 0x51cc
|
|
|
|
/* we then get 0x40 bytes worth of 0xffff or small numbers followed by
|
|
nrOfFileBlks - 2 of these */
|
|
typedef struct {
|
|
WORD small_no;
|
|
SLTG_Name index_name; /* This refers to a name in the directory */
|
|
SLTG_Name other_name; /* Another one of these weird names */
|
|
WORD res1a; /* 0xffff */
|
|
WORD name_offs; /* offset to name in name table */
|
|
WORD more_bytes; /* if this is non-zero we get this many
|
|
bytes before the next element, which seem
|
|
to reference the docstring of the type ? */
|
|
WORD res20; /* 0xffff */
|
|
DWORD helpcontext;
|
|
WORD res26; /* 0xffff */
|
|
GUID uuid;
|
|
} SLTG_OtherTypeInfo;
|
|
|
|
/* Next we get WORD 0x0003 followed by a DWORD which if we add to
|
|
0x216 gives the offset to the name table from the start of the LibBlk
|
|
struct */
|
|
|
|
typedef struct {
|
|
/*00*/ WORD magic; /* 0x0501 */
|
|
/*02*/ DWORD href_table; /* if not 0xffffffff, then byte offset from
|
|
beginning of struct to href table */
|
|
/*06*/ DWORD res06; /* 0xffffffff */
|
|
/*0a*/ DWORD elem_table; /* offset to members */
|
|
/*0e*/ DWORD res0e; /* 0xffffffff */
|
|
/*12*/ WORD major_version; /* major version number */
|
|
/*14*/ WORD minor_version; /* minor version number */
|
|
/*16*/ DWORD res16; /* 0xfffe0000 */
|
|
/*1a*/ BYTE typeflags1;/* 0x02 | top 5 bits hold l5sbs of TYPEFLAGS */
|
|
/*1b*/ BYTE typeflags2;/* TYPEFLAGS >> 5 */
|
|
/*1c*/ BYTE typeflags3;/* 0x02*/
|
|
/*1d*/ BYTE typekind; /* 0x03 == TKIND_INTERFACE etc. */
|
|
/*1e*/ DWORD res1e; /* 0x00000000 or 0xffffffff */
|
|
} SLTG_TypeInfoHeader;
|
|
|
|
#define SLTG_TIHEADER_MAGIC 0x0501
|
|
|
|
typedef struct {
|
|
/*00*/ WORD cFuncs;
|
|
/*02*/ WORD cVars;
|
|
/*04*/ WORD cImplTypes;
|
|
/*06*/ WORD res06; /* always 0000 */
|
|
/*08*/ WORD funcs_off; /* offset to functions (starting from the member header) */
|
|
/*0a*/ WORD vars_off; /* offset to vars (starting from the member header) */
|
|
/*0c*/ WORD impls_off; /* offset to implemented types (starting from the member header) */
|
|
/*0e*/ WORD funcs_bytes; /* bytes used by function data */
|
|
/*10*/ WORD vars_bytes; /* bytes used by var data */
|
|
/*12*/ WORD impls_bytes; /* bytes used by implemented type data */
|
|
/*14*/ WORD tdescalias_vt; /* for TKIND_ALIAS */
|
|
/*16*/ WORD res16; /* always ffff */
|
|
/*18*/ WORD res18; /* always 0000 */
|
|
/*1a*/ WORD res1a; /* always 0000 */
|
|
/*1c*/ WORD simple_alias; /* tdescalias_vt is a vt rather than an offset? */
|
|
/*1e*/ WORD res1e; /* always 0000 */
|
|
/*20*/ WORD cbSizeInstance;
|
|
/*22*/ WORD cbAlignment;
|
|
/*24*/ WORD res24;
|
|
/*26*/ WORD res26;
|
|
/*28*/ WORD cbSizeVft;
|
|
/*2a*/ WORD res2a; /* always ffff */
|
|
/*2c*/ WORD res2c; /* always ffff */
|
|
/*2e*/ WORD res2e; /* always ffff */
|
|
/*30*/ WORD res30; /* always ffff */
|
|
/*32*/ WORD res32;
|
|
/*34*/ WORD res34;
|
|
} SLTG_TypeInfoTail;
|
|
|
|
typedef struct {
|
|
/*00*/ WORD res00; /* 0x0001 sometimes 0x0003 ?? */
|
|
/*02*/ WORD res02; /* 0xffff */
|
|
/*04*/ BYTE res04; /* 0x01 */
|
|
/*05*/ DWORD cbExtra; /* No of bytes that follow */
|
|
} SLTG_MemberHeader;
|
|
|
|
typedef struct {
|
|
/*00*/ WORD magic; /* 0x120a */
|
|
/*02*/ WORD next; /* offset in bytes to next block from start of block
|
|
group, 0xffff if last item */
|
|
/*04*/ WORD name; /* offset to name within name table */
|
|
/*06*/ WORD value; /* offset to value from start of block group */
|
|
/*08*/ WORD res08; /* 0x56 */
|
|
/*0a*/ DWORD memid; /* memid */
|
|
/*0e*/ WORD helpcontext;/* 0xfffe == no context, 0x0001 == stored in EnumInfo struct, else offset
|
|
to value from start of block group */
|
|
/*10*/ WORD helpstring;/* offset from start of block group to string offset */
|
|
} SLTG_EnumItem;
|
|
|
|
#define SLTG_ENUMITEM_MAGIC 0x120a
|
|
|
|
typedef struct {
|
|
BYTE magic; /* 0x4c, 0xcb or 0x8b with optional SLTG_FUNCTION_FLAGS_PRESENT flag */
|
|
BYTE inv; /* high nibble is INVOKE_KIND, low nibble = 2 */
|
|
WORD next; /* byte offset from beginning of group to next fn */
|
|
WORD name; /* Offset within name table to name */
|
|
DWORD dispid; /* dispid */
|
|
WORD helpcontext; /* helpcontext (again 1 is special) */
|
|
WORD helpstring;/* helpstring offset to offset */
|
|
WORD arg_off; /* offset to args from start of block */
|
|
BYTE nacc; /* lowest 3bits are CALLCONV, rest are no of args */
|
|
BYTE retnextopt;/* if 0x80 bit set ret type follows else next WORD
|
|
is offset to ret type. No of optional args is
|
|
middle 6 bits */
|
|
WORD rettype; /* return type VT_?? or offset to ret type */
|
|
WORD vtblpos; /* position in vtbl? */
|
|
WORD funcflags; /* present if magic & 0x20 */
|
|
/* Param list starts, repeat next two as required */
|
|
#if 0
|
|
WORD name; /* offset to 2nd letter of name */
|
|
WORD+ type; /* VT_ of param */
|
|
#endif
|
|
} SLTG_Function;
|
|
|
|
#define SLTG_FUNCTION_FLAGS_PRESENT 0x20
|
|
#define SLTG_FUNCTION_MAGIC 0x4c
|
|
#define SLTG_DISPATCH_FUNCTION_MAGIC 0xcb
|
|
#define SLTG_STATIC_FUNCTION_MAGIC 0x8b
|
|
|
|
typedef struct {
|
|
/*00*/ BYTE magic; /* 0xdf */
|
|
/*01*/ BYTE res01; /* 0x00 */
|
|
/*02*/ DWORD res02; /* 0xffffffff */
|
|
/*06*/ DWORD res06; /* 0xffffffff */
|
|
/*0a*/ DWORD res0a; /* 0xffffffff */
|
|
/*0e*/ DWORD res0e; /* 0xffffffff */
|
|
/*12*/ DWORD res12; /* 0xffffffff */
|
|
/*16*/ DWORD res16; /* 0xffffffff */
|
|
/*1a*/ DWORD res1a; /* 0xffffffff */
|
|
/*1e*/ DWORD res1e; /* 0xffffffff */
|
|
/*22*/ DWORD res22; /* 0xffffffff */
|
|
/*26*/ DWORD res26; /* 0xffffffff */
|
|
/*2a*/ DWORD res2a; /* 0xffffffff */
|
|
/*2e*/ DWORD res2e; /* 0xffffffff */
|
|
/*32*/ DWORD res32; /* 0xffffffff */
|
|
/*36*/ DWORD res36; /* 0xffffffff */
|
|
/*3a*/ DWORD res3a; /* 0xffffffff */
|
|
/*3e*/ DWORD res3e; /* 0xffffffff */
|
|
/*42*/ WORD res42; /* 0xffff */
|
|
/*44*/ DWORD number; /* this is 8 times the number of refs */
|
|
/*48*/ /* Now we have number bytes (8 for each ref) of SLTG_UnknownRefInfo */
|
|
|
|
/*50*/ WORD res50; /* 0xffff */
|
|
/*52*/ BYTE res52; /* 0x01 */
|
|
/*53*/ DWORD res53; /* 0x00000000 */
|
|
/*57*/ SLTG_Name names[1];
|
|
/* Now we have number/8 SLTG_Names (first WORD is no of bytes in the ascii
|
|
* string). Strings look like "*\Rxxxx*#n". If xxxx == ffff then the
|
|
* ref refers to the nth type listed in this library (0 based). Else
|
|
* the xxxx (which maybe fewer than 4 digits) is the offset into the name
|
|
* table to a string "*\G{<guid>}#1.0#0#C:\WINNT\System32\stdole32.tlb#"
|
|
* The guid is the typelib guid; the ref again refers to the nth type of
|
|
* the imported typelib.
|
|
*/
|
|
|
|
/*xx*/ BYTE resxx; /* 0xdf */
|
|
|
|
} SLTG_RefInfo;
|
|
|
|
#define SLTG_REF_MAGIC 0xdf
|
|
|
|
typedef struct {
|
|
WORD res00; /* 0x0001 */
|
|
BYTE res02; /* 0x02 */
|
|
BYTE res03; /* 0x40 if internal ref, 0x00 if external ? */
|
|
WORD res04; /* 0xffff */
|
|
WORD res06; /* 0x0000, 0x0013 or 0xffff ?? */
|
|
} SLTG_UnknownRefInfo;
|
|
|
|
typedef struct {
|
|
WORD res00; /* 0x004a */
|
|
WORD next; /* byte offs to next interface */
|
|
WORD res04; /* 0xffff */
|
|
BYTE impltypeflags; /* IMPLTYPEFLAG_* */
|
|
BYTE res07; /* 0x80 */
|
|
WORD res08; /* 0x0012, 0x0028 ?? */
|
|
WORD ref; /* number in ref table ? */
|
|
WORD res0c; /* 0x4000 */
|
|
WORD res0e; /* 0xfffe */
|
|
WORD res10; /* 0xffff */
|
|
WORD res12; /* 0x001d */
|
|
WORD pos_in_table; /* 0x0, 0x4, ? */
|
|
} SLTG_ImplInfo;
|
|
|
|
#define SLTG_IMPL_MAGIC 0x004a
|
|
|
|
typedef struct {
|
|
BYTE magic; /* 0x0a */
|
|
BYTE flags;
|
|
WORD next;
|
|
WORD name;
|
|
WORD byte_offs; /* pos in struct, or offset to const type */
|
|
WORD type; /* if flags & 0x02 this is the type, else offset to type */
|
|
DWORD memid;
|
|
WORD helpcontext; /* ?? */
|
|
WORD helpstring; /* ?? */
|
|
WORD varflags; /* only present if magic & 0x02 */
|
|
} SLTG_Variable;
|
|
|
|
#define SLTG_VAR_MAGIC 0x0a
|
|
#define SLTG_VAR_WITH_FLAGS_MAGIC 0x2a
|
|
|
|
|
|
/* CARRAYs look like this
|
|
WORD type == VT_CARRAY
|
|
WORD offset from start of block to SAFEARRAY
|
|
WORD typeofarray
|
|
*/
|
|
|
|
#include "poppack.h"
|
|
|
|
HRESULT ITypeInfoImpl_GetInternalFuncDesc( ITypeInfo *iface, UINT index, const FUNCDESC **ppFuncDesc );
|
|
|
|
extern DWORD _invoke(FARPROC func,CALLCONV callconv, int nrargs, DWORD *args);
|
|
extern void dump_Variant(const VARIANT * pvar);
|
|
|
|
HRESULT TMARSHAL_DllGetClassObject(REFCLSID rclsid, REFIID iid,LPVOID *ppv);
|
|
|
|
/* The OLE Automation ProxyStub Interface Class (aka Typelib Marshaler) */
|
|
DEFINE_OLEGUID( CLSID_PSDispatch, 0x00020420, 0x0000, 0x0000 );
|
|
DEFINE_OLEGUID( CLSID_PSEnumVariant, 0x00020421, 0x0000, 0x0000 );
|
|
DEFINE_OLEGUID( CLSID_PSTypeInfo, 0x00020422, 0x0000, 0x0000 );
|
|
DEFINE_OLEGUID( CLSID_PSTypeLib, 0x00020423, 0x0000, 0x0000 );
|
|
DEFINE_OLEGUID( CLSID_PSOAInterface, 0x00020424, 0x0000, 0x0000 );
|
|
DEFINE_OLEGUID( CLSID_PSTypeComp, 0x00020425, 0x0000, 0x0000 );
|
|
|
|
/*---------------------------END--------------------------------------------*/
|
|
#endif
|