1998-03-15 21:29:56 +01:00
|
|
|
/*
|
|
|
|
* TYPELIB
|
|
|
|
*
|
|
|
|
* Copyright 1997 Marcus Meissner
|
1999-06-05 14:00:13 +02:00
|
|
|
* 1999 Rein Klazes
|
2000-11-26 00:51:30 +01:00
|
|
|
* 2000 Francois Jacques
|
2001-09-07 17:27:16 +02:00
|
|
|
* 2001 Huw D M Davies for CodeWeavers
|
2002-03-10 00:29:33 +01:00
|
|
|
*
|
|
|
|
* 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
2001-09-07 17:27:16 +02:00
|
|
|
*
|
2000-11-26 00:51:30 +01:00
|
|
|
* --------------------------------------------------------------------------------------
|
|
|
|
* Known problems (2000, Francois Jacques)
|
|
|
|
*
|
|
|
|
* - Tested using OLEVIEW (Platform SDK tool) only.
|
|
|
|
*
|
|
|
|
* - dual interface dispinterfaces. vtable-interface ITypeInfo instances are
|
|
|
|
* creating by doing a straight copy of the dispinterface instance and just changing
|
|
|
|
* its typekind. Pointed structures aren't copied - only the address of the pointers.
|
|
|
|
* So when you release the dispinterface, you delete the vtable-interface structures
|
|
|
|
* as well... fortunately, clean up of structures is not implemented.
|
|
|
|
*
|
|
|
|
* - locale stuff is partially implemented but hasn't been tested.
|
|
|
|
*
|
2001-09-07 17:27:16 +02:00
|
|
|
* - typelib file is still read in its entirety, but it is released now.
|
|
|
|
* - some garbage is read from function names on some very rare occasions.
|
2000-11-26 00:51:30 +01:00
|
|
|
*
|
|
|
|
* --------------------------------------------------------------------------------------
|
|
|
|
* Known problems left from previous implementation (1999, Rein Klazes) :
|
|
|
|
*
|
1999-06-05 14:00:13 +02:00
|
|
|
* -. Data structures are straightforward, but slow for look-ups.
|
|
|
|
* -. (related) nothing is hashed
|
|
|
|
* -. there are a number of stubs in ITypeLib and ITypeInfo interfaces. Most
|
|
|
|
* of them I don't know yet how to implement them.
|
|
|
|
* -. Most error return values are just guessed not checked with windows
|
|
|
|
* behaviour.
|
|
|
|
* -. didn't bother with a c++ interface
|
|
|
|
* -. lousy fatal error handling
|
|
|
|
* -. some methods just return pointers to internal data structures, this is
|
|
|
|
* partly laziness, partly I want to check how windows does it.
|
|
|
|
*
|
1998-03-15 21:29:56 +01:00
|
|
|
*/
|
|
|
|
|
2001-07-24 01:50:18 +02:00
|
|
|
#include "config.h"
|
|
|
|
|
1998-03-15 21:29:56 +01:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
2000-02-10 23:15:21 +01:00
|
|
|
#include <stdio.h>
|
2000-10-26 21:29:09 +02:00
|
|
|
#include <ctype.h>
|
2001-07-24 01:50:18 +02:00
|
|
|
|
1998-03-15 21:29:56 +01:00
|
|
|
#include "winerror.h"
|
1999-08-18 20:35:57 +02:00
|
|
|
#include "winnls.h" /* for PRIMARYLANGID */
|
2001-07-24 01:50:18 +02:00
|
|
|
#include "winreg.h" /* for HKEY_LOCAL_MACHINE */
|
2001-10-10 04:51:24 +02:00
|
|
|
#include "winuser.h"
|
2001-07-24 01:50:18 +02:00
|
|
|
|
2001-09-27 01:05:35 +02:00
|
|
|
#include "wine/unicode.h"
|
1999-01-17 17:32:32 +01:00
|
|
|
#include "wine/obj_base.h"
|
2001-07-24 01:50:18 +02:00
|
|
|
#include "heap.h"
|
|
|
|
#include "ole2disp.h"
|
1999-06-05 14:00:13 +02:00
|
|
|
#include "typelib.h"
|
2002-03-10 00:29:33 +01:00
|
|
|
#include "wine/debug.h"
|
2001-09-27 01:05:35 +02:00
|
|
|
#include "ntddk.h"
|
2001-07-24 01:50:18 +02:00
|
|
|
|
2002-03-10 00:29:33 +01:00
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(ole);
|
|
|
|
WINE_DECLARE_DEBUG_CHANNEL(typelib);
|
1999-04-19 16:56:29 +02:00
|
|
|
|
1998-03-29 21:44:57 +02:00
|
|
|
/****************************************************************************
|
2001-07-02 21:59:40 +02:00
|
|
|
* QueryPathOfRegTypeLib [TYPELIB.14]
|
1998-10-11 16:21:42 +02:00
|
|
|
*
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
* the path is "Classes\Typelib\<guid>\<major>.<minor>\<lcid>\win16\"
|
1998-03-29 21:44:57 +02:00
|
|
|
* RETURNS
|
|
|
|
* path of typelib
|
|
|
|
*/
|
1998-03-15 21:29:56 +01:00
|
|
|
HRESULT WINAPI
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
QueryPathOfRegTypeLib16(
|
1998-03-29 21:44:57 +02:00
|
|
|
REFGUID guid, /* [in] referenced guid */
|
|
|
|
WORD wMaj, /* [in] major version */
|
|
|
|
WORD wMin, /* [in] minor version */
|
|
|
|
LCID lcid, /* [in] locale id */
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
LPBSTR16 path /* [out] path of typelib */
|
1998-03-29 21:44:57 +02:00
|
|
|
) {
|
1998-03-15 21:29:56 +01:00
|
|
|
char xguid[80];
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
char typelibkey[100],pathname[260];
|
|
|
|
DWORD plen;
|
1998-03-15 21:29:56 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
TRACE("\n");
|
|
|
|
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
if (HIWORD(guid)) {
|
2000-06-23 18:13:33 +02:00
|
|
|
sprintf( typelibkey, "SOFTWARE\\Classes\\Typelib\\{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}\\%d.%d\\%lx\\win16",
|
|
|
|
guid->Data1, guid->Data2, guid->Data3,
|
|
|
|
guid->Data4[0], guid->Data4[1], guid->Data4[2], guid->Data4[3],
|
|
|
|
guid->Data4[4], guid->Data4[5], guid->Data4[6], guid->Data4[7],
|
|
|
|
wMaj,wMin,lcid);
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
} else {
|
1998-03-29 21:44:57 +02:00
|
|
|
sprintf(xguid,"<guid 0x%08lx>",(DWORD)guid);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%s,%d,%d,0x%04lx,%p),can't handle non-string guids.\n",xguid,wMaj,wMin,(DWORD)lcid,path);
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
return E_FAIL;
|
|
|
|
}
|
|
|
|
plen = sizeof(pathname);
|
2000-08-08 22:49:16 +02:00
|
|
|
if (RegQueryValueA(HKEY_LOCAL_MACHINE,typelibkey,pathname,&plen)) {
|
1999-07-04 14:47:53 +02:00
|
|
|
/* try again without lang specific id */
|
|
|
|
if (SUBLANGID(lcid))
|
|
|
|
return QueryPathOfRegTypeLib16(guid,wMaj,wMin,PRIMARYLANGID(lcid),path);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("key %s not found\n",typelibkey);
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
return E_FAIL;
|
|
|
|
}
|
|
|
|
*path = SysAllocString16(pathname);
|
|
|
|
return S_OK;
|
1998-03-15 21:29:56 +01:00
|
|
|
}
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
/****************************************************************************
|
1999-06-05 14:00:13 +02:00
|
|
|
* QueryPathOfRegTypeLib [OLEAUT32.164]
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
* RETURNS
|
|
|
|
* path of typelib
|
|
|
|
*/
|
|
|
|
HRESULT WINAPI
|
1999-02-26 12:11:13 +01:00
|
|
|
QueryPathOfRegTypeLib(
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
REFGUID guid, /* [in] referenced guid */
|
|
|
|
WORD wMaj, /* [in] major version */
|
|
|
|
WORD wMin, /* [in] minor version */
|
|
|
|
LCID lcid, /* [in] locale id */
|
2000-08-22 22:51:55 +02:00
|
|
|
LPBSTR path ) /* [out] path of typelib */
|
|
|
|
{
|
|
|
|
/* don't need to ZeroMemory those arrays since sprintf and RegQueryValue add
|
|
|
|
string termination character on output strings */
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
|
2000-08-22 22:51:55 +02:00
|
|
|
HRESULT hr = E_FAIL;
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
|
2000-08-22 22:51:55 +02:00
|
|
|
LCID myLCID = lcid;
|
|
|
|
|
|
|
|
char szXGUID[80];
|
|
|
|
char szTypeLibKey[100];
|
2002-05-01 20:13:18 +02:00
|
|
|
char szPath[MAX_PATH];
|
|
|
|
DWORD dwPathLen = sizeof(szPath);
|
2000-08-22 22:51:55 +02:00
|
|
|
|
|
|
|
if ( !HIWORD(guid) )
|
|
|
|
{
|
|
|
|
sprintf(szXGUID,
|
|
|
|
"<guid 0x%08lx>",
|
|
|
|
(DWORD) guid);
|
|
|
|
|
|
|
|
FIXME("(%s,%d,%d,0x%04lx,%p),stub!\n", szXGUID, wMaj, wMin, (DWORD)lcid, path);
|
|
|
|
return E_FAIL;
|
|
|
|
}
|
|
|
|
|
|
|
|
while (hr != S_OK)
|
|
|
|
{
|
|
|
|
sprintf(szTypeLibKey,
|
|
|
|
"SOFTWARE\\Classes\\Typelib\\{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}\\%d.%d\\%lx\\win32",
|
|
|
|
guid->Data1, guid->Data2, guid->Data3,
|
|
|
|
guid->Data4[0], guid->Data4[1], guid->Data4[2], guid->Data4[3],
|
|
|
|
guid->Data4[4], guid->Data4[5], guid->Data4[6], guid->Data4[7],
|
|
|
|
wMaj,
|
|
|
|
wMin,
|
|
|
|
myLCID);
|
|
|
|
|
|
|
|
if (RegQueryValueA(HKEY_LOCAL_MACHINE, szTypeLibKey, szPath, &dwPathLen))
|
|
|
|
{
|
2000-09-19 04:37:07 +02:00
|
|
|
if (!lcid)
|
|
|
|
break;
|
|
|
|
else if (myLCID == lcid)
|
2000-08-22 22:51:55 +02:00
|
|
|
{
|
|
|
|
/* try with sub-langid */
|
|
|
|
myLCID = SUBLANGID(lcid);
|
|
|
|
}
|
2000-12-19 04:37:44 +01:00
|
|
|
else if ((myLCID == SUBLANGID(lcid)) && myLCID)
|
2000-08-22 22:51:55 +02:00
|
|
|
{
|
|
|
|
/* try with system langid */
|
|
|
|
myLCID = 0;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
DWORD len = MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, szPath, dwPathLen, NULL, 0 );
|
|
|
|
BSTR bstrPath = SysAllocStringLen(NULL,len);
|
|
|
|
|
|
|
|
MultiByteToWideChar(CP_ACP,
|
|
|
|
MB_PRECOMPOSED,
|
|
|
|
szPath,
|
|
|
|
dwPathLen,
|
|
|
|
bstrPath,
|
|
|
|
len);
|
|
|
|
*path = bstrPath;
|
|
|
|
hr = S_OK;
|
|
|
|
}
|
|
|
|
}
|
2000-10-25 23:24:53 +02:00
|
|
|
|
|
|
|
if (hr != S_OK)
|
|
|
|
TRACE_(typelib)("%s not found\n", szTypeLibKey);
|
|
|
|
|
2000-08-22 22:51:55 +02:00
|
|
|
return hr;
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
}
|
|
|
|
|
2000-07-29 23:54:58 +02:00
|
|
|
/******************************************************************************
|
2001-06-21 01:03:14 +02:00
|
|
|
* CreateTypeLib [OLEAUT32.160] creates a typelib
|
2000-07-29 23:54:58 +02:00
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: S_OK
|
|
|
|
* Failure: Status
|
|
|
|
*/
|
|
|
|
HRESULT WINAPI CreateTypeLib(
|
2000-10-03 06:09:17 +02:00
|
|
|
SYSKIND syskind, LPCOLESTR szFile, ICreateTypeLib** ppctlib
|
2000-07-29 23:54:58 +02:00
|
|
|
) {
|
|
|
|
FIXME("(%d,%s,%p), stub!\n",syskind,debugstr_w(szFile),ppctlib);
|
|
|
|
return E_FAIL;
|
|
|
|
}
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
/******************************************************************************
|
|
|
|
* LoadTypeLib [TYPELIB.3] Loads and registers a type library
|
|
|
|
* NOTES
|
1999-06-05 14:00:13 +02:00
|
|
|
* Docs: OLECHAR FAR* szFile
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
* Docs: iTypeLib FAR* FAR* pptLib
|
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: S_OK
|
|
|
|
* Failure: Status
|
|
|
|
*/
|
1998-12-11 10:16:48 +01:00
|
|
|
HRESULT WINAPI LoadTypeLib16(
|
1999-09-23 13:48:02 +02:00
|
|
|
LPOLESTR szFile, /* [in] Name of file to load from */
|
2000-10-03 06:09:17 +02:00
|
|
|
ITypeLib** pptLib) /* [out] Pointer to pointer to loaded type library */
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
{
|
2001-05-11 22:03:40 +02:00
|
|
|
FIXME("(%s,%p): stub\n",debugstr_w((LPWSTR)szFile),pptLib);
|
1999-01-23 12:53:21 +01:00
|
|
|
|
|
|
|
if (pptLib!=0)
|
|
|
|
*pptLib=0;
|
|
|
|
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
return E_FAIL;
|
|
|
|
}
|
|
|
|
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
/******************************************************************************
|
1999-06-05 14:00:13 +02:00
|
|
|
* LoadTypeLib [OLEAUT32.161]
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
* Loads and registers a type library
|
|
|
|
* NOTES
|
1999-06-05 14:00:13 +02:00
|
|
|
* Docs: OLECHAR FAR* szFile
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
* Docs: iTypeLib FAR* FAR* pptLib
|
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: S_OK
|
|
|
|
* Failure: Status
|
|
|
|
*/
|
2001-09-27 01:05:35 +02:00
|
|
|
int TLB_ReadTypeLib(LPCWSTR file, INT index, ITypeLib2 **ppTypelib);
|
2000-07-10 12:57:28 +02:00
|
|
|
|
1999-02-26 12:11:13 +01:00
|
|
|
HRESULT WINAPI LoadTypeLib(
|
2000-10-03 06:09:17 +02:00
|
|
|
const OLECHAR *szFile,/* [in] Name of file to load from */
|
|
|
|
ITypeLib * *pptLib) /* [out] Pointer to pointer to loaded type library */
|
1999-09-29 14:15:05 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
TRACE("\n");
|
1999-09-29 14:15:05 +02:00
|
|
|
return LoadTypeLibEx(szFile, REGKIND_DEFAULT, pptLib);
|
|
|
|
}
|
|
|
|
|
|
|
|
/******************************************************************************
|
|
|
|
* LoadTypeLibEx [OLEAUT32.183]
|
|
|
|
* Loads and optionally registers a type library
|
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: S_OK
|
|
|
|
* Failure: Status
|
|
|
|
*/
|
|
|
|
HRESULT WINAPI LoadTypeLibEx(
|
2000-10-03 06:09:17 +02:00
|
|
|
LPCOLESTR szFile, /* [in] Name of file to load from */
|
2000-12-02 00:58:28 +01:00
|
|
|
REGKIND regkind, /* [in] Specify kind of registration */
|
1999-09-29 14:15:05 +02:00
|
|
|
ITypeLib **pptLib) /* [out] Pointer to pointer to loaded type library */
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
{
|
2001-09-27 01:05:35 +02:00
|
|
|
WCHAR szPath[MAX_PATH+1], szFileCopy[MAX_PATH+1];
|
2001-11-12 16:50:01 +01:00
|
|
|
WCHAR *pIndexStr;
|
1999-06-05 14:00:13 +02:00
|
|
|
HRESULT res;
|
2001-09-27 01:05:35 +02:00
|
|
|
INT index = 1;
|
2000-07-09 14:17:52 +02:00
|
|
|
TRACE("(%s,%d,%p)\n",debugstr_w(szFile), regkind, pptLib);
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2001-09-27 01:05:35 +02:00
|
|
|
if(!SearchPathW(NULL,szFile,NULL,sizeof(szPath)/sizeof(WCHAR),szPath,
|
|
|
|
NULL)) {
|
|
|
|
|
|
|
|
/* Look for a trailing '\\' followed by an index */
|
|
|
|
pIndexStr = strrchrW(szFile, '\\');
|
|
|
|
if(pIndexStr && pIndexStr != szFile && *++pIndexStr != '\0') {
|
|
|
|
index = wcstol(pIndexStr, NULL, 10);
|
|
|
|
memcpy(szFileCopy, szFile,
|
|
|
|
(pIndexStr - szFile - 1) * sizeof(WCHAR));
|
|
|
|
szFileCopy[pIndexStr - szFile - 1] = '\0';
|
|
|
|
if(!SearchPathW(NULL,szFileCopy,NULL,sizeof(szPath)/sizeof(WCHAR),
|
|
|
|
szPath,NULL))
|
|
|
|
return TYPE_E_CANTLOADLIBRARY;
|
2002-01-22 19:28:51 +01:00
|
|
|
if (GetFileAttributesW(szFileCopy) & FILE_ATTRIBUTE_DIRECTORY)
|
|
|
|
return TYPE_E_CANTLOADLIBRARY;
|
2001-09-27 01:05:35 +02:00
|
|
|
} else
|
|
|
|
return TYPE_E_CANTLOADLIBRARY;
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
2001-09-27 01:05:35 +02:00
|
|
|
|
2001-11-12 16:50:01 +01:00
|
|
|
TRACE("File %s index %d\n", debugstr_w(szPath), index);
|
2001-09-27 01:05:35 +02:00
|
|
|
|
2001-11-12 16:50:01 +01:00
|
|
|
res = TLB_ReadTypeLib(szPath, index, (ITypeLib2**)pptLib);
|
2001-09-27 01:05:35 +02:00
|
|
|
|
2001-08-03 20:13:24 +02:00
|
|
|
if (SUCCEEDED(res))
|
|
|
|
switch(regkind)
|
|
|
|
{
|
|
|
|
case REGKIND_DEFAULT:
|
|
|
|
/* FIXME: is this correct? */
|
2001-09-07 17:27:16 +02:00
|
|
|
if (!szFile || !szFile[0] ||
|
|
|
|
(szFile[0] != '\\' && szFile[0] != '/' && szFile[1] != ':'))
|
2001-08-03 20:13:24 +02:00
|
|
|
break;
|
|
|
|
/* else fall-through */
|
|
|
|
case REGKIND_REGISTER:
|
|
|
|
/* FIXME: Help path? */
|
|
|
|
if (!SUCCEEDED(res = RegisterTypeLib(*pptLib, (LPOLESTR)szFile, NULL)))
|
|
|
|
{
|
|
|
|
IUnknown_Release(*pptLib);
|
|
|
|
*pptLib = 0;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case REGKIND_NONE:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
2000-07-09 14:17:52 +02:00
|
|
|
TRACE(" returns %08lx\n",res);
|
1999-06-05 14:00:13 +02:00
|
|
|
return res;
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
}
|
|
|
|
|
1999-02-20 17:48:53 +01:00
|
|
|
/******************************************************************************
|
|
|
|
* LoadRegTypeLib [OLEAUT32.162]
|
|
|
|
*/
|
1999-06-05 14:00:13 +02:00
|
|
|
HRESULT WINAPI LoadRegTypeLib(
|
2000-06-24 15:50:52 +02:00
|
|
|
REFGUID rguid, /* [in] referenced guid */
|
|
|
|
WORD wVerMajor, /* [in] major version */
|
|
|
|
WORD wVerMinor, /* [in] minor version */
|
|
|
|
LCID lcid, /* [in] locale id */
|
|
|
|
ITypeLib **ppTLib) /* [out] path of typelib */
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
BSTR bstr=NULL;
|
2000-06-24 15:50:52 +02:00
|
|
|
HRESULT res=QueryPathOfRegTypeLib( rguid, wVerMajor, wVerMinor, lcid, &bstr);
|
|
|
|
|
|
|
|
if(SUCCEEDED(res))
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
res= LoadTypeLib(bstr, ppTLib);
|
|
|
|
SysFreeString(bstr);
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
TRACE("(IID: %s) load %s (%p)\n",debugstr_guid(rguid), SUCCEEDED(res)? "SUCCESS":"FAILED", *ppTLib);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
return res;
|
|
|
|
}
|
1999-02-20 17:48:53 +01:00
|
|
|
|
|
|
|
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
/******************************************************************************
|
1999-06-05 14:00:13 +02:00
|
|
|
* RegisterTypeLib [OLEAUT32.163]
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
* Adds information about a type library to the System Registry
|
|
|
|
* NOTES
|
|
|
|
* Docs: ITypeLib FAR * ptlib
|
1999-06-05 14:00:13 +02:00
|
|
|
* Docs: OLECHAR FAR* szFullPath
|
|
|
|
* Docs: OLECHAR FAR* szHelpDir
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: S_OK
|
|
|
|
* Failure: Status
|
|
|
|
*/
|
1999-02-26 12:11:13 +01:00
|
|
|
HRESULT WINAPI RegisterTypeLib(
|
2000-12-02 00:58:28 +01:00
|
|
|
ITypeLib * ptlib, /* [in] Pointer to the library*/
|
|
|
|
OLECHAR * szFullPath, /* [in] full Path of the library*/
|
|
|
|
OLECHAR * szHelpDir) /* [in] dir to the helpfile for the library,
|
1999-06-05 14:00:13 +02:00
|
|
|
may be NULL*/
|
2001-08-03 20:13:24 +02:00
|
|
|
{
|
|
|
|
HRESULT res;
|
|
|
|
TLIBATTR *attr;
|
|
|
|
OLECHAR guid[80];
|
|
|
|
LPSTR guidA;
|
|
|
|
CHAR keyName[120];
|
|
|
|
HKEY key, subKey;
|
2001-09-21 23:00:37 +02:00
|
|
|
UINT types, tidx;
|
|
|
|
TYPEKIND kind;
|
|
|
|
static const char *PSOA = "{00020424-0000-0000-C000-000000000046}";
|
2001-08-03 20:13:24 +02:00
|
|
|
|
|
|
|
if (ptlib == NULL || szFullPath == NULL)
|
|
|
|
return E_INVALIDARG;
|
|
|
|
|
|
|
|
if (!SUCCEEDED(ITypeLib_GetLibAttr(ptlib, &attr)))
|
|
|
|
return E_FAIL;
|
|
|
|
|
|
|
|
StringFromGUID2(&attr->guid, guid, 80);
|
|
|
|
guidA = HEAP_strdupWtoA(GetProcessHeap(), 0, guid);
|
|
|
|
snprintf(keyName, sizeof(keyName), "TypeLib\\%s\\%x.%x",
|
|
|
|
guidA, attr->wMajorVerNum, attr->wMinorVerNum);
|
|
|
|
HeapFree(GetProcessHeap(), 0, guidA);
|
|
|
|
|
|
|
|
res = S_OK;
|
|
|
|
if (RegCreateKeyExA(HKEY_CLASSES_ROOT, keyName, 0, NULL, 0,
|
|
|
|
KEY_WRITE, NULL, &key, NULL) == ERROR_SUCCESS)
|
|
|
|
{
|
|
|
|
LPOLESTR doc;
|
|
|
|
|
|
|
|
if (SUCCEEDED(ITypeLib_GetDocumentation(ptlib, -1, NULL, &doc, NULL, NULL)))
|
|
|
|
{
|
|
|
|
if (RegSetValueExW(key, NULL, 0, REG_SZ,
|
|
|
|
(BYTE *)doc, lstrlenW(doc) * sizeof(OLECHAR)) != ERROR_SUCCESS)
|
|
|
|
res = E_FAIL;
|
|
|
|
|
|
|
|
SysFreeString(doc);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
res = E_FAIL;
|
|
|
|
|
|
|
|
/* FIXME: This *seems* to be 0 always, not sure though */
|
|
|
|
if (res == S_OK && RegCreateKeyExA(key, "0\\win32", 0, NULL, 0,
|
|
|
|
KEY_WRITE, NULL, &subKey, NULL) == ERROR_SUCCESS)
|
|
|
|
{
|
|
|
|
if (RegSetValueExW(subKey, NULL, 0, REG_SZ,
|
|
|
|
(BYTE *)szFullPath, lstrlenW(szFullPath) * sizeof(OLECHAR)) != ERROR_SUCCESS)
|
|
|
|
res = E_FAIL;
|
|
|
|
|
|
|
|
RegCloseKey(subKey);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
res = E_FAIL;
|
|
|
|
|
|
|
|
if (res == S_OK && RegCreateKeyExA(key, "FLAGS", 0, NULL, 0,
|
|
|
|
KEY_WRITE, NULL, &subKey, NULL) == ERROR_SUCCESS)
|
|
|
|
{
|
|
|
|
CHAR buf[20];
|
|
|
|
/* FIXME: is %u correct? */
|
2001-08-06 19:46:18 +02:00
|
|
|
snprintf(buf, sizeof(buf), "%u", attr->wLibFlags);
|
2001-08-03 20:13:24 +02:00
|
|
|
if (RegSetValueExA(subKey, NULL, 0, REG_SZ,
|
|
|
|
buf, lstrlenA(buf) + 1) != ERROR_SUCCESS)
|
|
|
|
res = E_FAIL;
|
|
|
|
}
|
|
|
|
RegCloseKey(key);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
res = E_FAIL;
|
|
|
|
|
2001-09-21 23:00:37 +02:00
|
|
|
/* register OLE Automation-compatible interfaces for this typelib */
|
|
|
|
types = ITypeLib_GetTypeInfoCount(ptlib);
|
|
|
|
for (tidx=0; tidx<types; tidx++) {
|
|
|
|
if (SUCCEEDED(ITypeLib_GetTypeInfoType(ptlib, tidx, &kind))) {
|
|
|
|
LPOLESTR name = NULL;
|
|
|
|
ITypeInfo *tinfo = NULL;
|
|
|
|
BOOL stop = FALSE;
|
|
|
|
ITypeLib_GetDocumentation(ptlib, tidx, &name, NULL, NULL, NULL);
|
|
|
|
switch (kind) {
|
|
|
|
case TKIND_INTERFACE:
|
|
|
|
TRACE_(typelib)("%d: interface %s\n", tidx, debugstr_w(name));
|
|
|
|
ITypeLib_GetTypeInfo(ptlib, tidx, &tinfo);
|
|
|
|
break;
|
|
|
|
case TKIND_DISPATCH:
|
|
|
|
TRACE_(typelib)("%d: dispinterface %s\n", tidx, debugstr_w(name));
|
|
|
|
/* ITypeLib_GetTypeInfo(ptlib, tidx, &tinfo); */
|
|
|
|
break;
|
|
|
|
case TKIND_COCLASS:
|
|
|
|
TRACE_(typelib)("%d: coclass %s\n", tidx, debugstr_w(name));
|
|
|
|
/* coclasses should probably not be registered? */
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
TRACE_(typelib)("%d: %s\n", tidx, debugstr_w(name));
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (tinfo) {
|
|
|
|
TYPEATTR *tattr = NULL;
|
|
|
|
ITypeInfo_GetTypeAttr(tinfo, &tattr);
|
|
|
|
if (tattr) {
|
2002-05-06 22:12:32 +02:00
|
|
|
TRACE_(typelib)("guid=%s, flags=%04x (",
|
2001-09-21 23:00:37 +02:00
|
|
|
debugstr_guid(&tattr->guid),
|
|
|
|
tattr->wTypeFlags);
|
2002-05-06 22:12:32 +02:00
|
|
|
if (TRACE_ON(typelib)) {
|
|
|
|
#define XX(x) if (TYPEFLAG_##x & tattr->wTypeFlags) MESSAGE(#x"|");
|
|
|
|
XX(FAPPOBJECT);
|
|
|
|
XX(FCANCREATE);
|
|
|
|
XX(FLICENSED);
|
|
|
|
XX(FPREDECLID);
|
|
|
|
XX(FHIDDEN);
|
|
|
|
XX(FCONTROL);
|
|
|
|
XX(FDUAL);
|
|
|
|
XX(FNONEXTENSIBLE);
|
|
|
|
XX(FOLEAUTOMATION);
|
|
|
|
XX(FRESTRICTED);
|
|
|
|
XX(FAGGREGATABLE);
|
|
|
|
XX(FREPLACEABLE);
|
|
|
|
XX(FDISPATCHABLE);
|
|
|
|
XX(FREVERSEBIND);
|
|
|
|
XX(FPROXY);
|
|
|
|
#undef XX
|
|
|
|
MESSAGE("\n");
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* FIXME: The 1 is just here until we implement rpcrt4
|
|
|
|
* stub/proxy handling. Until then it helps IShield
|
|
|
|
* v6 to work.
|
|
|
|
*/
|
|
|
|
if (1 || (tattr->wTypeFlags & TYPEFLAG_FOLEAUTOMATION))
|
|
|
|
{
|
2001-09-21 23:00:37 +02:00
|
|
|
/* register interface<->typelib coupling */
|
|
|
|
StringFromGUID2(&tattr->guid, guid, 80);
|
|
|
|
guidA = HEAP_strdupWtoA(GetProcessHeap(), 0, guid);
|
|
|
|
snprintf(keyName, sizeof(keyName), "Interface\\%s", guidA);
|
|
|
|
HeapFree(GetProcessHeap(), 0, guidA);
|
|
|
|
|
|
|
|
if (RegCreateKeyExA(HKEY_CLASSES_ROOT, keyName, 0, NULL, 0,
|
|
|
|
KEY_WRITE, NULL, &key, NULL) == ERROR_SUCCESS) {
|
|
|
|
if (name)
|
|
|
|
RegSetValueExW(key, NULL, 0, REG_SZ,
|
|
|
|
(BYTE *)name, lstrlenW(name) * sizeof(OLECHAR));
|
|
|
|
|
|
|
|
if (RegCreateKeyExA(key, "ProxyStubClsid", 0, NULL, 0,
|
|
|
|
KEY_WRITE, NULL, &subKey, NULL) == ERROR_SUCCESS) {
|
|
|
|
RegSetValueExA(subKey, NULL, 0, REG_SZ,
|
|
|
|
PSOA, strlen(PSOA));
|
|
|
|
RegCloseKey(subKey);
|
|
|
|
}
|
|
|
|
if (RegCreateKeyExA(key, "ProxyStubClsid32", 0, NULL, 0,
|
|
|
|
KEY_WRITE, NULL, &subKey, NULL) == ERROR_SUCCESS) {
|
|
|
|
RegSetValueExA(subKey, NULL, 0, REG_SZ,
|
|
|
|
PSOA, strlen(PSOA));
|
|
|
|
RegCloseKey(subKey);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (RegCreateKeyExA(key, "TypeLib", 0, NULL, 0,
|
|
|
|
KEY_WRITE, NULL, &subKey, NULL) == ERROR_SUCCESS) {
|
|
|
|
CHAR ver[32];
|
|
|
|
StringFromGUID2(&attr->guid, guid, 80);
|
|
|
|
snprintf(ver, sizeof(ver), "%x.%x",
|
|
|
|
attr->wMajorVerNum, attr->wMinorVerNum);
|
|
|
|
RegSetValueExW(subKey, NULL, 0, REG_SZ,
|
|
|
|
(BYTE *)guid, lstrlenW(guid) * sizeof(OLECHAR));
|
|
|
|
RegSetValueExA(subKey, "Version", 0, REG_SZ,
|
|
|
|
ver, lstrlenA(ver));
|
|
|
|
RegCloseKey(subKey);
|
|
|
|
}
|
|
|
|
RegCloseKey(key);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
ITypeInfo_ReleaseTypeAttr(tinfo, tattr);
|
|
|
|
}
|
|
|
|
ITypeInfo_Release(tinfo);
|
|
|
|
}
|
|
|
|
SysFreeString(name);
|
|
|
|
if (stop) break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2001-08-03 20:13:24 +02:00
|
|
|
ITypeLib_ReleaseTLibAttr(ptlib, attr);
|
2001-09-21 23:00:37 +02:00
|
|
|
|
2001-08-03 20:13:24 +02:00
|
|
|
return res;
|
Release 980628
Sun Jun 28 18:37:02 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [if1632/signal.c] [miscemu/instr.c] [memory/virtual.c]
Moved page-fault handling to INSTR_EmulateInstruction.
* [scheduler/thread.c]
Added locking and check for own thread in Suspend/ResumeThread.
Sat Jun 27 21:25:21 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de>
* [objects/dib.c] [objects/bitmap.c] [objects/oembitmap.c]
[graphics/x11drv/bitblt.c] [include/bitmap.h]
Improved DIB section handling using page fault handlers.
(Note: This patch includes code contributed by Matthew J. Francis.)
* [memory/virtual.c] [if1632/signal.c] [include/global.h]
Page Fault handler support added.
* [if1632/signal.c] [loader/signal.c] [tools/build.c] [misc/system.c]
[misc/winsock_dns.c] [include/sig_context.h] [include/thread.h]
16-bit %fs handling improved: Always preserve 16-bit %fs value,
always restore 32-bit %fs value for signal handlers.
* [if1632/thunk.c] [loader/module.c] [misc/callback.c] [windows/user.c]
[loader/ne/resource.c] [include/callback.h] [include/module.h]
[if1632/kernel.spec] [if1632/wprocs.spec]
Resource Handler function pointer stored as 16-bit SEGPTR.
* [loader/task.c] [windows/win.c] [windows/winpos.c] [if1632/user.spec]
[if1632/kernel.spec] [loader/ne/module.c]
Some minor incompatibilities fixed (Win32s relies on those):
GetExePtr, IsWindow16 should set ES on return; WINPOS_SendNCCalcSize
should cope with having the WINDOWPOS structure trashed;
the OFSTRUCT in the NE module image should be placed *last*.
* [include/windows.h]
Missing prototype for FlushViewOfFile.
* [loader/task.c]
Bugfix: Command line should *not* start with a blank.
* [loader/ne/segment.c]
Bugfix: Fixups to offset 0 were never applied.
* [misc/lstr.c]
Use debugstr_a in OutputDebugString16.
* [msdos/dpmi.c]
Stub for int 31 BL=2f AX=7a20 (NetWare: Get VLM Call Address) added.
* [msdos/int21.c]
Stub for int 21 AX=440d CL=6f (get drive map information) added.
Fri Jun 26 18:08:30 1998 Rein Klazes <rklazes@casema.net>
* [windows/winpos.c]
Fix small buglet that mixed up maximized and minimized windows.
* [include/x11drv.h] [objects/dc.c] [graphics/x11drv/pen.c]
[graphics/x11drv/graphics.c]
Fix some bugs with lines joining styles. Draws rectangles
with thick pens now correctly.
Fri Jun 26 16:22:23 1998 James Juran <jrj120@psu.edu>
* [misc/shell.c]
Fixed bug I introduced last release in InternalExtractIcon.
* [win32/file.c]
Added documentation for CreateFile32A.
* [documentation/wine.man]
Updated manpage.
* [ChangeLog]
Added my entry from last release.
Fri Jun 26 13:33:30 1998 Huw D M Davies <daviesh@abacus.physics.ox.ac.uk>
* [graphics/psdrv/*] [if1632/wineps.spec] [include/psdrv.h]
[include/print.h] [objects/gdiobj.c]
First stages of an internal Postscript driver. See
graphics/psdrv/README . Should print text (badly) from win3.1 notepad,
write and winword6.
* [documentation/printing]
Some notes on printing.
* [controls/edit.c]
Strip off WS_BORDER in WM_NCREATE, edit draws its own rectangle.
EC_USEFONTINFO seems to be used as a left/right value for EM_SETMARGINS
and not as an action as the docs say. This actually makes more sense.
Scroll the caret back to zero after a WM_SETTEXT.
Fri Jun 26 10:56:25 1998 Marcus Meissner <marcus@jet.franken.de>
* [if1632/snoop.c]
Added win16 inter-dll snooping.
* [win32/ordinals.c]
KERNEL_485 is GetProcessDword.
* [include/xmalloc.h][include/bitmap.h][misc/xmalloc.c]
Added xcalloc so we 0 initialize XImages.
Fixes/Hides the 'junk around MOPYFish'.
* [misc/ntdll.c]
Some stubs added.
Thu Jun 25 15:22:43 1998 Adrian Harvey <adrian@select.com.au>
* [scheduler/thread.c]
Implemented SuspendThread and ResumeThread.
Thu Jun 25 00:55:03 1998 Peter Hunnisett <hunnise@nortel.ca>
* [include/debug.h,dplay.h,dsound.h][multimedia/dsound.c,dplay.c]
[relay32/dplayx.spec,dplay.spec][multimedia/Makefile.in]
[documentation/status/directplay]
Added preliminary support for DirectPlay & DirectPlayLobby. Moved the
preliminary stubs put in the dsound files into two new files
dplay.h and dplay.c.
Added new debug channel (dplay) for this.
Created new document to keep track of implementation.
* [include/winioctl.h][win32/device.c]
Added some framework in DeviceIoControl to, in the future, support
the "builtin" windows dwIoControlCodes. Added new header file
winioctl.h .
* [multimedia/mmsystem.c]
Added slightly improved debugging information for PlaySound.
Wed Jun 24 12:00:00 1998 Juergen Schmied <juergen.schmied@metronet.de>
* [files/profile.c][graphics/x11drv/xfont.c][loader/module.c]
Changed lstrcmpi32A to strcasecmp, lstrncmpi32A to strncasecmp,
lstrcpy32A to strcpy, lstrlen32A to strlen, lstrcmp32A to strcmp
because it's not necessary to support locale on such places.
It causes a huge overhead and even fails sometimes
* [include/oleauto.h][include/winerror.h]
Added some ole-related constants.
* [misc/shell.c]
SHELL32_DllGetClassObject, SHGetSpecialFolderLocation,
SHGetPathFromIDList improved the stubs
* [ole/folders.c]
IShellFolder* functions rewrote the stubs so don't crash and give
something sensible back, started implementation of.
* [ole/typelib.c][relay32/oleaut32.spec]
LoadTypeLib32, RegisterTypeLib stub.
* [ole/ole2nls.c]
Fixed a buffer overrun in CompareString32A.
Test for a bad pointer in LCMapString32A (happens
in winhlp32 while building a index for searching).
* [relay32/oleaut32.spec] [ole/typelib.c]
Added stub for LoadTypeLib (ole32) to make excel95 happy.
Tue Jun 23 22:47:09 1998 Alex Priem <alexp@sci.kun.nl>
* [files/profile.c] [relay32/kernel32.spec]
Added WritePrivateProfileStructA, GetPrivateProfileStructA,
GetPrivateProfileSectionNames16.
Tue Jun 23 01:34:43 1998 Pascal Cuoq <pcuoq@ens-lyon.fr>
* [ole/ole2nls.c]
GetStringTypeEx32A: Implemented CT_CTYPE2 and CT_CTYPE3 cases.
LCMapString32A: Map final '\0' for '\0'-terminated strings.
* [misc/shellord.c] [files/profile.c] [graphics/driver.c]
[loader/module.c] [msdos/int21.c] [windows/driver.c] [files/drive.c]
Changed lstrcmpi32A -> strcasecmp. Should be OK in these places.
Sat Jun 20 23:40:00 1998 Bertho Stultiens <bertho@akhphd.au.dk>
* [tools/wrc/]
Wrc version 1.0.2 (20-Jun-1998). Please revert to
the file tools/wrc/CHANGES for details.
Sat Jun 20 14:58:00 1998 Marcel Baur <mbaur@g26.ethz.ch>
* [ole/ole2nls.c] [ole/nls/*]
Added the first 57 nls files, most are not yet complete.
Wed Jun 17 11:16:54 1998 David Luyer <luyer@ucs.uwa.edu.au>
* [relay32/relay386.c] [if1632/relay.c]
Move debug_relay_(include|exclude)_list handling into
seperate function RELAY_ShowDebugmsgsRelay(). Include
checking of this for 16 bit calls (originally only
32-bit calls).
* [relay32/snoop.c] [misc/main.c]
Add debug_snoop_(include|exclude)_list as per the relay stuff.
Fix typo and add information on -debugmsg +/-relay=... in
help on -debugmsg. Refer to availability of snoop too.
Tue Jun 10 22:00:18 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de>
* [controls/header.c][include/header.h][include/commctrl.h]
Added owner draw support.
* [windows/nonclient.c][windows/sysmetics.c]
Fixed menu bar height for Win95 look.
Split NC_AdjustRect95() into NC_AdjustRectOuter95() and
NC_AdjustRectInner95 to fix a menu bar bug.
Improved Win95 look.
* [controls/progress.c]
Improved drawing code. Borders will be drawn by non-client code.
* [controls/updown.c]
Changed memory allocation and fixed some bugs.
* [controls/toolbar.c]
Fixed TB_BUTTONSTRUCTSIZE bug in MFC programs.
Several improvements.
* [misc/shell.c]
Added stub for BrowseForFoldersA().
* [misc/shellord.c]
Added stub for SHELL32_147().
* [controls/comctl32undoc.c]
Minor changes.
* [documentation/common_controls]
New File: Documentation about development status, undocumented
features and functions of the common controls.
1998-06-28 20:40:26 +02:00
|
|
|
}
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
/******************************************************************************
|
|
|
|
* UnRegisterTypeLib [OLEAUT32.186]
|
|
|
|
* Removes information about a type library from the System Registry
|
|
|
|
* NOTES
|
|
|
|
*
|
|
|
|
* RETURNS
|
|
|
|
* Success: S_OK
|
|
|
|
* Failure: Status
|
|
|
|
*/
|
|
|
|
HRESULT WINAPI UnRegisterTypeLib(
|
|
|
|
REFGUID libid, /* [in] Guid of the library */
|
|
|
|
WORD wVerMajor, /* [in] major version */
|
|
|
|
WORD wVerMinor, /* [in] minor version */
|
|
|
|
LCID lcid, /* [in] locale id */
|
|
|
|
SYSKIND syskind)
|
|
|
|
{
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(IID: %s): stub\n",debugstr_guid(libid));
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK; /* FIXME: pretend everything is OK */
|
|
|
|
}
|
|
|
|
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
/****************************************************************************
|
1999-12-06 00:52:56 +01:00
|
|
|
* OaBuildVersion (TYPELIB.15)
|
|
|
|
*
|
|
|
|
* known TYPELIB.DLL versions:
|
|
|
|
*
|
|
|
|
* OLE 2.01 no OaBuildVersion() avail 1993 -- ---
|
|
|
|
* OLE 2.02 1993-94 02 3002
|
|
|
|
* OLE 2.03 23 730
|
|
|
|
* OLE 2.03 03 3025
|
|
|
|
* OLE 2.03 W98 SE orig. file !! 1993-95 10 3024
|
|
|
|
* OLE 2.1 NT 1993-95 ?? ???
|
|
|
|
* OLE 2.3.1 W95 23 700
|
2000-11-27 02:39:05 +01:00
|
|
|
* OLE2 4.0 NT4SP6 1993-98 40 4277
|
Release 980503
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu>
* [scheduler/process.c]
Implemented GetExitCodeProcess. The code is a direct translation
of GetExitCodeThread.
Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de>
* [loader/pe_image.c]
Unload dummy module when PE_LoadLibraryEx32A fails with
PE_LoadImage (makes Encarta 98 installer proceed).
* [files/drive.c]
Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM.
Make GetCurrentDirectory32 behave like the code does and not
like the help describes.
* [files/profile.c]
Revoke recent change in PROFILE_GetSection and try better
handling of special case.
* [include/windows.h]
Change definition of ACCEL32.
* [misc/commdlg.c]
Replace the GetXXXFilename32 macros by normal code.
Fix two reported bugs in my changes to commdlg.
* [windows/win.c]
Add a hook to catch bogus WM_SIZE messages by emitting a warning
in the appropriate case.
* [objects/bitmap.c]
Reject unreasonbable large size arguments in
CreateCompatibleBitmap32 and add an fixme for that situation.
Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch>
* [include/ldt.h] [debugger/*.c] [miscemu/instr.c]
Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros.
Make instruction emulation support system selectors.
* [loader/*.c]
Started moving NE specific functions to the new loader/ne
directory.
* [memory/environ.c]
Enforce the 127 chars limit only when creating the environment of
a Win16 process.
Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net>
* [files/file.c]
Fixed an incredible typo in CopyFile32A that made it unusable
since a rewrite in 970112 (!!).
* [files/directory.c]
Fixed GetTempPath32A/W to include trailing backslash.
* [misc/ver.c]
Make find_pe_resource "work" with corrupt files.
* [misc/wsprintf.c]
Altered WPRINTF_ParseFormatA/W to treat invalid format chars
as normal output, too.
* [msdos/dpmi.c]
Implemented "Allocate/Free real mode callback" (0x0303/0x0304).
Cross your fingers if you need to use it ;) (completely untested)
Implemented "Call real mode proc with far return" (0x0301, tested).
* [msdos/int21.c]
Fixed ioctlGenericBlkDevReq/0x60.
* [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in]
Added built-in DPLAYX.DLL.
* [windows/win.c]
Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner
if it has no parent (SDK).
Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk>
* [debugger/db_disasm.c]
Fixed disassemble bug for no-display option and 'lock',
'repne' and 'repe' prefixes.
* [debugger/registers.c]
Added textual flag description output on 'info regs'.
Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net>
* [*/*.c]
Added stubs and/or documentation for the following functions:
LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity,
StartService, SetComputerName, DeleteService, CloseServiceHandle,
OpenProcessToken, OpenSCManager, DeregisterEventSource,
WaitForDebugEvent, WaitForInputIdle, RegisterEventSource,
SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat,
SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers,
PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk,
DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList,
DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService,
DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey,
RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap,
CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits,
SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon,
CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib,
SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput,
GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo,
SetConsoleTextAttribute, SetConsoleScreenBufferSize,
FillConsoleOutputCharacter, FillConsoleOutputAttribute,
CreateMailslot, GetMailslotInfo, GetCompressedFileSize,
GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel,
WaitForDebugEvent, SetComputerName, CreateMDIWindow.
Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com>
* [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec]
Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes.
* [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec]
32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx.
* [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c]
Some rotated text support for X11R6 displays.
* [win32/newfns.c] [ole/ole2nls.c]
Moved GetNumberFormat32A.
Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu>
* [ole/ole2nls.c] [misc/network.c]
Changed some function documentation to the new style.
* [misc/network.c] [include/windows.h] [if1632/user.spec]
[relay32/mpr.spec] [misc/mpr.c]
Added stubs for some Win32 network functions; renamed some
16-bit ones with 32-bit counterparts, as well as
WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of
them!) to misc/network.c.
* [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c]
[ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c]
[graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c]
[graphics/driver.c] [graphics/escape.c]
Changed fprintf's to proper debug-macros.
* [include/winnls.h]
Added some flags (for internal use).
* [ole/ole2nls.c]
Added the Unicode core function, and worked out a way to hide
the commonality of the core.
* [relay32/kernel32.spec]
Added support for GetDate/Time32A/W.
Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu>
* [win32/code_page.c]
Fixed problem with MultiByteToWideChar that was introduced in
last release. Made MultiByteToWideChar more compatible with Win32.
* [graphics/x11drv/graphics.c]
Fixed problem with drawing arcs.
Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [ole/ole2nls.c]
Move stuff from 0x409 case to Lang_En.
* [relay32/user32.spec] [windows/winpos.c]
Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office
Paperclip happy.
Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu>
* [loader/pe_image.c]
If image is relocated, TLS addresses need to be adjusted.
* [debugger/*.c]
Generalized tests for 32-bit segments.
Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu>
* [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c]
[include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c]
[objects/*.c]
Almost all fprintf statements converted to appropriate
debug messages.
* [README]
Updated "GETTING MORE INFORMATION" section to include WineHQ.
* [documentation/debugger]
Fixed typo.
* [windows/defwnd.c]
Added function documentation.
Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de>
* [Make.rules.in]
Added lint target (using lclint).
* [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c]
[ole/ole2disp.c]
Added oleaut32 spec, added some SysString functions.
* [if1632/signal.c]
Added printing of faultaddress in Linux (using CR2 debug register).
* [configure.in]
Added <sys/types.h> for statfs checks.
* [loader/*.c][debugger/break.c][debugger/hash.c]
Started to split win32/win16 module handling, preparing support
for other binary formats (like ELF).
Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net>
* [misc/registry.c]
Fixed a bug that made RegQueryValuexxx returning
incorrect registry values.
Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/lstr.c]
FormatMessage32*: remove linefeed when nolinefeed set;
check for target underflow.
Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru>
* [misc/crtdll.c]
Implement xlat_file_ptr for CRT stdin/stdout/stderr address
translation.
Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu>
* [controls/menu.c]
Added 'odaction' parameter to MENU_DrawMenuItem() and redirected
WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER).
Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com>
* [graphics/metafiledrv/init.c] [graphics/painting.c]
[graphics/win16drv/init.c] [graphics/x11drv/graphics.c]
[graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h]
[relay32/gdi32.spec]
Added PolyPolyline routine.
* [windows/winproc.c]
Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
1998-05-03 21:01:20 +02:00
|
|
|
*/
|
1999-12-06 00:52:56 +01:00
|
|
|
DWORD WINAPI OaBuildVersion16(void)
|
1998-03-29 21:44:57 +02:00
|
|
|
{
|
2000-11-27 02:39:05 +01:00
|
|
|
/* FIXME: I'd like to return the highest currently known version value
|
|
|
|
* in case the user didn't force a --winver, but I don't know how
|
|
|
|
* to retrieve the "versionForced" info from misc/version.c :(
|
|
|
|
* (this would be useful in other places, too) */
|
1999-12-06 00:52:56 +01:00
|
|
|
FIXME("Please report to a.mohr@mailto.de if you get version error messages !\n");
|
2000-08-14 16:35:01 +02:00
|
|
|
switch(GetVersion() & 0x8000ffff) /* mask off build number */
|
1999-12-06 00:52:56 +01:00
|
|
|
{
|
2000-08-14 16:35:01 +02:00
|
|
|
case 0x80000a03: /* WIN31 */
|
1999-12-06 00:52:56 +01:00
|
|
|
return MAKELONG(3027, 3); /* WfW 3.11 */
|
2000-08-14 16:35:01 +02:00
|
|
|
case 0x80000004: /* WIN95 */
|
1999-12-06 00:52:56 +01:00
|
|
|
return MAKELONG(700, 23); /* Win95A */
|
2000-08-14 16:35:01 +02:00
|
|
|
case 0x80000a04: /* WIN98 */
|
1999-12-06 00:52:56 +01:00
|
|
|
return MAKELONG(3024, 10); /* W98 SE */
|
2000-11-27 02:39:05 +01:00
|
|
|
case 0x00000004: /* NT4 */
|
|
|
|
return MAKELONG(4277, 40); /* NT4 SP6 */
|
2000-08-14 16:35:01 +02:00
|
|
|
default:
|
2001-05-09 19:31:31 +02:00
|
|
|
FIXME("Version value not known yet. Please investigate it!\n");
|
1999-12-06 00:52:56 +01:00
|
|
|
return 0;
|
1998-11-22 17:36:07 +01:00
|
|
|
}
|
1998-03-29 21:44:57 +02:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
/* for better debugging info leave the static out for the time being */
|
|
|
|
#define static
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/*======================= ITypeLib implementation =======================*/
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
typedef struct tagTLBCustData
|
|
|
|
{
|
|
|
|
GUID guid;
|
|
|
|
VARIANT data;
|
|
|
|
struct tagTLBCustData* next;
|
|
|
|
} TLBCustData;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* data structure for import typelibs */
|
|
|
|
typedef struct tagTLBImpLib
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
int offset; /* offset in the file (MSFT)
|
|
|
|
offset in nametable (SLTG)
|
|
|
|
just used to identify library while reading
|
|
|
|
data from file */
|
2000-06-24 15:50:52 +02:00
|
|
|
GUID guid; /* libid */
|
2001-09-07 17:27:16 +02:00
|
|
|
BSTR name; /* name */
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
LCID lcid; /* lcid of imported typelib */
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
WORD wVersionMajor; /* major version number */
|
2000-11-26 00:51:30 +01:00
|
|
|
WORD wVersionMinor; /* minor version number */
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
struct tagITypeLibImpl *pImpTypeLib; /* pointer to loaded typelib, or
|
|
|
|
NULL if not yet loaded */
|
2000-06-24 15:50:52 +02:00
|
|
|
struct tagTLBImpLib * next;
|
|
|
|
} TLBImpLib;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* internal ITypeLib data */
|
|
|
|
typedef struct tagITypeLibImpl
|
|
|
|
{
|
|
|
|
ICOM_VFIELD(ITypeLib2);
|
|
|
|
UINT ref;
|
|
|
|
TLIBATTR LibAttr; /* guid,lcid,syskind,version,flags */
|
2000-10-25 23:24:53 +02:00
|
|
|
|
|
|
|
/* strings can be stored in tlb as multibyte strings BUT they are *always*
|
2001-09-07 17:27:16 +02:00
|
|
|
* exported to the application as a UNICODE string.
|
|
|
|
*/
|
|
|
|
BSTR Name;
|
2000-10-25 23:24:53 +02:00
|
|
|
BSTR DocString;
|
|
|
|
BSTR HelpFile;
|
|
|
|
BSTR HelpStringDll;
|
2000-06-24 15:50:52 +02:00
|
|
|
unsigned long dwHelpContext;
|
|
|
|
int TypeInfoCount; /* nr of typeinfo's in librarry */
|
|
|
|
struct tagITypeInfoImpl *pTypeInfo; /* linked list of type info data */
|
|
|
|
int ctCustData; /* number of items in cust data list */
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBCustData * pCustData; /* linked list to cust data */
|
2000-06-24 15:50:52 +02:00
|
|
|
TLBImpLib * pImpLibs; /* linked list to all imported typelibs */
|
2001-09-07 17:27:16 +02:00
|
|
|
TYPEDESC * pTypeDesc; /* array of TypeDescriptions found in the
|
|
|
|
libary. Only used while read MSFT
|
|
|
|
typelibs */
|
2000-06-24 15:50:52 +02:00
|
|
|
} ITypeLibImpl;
|
|
|
|
|
|
|
|
static struct ICOM_VTABLE(ITypeLib2) tlbvt;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* ITypeLib methods */
|
2001-09-07 17:27:16 +02:00
|
|
|
static ITypeLib2* ITypeLib2_Constructor_MSFT(LPVOID pLib, DWORD dwTLBLength);
|
|
|
|
static ITypeLib2* ITypeLib2_Constructor_SLTG(LPVOID pLib, DWORD dwTLBLength);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
/*======================= ITypeInfo implementation =======================*/
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
/* data for refernced types */
|
2000-11-26 00:51:30 +01:00
|
|
|
typedef struct tagTLBRefType
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
INT index; /* Type index for internal ref or for external ref
|
|
|
|
it the format is SLTG. -2 indicates to
|
|
|
|
use guid */
|
|
|
|
|
2000-11-26 00:51:30 +01:00
|
|
|
GUID guid; /* guid of the referenced type */
|
2001-09-07 17:27:16 +02:00
|
|
|
/* if index == TLB_REF_USE_GUID */
|
|
|
|
|
|
|
|
HREFTYPE reference; /* The href of this ref */
|
|
|
|
TLBImpLib *pImpTLInfo; /* If ref is external ptr to library data
|
|
|
|
TLB_REF_INTERNAL for internal refs
|
|
|
|
TLB_REF_NOT_FOUND for broken refs */
|
|
|
|
|
2000-11-26 00:51:30 +01:00
|
|
|
struct tagTLBRefType * next;
|
|
|
|
} TLBRefType;
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
#define TLB_REF_USE_GUID -2
|
|
|
|
|
|
|
|
#define TLB_REF_INTERNAL (void*)-2
|
|
|
|
#define TLB_REF_NOT_FOUND (void*)-1
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* internal Parameter data */
|
|
|
|
typedef struct tagTLBParDesc
|
|
|
|
{
|
2000-10-25 23:24:53 +02:00
|
|
|
BSTR Name;
|
2000-06-24 15:50:52 +02:00
|
|
|
int ctCustData;
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBCustData * pCustData; /* linked list to cust data */
|
2000-06-24 15:50:52 +02:00
|
|
|
} TLBParDesc;
|
|
|
|
|
|
|
|
/* internal Function data */
|
|
|
|
typedef struct tagTLBFuncDesc
|
|
|
|
{
|
|
|
|
FUNCDESC funcdesc; /* lots of info on the function and its attributes. */
|
2000-10-25 23:24:53 +02:00
|
|
|
BSTR Name; /* the name of this function */
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBParDesc *pParamDesc; /* array with param names and custom data */
|
2000-06-24 15:50:52 +02:00
|
|
|
int helpcontext;
|
|
|
|
int HelpStringContext;
|
2000-10-25 23:24:53 +02:00
|
|
|
BSTR HelpString;
|
|
|
|
BSTR Entry; /* if its Hiword==0, it numeric; -1 is not present*/
|
2000-06-24 15:50:52 +02:00
|
|
|
int ctCustData;
|
|
|
|
TLBCustData * pCustData; /* linked list to cust data; */
|
|
|
|
struct tagTLBFuncDesc * next;
|
|
|
|
} TLBFuncDesc;
|
|
|
|
|
|
|
|
/* internal Variable data */
|
|
|
|
typedef struct tagTLBVarDesc
|
|
|
|
{
|
|
|
|
VARDESC vardesc; /* lots of info on the variable and its attributes. */
|
2000-10-25 23:24:53 +02:00
|
|
|
BSTR Name; /* the name of this variable */
|
2000-06-24 15:50:52 +02:00
|
|
|
int HelpContext;
|
2002-01-29 04:12:19 +01:00
|
|
|
int HelpStringContext; /* FIXME: where? */
|
2000-10-25 23:24:53 +02:00
|
|
|
BSTR HelpString;
|
2000-06-24 15:50:52 +02:00
|
|
|
int ctCustData;
|
|
|
|
TLBCustData * pCustData;/* linked list to cust data; */
|
|
|
|
struct tagTLBVarDesc * next;
|
|
|
|
} TLBVarDesc;
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
/* internal implemented interface data */
|
|
|
|
typedef struct tagTLBImplType
|
|
|
|
{
|
|
|
|
HREFTYPE hRef; /* hRef of interface */
|
|
|
|
int implflags; /* IMPLFLAG_*s */
|
|
|
|
int ctCustData;
|
|
|
|
TLBCustData * pCustData;/* linked list to custom data; */
|
|
|
|
struct tagTLBImplType *next;
|
|
|
|
} TLBImplType;
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* internal TypeInfo data */
|
|
|
|
typedef struct tagITypeInfoImpl
|
|
|
|
{
|
|
|
|
ICOM_VFIELD(ITypeInfo2);
|
|
|
|
UINT ref;
|
|
|
|
TYPEATTR TypeAttr ; /* _lots_ of type information. */
|
|
|
|
ITypeLibImpl * pTypeLib; /* back pointer to typelib */
|
|
|
|
int index; /* index in this typelib; */
|
|
|
|
/* type libs seem to store the doc strings in ascii
|
|
|
|
* so why should we do it in unicode?
|
|
|
|
*/
|
2000-10-25 23:24:53 +02:00
|
|
|
BSTR Name;
|
|
|
|
BSTR DocString;
|
2000-06-24 15:50:52 +02:00
|
|
|
unsigned long dwHelpContext;
|
|
|
|
unsigned long dwHelpStringContext;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* functions */
|
|
|
|
TLBFuncDesc * funclist; /* linked list with function descriptions */
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* variables */
|
|
|
|
TLBVarDesc * varlist; /* linked list with variable descriptions */
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/* Implemented Interfaces */
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBImplType * impltypelist;
|
|
|
|
|
|
|
|
TLBRefType * reflist;
|
2000-06-24 15:50:52 +02:00
|
|
|
int ctCustData;
|
|
|
|
TLBCustData * pCustData; /* linked list to cust data; */
|
|
|
|
struct tagITypeInfoImpl * next;
|
|
|
|
} ITypeInfoImpl;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static struct ICOM_VTABLE(ITypeInfo2) tinfvt;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static ITypeInfo2 * WINAPI ITypeInfo_Constructor();
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
typedef struct tagTLBContext
|
|
|
|
{
|
|
|
|
unsigned int oStart; /* start of TLB in file */
|
|
|
|
unsigned int pos; /* current pos */
|
|
|
|
unsigned int length; /* total length */
|
|
|
|
void *mapping; /* memory mapping */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_SegDir * pTblDir;
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeLibImpl* pLibInfo;
|
|
|
|
} TLBContext;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
static void MSFT_DoRefType(TLBContext *pcx, ITypeInfoImpl *pTI, int offset);
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
/*
|
|
|
|
debug
|
|
|
|
*/
|
2001-08-06 19:46:18 +02:00
|
|
|
static void dump_VarType(VARTYPE vt,char *szVarType) {
|
|
|
|
/* FIXME : we could have better trace here, depending on the VARTYPE
|
|
|
|
* of the variant
|
|
|
|
*/
|
2001-10-14 18:07:49 +02:00
|
|
|
if (vt & VT_RESERVED)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "reserved | "));
|
|
|
|
if (vt & VT_BYREF)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "ref to "));
|
|
|
|
if (vt & VT_ARRAY)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "array of "));
|
|
|
|
if (vt & VT_VECTOR)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "vector of "));
|
|
|
|
switch(vt & VT_TYPEMASK) {
|
2001-08-06 19:46:18 +02:00
|
|
|
case VT_UI1: sprintf(szVarType, "VT_UI"); break;
|
|
|
|
case VT_I2: sprintf(szVarType, "VT_I2"); break;
|
|
|
|
case VT_I4: sprintf(szVarType, "VT_I4"); break;
|
|
|
|
case VT_R4: sprintf(szVarType, "VT_R4"); break;
|
|
|
|
case VT_R8: sprintf(szVarType, "VT_R8"); break;
|
|
|
|
case VT_BOOL: sprintf(szVarType, "VT_BOOL"); break;
|
|
|
|
case VT_ERROR: sprintf(szVarType, "VT_ERROR"); break;
|
|
|
|
case VT_CY: sprintf(szVarType, "VT_CY"); break;
|
|
|
|
case VT_DATE: sprintf(szVarType, "VT_DATE"); break;
|
|
|
|
case VT_BSTR: sprintf(szVarType, "VT_BSTR"); break;
|
2001-10-14 18:07:49 +02:00
|
|
|
case VT_UNKNOWN: sprintf(szVarType, "VT_UNKNOWN"); break;
|
2001-08-06 19:46:18 +02:00
|
|
|
case VT_DISPATCH: sprintf(szVarType, "VT_DISPATCH"); break;
|
2001-09-07 17:27:16 +02:00
|
|
|
case VT_I1: sprintf(szVarType, "VT_I1"); break;
|
2001-08-06 19:46:18 +02:00
|
|
|
case VT_UI2: sprintf(szVarType, "VT_UI2"); break;
|
|
|
|
case VT_UI4: sprintf(szVarType, "VT_UI4"); break;
|
|
|
|
case VT_INT: sprintf(szVarType, "VT_INT"); break;
|
|
|
|
case VT_UINT: sprintf(szVarType, "VT_UINT"); break;
|
2001-10-14 18:07:49 +02:00
|
|
|
case VT_VARIANT: sprintf(szVarType, "VT_VARIANT"); break;
|
|
|
|
case VT_VOID: sprintf(szVarType, "VT_VOID"); break;
|
2001-09-07 17:27:16 +02:00
|
|
|
case VT_USERDEFINED: sprintf(szVarType, "VT_USERDEFINED\n"); break;
|
2001-10-14 18:07:49 +02:00
|
|
|
default: sprintf(szVarType, "unknown(%d)", vt & VT_TYPEMASK); break;
|
2001-08-06 19:46:18 +02:00
|
|
|
}
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
static void dump_TypeDesc(TYPEDESC *pTD,char *szVarType) {
|
2001-10-14 18:07:49 +02:00
|
|
|
if (pTD->vt & VT_RESERVED)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "reserved | "));
|
|
|
|
if (pTD->vt & VT_BYREF)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "ref to "));
|
|
|
|
if (pTD->vt & VT_ARRAY)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "array of "));
|
|
|
|
if (pTD->vt & VT_VECTOR)
|
|
|
|
szVarType += strlen(strcpy(szVarType, "vector of "));
|
|
|
|
switch(pTD->vt & VT_TYPEMASK) {
|
2001-09-07 17:27:16 +02:00
|
|
|
case VT_UI1: sprintf(szVarType, "VT_UI1"); break;
|
|
|
|
case VT_I2: sprintf(szVarType, "VT_I2"); break;
|
|
|
|
case VT_I4: sprintf(szVarType, "VT_I4"); break;
|
|
|
|
case VT_R4: sprintf(szVarType, "VT_R4"); break;
|
|
|
|
case VT_R8: sprintf(szVarType, "VT_R8"); break;
|
|
|
|
case VT_BOOL: sprintf(szVarType, "VT_BOOL"); break;
|
|
|
|
case VT_ERROR: sprintf(szVarType, "VT_ERROR"); break;
|
|
|
|
case VT_CY: sprintf(szVarType, "VT_CY"); break;
|
|
|
|
case VT_DATE: sprintf(szVarType, "VT_DATE"); break;
|
|
|
|
case VT_BSTR: sprintf(szVarType, "VT_BSTR"); break;
|
2001-10-14 18:07:49 +02:00
|
|
|
case VT_UNKNOWN: sprintf(szVarType, "VT_UNKNOWN"); break;
|
2001-09-07 17:27:16 +02:00
|
|
|
case VT_DISPATCH: sprintf(szVarType, "VT_DISPATCH"); break;
|
|
|
|
case VT_I1: sprintf(szVarType, "VT_I1"); break;
|
|
|
|
case VT_UI2: sprintf(szVarType, "VT_UI2"); break;
|
|
|
|
case VT_UI4: sprintf(szVarType, "VT_UI4"); break;
|
|
|
|
case VT_INT: sprintf(szVarType, "VT_INT"); break;
|
|
|
|
case VT_UINT: sprintf(szVarType, "VT_UINT"); break;
|
|
|
|
case VT_VARIANT: sprintf(szVarType, "VT_VARIANT"); break;
|
|
|
|
case VT_VOID: sprintf(szVarType, "VT_VOID"); break;
|
|
|
|
case VT_USERDEFINED: sprintf(szVarType, "VT_USERDEFINED ref = %lx",
|
|
|
|
pTD->u.hreftype); break;
|
|
|
|
case VT_PTR: sprintf(szVarType, "ptr to ");
|
|
|
|
dump_TypeDesc(pTD->u.lptdesc, szVarType + 7);
|
|
|
|
break;
|
|
|
|
case VT_SAFEARRAY: sprintf(szVarType, "safearray of ");
|
|
|
|
dump_TypeDesc(pTD->u.lptdesc, szVarType + 13);
|
|
|
|
break;
|
|
|
|
case VT_CARRAY: sprintf(szVarType, "%d dim array of ",
|
|
|
|
pTD->u.lpadesc->cDims); /* FIXME print out sizes */
|
|
|
|
dump_TypeDesc(&pTD->u.lpadesc->tdescElem, szVarType + strlen(szVarType));
|
|
|
|
break;
|
|
|
|
|
2001-10-14 18:07:49 +02:00
|
|
|
default: sprintf(szVarType, "unknown(%d)", pTD->vt & VT_TYPEMASK); break;
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2001-08-06 19:46:18 +02:00
|
|
|
static void dump_ELEMDESC(ELEMDESC *edesc) {
|
|
|
|
char buf[200];
|
2001-09-07 17:27:16 +02:00
|
|
|
dump_TypeDesc(&edesc->tdesc,buf);
|
2001-08-06 19:46:18 +02:00
|
|
|
MESSAGE("\t\ttdesc.vartype %d (%s)\n",edesc->tdesc.vt,buf);
|
|
|
|
MESSAGE("\t\tu.parmadesc.flags %x\n",edesc->u.paramdesc.wParamFlags);
|
|
|
|
MESSAGE("\t\tu.parmadesc.lpex %p\n",edesc->u.paramdesc.pparamdescex);
|
|
|
|
}
|
|
|
|
static void dump_FUNCDESC(FUNCDESC *funcdesc) {
|
|
|
|
int i;
|
2001-09-07 17:27:16 +02:00
|
|
|
MESSAGE("memid is %08lx\n",funcdesc->memid);
|
|
|
|
for (i=0;i<funcdesc->cParams;i++) {
|
|
|
|
MESSAGE("Param %d:\n",i);
|
|
|
|
dump_ELEMDESC(funcdesc->lprgelemdescParam+i);
|
|
|
|
}
|
2001-08-06 19:46:18 +02:00
|
|
|
MESSAGE("\tfunckind: %d (",funcdesc->funckind);
|
|
|
|
switch (funcdesc->funckind) {
|
|
|
|
case FUNC_VIRTUAL: MESSAGE("virtual");break;
|
|
|
|
case FUNC_PUREVIRTUAL: MESSAGE("pure virtual");break;
|
|
|
|
case FUNC_NONVIRTUAL: MESSAGE("nonvirtual");break;
|
|
|
|
case FUNC_STATIC: MESSAGE("static");break;
|
|
|
|
case FUNC_DISPATCH: MESSAGE("dispatch");break;
|
|
|
|
default: MESSAGE("unknown");break;
|
|
|
|
}
|
|
|
|
MESSAGE(")\n\tinvkind: %d (",funcdesc->invkind);
|
|
|
|
switch (funcdesc->invkind) {
|
|
|
|
case INVOKE_FUNC: MESSAGE("func");break;
|
|
|
|
case INVOKE_PROPERTYGET: MESSAGE("property get");break;
|
|
|
|
case INVOKE_PROPERTYPUT: MESSAGE("property put");break;
|
|
|
|
case INVOKE_PROPERTYPUTREF: MESSAGE("property put ref");break;
|
|
|
|
}
|
|
|
|
MESSAGE(")\n\tcallconv: %d (",funcdesc->callconv);
|
|
|
|
switch (funcdesc->callconv) {
|
|
|
|
case CC_CDECL: MESSAGE("cdecl");break;
|
|
|
|
case CC_PASCAL: MESSAGE("pascal");break;
|
|
|
|
case CC_STDCALL: MESSAGE("stdcall");break;
|
|
|
|
case CC_SYSCALL: MESSAGE("syscall");break;
|
|
|
|
default:break;
|
|
|
|
}
|
|
|
|
MESSAGE(")\n\toVft: %d\n", funcdesc->oVft);
|
|
|
|
MESSAGE("\tcParamsOpt: %d\n", funcdesc->cParamsOpt);
|
|
|
|
MESSAGE("\twFlags: %x\n", funcdesc->wFuncFlags);
|
|
|
|
}
|
|
|
|
static void dump_TLBFuncDescOne(TLBFuncDesc * pfd)
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
if (!TRACE_ON(typelib))
|
|
|
|
return;
|
|
|
|
MESSAGE("%s(%u)\n", debugstr_w(pfd->Name), pfd->funcdesc.cParams);
|
|
|
|
for (i=0;i<pfd->funcdesc.cParams;i++)
|
|
|
|
MESSAGE("\tparm%d: %s\n",i,debugstr_w(pfd->pParamDesc[i].Name));
|
|
|
|
|
|
|
|
|
|
|
|
dump_FUNCDESC(&(pfd->funcdesc));
|
|
|
|
|
|
|
|
MESSAGE("\thelpstring: %s\n", debugstr_w(pfd->HelpString));
|
|
|
|
MESSAGE("\tentry: %s\n", debugstr_w(pfd->Entry));
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
static void dump_TLBFuncDesc(TLBFuncDesc * pfd)
|
|
|
|
{
|
|
|
|
while (pfd)
|
|
|
|
{
|
2001-08-06 19:46:18 +02:00
|
|
|
dump_TLBFuncDescOne(pfd);
|
2000-06-24 15:50:52 +02:00
|
|
|
pfd = pfd->next;
|
|
|
|
};
|
|
|
|
}
|
|
|
|
static void dump_TLBVarDesc(TLBVarDesc * pvd)
|
|
|
|
{
|
|
|
|
while (pvd)
|
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("%s\n", debugstr_w(pvd->Name));
|
2000-06-24 15:50:52 +02:00
|
|
|
pvd = pvd->next;
|
|
|
|
};
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
static void dump_TLBImpLib(TLBImpLib *import)
|
|
|
|
{
|
|
|
|
TRACE_(typelib)("%s %s\n", debugstr_guid(&(import->guid)),
|
|
|
|
debugstr_w(import->name));
|
|
|
|
TRACE_(typelib)("v%d.%d lcid=%lx offset=%x\n", import->wVersionMajor,
|
|
|
|
import->wVersionMinor, import->lcid, import->offset);
|
|
|
|
}
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static void dump_TLBRefType(TLBRefType * prt)
|
|
|
|
{
|
|
|
|
while (prt)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
TRACE_(typelib)("href:0x%08lx\n", prt->reference);
|
|
|
|
if(prt->index == -1)
|
|
|
|
TRACE_(typelib)("%s\n", debugstr_guid(&(prt->guid)));
|
|
|
|
else
|
|
|
|
TRACE_(typelib)("type no: %d\n", prt->index);
|
|
|
|
|
|
|
|
if(prt->pImpTLInfo != TLB_REF_INTERNAL &&
|
|
|
|
prt->pImpTLInfo != TLB_REF_NOT_FOUND) {
|
|
|
|
TRACE_(typelib)("in lib\n");
|
|
|
|
dump_TLBImpLib(prt->pImpTLInfo);
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
prt = prt->next;
|
|
|
|
};
|
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
static void dump_TLBImplType(TLBImplType * impl)
|
|
|
|
{
|
|
|
|
while (impl) {
|
|
|
|
TRACE_(typelib)(
|
|
|
|
"implementing/inheriting interface hRef = %lx implflags %x\n",
|
|
|
|
impl->hRef, impl->implflags);
|
|
|
|
impl = impl->next;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static void dump_Variant(VARIANT * pvar)
|
|
|
|
{
|
2001-10-14 18:07:49 +02:00
|
|
|
char szVarType[32];
|
|
|
|
LPVOID ref;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
TRACE("(%p)\n", pvar);
|
|
|
|
|
|
|
|
if (!pvar) return;
|
|
|
|
|
|
|
|
ZeroMemory(szVarType, sizeof(szVarType));
|
|
|
|
|
|
|
|
/* FIXME : we could have better trace here, depending on the VARTYPE
|
|
|
|
* of the variant
|
|
|
|
*/
|
2001-08-06 19:46:18 +02:00
|
|
|
dump_VarType(V_VT(pvar),szVarType);
|
|
|
|
|
2001-05-09 19:31:31 +02:00
|
|
|
TRACE("VARTYPE: %s\n", szVarType);
|
2001-10-14 18:07:49 +02:00
|
|
|
|
|
|
|
if (V_VT(pvar) & VT_BYREF) {
|
|
|
|
ref = V_UNION(pvar, byref);
|
|
|
|
TRACE("%p\n", ref);
|
|
|
|
}
|
|
|
|
else ref = &V_UNION(pvar, cVal);
|
|
|
|
|
|
|
|
if (V_VT(pvar) & VT_ARRAY) {
|
|
|
|
/* FIXME */
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
if (V_VT(pvar) & VT_VECTOR) {
|
|
|
|
/* FIXME */
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
switch (V_VT(pvar))
|
|
|
|
{
|
2001-10-14 18:07:49 +02:00
|
|
|
case VT_I2:
|
|
|
|
TRACE("%d\n", *(short*)ref);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_I4:
|
|
|
|
TRACE("%d\n", *(INT*)ref);
|
|
|
|
break;
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
case VT_R4:
|
2001-10-14 18:07:49 +02:00
|
|
|
TRACE("%3.3e\n", *(float*)ref);
|
2000-12-21 21:20:12 +01:00
|
|
|
break;
|
2001-10-14 18:07:49 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
case VT_R8:
|
2001-10-14 18:07:49 +02:00
|
|
|
TRACE("%3.3e\n", *(double*)ref);
|
2000-12-21 21:20:12 +01:00
|
|
|
break;
|
2001-10-14 18:07:49 +02:00
|
|
|
|
|
|
|
case VT_BOOL:
|
|
|
|
TRACE("%s\n", *(VARIANT_BOOL*)ref ? "TRUE" : "FALSE");
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_BSTR:
|
|
|
|
TRACE("%s\n", debugstr_w(*(BSTR*)ref));
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_UNKNOWN:
|
|
|
|
case VT_DISPATCH:
|
|
|
|
TRACE("%p\n", *(LPVOID*)ref);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_VARIANT:
|
|
|
|
if (V_VT(pvar) & VT_BYREF) dump_Variant(ref);
|
|
|
|
break;
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
default:
|
2001-10-14 18:07:49 +02:00
|
|
|
TRACE("(?)%ld\n", *(long*)ref);
|
2000-12-21 21:20:12 +01:00
|
|
|
break;
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static void dump_DispParms(DISPPARAMS * pdp)
|
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
int index = 0;
|
|
|
|
|
|
|
|
TRACE("args=%u named args=%u\n", pdp->cArgs, pdp->cNamedArgs);
|
|
|
|
|
|
|
|
while (index < pdp->cArgs)
|
|
|
|
{
|
|
|
|
dump_Variant( &pdp->rgvarg[index] );
|
|
|
|
++index;
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static char * typekind_desc[] =
|
|
|
|
{
|
|
|
|
"TKIND_ENUM",
|
|
|
|
"TKIND_RECORD",
|
|
|
|
"TKIND_MODULE",
|
|
|
|
"TKIND_INTERFACE",
|
|
|
|
"TKIND_DISPATCH",
|
|
|
|
"TKIND_COCLASS",
|
|
|
|
"TKIND_ALIAS",
|
|
|
|
"TKIND_UNION",
|
|
|
|
"TKIND_MAX"
|
1999-06-05 14:00:13 +02:00
|
|
|
};
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static void dump_TypeInfo(ITypeInfoImpl * pty)
|
|
|
|
{
|
|
|
|
TRACE("%p ref=%u\n", pty, pty->ref);
|
|
|
|
TRACE("attr:%s\n", debugstr_guid(&(pty->TypeAttr.guid)));
|
|
|
|
TRACE("kind:%s\n", typekind_desc[pty->TypeAttr.typekind]);
|
|
|
|
TRACE("fct:%u var:%u impl:%u\n",
|
|
|
|
pty->TypeAttr.cFuncs, pty->TypeAttr.cVars, pty->TypeAttr.cImplTypes);
|
|
|
|
TRACE("parent tlb:%p index in TLB:%u\n",pty->pTypeLib, pty->index);
|
2000-10-25 23:24:53 +02:00
|
|
|
TRACE("%s %s\n", debugstr_w(pty->Name), debugstr_w(pty->DocString));
|
2000-06-24 15:50:52 +02:00
|
|
|
dump_TLBFuncDesc(pty->funclist);
|
|
|
|
dump_TLBVarDesc(pty->varlist);
|
2001-09-07 17:27:16 +02:00
|
|
|
dump_TLBImplType(pty->impltypelist);
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static TYPEDESC stndTypeDesc[VT_LPWSTR+1]=
|
|
|
|
{
|
|
|
|
/* VT_LPWSTR is largest type that */
|
|
|
|
/* may appear in type description*/
|
|
|
|
{{0}, 0},{{0}, 1},{{0}, 2},{{0}, 3},{{0}, 4},
|
|
|
|
{{0}, 5},{{0}, 6},{{0}, 7},{{0}, 8},{{0}, 9},
|
1999-06-05 14:00:13 +02:00
|
|
|
{{0},10},{{0},11},{{0},12},{{0},13},{{0},14},
|
2000-06-24 15:50:52 +02:00
|
|
|
{{0},15},{{0},16},{{0},17},{{0},18},{{0},19},
|
1999-06-05 14:00:13 +02:00
|
|
|
{{0},20},{{0},21},{{0},22},{{0},23},{{0},24},
|
2000-06-24 15:50:52 +02:00
|
|
|
{{0},25},{{0},26},{{0},27},{{0},28},{{0},29},
|
|
|
|
{{0},30},{{0},31}
|
|
|
|
};
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
static void TLB_abort()
|
|
|
|
{
|
2000-02-26 14:17:55 +01:00
|
|
|
DebugBreak();
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
static void * TLB_Alloc(unsigned size)
|
|
|
|
{
|
|
|
|
void * ret;
|
|
|
|
if((ret=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,size))==NULL){
|
|
|
|
/* FIXME */
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR("cannot allocate memory\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void TLB_Free(void * ptr)
|
|
|
|
{
|
|
|
|
HeapFree(GetProcessHeap(), 0, ptr);
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
|
|
|
|
/**********************************************************************
|
|
|
|
*
|
|
|
|
* Functions for reading MSFT typelibs (those created by CreateTypeLib2)
|
|
|
|
*/
|
1999-06-05 14:00:13 +02:00
|
|
|
/* read function */
|
2001-09-07 17:27:16 +02:00
|
|
|
DWORD MSFT_Read(void *buffer, DWORD count, TLBContext *pcx, long where )
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("pos=0x%08x len=0x%08lx 0x%08x 0x%08x 0x%08lx\n",
|
2000-06-24 15:50:52 +02:00
|
|
|
pcx->pos, count, pcx->oStart, pcx->length, where);
|
|
|
|
|
2000-02-18 20:08:40 +01:00
|
|
|
if (where != DO_NOT_SEEK)
|
|
|
|
{
|
|
|
|
where += pcx->oStart;
|
|
|
|
if (where > pcx->length)
|
|
|
|
{
|
|
|
|
/* FIXME */
|
|
|
|
ERR("seek beyond end (%ld/%d)\n", where, pcx->length );
|
|
|
|
TLB_abort();
|
|
|
|
}
|
|
|
|
pcx->pos = where;
|
|
|
|
}
|
|
|
|
if (pcx->pos + count > pcx->length) count = pcx->length - pcx->pos;
|
|
|
|
memcpy( buffer, (char *)pcx->mapping + pcx->pos, count );
|
|
|
|
pcx->pos += count;
|
|
|
|
return count;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
static void MSFT_ReadGuid( GUID *pGuid, int offset, TLBContext *pcx)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("%s\n", debugstr_guid(pGuid));
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(offset<0 || pcx->pTblDir->pGuidTab.offset <0){
|
|
|
|
memset(pGuid,0, sizeof(GUID));
|
|
|
|
return;
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(pGuid, sizeof(GUID), pcx, pcx->pTblDir->pGuidTab.offset+offset );
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
BSTR MSFT_ReadName( TLBContext *pcx, int offset)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
char * name;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_NameIntro niName;
|
2000-10-25 23:24:53 +02:00
|
|
|
int lengthInChars;
|
|
|
|
WCHAR* pwstring = NULL;
|
|
|
|
BSTR bstrName = NULL;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&niName, sizeof(niName), pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
pcx->pTblDir->pNametab.offset+offset);
|
|
|
|
niName.namelen &= 0xFF; /* FIXME: correct ? */
|
|
|
|
name=TLB_Alloc((niName.namelen & 0xff) +1);
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(name, (niName.namelen & 0xff), pcx, DO_NOT_SEEK);
|
1999-06-05 14:00:13 +02:00
|
|
|
name[niName.namelen & 0xff]='\0';
|
2000-10-25 23:24:53 +02:00
|
|
|
|
|
|
|
lengthInChars = MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED | MB_ERR_INVALID_CHARS,
|
2000-12-13 21:03:53 +01:00
|
|
|
name, -1, NULL, 0);
|
2000-10-25 23:24:53 +02:00
|
|
|
|
|
|
|
/* no invalid characters in string */
|
|
|
|
if (lengthInChars)
|
|
|
|
{
|
|
|
|
pwstring = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR)*lengthInChars);
|
|
|
|
|
|
|
|
/* don't check for invalid character since this has been done previously */
|
|
|
|
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, name, -1, pwstring, lengthInChars);
|
|
|
|
|
|
|
|
bstrName = SysAllocStringLen(pwstring, lengthInChars);
|
|
|
|
lengthInChars = SysStringLen(bstrName);
|
|
|
|
HeapFree(GetProcessHeap(), 0, pwstring);
|
|
|
|
}
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("%s %d\n", debugstr_w(bstrName), lengthInChars);
|
2000-10-25 23:24:53 +02:00
|
|
|
return bstrName;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-10-25 23:24:53 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
BSTR MSFT_ReadString( TLBContext *pcx, int offset)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
char * string;
|
|
|
|
INT16 length;
|
2000-10-25 23:24:53 +02:00
|
|
|
int lengthInChars;
|
|
|
|
BSTR bstr = NULL;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(offset<0) return NULL;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&length, sizeof(INT16), pcx, pcx->pTblDir->pStringtab.offset+offset);
|
1999-06-05 14:00:13 +02:00
|
|
|
if(length <= 0) return 0;
|
|
|
|
string=TLB_Alloc(length +1);
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(string, length, pcx, DO_NOT_SEEK);
|
1999-06-05 14:00:13 +02:00
|
|
|
string[length]='\0';
|
2000-10-25 23:24:53 +02:00
|
|
|
|
|
|
|
lengthInChars = MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED | MB_ERR_INVALID_CHARS,
|
2000-12-13 21:03:53 +01:00
|
|
|
string, -1, NULL, 0);
|
2000-10-25 23:24:53 +02:00
|
|
|
|
|
|
|
/* no invalid characters in string */
|
|
|
|
if (lengthInChars)
|
|
|
|
{
|
|
|
|
WCHAR* pwstring = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR)*lengthInChars);
|
|
|
|
|
|
|
|
/* don't check for invalid character since this has been done previously */
|
|
|
|
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, string, -1, pwstring, lengthInChars);
|
|
|
|
|
|
|
|
bstr = SysAllocStringLen(pwstring, lengthInChars);
|
|
|
|
lengthInChars = SysStringLen(bstr);
|
|
|
|
HeapFree(GetProcessHeap(), 0, pwstring);
|
|
|
|
}
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("%s %d\n", debugstr_w(bstr), lengthInChars);
|
2000-10-25 23:24:53 +02:00
|
|
|
return bstr;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
/*
|
|
|
|
* read a value and fill a VARIANT structure
|
|
|
|
*/
|
2001-09-07 17:27:16 +02:00
|
|
|
static void MSFT_ReadValue( VARIANT * pVar, int offset, TLBContext *pcx )
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
int size;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("\n");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
if(offset <0) { /* data are packed in here */
|
2001-08-21 19:03:10 +02:00
|
|
|
V_VT(pVar) = (offset & 0x7c000000 )>> 26;
|
1999-06-05 14:00:13 +02:00
|
|
|
V_UNION(pVar, iVal) = offset & 0xffff;
|
|
|
|
return;
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&(V_VT(pVar)), sizeof(VARTYPE), pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
pcx->pTblDir->pCustData.offset + offset );
|
2001-08-21 19:03:10 +02:00
|
|
|
TRACE_(typelib)("Vartype = %x\n", V_VT(pVar));
|
|
|
|
switch (V_VT(pVar)){
|
1999-06-05 14:00:13 +02:00
|
|
|
case VT_EMPTY: /* FIXME: is this right? */
|
|
|
|
case VT_NULL: /* FIXME: is this right? */
|
|
|
|
case VT_I2 : /* this should not happen */
|
|
|
|
case VT_I4 :
|
|
|
|
case VT_R4 :
|
|
|
|
case VT_ERROR :
|
|
|
|
case VT_BOOL :
|
|
|
|
case VT_I1 :
|
|
|
|
case VT_UI1 :
|
|
|
|
case VT_UI2 :
|
|
|
|
case VT_UI4 :
|
|
|
|
case VT_INT :
|
|
|
|
case VT_UINT :
|
|
|
|
case VT_VOID : /* FIXME: is this right? */
|
|
|
|
case VT_HRESULT :
|
|
|
|
size=4; break;
|
|
|
|
case VT_R8 :
|
|
|
|
case VT_CY :
|
|
|
|
case VT_DATE :
|
|
|
|
case VT_I8 :
|
|
|
|
case VT_UI8 :
|
|
|
|
case VT_DECIMAL : /* FIXME: is this right? */
|
|
|
|
case VT_FILETIME :
|
|
|
|
size=8;break;
|
|
|
|
/* pointer types with known behaviour */
|
|
|
|
case VT_BSTR :{
|
|
|
|
char * ptr;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&size, sizeof(INT), pcx, DO_NOT_SEEK );
|
2000-07-09 14:17:52 +02:00
|
|
|
if(size <= 0) {
|
|
|
|
FIXME("BSTR length = %d?\n", size);
|
|
|
|
} else {
|
|
|
|
ptr=TLB_Alloc(size);/* allocate temp buffer */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(ptr, size, pcx, DO_NOT_SEEK);/* read string (ANSI) */
|
2000-07-09 14:17:52 +02:00
|
|
|
V_UNION(pVar, bstrVal)=SysAllocStringLen(NULL,size);
|
|
|
|
/* FIXME: do we need a AtoW conversion here? */
|
|
|
|
V_UNION(pVar, bstrVal[size])=L'\0';
|
|
|
|
while(size--) V_UNION(pVar, bstrVal[size])=ptr[size];
|
|
|
|
TLB_Free(ptr);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
size=-4; break;
|
1999-06-05 14:00:13 +02:00
|
|
|
/* FIXME: this will not work AT ALL when the variant contains a pointer */
|
|
|
|
case VT_DISPATCH :
|
|
|
|
case VT_VARIANT :
|
|
|
|
case VT_UNKNOWN :
|
|
|
|
case VT_PTR :
|
|
|
|
case VT_SAFEARRAY :
|
|
|
|
case VT_CARRAY :
|
|
|
|
case VT_USERDEFINED :
|
|
|
|
case VT_LPSTR :
|
|
|
|
case VT_LPWSTR :
|
|
|
|
case VT_BLOB :
|
|
|
|
case VT_STREAM :
|
|
|
|
case VT_STORAGE :
|
|
|
|
case VT_STREAMED_OBJECT :
|
|
|
|
case VT_STORED_OBJECT :
|
|
|
|
case VT_BLOB_OBJECT :
|
|
|
|
case VT_CF :
|
|
|
|
case VT_CLSID :
|
|
|
|
default:
|
|
|
|
size=0;
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("VARTYPE %d is not supported, setting pointer to NULL\n",
|
2001-08-21 19:03:10 +02:00
|
|
|
V_VT(pVar));
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
if(size>0) /* (big|small) endian correct? */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&(V_UNION(pVar, iVal)), size, pcx, DO_NOT_SEEK );
|
2000-07-09 14:17:52 +02:00
|
|
|
return;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
/*
|
|
|
|
* create a linked list with custom data
|
|
|
|
*/
|
2001-09-07 17:27:16 +02:00
|
|
|
static int MSFT_CustData( TLBContext *pcx, int offset, TLBCustData** ppCustData )
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_CDGuid entry;
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData* pNew;
|
|
|
|
int count=0;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("\n");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
while(offset >=0){
|
|
|
|
count++;
|
|
|
|
pNew=TLB_Alloc(sizeof(TLBCustData));
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&entry, sizeof(entry), pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
pcx->pTblDir->pCDGuids.offset+offset);
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ReadGuid(&(pNew->guid), entry.GuidOffset , pcx);
|
|
|
|
MSFT_ReadValue(&(pNew->data), entry.DataOffset, pcx);
|
1999-06-05 14:00:13 +02:00
|
|
|
/* add new custom data at head of the list */
|
|
|
|
pNew->next=*ppCustData;
|
|
|
|
*ppCustData=pNew;
|
|
|
|
offset = entry.next;
|
|
|
|
}
|
|
|
|
return count;
|
|
|
|
}
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
static void MSFT_GetTdesc(TLBContext *pcx, INT type, TYPEDESC *pTd,
|
|
|
|
ITypeInfoImpl *pTI)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
if(type <0)
|
|
|
|
pTd->vt=type & VT_TYPEMASK;
|
|
|
|
else
|
|
|
|
*pTd=pcx->pLibInfo->pTypeDesc[type/(2*sizeof(INT))];
|
2000-10-25 23:24:53 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
if(pTd->vt == VT_USERDEFINED)
|
|
|
|
MSFT_DoRefType(pcx, pTI, pTd->u.hreftype);
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("vt type = %X\n", pTd->vt);
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
static void
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_DoFuncs(TLBContext* pcx,
|
|
|
|
ITypeInfoImpl* pTI,
|
2000-12-21 21:20:12 +01:00
|
|
|
int cFuncs,
|
|
|
|
int cVars,
|
|
|
|
int offset,
|
|
|
|
TLBFuncDesc** pptfd)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
/*
|
|
|
|
* member information is stored in a data structure at offset
|
|
|
|
* indicated by the memoffset field of the typeinfo structure
|
|
|
|
* There are several distinctive parts.
|
|
|
|
* the first part starts with a field that holds the total length
|
|
|
|
* of this (first) part excluding this field. Then follow the records,
|
|
|
|
* for each member there is one record.
|
|
|
|
*
|
|
|
|
* First entry is always the length of the record (excluding this
|
|
|
|
* length word).
|
|
|
|
* Rest of the record depends on the type of the member. If there is
|
|
|
|
* a field indicating the member type (function variable intereface etc)
|
|
|
|
* I have not found it yet. At this time we depend on the information
|
|
|
|
* in the type info and the usual order how things are stored.
|
|
|
|
*
|
|
|
|
* Second follows an array sized nrMEM*sizeof(INT) with a memeber id
|
|
|
|
* for each member;
|
|
|
|
*
|
|
|
|
* Third is a equal sized array with file offsets to the name entry
|
|
|
|
* of each member.
|
|
|
|
*
|
|
|
|
* Forth and last (?) part is an array with offsets to the records in the
|
|
|
|
* first part of this file segment.
|
|
|
|
*/
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
int infolen, nameoffset, reclength, nrattributes, i;
|
|
|
|
int recoffset = offset + sizeof(INT);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
char recbuf[512];
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_FuncRecord * pFuncRec=(MSFT_FuncRecord *) recbuf;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("\n");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&infolen, sizeof(INT), pcx, offset);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
for ( i = 0; i < cFuncs ; i++ )
|
|
|
|
{
|
|
|
|
*pptfd = TLB_Alloc(sizeof(TLBFuncDesc));
|
|
|
|
|
|
|
|
/* name, eventually add to a hash table */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&nameoffset,
|
2000-12-21 21:20:12 +01:00
|
|
|
sizeof(INT),
|
|
|
|
pcx,
|
|
|
|
offset + infolen + (cFuncs + cVars + i + 1) * sizeof(INT));
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
(*pptfd)->Name = MSFT_ReadName(pcx, nameoffset);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
/* read the function information record */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&reclength, sizeof(INT), pcx, recoffset);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
reclength &= 0x1ff;
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(pFuncRec, reclength - sizeof(INT), pcx, DO_NOT_SEEK) ;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
/* do the attributes */
|
|
|
|
nrattributes = (reclength - pFuncRec->nrargs * 3 * sizeof(int) - 0x18)
|
|
|
|
/ sizeof(int);
|
|
|
|
|
|
|
|
if ( nrattributes > 0 )
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
(*pptfd)->helpcontext = pFuncRec->OptAttr[0] ;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
if ( nrattributes > 1 )
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
(*pptfd)->HelpString = MSFT_ReadString(pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
pFuncRec->OptAttr[1]) ;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
if ( nrattributes > 2 )
|
|
|
|
{
|
|
|
|
if ( pFuncRec->FKCCIC & 0x2000 )
|
|
|
|
{
|
|
|
|
(*pptfd)->Entry = (WCHAR*) pFuncRec->OptAttr[2] ;
|
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
else
|
2000-12-21 21:20:12 +01:00
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
(*pptfd)->Entry = MSFT_ReadString(pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
pFuncRec->OptAttr[2]);
|
2000-12-21 21:20:12 +01:00
|
|
|
}
|
|
|
|
if( nrattributes > 5 )
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
(*pptfd)->HelpStringContext = pFuncRec->OptAttr[5] ;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
if ( nrattributes > 6 && pFuncRec->FKCCIC & 0x80 )
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_CustData(pcx,
|
|
|
|
pFuncRec->OptAttr[6],
|
|
|
|
&(*pptfd)->pCustData);
|
2000-12-21 21:20:12 +01:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
/* fill the FuncDesc Structure */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read( & (*pptfd)->funcdesc.memid,
|
2000-12-21 21:20:12 +01:00
|
|
|
sizeof(INT), pcx,
|
|
|
|
offset + infolen + ( i + 1) * sizeof(INT));
|
|
|
|
|
|
|
|
(*pptfd)->funcdesc.funckind = (pFuncRec->FKCCIC) & 0x7;
|
|
|
|
(*pptfd)->funcdesc.invkind = (pFuncRec->FKCCIC) >> 3 & 0xF;
|
|
|
|
(*pptfd)->funcdesc.callconv = (pFuncRec->FKCCIC) >> 8 & 0xF;
|
|
|
|
(*pptfd)->funcdesc.cParams = pFuncRec->nrargs ;
|
|
|
|
(*pptfd)->funcdesc.cParamsOpt = pFuncRec->nroargs ;
|
|
|
|
(*pptfd)->funcdesc.oVft = pFuncRec->VtableOffset ;
|
|
|
|
(*pptfd)->funcdesc.wFuncFlags = LOWORD(pFuncRec->Flags) ;
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_GetTdesc(pcx,
|
|
|
|
pFuncRec->DataType,
|
|
|
|
&(*pptfd)->funcdesc.elemdescFunc.tdesc,
|
|
|
|
pTI);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* do the parameters/arguments */
|
2000-12-21 21:20:12 +01:00
|
|
|
if(pFuncRec->nrargs)
|
|
|
|
{
|
|
|
|
int j = 0;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ParameterInfo paraminfo;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
(*pptfd)->funcdesc.lprgelemdescParam =
|
1999-06-05 14:00:13 +02:00
|
|
|
TLB_Alloc(pFuncRec->nrargs * sizeof(ELEMDESC));
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
(*pptfd)->pParamDesc =
|
|
|
|
TLB_Alloc(pFuncRec->nrargs * sizeof(TLBParDesc));
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(¶minfo,
|
|
|
|
sizeof(paraminfo),
|
|
|
|
pcx,
|
|
|
|
recoffset + reclength -
|
|
|
|
pFuncRec->nrargs * sizeof(MSFT_ParameterInfo));
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
for ( j = 0 ; j < pFuncRec->nrargs ; j++ )
|
|
|
|
{
|
|
|
|
TYPEDESC* lpArgTypeDesc = 0;
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_GetTdesc(pcx,
|
|
|
|
paraminfo.DataType,
|
|
|
|
&(*pptfd)->funcdesc.lprgelemdescParam[j].tdesc,
|
|
|
|
pTI);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2001-08-21 19:03:10 +02:00
|
|
|
(*pptfd)->funcdesc.lprgelemdescParam[j].u.paramdesc.wParamFlags = paraminfo.Flags;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
(*pptfd)->pParamDesc[j].Name = (void *) paraminfo.oName;
|
|
|
|
|
|
|
|
/* SEEK value = jump to offset,
|
|
|
|
* from there jump to the end of record,
|
|
|
|
* go back by (j-1) arguments
|
|
|
|
*/
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read( ¶minfo ,
|
|
|
|
sizeof(MSFT_ParameterInfo), pcx,
|
|
|
|
recoffset + reclength - ((pFuncRec->nrargs - j - 1)
|
|
|
|
* sizeof(MSFT_ParameterInfo)));
|
2000-12-21 21:20:12 +01:00
|
|
|
lpArgTypeDesc =
|
|
|
|
& ((*pptfd)->funcdesc.lprgelemdescParam[j].tdesc);
|
|
|
|
|
|
|
|
while ( lpArgTypeDesc != NULL )
|
2000-11-26 00:51:30 +01:00
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
switch ( lpArgTypeDesc->vt )
|
|
|
|
{
|
|
|
|
case VT_PTR:
|
|
|
|
lpArgTypeDesc = lpArgTypeDesc->u.lptdesc;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_CARRAY:
|
|
|
|
lpArgTypeDesc = & (lpArgTypeDesc->u.lpadesc->tdescElem);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_USERDEFINED:
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_DoRefType(pcx, pTI,
|
|
|
|
lpArgTypeDesc->u.hreftype);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
lpArgTypeDesc = NULL;
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
lpArgTypeDesc = NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* parameter is the return value! */
|
|
|
|
if ( paraminfo.Flags & PARAMFLAG_FRETVAL )
|
|
|
|
{
|
|
|
|
TYPEDESC* lpArgTypeDesc;
|
|
|
|
|
|
|
|
(*pptfd)->funcdesc.elemdescFunc =
|
|
|
|
(*pptfd)->funcdesc.lprgelemdescParam[j];
|
|
|
|
|
|
|
|
lpArgTypeDesc = & ((*pptfd)->funcdesc.elemdescFunc.tdesc) ;
|
|
|
|
|
|
|
|
while ( lpArgTypeDesc != NULL )
|
|
|
|
{
|
|
|
|
switch ( lpArgTypeDesc->vt )
|
|
|
|
{
|
|
|
|
case VT_PTR:
|
|
|
|
lpArgTypeDesc = lpArgTypeDesc->u.lptdesc;
|
|
|
|
break;
|
|
|
|
case VT_CARRAY:
|
|
|
|
lpArgTypeDesc =
|
|
|
|
& (lpArgTypeDesc->u.lpadesc->tdescElem);
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_USERDEFINED:
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_DoRefType(pcx,
|
|
|
|
pTI,
|
|
|
|
lpArgTypeDesc->u.hreftype);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
lpArgTypeDesc = NULL;
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
lpArgTypeDesc = NULL;
|
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* second time around */
|
2000-12-21 21:20:12 +01:00
|
|
|
for(j=0;j<pFuncRec->nrargs;j++)
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
/* name */
|
2000-12-21 21:20:12 +01:00
|
|
|
(*pptfd)->pParamDesc[j].Name =
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ReadName( pcx, (int)(*pptfd)->pParamDesc[j].Name );
|
2000-12-21 21:20:12 +01:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* default value */
|
2000-12-21 21:20:12 +01:00
|
|
|
if ( (PARAMFLAG_FHASDEFAULT &
|
2001-08-21 19:03:10 +02:00
|
|
|
(*pptfd)->funcdesc.lprgelemdescParam[j].u.paramdesc.wParamFlags) &&
|
2000-12-21 21:20:12 +01:00
|
|
|
((pFuncRec->FKCCIC) & 0x1000) )
|
|
|
|
{
|
|
|
|
INT* pInt = (INT *)((char *)pFuncRec +
|
|
|
|
reclength -
|
|
|
|
(pFuncRec->nrargs * 4 + 1) * sizeof(INT) );
|
|
|
|
|
2001-08-21 19:03:10 +02:00
|
|
|
PARAMDESC* pParamDesc = & (*pptfd)->funcdesc.lprgelemdescParam[j].u.paramdesc;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
pParamDesc->pparamdescex = TLB_Alloc(sizeof(PARAMDESCEX));
|
2000-12-21 21:20:12 +01:00
|
|
|
pParamDesc->pparamdescex->cBytes = sizeof(PARAMDESCEX);
|
2001-08-21 19:03:10 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ReadValue(&(pParamDesc->pparamdescex->varDefaultValue),
|
1999-06-05 14:00:13 +02:00
|
|
|
pInt[j], pcx);
|
|
|
|
}
|
|
|
|
/* custom info */
|
2000-12-21 21:20:12 +01:00
|
|
|
if ( nrattributes > 7 + j && pFuncRec->FKCCIC & 0x80 )
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_CustData(pcx,
|
|
|
|
pFuncRec->OptAttr[7+j],
|
|
|
|
&(*pptfd)->pParamDesc[j].pCustData);
|
2000-12-21 21:20:12 +01:00
|
|
|
}
|
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2001-08-21 19:03:10 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
/* scode is not used: archaic win16 stuff FIXME: right? */
|
|
|
|
(*pptfd)->funcdesc.cScodes = 0 ;
|
1999-06-05 14:00:13 +02:00
|
|
|
(*pptfd)->funcdesc.lprgscode = NULL ;
|
2001-08-21 19:03:10 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
pptfd = & ((*pptfd)->next);
|
1999-06-05 14:00:13 +02:00
|
|
|
recoffset += reclength;
|
|
|
|
}
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
static void MSFT_DoVars(TLBContext *pcx, ITypeInfoImpl *pTI, int cFuncs,
|
|
|
|
int cVars, int offset, TLBVarDesc ** pptvd)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
int infolen, nameoffset, reclength;
|
|
|
|
char recbuf[256];
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_VarRecord * pVarRec=(MSFT_VarRecord *) recbuf;
|
1999-06-05 14:00:13 +02:00
|
|
|
int i;
|
|
|
|
int recoffset;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("\n");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&infolen,sizeof(INT), pcx, offset);
|
|
|
|
MSFT_Read(&recoffset,sizeof(INT), pcx, offset + infolen +
|
1999-06-05 14:00:13 +02:00
|
|
|
((cFuncs+cVars)*2+cFuncs + 1)*sizeof(INT));
|
|
|
|
recoffset += offset+sizeof(INT);
|
|
|
|
for(i=0;i<cVars;i++){
|
|
|
|
*pptvd=TLB_Alloc(sizeof(TLBVarDesc));
|
|
|
|
/* name, eventually add to a hash table */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&nameoffset, sizeof(INT), pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
offset + infolen + (cFuncs + cVars + i + 1) * sizeof(INT));
|
2001-09-07 17:27:16 +02:00
|
|
|
(*pptvd)->Name=MSFT_ReadName(pcx, nameoffset);
|
1999-06-05 14:00:13 +02:00
|
|
|
/* read the variable information record */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&reclength, sizeof(INT), pcx, recoffset);
|
1999-06-05 14:00:13 +02:00
|
|
|
reclength &=0xff;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(pVarRec, reclength - sizeof(INT), pcx, DO_NOT_SEEK) ;
|
1999-06-05 14:00:13 +02:00
|
|
|
/* Optional data */
|
|
|
|
if(reclength >(6*sizeof(INT)) )
|
|
|
|
(*pptvd)->HelpContext=pVarRec->HelpContext;
|
|
|
|
if(reclength >(7*sizeof(INT)) )
|
2001-09-07 17:27:16 +02:00
|
|
|
(*pptvd)->HelpString = MSFT_ReadString(pcx, pVarRec->oHelpString) ;
|
1999-06-05 14:00:13 +02:00
|
|
|
if(reclength >(8*sizeof(INT)) )
|
|
|
|
if(reclength >(9*sizeof(INT)) )
|
|
|
|
(*pptvd)->HelpStringContext=pVarRec->HelpStringContext;
|
|
|
|
/* fill the VarDesc Structure */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&(*pptvd)->vardesc.memid, sizeof(INT), pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
offset + infolen + ( i + 1) * sizeof(INT));
|
|
|
|
(*pptvd)->vardesc.varkind = pVarRec->VarKind;
|
|
|
|
(*pptvd)->vardesc.wVarFlags = pVarRec->Flags;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_GetTdesc(pcx, pVarRec->DataType,
|
|
|
|
&(*pptvd)->vardesc.elemdescVar.tdesc, pTI);
|
2002-01-29 04:12:19 +01:00
|
|
|
/* (*pptvd)->vardesc.lpstrSchema; is reserved (SDK) FIXME?? */
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pVarRec->VarKind == VAR_CONST ){
|
2001-08-21 19:03:10 +02:00
|
|
|
(*pptvd)->vardesc.u.lpvarValue=TLB_Alloc(sizeof(VARIANT));
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ReadValue((*pptvd)->vardesc.u.lpvarValue,
|
1999-06-05 14:00:13 +02:00
|
|
|
pVarRec->OffsValue, pcx);
|
2001-08-21 19:03:10 +02:00
|
|
|
} else
|
|
|
|
(*pptvd)->vardesc.u.oInst=pVarRec->OffsValue;
|
1999-06-05 14:00:13 +02:00
|
|
|
pptvd=&((*pptvd)->next);
|
|
|
|
recoffset += reclength;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* fill in data for a hreftype (offset). When the refernced type is contained
|
2001-09-07 17:27:16 +02:00
|
|
|
* in the typelib, it's just an (file) offset in the type info base dir.
|
|
|
|
* If comes from import, it's an offset+1 in the ImpInfo table
|
1999-06-05 14:00:13 +02:00
|
|
|
* */
|
2001-09-07 17:27:16 +02:00
|
|
|
static void MSFT_DoRefType(TLBContext *pcx, ITypeInfoImpl *pTI,
|
|
|
|
int offset)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
int j;
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBRefType **ppRefType = &pTI->reflist;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("TLB context %p, TLB offset %x\n", pcx, offset);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
while(*ppRefType) {
|
|
|
|
if((*ppRefType)->reference == offset)
|
|
|
|
return;
|
|
|
|
ppRefType = &(*ppRefType)->next;
|
|
|
|
}
|
|
|
|
|
|
|
|
*ppRefType = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(**ppRefType));
|
|
|
|
|
|
|
|
if(!MSFT_HREFTYPE_INTHISFILE( offset)) {
|
1999-06-05 14:00:13 +02:00
|
|
|
/* external typelib */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ImpInfo impinfo;
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBImpLib *pImpLib=(pcx->pLibInfo->pImpLibs);
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("offset %x, masked offset %x\n", offset, offset + (offset & 0xfffffffc));
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&impinfo, sizeof(impinfo), pcx,
|
1999-06-05 14:00:13 +02:00
|
|
|
pcx->pTblDir->pImpInfo.offset + (offset & 0xfffffffc));
|
|
|
|
for(j=0;pImpLib;j++){ /* search the known offsets of all import libraries */
|
|
|
|
if(pImpLib->offset==impinfo.oImpFile) break;
|
|
|
|
pImpLib=pImpLib->next;
|
|
|
|
}
|
|
|
|
if(pImpLib){
|
2001-09-07 17:27:16 +02:00
|
|
|
(*ppRefType)->reference=offset;
|
|
|
|
(*ppRefType)->pImpTLInfo = pImpLib;
|
|
|
|
MSFT_ReadGuid(&(*ppRefType)->guid, impinfo.oGuid, pcx);
|
|
|
|
(*ppRefType)->index = TLB_REF_USE_GUID;
|
1999-06-05 14:00:13 +02:00
|
|
|
}else{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR("Cannot find a reference\n");
|
2001-09-07 17:27:16 +02:00
|
|
|
(*ppRefType)->reference=-1;
|
|
|
|
(*ppRefType)->pImpTLInfo=TLB_REF_NOT_FOUND;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
}else{
|
|
|
|
/* in this typelib */
|
2001-09-07 17:27:16 +02:00
|
|
|
(*ppRefType)->index = MSFT_HREFTYPE_INDEX(offset);
|
|
|
|
(*ppRefType)->reference=offset;
|
|
|
|
(*ppRefType)->pImpTLInfo=TLB_REF_INTERNAL;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* process Implemented Interfaces of a com class */
|
2001-09-07 17:27:16 +02:00
|
|
|
static void MSFT_DoImplTypes(TLBContext *pcx, ITypeInfoImpl *pTI, int count,
|
|
|
|
int offset)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
int i;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_RefRecord refrec;
|
|
|
|
TLBImplType **ppImpl = &pTI->impltypelist;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("\n");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0;i<count;i++){
|
|
|
|
if(offset<0) break; /* paranoia */
|
2001-09-07 17:27:16 +02:00
|
|
|
*ppImpl=TLB_Alloc(sizeof(**ppImpl));
|
|
|
|
MSFT_Read(&refrec,sizeof(refrec),pcx,offset+pcx->pTblDir->pRefTab.offset);
|
|
|
|
MSFT_DoRefType(pcx, pTI, refrec.reftype);
|
|
|
|
(*ppImpl)->hRef = refrec.reftype;
|
|
|
|
(*ppImpl)->implflags=refrec.flags;
|
|
|
|
(*ppImpl)->ctCustData=
|
|
|
|
MSFT_CustData(pcx, refrec.oCustData, &(*ppImpl)->pCustData);
|
1999-06-05 14:00:13 +02:00
|
|
|
offset=refrec.onext;
|
2001-09-07 17:27:16 +02:00
|
|
|
ppImpl=&((*ppImpl)->next);
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* process a typeinfo record
|
|
|
|
*/
|
2001-09-07 17:27:16 +02:00
|
|
|
ITypeInfoImpl * MSFT_DoTypeInfo(
|
2000-12-21 21:20:12 +01:00
|
|
|
TLBContext *pcx,
|
|
|
|
int count,
|
|
|
|
ITypeLibImpl * pLibInfo)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_TypeInfoBase tiBase;
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeInfoImpl *ptiRet;
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("count=%u\n", count);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
ptiRet = (ITypeInfoImpl*) ITypeInfo_Constructor();
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&tiBase, sizeof(tiBase) ,pcx ,
|
1999-06-05 14:00:13 +02:00
|
|
|
pcx->pTblDir->pTypeInfoTab.offset+count*sizeof(tiBase));
|
2001-02-28 06:31:02 +01:00
|
|
|
/* this is where we are coming from */
|
2000-06-24 15:50:52 +02:00
|
|
|
ptiRet->pTypeLib = pLibInfo;
|
2002-02-04 19:32:20 +01:00
|
|
|
ITypeLib2_AddRef((ITypeLib2 *)pLibInfo);
|
1999-06-05 14:00:13 +02:00
|
|
|
ptiRet->index=count;
|
|
|
|
/* fill in the typeattr fields */
|
2001-08-06 19:46:18 +02:00
|
|
|
FIXME("Assign constructor/destructor memid\n");
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ReadGuid(&ptiRet->TypeAttr.guid, tiBase.posguid, pcx);
|
1999-06-05 14:00:13 +02:00
|
|
|
ptiRet->TypeAttr.lcid=pLibInfo->LibAttr.lcid; /* FIXME: correct? */
|
|
|
|
ptiRet->TypeAttr.memidConstructor=MEMBERID_NIL ;/* FIXME */
|
|
|
|
ptiRet->TypeAttr.memidDestructor=MEMBERID_NIL ; /* FIXME */
|
|
|
|
ptiRet->TypeAttr.lpstrSchema=NULL; /* reserved */
|
|
|
|
ptiRet->TypeAttr.cbSizeInstance=tiBase.size;
|
|
|
|
ptiRet->TypeAttr.typekind=tiBase.typekind & 0xF;
|
|
|
|
ptiRet->TypeAttr.cFuncs=LOWORD(tiBase.cElement);
|
|
|
|
ptiRet->TypeAttr.cVars=HIWORD(tiBase.cElement);
|
|
|
|
ptiRet->TypeAttr.cbAlignment=(tiBase.typekind >> 11 )& 0x1F; /* there are more flags there */
|
|
|
|
ptiRet->TypeAttr.wTypeFlags=tiBase.flags;
|
|
|
|
ptiRet->TypeAttr.wMajorVerNum=LOWORD(tiBase.version);
|
|
|
|
ptiRet->TypeAttr.wMinorVerNum=HIWORD(tiBase.version);
|
|
|
|
ptiRet->TypeAttr.cImplTypes=tiBase.cImplTypes;
|
|
|
|
ptiRet->TypeAttr.cbSizeVft=tiBase.cbSizeVft; /* FIXME: this is only the non inherited part */
|
|
|
|
if(ptiRet->TypeAttr.typekind == TKIND_ALIAS)
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_GetTdesc(pcx, tiBase.datatype1,
|
|
|
|
&ptiRet->TypeAttr.tdescAlias, ptiRet);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* FIXME: */
|
|
|
|
/* IDLDESC idldescType; *//* never saw this one != zero */
|
|
|
|
|
|
|
|
/* name, eventually add to a hash table */
|
2001-09-07 17:27:16 +02:00
|
|
|
ptiRet->Name=MSFT_ReadName(pcx, tiBase.NameOffset);
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("reading %s\n", debugstr_w(ptiRet->Name));
|
1999-06-05 14:00:13 +02:00
|
|
|
/* help info */
|
2001-09-07 17:27:16 +02:00
|
|
|
ptiRet->DocString=MSFT_ReadString(pcx, tiBase.docstringoffs);
|
1999-06-05 14:00:13 +02:00
|
|
|
ptiRet->dwHelpStringContext=tiBase.helpstringcontext;
|
|
|
|
ptiRet->dwHelpContext=tiBase.helpcontext;
|
|
|
|
/* note: InfoType's Help file and HelpStringDll come from the containing
|
|
|
|
* library. Further HelpString and Docstring appear to be the same thing :(
|
|
|
|
*/
|
|
|
|
/* functions */
|
|
|
|
if(ptiRet->TypeAttr.cFuncs >0 )
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_DoFuncs(pcx, ptiRet, ptiRet->TypeAttr.cFuncs,
|
|
|
|
ptiRet->TypeAttr.cVars,
|
|
|
|
tiBase.memoffset, & ptiRet->funclist);
|
1999-06-05 14:00:13 +02:00
|
|
|
/* variables */
|
|
|
|
if(ptiRet->TypeAttr.cVars >0 )
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_DoVars(pcx, ptiRet, ptiRet->TypeAttr.cFuncs,
|
|
|
|
ptiRet->TypeAttr.cVars,
|
|
|
|
tiBase.memoffset, & ptiRet->varlist);
|
|
|
|
if(ptiRet->TypeAttr.cImplTypes >0 ) {
|
2000-11-26 00:51:30 +01:00
|
|
|
switch(ptiRet->TypeAttr.typekind)
|
2000-12-21 21:20:12 +01:00
|
|
|
{
|
|
|
|
case TKIND_COCLASS:
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_DoImplTypes(pcx, ptiRet, ptiRet->TypeAttr.cImplTypes ,
|
|
|
|
tiBase.datatype1);
|
2000-12-21 21:20:12 +01:00
|
|
|
break;
|
|
|
|
case TKIND_DISPATCH:
|
2001-09-07 17:27:16 +02:00
|
|
|
ptiRet->impltypelist=TLB_Alloc(sizeof(TLBImplType));
|
2000-11-26 00:51:30 +01:00
|
|
|
|
|
|
|
if (tiBase.datatype1 != -1)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_DoRefType(pcx, ptiRet, tiBase.datatype1);
|
|
|
|
ptiRet->impltypelist->hRef = tiBase.datatype1;
|
2000-11-26 00:51:30 +01:00
|
|
|
}
|
|
|
|
else
|
2001-09-07 17:27:16 +02:00
|
|
|
{ /* FIXME: This is a really bad hack to add IDispatch */
|
2000-11-26 00:51:30 +01:00
|
|
|
char* szStdOle = "stdole2.tlb\0";
|
|
|
|
int nStdOleLen = strlen(szStdOle);
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBRefType **ppRef = &ptiRet->reflist;
|
|
|
|
|
|
|
|
while(*ppRef) {
|
|
|
|
if((*ppRef)->reference == -1)
|
|
|
|
break;
|
|
|
|
ppRef = &(*ppRef)->next;
|
|
|
|
}
|
|
|
|
if(!*ppRef) {
|
|
|
|
*ppRef = TLB_Alloc(sizeof(**ppRef));
|
|
|
|
(*ppRef)->guid = IID_IDispatch;
|
|
|
|
(*ppRef)->reference = -1;
|
|
|
|
(*ppRef)->index = TLB_REF_USE_GUID;
|
|
|
|
(*ppRef)->pImpTLInfo = TLB_Alloc(sizeof(TLBImpLib));
|
|
|
|
(*ppRef)->pImpTLInfo->guid = IID_StdOle;
|
|
|
|
(*ppRef)->pImpTLInfo->name = SysAllocStringLen(NULL,
|
|
|
|
nStdOleLen + 1);
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MultiByteToWideChar(CP_ACP,
|
|
|
|
MB_PRECOMPOSED,
|
|
|
|
szStdOle,
|
|
|
|
-1,
|
|
|
|
(*ppRef)->pImpTLInfo->name,
|
|
|
|
SysStringLen((*ppRef)->pImpTLInfo->name));
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
(*ppRef)->pImpTLInfo->lcid = 0;
|
|
|
|
(*ppRef)->pImpTLInfo->wVersionMajor = 2;
|
|
|
|
(*ppRef)->pImpTLInfo->wVersionMinor = 0;
|
|
|
|
}
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
break;
|
|
|
|
default:
|
2001-09-07 17:27:16 +02:00
|
|
|
ptiRet->impltypelist=TLB_Alloc(sizeof(TLBImplType));
|
|
|
|
MSFT_DoRefType(pcx, ptiRet, tiBase.datatype1);
|
|
|
|
ptiRet->impltypelist->hRef = tiBase.datatype1;
|
2000-12-21 21:20:12 +01:00
|
|
|
break;
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
ptiRet->ctCustData=
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_CustData(pcx, tiBase.oCustData, &ptiRet->pCustData);
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE_(typelib)("%s guid: %s kind:%s\n",
|
2000-10-25 23:24:53 +02:00
|
|
|
debugstr_w(ptiRet->Name),
|
2000-06-24 15:50:52 +02:00
|
|
|
debugstr_guid(&ptiRet->TypeAttr.guid),
|
|
|
|
typekind_desc[ptiRet->TypeAttr.typekind]);
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
return ptiRet;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
/****************************************************************************
|
|
|
|
* TLB_ReadTypeLib
|
|
|
|
*
|
|
|
|
* find the type of the typelib file and map the typelib resource into
|
|
|
|
* the memory
|
|
|
|
*/
|
|
|
|
#define MSFT_SIGNATURE 0x5446534D /* "MSFT" */
|
2001-09-07 17:27:16 +02:00
|
|
|
#define SLTG_SIGNATURE 0x47544c53 /* "SLTG" */
|
2001-09-27 01:05:35 +02:00
|
|
|
int TLB_ReadTypeLib(LPCWSTR pszFileName, INT index, ITypeLib2 **ppTypeLib)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2001-09-27 01:05:35 +02:00
|
|
|
int ret = TYPE_E_CANTLOADLIBRARY;
|
2000-07-10 12:57:28 +02:00
|
|
|
DWORD dwSignature = 0;
|
|
|
|
HFILE hFile;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2001-09-27 01:05:35 +02:00
|
|
|
TRACE_(typelib)("%s:%d\n", debugstr_w(pszFileName), index);
|
2000-02-18 20:08:40 +01:00
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
*ppTypeLib = NULL;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
/* check the signature of the file */
|
2001-09-27 01:05:35 +02:00
|
|
|
hFile = CreateFileW( pszFileName, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, 0 );
|
2000-07-10 12:57:28 +02:00
|
|
|
if (INVALID_HANDLE_VALUE != hFile)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
2000-07-10 12:57:28 +02:00
|
|
|
HANDLE hMapping = CreateFileMappingA( hFile, NULL, PAGE_READONLY | SEC_COMMIT, 0, 0, NULL );
|
|
|
|
if (hMapping)
|
|
|
|
{
|
|
|
|
LPVOID pBase = MapViewOfFile(hMapping, FILE_MAP_READ, 0, 0, 0);
|
2000-12-21 21:20:12 +01:00
|
|
|
if(pBase)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
/* retrieve file size */
|
|
|
|
DWORD dwTLBLength = GetFileSize(hFile, NULL);
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
/* first try to load as *.tlb */
|
|
|
|
dwSignature = *((DWORD*) pBase);
|
|
|
|
if ( dwSignature == MSFT_SIGNATURE)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
*ppTypeLib = ITypeLib2_Constructor_MSFT(pBase, dwTLBLength);
|
2000-12-21 21:20:12 +01:00
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
else if ( dwSignature == SLTG_SIGNATURE)
|
|
|
|
{
|
|
|
|
*ppTypeLib = ITypeLib2_Constructor_SLTG(pBase, dwTLBLength);
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
UnmapViewOfFile(pBase);
|
|
|
|
}
|
|
|
|
CloseHandle(hMapping);
|
2000-07-10 12:57:28 +02:00
|
|
|
}
|
|
|
|
CloseHandle(hFile);
|
1999-06-07 19:41:37 +02:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
if( (WORD)dwSignature == IMAGE_DOS_SIGNATURE )
|
2000-02-18 20:08:40 +01:00
|
|
|
{
|
2000-07-10 12:57:28 +02:00
|
|
|
/* find the typelibrary resource*/
|
2001-09-27 01:05:35 +02:00
|
|
|
HINSTANCE hinstDLL = LoadLibraryExW(pszFileName, 0, DONT_RESOLVE_DLL_REFERENCES|
|
2000-07-10 12:57:28 +02:00
|
|
|
LOAD_LIBRARY_AS_DATAFILE|LOAD_WITH_ALTERED_SEARCH_PATH);
|
|
|
|
if (hinstDLL)
|
|
|
|
{
|
2001-09-27 01:05:35 +02:00
|
|
|
HRSRC hrsrc = FindResourceA(hinstDLL, MAKEINTRESOURCEA(index),
|
|
|
|
"TYPELIB");
|
2000-07-10 12:57:28 +02:00
|
|
|
if (hrsrc)
|
|
|
|
{
|
|
|
|
HGLOBAL hGlobal = LoadResource(hinstDLL, hrsrc);
|
|
|
|
if (hGlobal)
|
|
|
|
{
|
|
|
|
LPVOID pBase = LockResource(hGlobal);
|
2000-08-10 00:24:04 +02:00
|
|
|
DWORD dwTLBLength = SizeofResource(hinstDLL, hrsrc);
|
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
if (pBase)
|
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
/* try to load as incore resource */
|
|
|
|
dwSignature = *((DWORD*) pBase);
|
|
|
|
if ( dwSignature == MSFT_SIGNATURE)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
*ppTypeLib = ITypeLib2_Constructor_MSFT(pBase, dwTLBLength);
|
|
|
|
}
|
|
|
|
else if ( dwSignature == SLTG_SIGNATURE)
|
|
|
|
{
|
|
|
|
*ppTypeLib = ITypeLib2_Constructor_SLTG(pBase, dwTLBLength);
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
else
|
|
|
|
{
|
|
|
|
FIXME("Header type magic 0x%08lx not supported.\n",dwSignature);
|
|
|
|
}
|
2000-07-10 12:57:28 +02:00
|
|
|
}
|
|
|
|
FreeResource( hGlobal );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
FreeLibrary(hinstDLL);
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
if(*ppTypeLib)
|
|
|
|
ret = S_OK;
|
|
|
|
else
|
2001-11-19 03:30:01 +01:00
|
|
|
ERR("Loading of typelib %s failed with error %ld\n",
|
2001-09-27 01:05:35 +02:00
|
|
|
debugstr_w(pszFileName), GetLastError());
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*================== ITypeLib(2) Methods ===================================*/
|
|
|
|
|
|
|
|
/****************************************************************************
|
2001-09-07 17:27:16 +02:00
|
|
|
* ITypeLib2_Constructor_MSFT
|
2000-07-10 12:57:28 +02:00
|
|
|
*
|
2001-09-07 17:27:16 +02:00
|
|
|
* loading an MSFT typelib from an in-memory image
|
2000-07-10 12:57:28 +02:00
|
|
|
*/
|
2001-09-07 17:27:16 +02:00
|
|
|
static ITypeLib2* ITypeLib2_Constructor_MSFT(LPVOID pLib, DWORD dwTLBLength)
|
2000-07-10 12:57:28 +02:00
|
|
|
{
|
|
|
|
TLBContext cx;
|
|
|
|
long lPSegDir;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Header tlbHeader;
|
|
|
|
MSFT_SegDir tlbSegDir;
|
2000-07-10 12:57:28 +02:00
|
|
|
ITypeLibImpl * pTypeLibImpl;
|
|
|
|
|
2000-08-10 00:24:04 +02:00
|
|
|
TRACE("%p, TLB length = %ld\n", pLib, dwTLBLength);
|
2000-07-10 12:57:28 +02:00
|
|
|
|
|
|
|
pTypeLibImpl = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(ITypeLibImpl));
|
|
|
|
if (!pTypeLibImpl) return NULL;
|
|
|
|
|
|
|
|
ICOM_VTBL(pTypeLibImpl) = &tlbvt;
|
|
|
|
pTypeLibImpl->ref = 1;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* get pointer to beginning of typelib data */
|
2000-02-18 20:08:40 +01:00
|
|
|
cx.pos = 0;
|
1999-08-21 15:08:27 +02:00
|
|
|
cx.oStart=0;
|
2000-06-24 15:50:52 +02:00
|
|
|
cx.mapping = pLib;
|
2000-07-10 12:57:28 +02:00
|
|
|
cx.pLibInfo = pTypeLibImpl;
|
2000-08-10 00:24:04 +02:00
|
|
|
cx.length = dwTLBLength;
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* read header */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read((void*)&tlbHeader, sizeof(tlbHeader), &cx, 0);
|
2000-07-29 23:54:58 +02:00
|
|
|
TRACE("header:\n");
|
|
|
|
TRACE("\tmagic1=0x%08x ,magic2=0x%08x\n",tlbHeader.magic1,tlbHeader.magic2 );
|
|
|
|
if (memcmp(&tlbHeader.magic1,TLBMAGIC2,4)) {
|
|
|
|
FIXME("Header type magic 0x%08x not supported.\n",tlbHeader.magic1);
|
|
|
|
return NULL;
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
/* there is a small amount of information here until the next important
|
1999-06-05 14:00:13 +02:00
|
|
|
* part:
|
|
|
|
* the segment directory . Try to calculate the amount of data */
|
2000-07-29 23:54:58 +02:00
|
|
|
lPSegDir = sizeof(tlbHeader) + (tlbHeader.nrtypeinfos)*4 + ((tlbHeader.varflags & HELPDLLFLAG)? 4 :0);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* now read the segment directory */
|
2000-07-29 23:54:58 +02:00
|
|
|
TRACE("read segment directory (at %ld)\n",lPSegDir);
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read((void*)&tlbSegDir, sizeof(tlbSegDir), &cx, lPSegDir);
|
2000-07-10 12:57:28 +02:00
|
|
|
cx.pTblDir = &tlbSegDir;
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* just check two entries */
|
2000-07-10 12:57:28 +02:00
|
|
|
if ( tlbSegDir.pTypeInfoTab.res0c != 0x0F || tlbSegDir.pImpInfo.res0c != 0x0F)
|
|
|
|
{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR("cannot find the table directory, ptr=0x%lx\n",lPSegDir);
|
2000-07-10 12:57:28 +02:00
|
|
|
HeapFree(GetProcessHeap(),0,pTypeLibImpl);
|
|
|
|
return NULL;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-07-10 12:57:28 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* now fill our internal data */
|
|
|
|
/* TLIBATTR fields */
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_ReadGuid(&pTypeLibImpl->LibAttr.guid, tlbHeader.posguid, &cx);
|
2002-01-29 18:05:11 +01:00
|
|
|
|
|
|
|
/* pTypeLibImpl->LibAttr.lcid = tlbHeader.lcid;*/
|
|
|
|
/* Windows seems to have zero here, is this correct? */
|
|
|
|
if(SUBLANGID(tlbHeader.lcid) == SUBLANG_NEUTRAL)
|
|
|
|
pTypeLibImpl->LibAttr.lcid = PRIMARYLANGID(tlbHeader.lcid);
|
|
|
|
else
|
|
|
|
pTypeLibImpl->LibAttr.lcid = 0;
|
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
pTypeLibImpl->LibAttr.syskind = tlbHeader.varflags & 0x0f; /* check the mask */
|
|
|
|
pTypeLibImpl->LibAttr.wMajorVerNum = LOWORD(tlbHeader.version);
|
|
|
|
pTypeLibImpl->LibAttr.wMinorVerNum = HIWORD(tlbHeader.version);
|
|
|
|
pTypeLibImpl->LibAttr.wLibFlags = (WORD) tlbHeader.flags & 0xffff;/* check mask */
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* name, eventually add to a hash table */
|
2001-09-07 17:27:16 +02:00
|
|
|
pTypeLibImpl->Name = MSFT_ReadName(&cx, tlbHeader.NameOffset);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* help info */
|
2001-09-07 17:27:16 +02:00
|
|
|
pTypeLibImpl->DocString = MSFT_ReadString(&cx, tlbHeader.helpstring);
|
|
|
|
pTypeLibImpl->HelpFile = MSFT_ReadString(&cx, tlbHeader.helpfile);
|
2000-07-10 12:57:28 +02:00
|
|
|
|
|
|
|
if( tlbHeader.varflags & HELPDLLFLAG)
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
int offset;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&offset, sizeof(offset), &cx, sizeof(tlbHeader));
|
|
|
|
pTypeLibImpl->HelpStringDll = MSFT_ReadString(&cx, offset);
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
pTypeLibImpl->dwHelpContext = tlbHeader.helpstringcontext;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* custom data */
|
2000-07-10 12:57:28 +02:00
|
|
|
if(tlbHeader.CustomDataOffset >= 0)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
pTypeLibImpl->ctCustData = MSFT_CustData(&cx, tlbHeader.CustomDataOffset, &pTypeLibImpl->pCustData);
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* fill in typedescriptions */
|
2000-07-10 12:57:28 +02:00
|
|
|
if(tlbSegDir.pTypdescTab.length > 0)
|
|
|
|
{
|
|
|
|
int i, j, cTD = tlbSegDir.pTypdescTab.length / (2*sizeof(INT));
|
1999-06-05 14:00:13 +02:00
|
|
|
INT16 td[4];
|
2000-07-10 12:57:28 +02:00
|
|
|
pTypeLibImpl->pTypeDesc = TLB_Alloc( cTD * sizeof(TYPEDESC));
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(td, sizeof(td), &cx, tlbSegDir.pTypdescTab.offset);
|
2000-07-10 12:57:28 +02:00
|
|
|
for(i=0; i<cTD; )
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
/* FIXME: add several sanity checks here */
|
2000-07-10 12:57:28 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].vt = td[0] & VT_TYPEMASK;
|
|
|
|
if(td[0] == VT_PTR || td[0] == VT_SAFEARRAY)
|
|
|
|
{
|
|
|
|
/* FIXME: check safearray */
|
|
|
|
if(td[3] < 0)
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lptdesc= & stndTypeDesc[td[2]];
|
1999-06-05 14:00:13 +02:00
|
|
|
else
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lptdesc= & pTypeLibImpl->pTypeDesc[td[2]/8];
|
2000-07-10 12:57:28 +02:00
|
|
|
}
|
|
|
|
else if(td[0] == VT_CARRAY)
|
|
|
|
{
|
|
|
|
/* array descr table here */
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lpadesc = (void *)((int) td[2]); /* temp store offset in*/
|
|
|
|
}
|
2000-07-10 12:57:28 +02:00
|
|
|
else if(td[0] == VT_USERDEFINED)
|
|
|
|
{
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.hreftype = MAKELONG(td[2],td[3]);
|
2000-07-10 12:57:28 +02:00
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
if(++i<cTD) MSFT_Read(td, sizeof(td), &cx, DO_NOT_SEEK);
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* second time around to fill the array subscript info */
|
2000-07-10 12:57:28 +02:00
|
|
|
for(i=0;i<cTD;i++)
|
|
|
|
{
|
|
|
|
if(pTypeLibImpl->pTypeDesc[i].vt != VT_CARRAY) continue;
|
|
|
|
if(tlbSegDir.pArrayDescriptions.offset>0)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(td, sizeof(td), &cx, tlbSegDir.pArrayDescriptions.offset + (int) pTypeLibImpl->pTypeDesc[i].u.lpadesc);
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lpadesc = TLB_Alloc(sizeof(ARRAYDESC)+sizeof(SAFEARRAYBOUND)*(td[3]-1));
|
2000-07-10 12:57:28 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(td[1]<0)
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lpadesc->tdescElem.vt = td[0] & VT_TYPEMASK;
|
1999-06-05 14:00:13 +02:00
|
|
|
else
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lpadesc->tdescElem = stndTypeDesc[td[0]/8];
|
2000-07-10 12:57:28 +02:00
|
|
|
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lpadesc->cDims = td[2];
|
2000-07-10 12:57:28 +02:00
|
|
|
|
|
|
|
for(j = 0; j<td[2]; j++)
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(& pTypeLibImpl->pTypeDesc[i].u.lpadesc->rgbounds[j].cElements,
|
1999-06-05 14:00:13 +02:00
|
|
|
sizeof(INT), &cx, DO_NOT_SEEK);
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(& pTypeLibImpl->pTypeDesc[i].u.lpadesc->rgbounds[j].lLbound,
|
1999-06-05 14:00:13 +02:00
|
|
|
sizeof(INT), &cx, DO_NOT_SEEK);
|
|
|
|
}
|
2000-07-10 12:57:28 +02:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2001-08-21 19:03:10 +02:00
|
|
|
pTypeLibImpl->pTypeDesc[i].u.lpadesc = NULL;
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR("didn't find array description data\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* imported type libs */
|
2000-07-10 12:57:28 +02:00
|
|
|
if(tlbSegDir.pImpFiles.offset>0)
|
|
|
|
{
|
|
|
|
TLBImpLib **ppImpLib = &(pTypeLibImpl->pImpLibs);
|
|
|
|
int oGuid, offset = tlbSegDir.pImpFiles.offset;
|
1999-06-05 14:00:13 +02:00
|
|
|
UINT16 size;
|
2000-07-10 12:57:28 +02:00
|
|
|
|
|
|
|
while(offset < tlbSegDir.pImpFiles.offset +tlbSegDir.pImpFiles.length)
|
|
|
|
{
|
|
|
|
*ppImpLib = TLB_Alloc(sizeof(TLBImpLib));
|
|
|
|
(*ppImpLib)->offset = offset - tlbSegDir.pImpFiles.offset;
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&oGuid, sizeof(INT), &cx, offset);
|
2000-07-10 12:57:28 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read(&(*ppImpLib)->lcid, sizeof(LCID), &cx, DO_NOT_SEEK);
|
|
|
|
MSFT_Read(&(*ppImpLib)->wVersionMajor, sizeof(WORD), &cx, DO_NOT_SEEK);
|
|
|
|
MSFT_Read(&(*ppImpLib)->wVersionMinor, sizeof(WORD), &cx, DO_NOT_SEEK);
|
|
|
|
MSFT_Read(& size, sizeof(UINT16), &cx, DO_NOT_SEEK);
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
size >>= 2;
|
|
|
|
(*ppImpLib)->name = TLB_Alloc(size+1);
|
2001-09-07 17:27:16 +02:00
|
|
|
MSFT_Read((*ppImpLib)->name, size, &cx, DO_NOT_SEEK);
|
|
|
|
MSFT_ReadGuid(&(*ppImpLib)->guid, oGuid, &cx);
|
2000-11-26 00:51:30 +01:00
|
|
|
offset = (offset + sizeof(INT) + sizeof(DWORD) + sizeof(LCID) + sizeof(UINT16) + size + 3) & 0xfffffffc;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
ppImpLib = &(*ppImpLib)->next;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* type info's */
|
2000-07-10 12:57:28 +02:00
|
|
|
if(tlbHeader.nrtypeinfos >= 0 )
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
2000-07-10 12:57:28 +02:00
|
|
|
/*pTypeLibImpl->TypeInfoCount=tlbHeader.nrtypeinfos; */
|
|
|
|
ITypeInfoImpl **ppTI = &(pTypeLibImpl->pTypeInfo);
|
1999-06-05 14:00:13 +02:00
|
|
|
int i;
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-07-10 12:57:28 +02:00
|
|
|
for(i = 0; i<(int)tlbHeader.nrtypeinfos; i++)
|
2000-12-21 21:20:12 +01:00
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
*ppTI = MSFT_DoTypeInfo(&cx, i, pTypeLibImpl);
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
ITypeInfo_AddRef((ITypeInfo*) *ppTI);
|
2000-06-24 15:50:52 +02:00
|
|
|
ppTI = &((*ppTI)->next);
|
2000-07-10 12:57:28 +02:00
|
|
|
(pTypeLibImpl->TypeInfoCount)++;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
TRACE("(%p)\n", pTypeLibImpl);
|
|
|
|
return (ITypeLib2*) pTypeLibImpl;
|
|
|
|
}
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
static BSTR TLB_MultiByteToBSTR(char *ptr)
|
|
|
|
{
|
|
|
|
DWORD len;
|
|
|
|
WCHAR *nameW;
|
|
|
|
BSTR ret;
|
|
|
|
|
|
|
|
len = MultiByteToWideChar(CP_ACP, 0, ptr, -1, NULL, 0);
|
|
|
|
nameW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
|
|
|
|
MultiByteToWideChar(CP_ACP, 0, ptr, -1, nameW, len);
|
|
|
|
ret = SysAllocString(nameW);
|
|
|
|
HeapFree(GetProcessHeap(), 0, nameW);
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
static BOOL TLB_GUIDFromString(char *str, GUID *guid)
|
|
|
|
{
|
|
|
|
char b[3];
|
|
|
|
int i;
|
|
|
|
short s;
|
|
|
|
|
|
|
|
if(sscanf(str, "%lx-%hx-%hx-%hx", &guid->Data1, &guid->Data2, &guid->Data3, &s) != 4) {
|
|
|
|
FIXME("Can't parse guid %s\n", debugstr_guid(guid));
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
guid->Data4[0] = s >> 8;
|
|
|
|
guid->Data4[1] = s & 0xff;
|
|
|
|
|
|
|
|
b[2] = '\0';
|
|
|
|
for(i = 0; i < 6; i++) {
|
|
|
|
memcpy(b, str + 24 + 2 * i, 2);
|
|
|
|
guid->Data4[i + 2] = strtol(b, NULL, 16);
|
|
|
|
}
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
static WORD SLTG_ReadString(char *ptr, BSTR *pBstr)
|
|
|
|
{
|
|
|
|
WORD bytelen;
|
|
|
|
DWORD len;
|
|
|
|
WCHAR *nameW;
|
|
|
|
|
|
|
|
*pBstr = NULL;
|
|
|
|
bytelen = *(WORD*)ptr;
|
|
|
|
if(bytelen == 0xffff) return 2;
|
|
|
|
len = MultiByteToWideChar(CP_ACP, 0, ptr + 2, bytelen, NULL, 0);
|
|
|
|
nameW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
|
|
|
|
len = MultiByteToWideChar(CP_ACP, 0, ptr + 2, bytelen, nameW, len);
|
|
|
|
*pBstr = SysAllocStringLen(nameW, len);
|
|
|
|
HeapFree(GetProcessHeap(), 0, nameW);
|
|
|
|
return bytelen + 2;
|
|
|
|
}
|
|
|
|
|
|
|
|
static WORD SLTG_ReadStringA(char *ptr, char **str)
|
|
|
|
{
|
|
|
|
WORD bytelen;
|
|
|
|
|
|
|
|
*str = NULL;
|
|
|
|
bytelen = *(WORD*)ptr;
|
|
|
|
if(bytelen == 0xffff) return 2;
|
|
|
|
*str = HeapAlloc(GetProcessHeap(), 0, bytelen + 1);
|
|
|
|
memcpy(*str, ptr + 2, bytelen);
|
|
|
|
(*str)[bytelen] = '\0';
|
|
|
|
return bytelen + 2;
|
|
|
|
}
|
|
|
|
|
|
|
|
static DWORD SLTG_ReadLibBlk(LPVOID pLibBlk, ITypeLibImpl *pTypeLibImpl)
|
|
|
|
{
|
|
|
|
char *ptr = pLibBlk;
|
|
|
|
WORD w;
|
|
|
|
|
|
|
|
if((w = *(WORD*)ptr) != SLTG_LIBBLK_MAGIC) {
|
|
|
|
FIXME("libblk magic = %04x\n", w);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
ptr += 6;
|
|
|
|
if((w = *(WORD*)ptr) != 0xffff) {
|
|
|
|
FIXME("LibBlk.res06 = %04x. Assumung string and skipping\n", w);
|
|
|
|
ptr += w;
|
|
|
|
}
|
|
|
|
ptr += 2;
|
|
|
|
|
|
|
|
ptr += SLTG_ReadString(ptr, &pTypeLibImpl->DocString);
|
|
|
|
|
|
|
|
ptr += SLTG_ReadString(ptr, &pTypeLibImpl->HelpFile);
|
|
|
|
|
|
|
|
pTypeLibImpl->dwHelpContext = *(DWORD*)ptr;
|
|
|
|
ptr += 4;
|
|
|
|
|
|
|
|
pTypeLibImpl->LibAttr.syskind = *(WORD*)ptr;
|
|
|
|
ptr += 2;
|
|
|
|
|
|
|
|
pTypeLibImpl->LibAttr.lcid = *(WORD*)ptr;
|
|
|
|
ptr += 2;
|
|
|
|
|
|
|
|
ptr += 4; /* skip res12 */
|
|
|
|
|
|
|
|
pTypeLibImpl->LibAttr.wLibFlags = *(WORD*)ptr;
|
|
|
|
ptr += 2;
|
|
|
|
|
|
|
|
pTypeLibImpl->LibAttr.wMajorVerNum = *(WORD*)ptr;
|
|
|
|
ptr += 2;
|
|
|
|
|
|
|
|
pTypeLibImpl->LibAttr.wMinorVerNum = *(WORD*)ptr;
|
|
|
|
ptr += 2;
|
|
|
|
|
|
|
|
memcpy(&pTypeLibImpl->LibAttr.guid, ptr, sizeof(GUID));
|
|
|
|
ptr += sizeof(GUID);
|
|
|
|
|
|
|
|
return ptr - (char*)pLibBlk;
|
|
|
|
}
|
|
|
|
|
|
|
|
static WORD *SLTG_DoType(WORD *pType, char *pBlk, ELEMDESC *pElem)
|
|
|
|
{
|
|
|
|
BOOL done = FALSE;
|
|
|
|
TYPEDESC *pTD = &pElem->tdesc;
|
|
|
|
|
|
|
|
/* Handle [in/out] first */
|
|
|
|
if((*pType & 0xc000) == 0xc000)
|
|
|
|
pElem->u.paramdesc.wParamFlags = PARAMFLAG_NONE;
|
|
|
|
else if(*pType & 0x8000)
|
|
|
|
pElem->u.paramdesc.wParamFlags = PARAMFLAG_FIN | PARAMFLAG_FOUT;
|
|
|
|
else if(*pType & 0x4000)
|
|
|
|
pElem->u.paramdesc.wParamFlags = PARAMFLAG_FOUT;
|
|
|
|
else
|
|
|
|
pElem->u.paramdesc.wParamFlags = PARAMFLAG_FIN;
|
|
|
|
|
|
|
|
if(*pType & 0x2000)
|
|
|
|
pElem->u.paramdesc.wParamFlags |= PARAMFLAG_FLCID;
|
|
|
|
|
|
|
|
if(*pType & 0x80)
|
|
|
|
pElem->u.paramdesc.wParamFlags |= PARAMFLAG_FRETVAL;
|
|
|
|
|
|
|
|
while(!done) {
|
|
|
|
if((*pType & 0xe00) == 0xe00) {
|
|
|
|
pTD->vt = VT_PTR;
|
|
|
|
pTD->u.lptdesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(TYPEDESC));
|
|
|
|
pTD = pTD->u.lptdesc;
|
|
|
|
}
|
|
|
|
switch(*pType & 0x7f) {
|
|
|
|
case VT_PTR:
|
|
|
|
pTD->vt = VT_PTR;
|
|
|
|
pTD->u.lptdesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(TYPEDESC));
|
|
|
|
pTD = pTD->u.lptdesc;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_USERDEFINED:
|
|
|
|
pTD->vt = VT_USERDEFINED;
|
|
|
|
pTD->u.hreftype = *(++pType) / 4;
|
|
|
|
done = TRUE;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case VT_CARRAY:
|
|
|
|
{
|
|
|
|
/* *(pType+1) is offset to a SAFEARRAY, *(pType+2) is type of
|
|
|
|
array */
|
|
|
|
|
|
|
|
SAFEARRAY *pSA = (SAFEARRAY *)(pBlk + *(++pType));
|
|
|
|
|
|
|
|
pTD->vt = VT_CARRAY;
|
|
|
|
pTD->u.lpadesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(ARRAYDESC) +
|
|
|
|
(pSA->cDims - 1) * sizeof(SAFEARRAYBOUND));
|
|
|
|
pTD->u.lpadesc->cDims = pSA->cDims;
|
|
|
|
memcpy(pTD->u.lpadesc->rgbounds, pSA->rgsabound,
|
|
|
|
pSA->cDims * sizeof(SAFEARRAYBOUND));
|
|
|
|
|
|
|
|
pTD = &pTD->u.lpadesc->tdescElem;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
case VT_SAFEARRAY:
|
|
|
|
{
|
|
|
|
/* FIXME: *(pType+1) gives an offset to SAFEARRAY, is this
|
|
|
|
useful? */
|
|
|
|
|
|
|
|
pType++;
|
|
|
|
pTD->vt = VT_SAFEARRAY;
|
|
|
|
pTD->u.lptdesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(TYPEDESC));
|
|
|
|
pTD = pTD->u.lptdesc;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
default:
|
|
|
|
pTD->vt = *pType & 0x7f;
|
|
|
|
done = TRUE;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
pType++;
|
|
|
|
}
|
|
|
|
return pType;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void SLTG_DoRefs(SLTG_RefInfo *pRef, ITypeInfoImpl *pTI,
|
|
|
|
char *pNameTable)
|
|
|
|
{
|
|
|
|
int ref;
|
|
|
|
char *name;
|
|
|
|
TLBRefType **ppRefType;
|
|
|
|
|
|
|
|
if(pRef->magic != SLTG_REF_MAGIC) {
|
|
|
|
FIXME("Ref magic = %x\n", pRef->magic);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
name = ( (char*)(&pRef->names) + pRef->number);
|
|
|
|
|
|
|
|
ppRefType = &pTI->reflist;
|
|
|
|
for(ref = 0; ref < pRef->number >> 3; ref++) {
|
|
|
|
char *refname;
|
|
|
|
unsigned int lib_offs, type_num;
|
|
|
|
|
|
|
|
*ppRefType = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(**ppRefType));
|
|
|
|
|
|
|
|
name += SLTG_ReadStringA(name, &refname);
|
|
|
|
if(sscanf(refname, "*\\R%x*#%x", &lib_offs, &type_num) != 2)
|
|
|
|
FIXME("Can't sscanf ref\n");
|
|
|
|
if(lib_offs != 0xffff) {
|
|
|
|
TLBImpLib **import = &pTI->pTypeLib->pImpLibs;
|
|
|
|
|
|
|
|
while(*import) {
|
|
|
|
if((*import)->offset == lib_offs)
|
|
|
|
break;
|
|
|
|
import = &(*import)->next;
|
|
|
|
}
|
|
|
|
if(!*import) {
|
|
|
|
char fname[MAX_PATH+1];
|
|
|
|
int len;
|
|
|
|
|
|
|
|
*import = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(**import));
|
|
|
|
(*import)->offset = lib_offs;
|
|
|
|
TLB_GUIDFromString( pNameTable + lib_offs + 4,
|
|
|
|
&(*import)->guid);
|
|
|
|
if(sscanf(pNameTable + lib_offs + 40, "}#%hd.%hd#%lx#%s",
|
|
|
|
&(*import)->wVersionMajor,
|
|
|
|
&(*import)->wVersionMinor,
|
|
|
|
&(*import)->lcid, fname) != 4) {
|
|
|
|
FIXME("can't sscanf ref %s\n",
|
|
|
|
pNameTable + lib_offs + 40);
|
|
|
|
}
|
|
|
|
len = strlen(fname);
|
|
|
|
if(fname[len-1] != '#')
|
|
|
|
FIXME("fname = %s\n", fname);
|
|
|
|
fname[len-1] = '\0';
|
|
|
|
(*import)->name = TLB_MultiByteToBSTR(fname);
|
|
|
|
}
|
|
|
|
(*ppRefType)->pImpTLInfo = *import;
|
|
|
|
} else { /* internal ref */
|
|
|
|
(*ppRefType)->pImpTLInfo = TLB_REF_INTERNAL;
|
|
|
|
}
|
|
|
|
(*ppRefType)->reference = ref;
|
|
|
|
(*ppRefType)->index = type_num;
|
|
|
|
|
|
|
|
HeapFree(GetProcessHeap(), 0, refname);
|
|
|
|
ppRefType = &(*ppRefType)->next;
|
|
|
|
}
|
|
|
|
if((BYTE)*name != SLTG_REF_MAGIC)
|
|
|
|
FIXME("End of ref block magic = %x\n", *name);
|
|
|
|
dump_TLBRefType(pTI->reflist);
|
|
|
|
}
|
|
|
|
|
2001-10-03 20:41:26 +02:00
|
|
|
static char *SLTG_DoImpls(char *pBlk, ITypeInfoImpl *pTI,
|
2001-09-07 17:27:16 +02:00
|
|
|
BOOL OneOnly)
|
|
|
|
{
|
2001-10-03 20:41:26 +02:00
|
|
|
SLTG_ImplInfo *info;
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBImplType **ppImplType = &pTI->impltypelist;
|
2001-10-03 20:41:26 +02:00
|
|
|
/* I don't really get this structure, usually it's 0x16 bytes
|
|
|
|
long, but iuser.tlb contains some that are 0x18 bytes long.
|
|
|
|
That's ok because we can use the next ptr to jump to the next
|
|
|
|
one. But how do we know the length of the last one? The WORD
|
|
|
|
at offs 0x8 might be the clue. For now I'm just assuming that
|
|
|
|
the last one is the regular 0x16 bytes. */
|
|
|
|
|
|
|
|
info = (SLTG_ImplInfo*)pBlk;
|
2001-09-07 17:27:16 +02:00
|
|
|
while(1) {
|
|
|
|
*ppImplType = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(**ppImplType));
|
|
|
|
(*ppImplType)->hRef = info->ref;
|
|
|
|
(*ppImplType)->implflags = info->impltypeflags;
|
|
|
|
pTI->TypeAttr.cImplTypes++;
|
|
|
|
ppImplType = &(*ppImplType)->next;
|
|
|
|
|
|
|
|
if(info->next == 0xffff)
|
|
|
|
break;
|
|
|
|
if(OneOnly)
|
|
|
|
FIXME("Interface inheriting more than one interface\n");
|
2001-10-03 20:41:26 +02:00
|
|
|
info = (SLTG_ImplInfo*)(pBlk + info->next);
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
2001-10-03 20:41:26 +02:00
|
|
|
info++; /* see comment at top of function */
|
2001-09-07 17:27:16 +02:00
|
|
|
return (char*)info;
|
|
|
|
}
|
|
|
|
|
2001-09-11 01:13:28 +02:00
|
|
|
static SLTG_TypeInfoTail *SLTG_ProcessCoClass(char *pBlk, ITypeInfoImpl *pTI,
|
|
|
|
char *pNameTable)
|
2001-09-07 17:27:16 +02:00
|
|
|
{
|
|
|
|
SLTG_TypeInfoHeader *pTIHeader = (SLTG_TypeInfoHeader*)pBlk;
|
|
|
|
SLTG_MemberHeader *pMemHeader;
|
|
|
|
char *pFirstItem, *pNextItem;
|
|
|
|
|
|
|
|
if(pTIHeader->href_table != 0xffffffff) {
|
|
|
|
SLTG_DoRefs((SLTG_RefInfo*)(pBlk + pTIHeader->href_table), pTI,
|
|
|
|
pNameTable);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
pMemHeader = (SLTG_MemberHeader*)(pBlk + pTIHeader->elem_table);
|
|
|
|
|
|
|
|
pFirstItem = pNextItem = (char*)(pMemHeader + 1);
|
|
|
|
|
|
|
|
if(*(WORD*)pFirstItem == SLTG_IMPL_MAGIC) {
|
2001-10-03 20:41:26 +02:00
|
|
|
pNextItem = SLTG_DoImpls(pFirstItem, pTI, FALSE);
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
|
2001-09-11 01:13:28 +02:00
|
|
|
return (SLTG_TypeInfoTail*)(pFirstItem + pMemHeader->cbExtra);
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-09-11 01:13:28 +02:00
|
|
|
static SLTG_TypeInfoTail *SLTG_ProcessInterface(char *pBlk, ITypeInfoImpl *pTI,
|
|
|
|
char *pNameTable)
|
2001-09-07 17:27:16 +02:00
|
|
|
{
|
|
|
|
SLTG_TypeInfoHeader *pTIHeader = (SLTG_TypeInfoHeader*)pBlk;
|
|
|
|
SLTG_MemberHeader *pMemHeader;
|
|
|
|
SLTG_Function *pFunc;
|
|
|
|
char *pFirstItem, *pNextItem;
|
|
|
|
TLBFuncDesc **ppFuncDesc = &pTI->funclist;
|
|
|
|
int num = 0;
|
|
|
|
|
|
|
|
if(pTIHeader->href_table != 0xffffffff) {
|
|
|
|
SLTG_DoRefs((SLTG_RefInfo*)(pBlk + pTIHeader->href_table), pTI,
|
|
|
|
pNameTable);
|
|
|
|
}
|
|
|
|
|
|
|
|
pMemHeader = (SLTG_MemberHeader*)(pBlk + pTIHeader->elem_table);
|
|
|
|
|
|
|
|
pFirstItem = pNextItem = (char*)(pMemHeader + 1);
|
|
|
|
|
|
|
|
if(*(WORD*)pFirstItem == SLTG_IMPL_MAGIC) {
|
2001-10-03 20:41:26 +02:00
|
|
|
pNextItem = SLTG_DoImpls(pFirstItem, pTI, TRUE);
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
for(pFunc = (SLTG_Function*)pNextItem, num = 1; 1;
|
|
|
|
pFunc = (SLTG_Function*)(pFirstItem + pFunc->next), num++) {
|
|
|
|
|
|
|
|
int param;
|
|
|
|
WORD *pType, *pArg;
|
|
|
|
|
|
|
|
if(pFunc->magic != SLTG_FUNCTION_MAGIC &&
|
|
|
|
pFunc->magic != SLTG_FUNCTION_WITH_FLAGS_MAGIC) {
|
|
|
|
FIXME("func magic = %02x\n", pFunc->magic);
|
2001-09-11 01:13:28 +02:00
|
|
|
return NULL;
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
*ppFuncDesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(**ppFuncDesc));
|
|
|
|
(*ppFuncDesc)->Name = TLB_MultiByteToBSTR(pFunc->name + pNameTable);
|
|
|
|
|
|
|
|
(*ppFuncDesc)->funcdesc.memid = pFunc->dispid;
|
|
|
|
(*ppFuncDesc)->funcdesc.invkind = pFunc->inv >> 4;
|
|
|
|
(*ppFuncDesc)->funcdesc.callconv = pFunc->nacc & 0x7;
|
|
|
|
(*ppFuncDesc)->funcdesc.cParams = pFunc->nacc >> 3;
|
|
|
|
(*ppFuncDesc)->funcdesc.cParamsOpt = (pFunc->retnextopt & 0x7e) >> 1;
|
|
|
|
(*ppFuncDesc)->funcdesc.oVft = pFunc->vtblpos;
|
|
|
|
|
|
|
|
if(pFunc->magic == SLTG_FUNCTION_WITH_FLAGS_MAGIC)
|
|
|
|
(*ppFuncDesc)->funcdesc.wFuncFlags = pFunc->funcflags;
|
|
|
|
|
|
|
|
if(pFunc->retnextopt & 0x80)
|
|
|
|
pType = &pFunc->rettype;
|
|
|
|
else
|
|
|
|
pType = (WORD*)(pFirstItem + pFunc->rettype);
|
|
|
|
|
|
|
|
|
|
|
|
SLTG_DoType(pType, pFirstItem, &(*ppFuncDesc)->funcdesc.elemdescFunc);
|
|
|
|
|
|
|
|
(*ppFuncDesc)->funcdesc.lprgelemdescParam =
|
|
|
|
HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
(*ppFuncDesc)->funcdesc.cParams * sizeof(ELEMDESC));
|
|
|
|
(*ppFuncDesc)->pParamDesc =
|
|
|
|
HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
(*ppFuncDesc)->funcdesc.cParams * sizeof(TLBParDesc));
|
|
|
|
|
|
|
|
pArg = (WORD*)(pFirstItem + pFunc->arg_off);
|
|
|
|
|
|
|
|
for(param = 0; param < (*ppFuncDesc)->funcdesc.cParams; param++) {
|
|
|
|
char *paramName = pNameTable + *pArg;
|
2001-10-02 19:25:55 +02:00
|
|
|
BOOL HaveOffs;
|
|
|
|
/* If arg type follows then paramName points to the 2nd
|
|
|
|
letter of the name, else the next WORD is an offset to
|
|
|
|
the arg type and paramName points to the first letter.
|
|
|
|
So let's take one char off paramName and see if we're
|
|
|
|
pointing at an alpha-numeric char. However if *pArg is
|
|
|
|
0xffff or 0xfffe then the param has no name, the former
|
|
|
|
meaning that the next WORD is the type, the latter
|
|
|
|
meaning the the next WORD is an offset to the type. */
|
|
|
|
|
|
|
|
HaveOffs = FALSE;
|
|
|
|
if(*pArg == 0xffff)
|
|
|
|
paramName = NULL;
|
|
|
|
else if(*pArg == 0xfffe) {
|
|
|
|
paramName = NULL;
|
|
|
|
HaveOffs = TRUE;
|
|
|
|
}
|
|
|
|
else if(!isalnum(*(paramName-1)))
|
|
|
|
HaveOffs = TRUE;
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
pArg++;
|
|
|
|
|
2001-10-02 19:25:55 +02:00
|
|
|
if(HaveOffs) { /* the next word is an offset to type */
|
2001-09-07 17:27:16 +02:00
|
|
|
pType = (WORD*)(pFirstItem + *pArg);
|
|
|
|
SLTG_DoType(pType, pFirstItem,
|
|
|
|
&(*ppFuncDesc)->funcdesc.lprgelemdescParam[param]);
|
|
|
|
pArg++;
|
|
|
|
} else {
|
|
|
|
if(paramName)
|
|
|
|
paramName--;
|
|
|
|
pArg = SLTG_DoType(pArg, pFirstItem,
|
|
|
|
&(*ppFuncDesc)->funcdesc.lprgelemdescParam[param]);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Are we an optional param ? */
|
|
|
|
if((*ppFuncDesc)->funcdesc.cParams - param <=
|
|
|
|
(*ppFuncDesc)->funcdesc.cParamsOpt)
|
|
|
|
(*ppFuncDesc)->funcdesc.lprgelemdescParam[param].u.paramdesc.wParamFlags |= PARAMFLAG_FOPT;
|
|
|
|
|
|
|
|
if(paramName) {
|
|
|
|
(*ppFuncDesc)->pParamDesc[param].Name =
|
|
|
|
TLB_MultiByteToBSTR(paramName);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
ppFuncDesc = &((*ppFuncDesc)->next);
|
|
|
|
if(pFunc->next == 0xffff) break;
|
|
|
|
}
|
|
|
|
pTI->TypeAttr.cFuncs = num;
|
|
|
|
dump_TLBFuncDesc(pTI->funclist);
|
2001-09-11 01:13:28 +02:00
|
|
|
return (SLTG_TypeInfoTail*)(pFirstItem + pMemHeader->cbExtra);
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
|
2001-09-11 01:13:28 +02:00
|
|
|
static SLTG_TypeInfoTail *SLTG_ProcessRecord(char *pBlk, ITypeInfoImpl *pTI,
|
|
|
|
char *pNameTable)
|
2001-09-07 17:27:16 +02:00
|
|
|
{
|
|
|
|
SLTG_TypeInfoHeader *pTIHeader = (SLTG_TypeInfoHeader*)pBlk;
|
|
|
|
SLTG_MemberHeader *pMemHeader;
|
|
|
|
SLTG_RecordItem *pItem;
|
|
|
|
char *pFirstItem;
|
|
|
|
TLBVarDesc **ppVarDesc = &pTI->varlist;
|
|
|
|
int num = 0;
|
|
|
|
WORD *pType;
|
|
|
|
char buf[300];
|
|
|
|
|
|
|
|
pMemHeader = (SLTG_MemberHeader*)(pBlk + pTIHeader->elem_table);
|
|
|
|
|
|
|
|
pFirstItem = (char*)(pMemHeader + 1);
|
|
|
|
for(pItem = (SLTG_RecordItem *)pFirstItem, num = 1; 1;
|
|
|
|
pItem = (SLTG_RecordItem *)(pFirstItem + pItem->next), num++) {
|
|
|
|
if(pItem->magic != SLTG_RECORD_MAGIC) {
|
|
|
|
FIXME("record magic = %02x\n", pItem->magic);
|
2001-09-11 01:13:28 +02:00
|
|
|
return NULL;
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
*ppVarDesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(**ppVarDesc));
|
|
|
|
(*ppVarDesc)->Name = TLB_MultiByteToBSTR(pItem->name + pNameTable);
|
|
|
|
(*ppVarDesc)->vardesc.memid = pItem->memid;
|
|
|
|
(*ppVarDesc)->vardesc.u.oInst = pItem->byte_offs;
|
|
|
|
(*ppVarDesc)->vardesc.varkind = VAR_PERINSTANCE;
|
|
|
|
|
|
|
|
if(pItem->typepos == 0x02)
|
|
|
|
pType = &pItem->type;
|
|
|
|
else if(pItem->typepos == 0x00)
|
|
|
|
pType = (WORD*)(pFirstItem + pItem->type);
|
|
|
|
else {
|
|
|
|
FIXME("typepos = %02x\n", pItem->typepos);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
SLTG_DoType(pType, pFirstItem,
|
|
|
|
&(*ppVarDesc)->vardesc.elemdescVar);
|
|
|
|
|
|
|
|
/* FIXME("helpcontext, helpstring\n"); */
|
|
|
|
|
|
|
|
dump_TypeDesc(&(*ppVarDesc)->vardesc.elemdescVar.tdesc, buf);
|
|
|
|
|
|
|
|
ppVarDesc = &((*ppVarDesc)->next);
|
|
|
|
if(pItem->next == 0xffff) break;
|
|
|
|
}
|
|
|
|
pTI->TypeAttr.cVars = num;
|
2001-09-11 01:13:28 +02:00
|
|
|
return (SLTG_TypeInfoTail*)(pFirstItem + pMemHeader->cbExtra);
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
|
2001-09-11 01:13:28 +02:00
|
|
|
static SLTG_TypeInfoTail *SLTG_ProcessEnum(char *pBlk, ITypeInfoImpl *pTI,
|
|
|
|
char *pNameTable)
|
2001-09-07 17:27:16 +02:00
|
|
|
{
|
|
|
|
SLTG_TypeInfoHeader *pTIHeader = (SLTG_TypeInfoHeader*)pBlk;
|
|
|
|
SLTG_MemberHeader *pMemHeader;
|
|
|
|
SLTG_EnumItem *pItem;
|
|
|
|
char *pFirstItem;
|
|
|
|
TLBVarDesc **ppVarDesc = &pTI->varlist;
|
|
|
|
int num = 0;
|
|
|
|
|
|
|
|
pMemHeader = (SLTG_MemberHeader*)(pBlk + pTIHeader->elem_table);
|
|
|
|
|
|
|
|
pFirstItem = (char*)(pMemHeader + 1);
|
|
|
|
for(pItem = (SLTG_EnumItem *)pFirstItem, num = 1; 1;
|
|
|
|
pItem = (SLTG_EnumItem *)(pFirstItem + pItem->next), num++) {
|
|
|
|
if(pItem->magic != SLTG_ENUMITEM_MAGIC) {
|
|
|
|
FIXME("enumitem magic = %04x\n", pItem->magic);
|
2001-09-11 01:13:28 +02:00
|
|
|
return NULL;
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
*ppVarDesc = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(**ppVarDesc));
|
|
|
|
(*ppVarDesc)->Name = TLB_MultiByteToBSTR(pItem->name + pNameTable);
|
|
|
|
(*ppVarDesc)->vardesc.memid = pItem->memid;
|
|
|
|
(*ppVarDesc)->vardesc.u.lpvarValue = HeapAlloc(GetProcessHeap(), 0,
|
|
|
|
sizeof(VARIANT));
|
|
|
|
V_VT((*ppVarDesc)->vardesc.u.lpvarValue) = VT_INT;
|
|
|
|
V_UNION((*ppVarDesc)->vardesc.u.lpvarValue, intVal) =
|
|
|
|
*(INT*)(pItem->value + pFirstItem);
|
|
|
|
(*ppVarDesc)->vardesc.elemdescVar.tdesc.vt = VT_I4;
|
|
|
|
(*ppVarDesc)->vardesc.varkind = VAR_CONST;
|
|
|
|
/* FIXME("helpcontext, helpstring\n"); */
|
|
|
|
|
|
|
|
ppVarDesc = &((*ppVarDesc)->next);
|
|
|
|
if(pItem->next == 0xffff) break;
|
|
|
|
}
|
|
|
|
pTI->TypeAttr.cVars = num;
|
2001-09-11 01:13:28 +02:00
|
|
|
return (SLTG_TypeInfoTail*)(pFirstItem + pMemHeader->cbExtra);
|
2001-09-07 17:27:16 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Because SLTG_OtherTypeInfo is such a painfull struct, we make a more
|
|
|
|
managable copy of it into this */
|
|
|
|
typedef struct {
|
|
|
|
WORD small_no;
|
|
|
|
char *index_name;
|
|
|
|
char *other_name;
|
|
|
|
WORD res1a;
|
|
|
|
WORD name_offs;
|
|
|
|
WORD more_bytes;
|
|
|
|
char *extra;
|
|
|
|
WORD res20;
|
|
|
|
DWORD helpcontext;
|
|
|
|
WORD res26;
|
|
|
|
GUID uuid;
|
|
|
|
} SLTG_InternalOtherTypeInfo;
|
|
|
|
|
|
|
|
/****************************************************************************
|
|
|
|
* ITypeLib2_Constructor_SLTG
|
|
|
|
*
|
|
|
|
* loading a SLTG typelib from an in-memory image
|
|
|
|
*/
|
|
|
|
static ITypeLib2* ITypeLib2_Constructor_SLTG(LPVOID pLib, DWORD dwTLBLength)
|
|
|
|
{
|
|
|
|
ITypeLibImpl *pTypeLibImpl;
|
|
|
|
SLTG_Header *pHeader;
|
|
|
|
SLTG_BlkEntry *pBlkEntry;
|
|
|
|
SLTG_Magic *pMagic;
|
|
|
|
SLTG_Index *pIndex;
|
|
|
|
SLTG_Pad9 *pPad9;
|
|
|
|
LPVOID pBlk, pFirstBlk;
|
|
|
|
SLTG_LibBlk *pLibBlk;
|
|
|
|
SLTG_InternalOtherTypeInfo *pOtherTypeInfoBlks;
|
|
|
|
char *pAfterOTIBlks = NULL;
|
|
|
|
char *pNameTable, *ptr;
|
|
|
|
int i;
|
|
|
|
DWORD len, order;
|
|
|
|
ITypeInfoImpl **ppTypeInfoImpl;
|
|
|
|
|
|
|
|
TRACE("%p, TLB length = %ld\n", pLib, dwTLBLength);
|
|
|
|
|
|
|
|
pTypeLibImpl = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(ITypeLibImpl));
|
|
|
|
if (!pTypeLibImpl) return NULL;
|
|
|
|
|
|
|
|
ICOM_VTBL(pTypeLibImpl) = &tlbvt;
|
|
|
|
pTypeLibImpl->ref = 1;
|
|
|
|
|
|
|
|
pHeader = pLib;
|
|
|
|
|
|
|
|
TRACE("header:\n");
|
|
|
|
TRACE("\tmagic=0x%08lx, file blocks = %d\n", pHeader->SLTG_magic,
|
|
|
|
pHeader->nrOfFileBlks );
|
|
|
|
if (memcmp(&pHeader->SLTG_magic, TLBMAGIC1, 4)) {
|
|
|
|
FIXME("Header type magic 0x%08lx not supported.\n",
|
|
|
|
pHeader->SLTG_magic);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* There are pHeader->nrOfFileBlks - 2 TypeInfo records in this typelib */
|
|
|
|
pTypeLibImpl->TypeInfoCount = pHeader->nrOfFileBlks - 2;
|
|
|
|
|
|
|
|
/* This points to pHeader->nrOfFileBlks - 1 of SLTG_BlkEntry */
|
|
|
|
pBlkEntry = (SLTG_BlkEntry*)(pHeader + 1);
|
|
|
|
|
|
|
|
/* Next we have a magic block */
|
|
|
|
pMagic = (SLTG_Magic*)(pBlkEntry + pHeader->nrOfFileBlks - 1);
|
|
|
|
|
|
|
|
/* Let's see if we're still in sync */
|
|
|
|
if(memcmp(pMagic->CompObj_magic, SLTG_COMPOBJ_MAGIC,
|
|
|
|
sizeof(SLTG_COMPOBJ_MAGIC))) {
|
|
|
|
FIXME("CompObj magic = %s\n", pMagic->CompObj_magic);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
if(memcmp(pMagic->dir_magic, SLTG_DIR_MAGIC,
|
|
|
|
sizeof(SLTG_DIR_MAGIC))) {
|
|
|
|
FIXME("dir magic = %s\n", pMagic->dir_magic);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
pIndex = (SLTG_Index*)(pMagic+1);
|
|
|
|
|
|
|
|
pPad9 = (SLTG_Pad9*)(pIndex + pTypeLibImpl->TypeInfoCount);
|
|
|
|
|
|
|
|
pFirstBlk = (LPVOID)(pPad9 + 1);
|
|
|
|
|
|
|
|
/* We'll set up a ptr to the main library block, which is the last one. */
|
|
|
|
|
|
|
|
for(pBlk = pFirstBlk, order = pHeader->first_blk - 1, i = 0;
|
|
|
|
pBlkEntry[order].next != 0;
|
|
|
|
order = pBlkEntry[order].next - 1, i++) {
|
|
|
|
pBlk += pBlkEntry[order].len;
|
|
|
|
}
|
|
|
|
pLibBlk = pBlk;
|
|
|
|
|
|
|
|
len = SLTG_ReadLibBlk(pLibBlk, pTypeLibImpl);
|
|
|
|
|
|
|
|
/* Now there's 0x40 bytes of 0xffff with the numbers 0 to TypeInfoCount
|
|
|
|
interspersed */
|
|
|
|
|
|
|
|
len += 0x40;
|
|
|
|
|
|
|
|
/* And now TypeInfoCount of SLTG_OtherTypeInfo */
|
|
|
|
|
|
|
|
pOtherTypeInfoBlks = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
|
|
|
|
sizeof(*pOtherTypeInfoBlks) *
|
|
|
|
pTypeLibImpl->TypeInfoCount);
|
|
|
|
|
|
|
|
|
|
|
|
ptr = (char*)pLibBlk + len;
|
|
|
|
|
|
|
|
for(i = 0; i < pTypeLibImpl->TypeInfoCount; i++) {
|
|
|
|
WORD w, extra;
|
|
|
|
len = 0;
|
|
|
|
|
|
|
|
pOtherTypeInfoBlks[i].small_no = *(WORD*)ptr;
|
|
|
|
|
|
|
|
w = *(WORD*)(ptr + 2);
|
|
|
|
if(w != 0xffff) {
|
|
|
|
len += w;
|
|
|
|
pOtherTypeInfoBlks[i].index_name = HeapAlloc(GetProcessHeap(),0,
|
|
|
|
w+1);
|
|
|
|
memcpy(pOtherTypeInfoBlks[i].index_name, ptr + 4, w);
|
|
|
|
pOtherTypeInfoBlks[i].index_name[w] = '\0';
|
|
|
|
}
|
|
|
|
w = *(WORD*)(ptr + 4 + len);
|
|
|
|
if(w != 0xffff) {
|
|
|
|
TRACE("\twith %s\n", debugstr_an(ptr + 6 + len, w));
|
|
|
|
len += w;
|
|
|
|
pOtherTypeInfoBlks[i].other_name = HeapAlloc(GetProcessHeap(),0,
|
|
|
|
w+1);
|
|
|
|
memcpy(pOtherTypeInfoBlks[i].other_name, ptr + 6 + len, w);
|
|
|
|
pOtherTypeInfoBlks[i].other_name[w] = '\0';
|
|
|
|
}
|
|
|
|
pOtherTypeInfoBlks[i].res1a = *(WORD*)(ptr + len + 6);
|
|
|
|
pOtherTypeInfoBlks[i].name_offs = *(WORD*)(ptr + len + 8);
|
|
|
|
extra = pOtherTypeInfoBlks[i].more_bytes = *(WORD*)(ptr + 10 + len);
|
|
|
|
if(extra) {
|
|
|
|
pOtherTypeInfoBlks[i].extra = HeapAlloc(GetProcessHeap(),0,
|
|
|
|
extra);
|
|
|
|
memcpy(pOtherTypeInfoBlks[i].extra, ptr + 12, extra);
|
|
|
|
len += extra;
|
|
|
|
}
|
|
|
|
pOtherTypeInfoBlks[i].res20 = *(WORD*)(ptr + 12 + len);
|
|
|
|
pOtherTypeInfoBlks[i].helpcontext = *(DWORD*)(ptr + 14 + len);
|
|
|
|
pOtherTypeInfoBlks[i].res26 = *(WORD*)(ptr + 18 + len);
|
|
|
|
memcpy(&pOtherTypeInfoBlks[i].uuid, ptr + 20 + len, sizeof(GUID));
|
|
|
|
len += sizeof(SLTG_OtherTypeInfo);
|
|
|
|
ptr += len;
|
|
|
|
}
|
|
|
|
|
|
|
|
pAfterOTIBlks = ptr;
|
|
|
|
|
|
|
|
/* Skip this WORD and get the next DWORD */
|
|
|
|
len = *(DWORD*)(pAfterOTIBlks + 2);
|
|
|
|
|
|
|
|
/* Now add this to pLibBLk and then add 0x216, sprinkle a bit a
|
|
|
|
magic dust and we should be pointing at the beginning of the name
|
|
|
|
table */
|
|
|
|
|
|
|
|
pNameTable = (char*)pLibBlk + len + 0x216;
|
|
|
|
|
|
|
|
pNameTable += 2;
|
|
|
|
|
|
|
|
TRACE("Library name is %s\n", pNameTable + pLibBlk->name);
|
|
|
|
|
|
|
|
pTypeLibImpl->Name = TLB_MultiByteToBSTR(pNameTable + pLibBlk->name);
|
|
|
|
|
|
|
|
|
|
|
|
/* Hopefully we now have enough ptrs set up to actually read in
|
|
|
|
some TypeInfos. It's not clear which order to do them in, so
|
|
|
|
I'll just follow the links along the BlkEntry chain and read
|
|
|
|
them in in the order in which they're in the file */
|
|
|
|
|
|
|
|
ppTypeInfoImpl = &(pTypeLibImpl->pTypeInfo);
|
|
|
|
|
|
|
|
for(pBlk = pFirstBlk, order = pHeader->first_blk - 1, i = 0;
|
|
|
|
pBlkEntry[order].next != 0;
|
|
|
|
order = pBlkEntry[order].next - 1, i++) {
|
|
|
|
|
|
|
|
SLTG_TypeInfoHeader *pTIHeader;
|
2001-09-11 01:13:28 +02:00
|
|
|
SLTG_TypeInfoTail *pTITail;
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
if(strcmp(pBlkEntry[order].index_string + (char*)pMagic,
|
|
|
|
pOtherTypeInfoBlks[i].index_name)) {
|
|
|
|
FIXME("Index strings don't match\n");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
pTIHeader = pBlk;
|
|
|
|
if(pTIHeader->magic != SLTG_TIHEADER_MAGIC) {
|
|
|
|
FIXME("TypeInfoHeader magic = %04x\n", pTIHeader->magic);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
*ppTypeInfoImpl = (ITypeInfoImpl*)ITypeInfo_Constructor();
|
|
|
|
(*ppTypeInfoImpl)->pTypeLib = pTypeLibImpl;
|
2002-02-04 19:32:20 +01:00
|
|
|
ITypeLib2_AddRef((ITypeLib2 *)pTypeLibImpl);
|
2001-09-07 17:27:16 +02:00
|
|
|
(*ppTypeInfoImpl)->index = i;
|
|
|
|
(*ppTypeInfoImpl)->Name = TLB_MultiByteToBSTR(
|
|
|
|
pOtherTypeInfoBlks[i].name_offs +
|
|
|
|
pNameTable);
|
|
|
|
(*ppTypeInfoImpl)->dwHelpContext = pOtherTypeInfoBlks[i].helpcontext;
|
|
|
|
memcpy(&((*ppTypeInfoImpl)->TypeAttr.guid), &pOtherTypeInfoBlks[i].uuid,
|
|
|
|
sizeof(GUID));
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.typekind = pTIHeader->typekind;
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.wMajorVerNum = pTIHeader->major_version;
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.wMinorVerNum = pTIHeader->minor_version;
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.wTypeFlags =
|
|
|
|
(pTIHeader->typeflags1 >> 3) | (pTIHeader->typeflags2 << 5);
|
|
|
|
|
|
|
|
if((pTIHeader->typeflags1 & 7) != 2)
|
|
|
|
FIXME("typeflags1 = %02x\n", pTIHeader->typeflags1);
|
|
|
|
if(pTIHeader->typeflags3 != 2)
|
|
|
|
FIXME("typeflags3 = %02x\n", pTIHeader->typeflags3);
|
|
|
|
|
|
|
|
TRACE("TypeInfo %s of kind %s guid %s typeflags %04x\n",
|
|
|
|
debugstr_w((*ppTypeInfoImpl)->Name),
|
|
|
|
typekind_desc[pTIHeader->typekind],
|
|
|
|
debugstr_guid(&(*ppTypeInfoImpl)->TypeAttr.guid),
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.wTypeFlags);
|
|
|
|
|
|
|
|
switch(pTIHeader->typekind) {
|
|
|
|
case TKIND_ENUM:
|
2001-09-11 01:13:28 +02:00
|
|
|
pTITail = SLTG_ProcessEnum(pBlk, *ppTypeInfoImpl, pNameTable);
|
2001-09-07 17:27:16 +02:00
|
|
|
break;
|
|
|
|
|
|
|
|
case TKIND_RECORD:
|
2001-09-11 01:13:28 +02:00
|
|
|
pTITail = SLTG_ProcessRecord(pBlk, *ppTypeInfoImpl, pNameTable);
|
2001-09-07 17:27:16 +02:00
|
|
|
break;
|
|
|
|
|
|
|
|
case TKIND_INTERFACE:
|
2001-09-11 01:13:28 +02:00
|
|
|
pTITail = SLTG_ProcessInterface(pBlk, *ppTypeInfoImpl, pNameTable);
|
2001-09-07 17:27:16 +02:00
|
|
|
break;
|
|
|
|
|
|
|
|
case TKIND_COCLASS:
|
2001-09-11 01:13:28 +02:00
|
|
|
pTITail = SLTG_ProcessCoClass(pBlk, *ppTypeInfoImpl, pNameTable);
|
2001-09-07 17:27:16 +02:00
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
FIXME("Not processing typekind %d\n", pTIHeader->typekind);
|
2001-09-11 01:13:28 +02:00
|
|
|
pTITail = NULL;
|
2001-09-07 17:27:16 +02:00
|
|
|
break;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
2001-09-11 01:13:28 +02:00
|
|
|
if(pTITail) { /* could get cFuncs, cVars and cImplTypes from here
|
|
|
|
but we've already set those */
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.cbAlignment = pTITail->cbAlignment;
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.cbSizeInstance = pTITail->cbSizeInstance;
|
|
|
|
(*ppTypeInfoImpl)->TypeAttr.cbSizeVft = pTITail->cbSizeVft;
|
|
|
|
}
|
2001-09-07 17:27:16 +02:00
|
|
|
ppTypeInfoImpl = &((*ppTypeInfoImpl)->next);
|
|
|
|
pBlk += pBlkEntry[order].len;
|
|
|
|
}
|
|
|
|
|
|
|
|
if(i != pTypeLibImpl->TypeInfoCount) {
|
|
|
|
FIXME("Somehow processed %d TypeInfos\n", i);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
HeapFree(GetProcessHeap(), 0, pOtherTypeInfoBlks);
|
|
|
|
return (ITypeLib2*)pTypeLibImpl;
|
|
|
|
}
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* ITypeLib::QueryInterface
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnQueryInterface(
|
|
|
|
ITypeLib2 * iface,
|
|
|
|
REFIID riid,
|
|
|
|
VOID **ppvObject)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p)->(IID: %s)\n",This,debugstr_guid(riid));
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
*ppvObject=NULL;
|
|
|
|
if(IsEqualIID(riid, &IID_IUnknown) ||
|
2000-06-24 15:50:52 +02:00
|
|
|
IsEqualIID(riid,&IID_ITypeLib)||
|
|
|
|
IsEqualIID(riid,&IID_ITypeLib2))
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
*ppvObject = This;
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
if(*ppvObject)
|
|
|
|
{
|
|
|
|
ITypeLib2_AddRef(iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("-- Interface: (%p)->(%p)\n",ppvObject,*ppvObject);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("-- Interface: E_NOINTERFACE\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_NOINTERFACE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::AddRef
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static ULONG WINAPI ITypeLib2_fnAddRef( ITypeLib2 *iface)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)->ref is %u\n",This, This->ref);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
return ++(This->ref);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::Release
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static ULONG WINAPI ITypeLib2_fnRelease( ITypeLib2 *iface)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
--(This->ref);
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
TRACE("(%p)->(%u)\n",This, This->ref);
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (!This->ref)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
2002-01-29 04:12:19 +01:00
|
|
|
/* FIXME destroy child objects */
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-11-26 00:51:30 +01:00
|
|
|
TRACE(" destroying ITypeLib(%p)\n",This);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (This->Name)
|
|
|
|
{
|
|
|
|
SysFreeString(This->Name);
|
|
|
|
This->Name = NULL;
|
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (This->DocString)
|
|
|
|
{
|
|
|
|
SysFreeString(This->DocString);
|
|
|
|
This->DocString = NULL;
|
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (This->HelpFile)
|
|
|
|
{
|
|
|
|
SysFreeString(This->HelpFile);
|
|
|
|
This->HelpFile = NULL;
|
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (This->HelpStringDll)
|
|
|
|
{
|
|
|
|
SysFreeString(This->HelpStringDll);
|
|
|
|
This->HelpStringDll = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
ITypeInfo_Release((ITypeInfo*) This->pTypeInfo);
|
2000-06-24 15:50:52 +02:00
|
|
|
HeapFree(GetProcessHeap(),0,This);
|
|
|
|
return 0;
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
return This->ref;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::GetTypeInfoCount
|
|
|
|
*
|
|
|
|
* Returns the number of type descriptions in the type library
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static UINT WINAPI ITypeLib2_fnGetTypeInfoCount( ITypeLib2 *iface)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)->count is %d\n",This, This->TypeInfoCount);
|
1999-06-05 14:00:13 +02:00
|
|
|
return This->TypeInfoCount;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::GetTypeInfo
|
|
|
|
*
|
2000-06-24 15:50:52 +02:00
|
|
|
* retrieves the specified type description in the library.
|
1999-06-05 14:00:13 +02:00
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetTypeInfo(
|
2000-12-21 21:20:12 +01:00
|
|
|
ITypeLib2 *iface,
|
|
|
|
UINT index,
|
|
|
|
ITypeInfo **ppTInfo)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
|
|
|
int i;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
2000-12-21 21:20:12 +01:00
|
|
|
ITypeInfoImpl *pTypeInfo = This->pTypeInfo;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE("(%p)->(index=%d) \n", This, index);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
if (!ppTInfo) return E_INVALIDARG;
|
|
|
|
|
|
|
|
/* search element n in list */
|
|
|
|
for(i=0; i < index; i++)
|
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
pTypeInfo = pTypeInfo->next;
|
|
|
|
if (!pTypeInfo)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
|
|
|
TRACE("-- element not found\n");
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
*ppTInfo = (ITypeInfo *) pTypeInfo;
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeInfo_AddRef(*ppTInfo);
|
|
|
|
TRACE("-- found (%p)\n",*ppTInfo);
|
|
|
|
return S_OK;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* ITypeLibs::GetTypeInfoType
|
|
|
|
*
|
|
|
|
* Retrieves the type of a type description.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetTypeInfoType(
|
2000-12-21 21:20:12 +01:00
|
|
|
ITypeLib2 *iface,
|
|
|
|
UINT index,
|
|
|
|
TYPEKIND *pTKind)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
int i;
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeInfoImpl *pTInfo = This->pTypeInfo;
|
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d \n",This, index);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
if(!pTKind) return E_INVALIDARG;
|
|
|
|
|
|
|
|
/* search element n in list */
|
|
|
|
for(i=0; i < index; i++)
|
|
|
|
{
|
|
|
|
if(!pTInfo)
|
|
|
|
{
|
|
|
|
TRACE("-- element not found\n");
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
pTInfo = pTInfo->next;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
*pTKind = pTInfo->TypeAttr.typekind;
|
|
|
|
TRACE("-- found Type (%d)\n", *pTKind);
|
|
|
|
return S_OK;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::GetTypeInfoOfGuid
|
|
|
|
*
|
|
|
|
* Retrieves the type description that corresponds to the specified GUID.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetTypeInfoOfGuid(
|
2000-12-21 21:20:12 +01:00
|
|
|
ITypeLib2 *iface,
|
|
|
|
REFGUID guid,
|
|
|
|
ITypeInfo **ppTInfo)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
2000-12-21 21:20:12 +01:00
|
|
|
ITypeInfoImpl *pTypeInfo = This->pTypeInfo; /* head of list */
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
TRACE("(%p)\n\tguid:\t%s)\n",This,debugstr_guid(guid));
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (!pTypeInfo) return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
|
|
|
|
/* search linked list for guid */
|
|
|
|
while( !IsEqualIID(guid,&pTypeInfo->TypeAttr.guid) )
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
pTypeInfo = pTypeInfo->next;
|
|
|
|
|
|
|
|
if (!pTypeInfo)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
|
|
|
/* end of list reached */
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE("-- element not found\n");
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE("-- found (%p, %s)\n",
|
|
|
|
pTypeInfo,
|
|
|
|
debugstr_w(pTypeInfo->Name));
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
*ppTInfo = (ITypeInfo*)pTypeInfo;
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeInfo_AddRef(*ppTInfo);
|
|
|
|
return S_OK;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::GetLibAttr
|
|
|
|
*
|
|
|
|
* Retrieves the structure that contains the library's attributes.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetLibAttr(
|
|
|
|
ITypeLib2 *iface,
|
|
|
|
LPTLIBATTR *ppTLibAttr)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-07-09 14:17:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)\n",This);
|
2001-09-11 01:13:28 +02:00
|
|
|
*ppTLibAttr = HeapAlloc(GetProcessHeap(), 0, sizeof(**ppTLibAttr));
|
|
|
|
memcpy(*ppTLibAttr, &This->LibAttr, sizeof(**ppTLibAttr));
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::GetTypeComp
|
|
|
|
*
|
|
|
|
* Enables a client compiler to bind to a library's types, variables,
|
|
|
|
* constants, and global functions.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetTypeComp(
|
|
|
|
ITypeLib2 *iface,
|
|
|
|
ITypeComp **ppTComp)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%p): stub!\n",This);
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_NOTIMPL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::GetDocumentation
|
|
|
|
*
|
|
|
|
* Retrieves the library's documentation string, the complete Help file name
|
|
|
|
* and path, and the context identifier for the library Help topic in the Help
|
|
|
|
* file.
|
|
|
|
*
|
2002-01-09 20:10:59 +01:00
|
|
|
* On a successful return all non-null BSTR pointers will have been set,
|
|
|
|
* possibly to NULL.
|
1999-06-05 14:00:13 +02:00
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetDocumentation(
|
2000-12-21 21:20:12 +01:00
|
|
|
ITypeLib2 *iface,
|
|
|
|
INT index,
|
|
|
|
BSTR *pBstrName,
|
|
|
|
BSTR *pBstrDocString,
|
|
|
|
DWORD *pdwHelpContext,
|
|
|
|
BSTR *pBstrHelpFile)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
|
|
|
|
HRESULT result = E_INVALIDARG;
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
ITypeInfo *pTInfo;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
|
|
|
|
TRACE("(%p) index %d Name(%p) DocString(%p) HelpContext(%p) HelpFile(%p)\n",
|
|
|
|
This, index,
|
|
|
|
pBstrName, pBstrDocString,
|
|
|
|
pdwHelpContext, pBstrHelpFile);
|
|
|
|
|
|
|
|
if(index<0)
|
|
|
|
{
|
2002-01-09 20:10:59 +01:00
|
|
|
/* documentation for the typelib */
|
|
|
|
if(pBstrName)
|
|
|
|
{
|
|
|
|
if (This->Name)
|
|
|
|
if(!(*pBstrName = SysAllocString(This->Name))) goto memerr1;else;
|
|
|
|
else
|
|
|
|
*pBstrName = NULL;
|
|
|
|
}
|
|
|
|
if(pBstrDocString)
|
|
|
|
{
|
|
|
|
if (This->DocString)
|
|
|
|
if(!(*pBstrDocString = SysAllocString(This->DocString))) goto memerr2;else;
|
|
|
|
else if (This->Name)
|
|
|
|
if(!(*pBstrDocString = SysAllocString(This->Name))) goto memerr2;else;
|
|
|
|
else
|
|
|
|
*pBstrDocString = NULL;
|
|
|
|
}
|
|
|
|
if(pdwHelpContext)
|
|
|
|
{
|
2000-12-21 21:20:12 +01:00
|
|
|
*pdwHelpContext = This->dwHelpContext;
|
2002-01-09 20:10:59 +01:00
|
|
|
}
|
|
|
|
if(pBstrHelpFile)
|
|
|
|
{
|
|
|
|
if (This->HelpFile)
|
|
|
|
if(!(*pBstrHelpFile = SysAllocString(This->HelpFile))) goto memerr3;else;
|
|
|
|
else
|
|
|
|
*pBstrHelpFile = NULL;
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2002-01-09 20:10:59 +01:00
|
|
|
result = S_OK;
|
2000-12-21 21:20:12 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* for a typeinfo */
|
|
|
|
result = ITypeLib2_fnGetTypeInfo(iface, index, &pTInfo);
|
|
|
|
|
|
|
|
if(SUCCEEDED(result))
|
|
|
|
{
|
|
|
|
result = ITypeInfo_GetDocumentation(pTInfo,
|
|
|
|
MEMBERID_NIL,
|
|
|
|
pBstrName,
|
|
|
|
pBstrDocString,
|
|
|
|
pdwHelpContext, pBstrHelpFile);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
ITypeInfo_Release(pTInfo);
|
|
|
|
}
|
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
return result;
|
2002-01-09 20:10:59 +01:00
|
|
|
memerr3:
|
|
|
|
if (pBstrDocString) SysFreeString (*pBstrDocString);
|
|
|
|
memerr2:
|
|
|
|
if (pBstrName) SysFreeString (*pBstrName);
|
|
|
|
memerr1:
|
|
|
|
return STG_E_INSUFFICIENTMEMORY;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::IsName
|
|
|
|
*
|
|
|
|
* Indicates whether a passed-in string contains the name of a type or member
|
|
|
|
* described in the library.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnIsName(
|
|
|
|
ITypeLib2 *iface,
|
|
|
|
LPOLESTR szNameBuf,
|
|
|
|
ULONG lHashVal,
|
|
|
|
BOOL *pfName)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
ITypeInfoImpl *pTInfo;
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBFuncDesc *pFInfo;
|
|
|
|
TLBVarDesc *pVInfo;
|
|
|
|
int i;
|
2000-10-25 23:24:53 +02:00
|
|
|
UINT nNameBufLen = SysStringLen(szNameBuf);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-07-09 14:17:52 +02:00
|
|
|
TRACE("(%p)->(%s,%08lx,%p)\n", This, debugstr_w(szNameBuf), lHashVal,
|
|
|
|
pfName);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
*pfName=TRUE;
|
|
|
|
for(pTInfo=This->pTypeInfo;pTInfo;pTInfo=pTInfo->next){
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pTInfo->Name, nNameBufLen)) goto ITypeLib2_fnIsName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
for(pFInfo=pTInfo->funclist;pFInfo;pFInfo=pFInfo->next) {
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pFInfo->Name, nNameBufLen)) goto ITypeLib2_fnIsName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0;i<pFInfo->funcdesc.cParams;i++)
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pFInfo->pParamDesc[i].Name, nNameBufLen))
|
2000-06-24 15:50:52 +02:00
|
|
|
goto ITypeLib2_fnIsName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-07-08 13:46:33 +02:00
|
|
|
for(pVInfo=pTInfo->varlist;pVInfo;pVInfo=pVInfo->next)
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pVInfo->Name, nNameBufLen)) goto ITypeLib2_fnIsName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
}
|
|
|
|
*pfName=FALSE;
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeLib2_fnIsName_exit:
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)slow! search for %s: %s found!\n", This,
|
2000-10-25 23:24:53 +02:00
|
|
|
debugstr_w(szNameBuf), *pfName?"NOT":"");
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::FindName
|
|
|
|
*
|
|
|
|
* Finds occurrences of a type description in a type library. This may be used
|
|
|
|
* to quickly verify that a name exists in a type library.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnFindName(
|
|
|
|
ITypeLib2 *iface,
|
|
|
|
LPOLESTR szNameBuf,
|
|
|
|
ULONG lHashVal,
|
|
|
|
ITypeInfo **ppTInfo,
|
|
|
|
MEMBERID *rgMemId,
|
|
|
|
UINT16 *pcFound)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
ITypeInfoImpl *pTInfo;
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBFuncDesc *pFInfo;
|
|
|
|
TLBVarDesc *pVInfo;
|
|
|
|
int i,j = 0;
|
2000-10-25 23:24:53 +02:00
|
|
|
|
|
|
|
UINT nNameBufLen = SysStringLen(szNameBuf);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
for(pTInfo=This->pTypeInfo;pTInfo && j<*pcFound; pTInfo=pTInfo->next){
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pTInfo->Name, nNameBufLen)) goto ITypeLib2_fnFindName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
for(pFInfo=pTInfo->funclist;pFInfo;pFInfo=pFInfo->next) {
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pFInfo->Name,nNameBufLen)) goto ITypeLib2_fnFindName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0;i<pFInfo->funcdesc.cParams;i++)
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pFInfo->pParamDesc[i].Name,nNameBufLen))
|
2000-06-24 15:50:52 +02:00
|
|
|
goto ITypeLib2_fnFindName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2001-03-05 20:32:50 +01:00
|
|
|
for(pVInfo=pTInfo->varlist;pVInfo;pVInfo=pVInfo->next)
|
2000-10-25 23:24:53 +02:00
|
|
|
if(!memcmp(szNameBuf,pVInfo->Name, nNameBufLen)) goto ITypeLib2_fnFindName_exit;
|
1999-06-05 14:00:13 +02:00
|
|
|
continue;
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeLib2_fnFindName_exit:
|
|
|
|
ITypeInfo_AddRef((ITypeInfo*)pTInfo);
|
1999-06-05 14:00:13 +02:00
|
|
|
ppTInfo[j]=(LPTYPEINFO)pTInfo;
|
|
|
|
j++;
|
|
|
|
}
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)slow! search for %d with %s: found %d TypeInfo's!\n",
|
2000-10-25 23:24:53 +02:00
|
|
|
This, *pcFound, debugstr_w(szNameBuf), j);
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
*pcFound=j;
|
|
|
|
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib::ReleaseTLibAttr
|
|
|
|
*
|
|
|
|
* Releases the TLIBATTR originally obtained from ITypeLib::GetLibAttr.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static VOID WINAPI ITypeLib2_fnReleaseTLibAttr(
|
|
|
|
ITypeLib2 *iface,
|
|
|
|
TLIBATTR *pTLibAttr)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-07-09 14:17:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("freeing (%p)\n",This);
|
2001-09-11 01:13:28 +02:00
|
|
|
HeapFree(GetProcessHeap(),0,pTLibAttr);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib2::GetCustData
|
|
|
|
*
|
|
|
|
* gets the custom data
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetCustData(
|
|
|
|
ITypeLib2 * iface,
|
|
|
|
REFGUID guid,
|
1999-06-05 14:00:13 +02:00
|
|
|
VARIANT *pVarVal)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
for(pCData=This->pCustData; pCData; pCData = pCData->next)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
|
|
|
if( IsEqualIID(guid, &pCData->guid)) break;
|
|
|
|
}
|
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p) guid %s %s found!x)\n", This, debugstr_guid(guid), pCData? "" : "NOT");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
if(pCData)
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
VariantInit( pVarVal);
|
|
|
|
VariantCopy( pVarVal, &pCData->data);
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG; /* FIXME: correct? */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib2::GetLibStatistics
|
|
|
|
*
|
|
|
|
* Returns statistics about a type library that are required for efficient
|
|
|
|
* sizing of hash tables.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetLibStatistics(
|
|
|
|
ITypeLib2 * iface,
|
|
|
|
ULONG *pcUniqueNames,
|
|
|
|
ULONG *pcchUniqueNames)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%p): stub!\n", This);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pcUniqueNames) *pcUniqueNames=1;
|
|
|
|
if(pcchUniqueNames) *pcchUniqueNames=1;
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib2::GetDocumentation2
|
|
|
|
*
|
|
|
|
* Retrieves the library's documentation string, the complete Help file name
|
|
|
|
* and path, the localization context to use, and the context ID for the
|
|
|
|
* library Help topic in the Help file.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetDocumentation2(
|
|
|
|
ITypeLib2 * iface,
|
|
|
|
INT index,
|
|
|
|
LCID lcid,
|
|
|
|
BSTR *pbstrHelpString,
|
|
|
|
DWORD *pdwHelpStringContext,
|
|
|
|
BSTR *pbstrHelpStringDll)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
HRESULT result;
|
|
|
|
ITypeInfo *pTInfo;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
FIXME("(%p) index %d lcid %ld half implemented stub!\n", This, index, lcid);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
/* the help string should be obtained from the helpstringdll,
|
|
|
|
* using the _DLLGetDocumentation function, based on the supplied
|
|
|
|
* lcid. Nice to do sometime...
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
if(index<0)
|
|
|
|
{
|
|
|
|
/* documentation for the typelib */
|
|
|
|
if(pbstrHelpString)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pbstrHelpString=SysAllocString(This->DocString);
|
2000-06-24 15:50:52 +02:00
|
|
|
if(pdwHelpStringContext)
|
|
|
|
*pdwHelpStringContext=This->dwHelpContext;
|
|
|
|
if(pbstrHelpStringDll)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pbstrHelpStringDll=SysAllocString(This->HelpStringDll);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
result = S_OK;
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* for a typeinfo */
|
|
|
|
result=ITypeLib2_GetTypeInfo(iface, index, &pTInfo);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
if(SUCCEEDED(result))
|
2000-12-21 21:20:12 +01:00
|
|
|
{
|
|
|
|
ITypeInfo2 * pTInfo2;
|
|
|
|
result = ITypeInfo_QueryInterface(pTInfo,
|
|
|
|
&IID_ITypeInfo2,
|
|
|
|
(LPVOID*) &pTInfo2);
|
|
|
|
|
|
|
|
if(SUCCEEDED(result))
|
|
|
|
{
|
|
|
|
result = ITypeInfo2_GetDocumentation2(pTInfo2,
|
|
|
|
MEMBERID_NIL,
|
|
|
|
lcid,
|
|
|
|
pbstrHelpString,
|
|
|
|
pdwHelpStringContext,
|
|
|
|
pbstrHelpStringDll);
|
|
|
|
|
2000-11-26 00:51:30 +01:00
|
|
|
ITypeInfo2_Release(pTInfo2);
|
2000-12-21 21:20:12 +01:00
|
|
|
}
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeInfo_Release(pTInfo);
|
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-12-21 21:20:12 +01:00
|
|
|
return result;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeLib2::GetAllCustData
|
|
|
|
*
|
|
|
|
* Gets all custom data items for the library.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeLib2_fnGetAllCustData(
|
|
|
|
ITypeLib2 * iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
CUSTDATA *pCustData)
|
|
|
|
{
|
2000-07-09 14:17:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData;
|
|
|
|
int i;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) returning %d items\n", This, This->ctCustData);
|
1999-06-05 14:00:13 +02:00
|
|
|
pCustData->prgCustData = TLB_Alloc(This->ctCustData * sizeof(CUSTDATAITEM));
|
|
|
|
if(pCustData->prgCustData ){
|
|
|
|
pCustData->cCustData=This->ctCustData;
|
|
|
|
for(i=0, pCData=This->pCustData; pCData; i++, pCData = pCData->next){
|
|
|
|
pCustData->prgCustData[i].guid=pCData->guid;
|
|
|
|
VariantCopy(& pCustData->prgCustData[i].varValue, & pCData->data);
|
|
|
|
}
|
|
|
|
}else{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR(" OUT OF MEMORY! \n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_OUTOFMEMORY;
|
|
|
|
}
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static ICOM_VTABLE(ITypeLib2) tlbvt = {
|
|
|
|
ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
|
|
|
|
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
|
|
|
|
};
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
/*================== ITypeInfo(2) Methods ===================================*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static ITypeInfo2 * WINAPI ITypeInfo_Constructor(void)
|
|
|
|
{
|
|
|
|
ITypeInfoImpl * pTypeInfoImpl;
|
|
|
|
|
|
|
|
pTypeInfoImpl = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(ITypeInfoImpl));
|
|
|
|
if (pTypeInfoImpl)
|
|
|
|
{
|
|
|
|
ICOM_VTBL(pTypeInfoImpl) = &tinfvt;
|
|
|
|
pTypeInfoImpl->ref=1;
|
|
|
|
}
|
|
|
|
TRACE("(%p)\n", pTypeInfoImpl);
|
|
|
|
return (ITypeInfo2*) pTypeInfoImpl;
|
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
|
|
|
|
/* ITypeInfo::QueryInterface
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnQueryInterface(
|
|
|
|
ITypeInfo2 *iface,
|
|
|
|
REFIID riid,
|
|
|
|
VOID **ppvObject)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeLibImpl, iface);
|
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p)->(IID: %s)\n",This,debugstr_guid(riid));
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
*ppvObject=NULL;
|
|
|
|
if(IsEqualIID(riid, &IID_IUnknown) ||
|
|
|
|
IsEqualIID(riid,&IID_ITypeInfo)||
|
|
|
|
IsEqualIID(riid,&IID_ITypeInfo2))
|
|
|
|
*ppvObject = This;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(*ppvObject){
|
1999-10-13 16:01:40 +02:00
|
|
|
ITypeInfo_AddRef(iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("-- Interface: (%p)->(%p)\n",ppvObject,*ppvObject);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("-- Interface: E_NOINTERFACE\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_NOINTERFACE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::AddRef
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static ULONG WINAPI ITypeInfo_fnAddRef( ITypeInfo2 *iface)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
++(This->ref);
|
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)->ref is %u\n",This, This->ref);
|
2000-12-21 21:20:12 +01:00
|
|
|
return This->ref;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::Release
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static ULONG WINAPI ITypeInfo_fnRelease( ITypeInfo2 *iface)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
2000-12-21 21:20:12 +01:00
|
|
|
|
|
|
|
--(This->ref);
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
TRACE("(%p)->(%u)\n",This, This->ref);
|
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (!This->ref)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
2000-11-26 00:51:30 +01:00
|
|
|
FIXME("destroy child objects\n");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
TRACE("destroying ITypeInfo(%p)\n",This);
|
|
|
|
if (This->Name)
|
|
|
|
{
|
|
|
|
SysFreeString(This->Name);
|
|
|
|
This->Name = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (This->DocString)
|
|
|
|
{
|
|
|
|
SysFreeString(This->DocString);
|
|
|
|
This->DocString = 0;
|
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-12-21 21:20:12 +01:00
|
|
|
if (This->next)
|
|
|
|
{
|
|
|
|
ITypeInfo_Release((ITypeInfo*)This->next);
|
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
HeapFree(GetProcessHeap(),0,This);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
return This->ref;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetTypeAttr
|
|
|
|
*
|
|
|
|
* Retrieves a TYPEATTR structure that contains the attributes of the type
|
|
|
|
* description.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetTypeAttr( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
LPTYPEATTR *ppTypeAttr)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
|
|
|
TRACE("(%p)\n",This);
|
1999-06-05 14:00:13 +02:00
|
|
|
/* FIXME: must do a copy here */
|
|
|
|
*ppTypeAttr=&This->TypeAttr;
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetTypeComp
|
|
|
|
*
|
|
|
|
* Retrieves the ITypeComp interface for the type description, which enables a
|
|
|
|
* client compiler to bind to the type description's members.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetTypeComp( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
ITypeComp * *ppTComp)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%p) stub!\n", This);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetFuncDesc
|
|
|
|
*
|
|
|
|
* Retrieves the FUNCDESC structure that contains information about a
|
|
|
|
* specified function.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetFuncDesc( ITypeInfo2 *iface, UINT index,
|
1999-06-05 14:00:13 +02:00
|
|
|
LPFUNCDESC *ppFuncDesc)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
int i;
|
|
|
|
TLBFuncDesc * pFDesc;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, index);
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0, pFDesc=This->funclist; i!=index && pFDesc; i++, pFDesc=pFDesc->next)
|
|
|
|
;
|
|
|
|
if(pFDesc){
|
|
|
|
/* FIXME: must do a copy here */
|
|
|
|
*ppFuncDesc=&pFDesc->funcdesc;
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetVarDesc
|
|
|
|
*
|
|
|
|
* Retrieves a VARDESC structure that describes the specified variable.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetVarDesc( ITypeInfo2 *iface, UINT index,
|
1999-06-05 14:00:13 +02:00
|
|
|
LPVARDESC *ppVarDesc)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
int i;
|
|
|
|
TLBVarDesc * pVDesc;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, index);
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0, pVDesc=This->varlist; i!=index && pVDesc; i++, pVDesc=pVDesc->next)
|
|
|
|
;
|
|
|
|
if(pVDesc){
|
|
|
|
/* FIXME: must do a copy here */
|
|
|
|
*ppVarDesc=&pVDesc->vardesc;
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo_GetNames
|
|
|
|
*
|
|
|
|
* Retrieves the variable with the specified member ID (or the name of the
|
|
|
|
* property or method and its parameters) that correspond to the specified
|
|
|
|
* function ID.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetNames( ITypeInfo2 *iface, MEMBERID memid,
|
1999-06-05 14:00:13 +02:00
|
|
|
BSTR *rgBstrNames, UINT cMaxNames, UINT *pcNames)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
TLBVarDesc * pVDesc;
|
|
|
|
int i;
|
2000-06-24 15:50:52 +02:00
|
|
|
TRACE("(%p) memid=0x%08lx Maxname=%d\n", This, memid, cMaxNames);
|
2000-08-10 00:24:04 +02:00
|
|
|
for(pFDesc=This->funclist; pFDesc && pFDesc->funcdesc.memid != memid; pFDesc=pFDesc->next);
|
2000-06-24 15:50:52 +02:00
|
|
|
if(pFDesc)
|
|
|
|
{
|
|
|
|
/* function found, now return function and parameter names */
|
|
|
|
for(i=0; i<cMaxNames && i <= pFDesc->funcdesc.cParams; i++)
|
|
|
|
{
|
|
|
|
if(!i)
|
2001-09-07 17:27:16 +02:00
|
|
|
*rgBstrNames=SysAllocString(pFDesc->Name);
|
2000-06-24 15:50:52 +02:00
|
|
|
else
|
2000-10-25 23:24:53 +02:00
|
|
|
rgBstrNames[i]=SysAllocString(pFDesc->pParamDesc[i-1].Name);
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
|
|
|
*pcNames=i;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2000-08-10 00:24:04 +02:00
|
|
|
for(pVDesc=This->varlist; pVDesc && pVDesc->vardesc.memid != memid; pVDesc=pVDesc->next);
|
2000-06-24 15:50:52 +02:00
|
|
|
if(pVDesc)
|
|
|
|
{
|
2000-10-25 23:24:53 +02:00
|
|
|
*rgBstrNames=SysAllocString(pVDesc->Name);
|
2000-06-24 15:50:52 +02:00
|
|
|
*pcNames=1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if(This->TypeAttr.typekind==TKIND_INTERFACE && This->TypeAttr.cImplTypes )
|
|
|
|
{
|
|
|
|
/* recursive search */
|
|
|
|
ITypeInfo *pTInfo;
|
|
|
|
HRESULT result;
|
2001-09-07 17:27:16 +02:00
|
|
|
result=ITypeInfo_GetRefTypeInfo(iface, This->impltypelist->hRef,
|
|
|
|
&pTInfo);
|
2000-06-24 15:50:52 +02:00
|
|
|
if(SUCCEEDED(result))
|
|
|
|
{
|
|
|
|
result=ITypeInfo_GetNames(pTInfo, memid, rgBstrNames, cMaxNames, pcNames);
|
|
|
|
ITypeInfo_Release(pTInfo);
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
WARN("Could not search inherited interface!\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-06-24 15:50:52 +02:00
|
|
|
else
|
|
|
|
{
|
|
|
|
WARN("no names found\n");
|
|
|
|
}
|
|
|
|
*pcNames=0;
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* ITypeInfo::GetRefTypeOfImplType
|
|
|
|
*
|
|
|
|
* If a type description describes a COM class, it retrieves the type
|
|
|
|
* description of the implemented interface types. For an interface,
|
|
|
|
* GetRefTypeOfImplType returns the type information for inherited interfaces,
|
|
|
|
* if any exist.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetRefTypeOfImplType(
|
|
|
|
ITypeInfo2 *iface,
|
|
|
|
UINT index,
|
|
|
|
HREFTYPE *pRefType)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
int(i);
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBImplType *pImpl = This->impltypelist;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, index);
|
2000-06-24 15:50:52 +02:00
|
|
|
dump_TypeInfo(This);
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
if(index==(UINT)-1)
|
|
|
|
{
|
2000-11-26 00:51:30 +01:00
|
|
|
/* only valid on dual interfaces;
|
|
|
|
retrieve the associated TKIND_INTERFACE handle for the current TKIND_DISPATCH
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
if( This->TypeAttr.typekind != TKIND_DISPATCH) return E_INVALIDARG;
|
2000-11-26 00:51:30 +01:00
|
|
|
|
|
|
|
if (This->TypeAttr.wTypeFlags & TYPEFLAG_FDISPATCHABLE &&
|
|
|
|
This->TypeAttr.wTypeFlags & TYPEFLAG_FDUAL )
|
|
|
|
{
|
|
|
|
*pRefType = -1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
if (!pImpl) return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
*pRefType = pImpl->hRef;
|
2000-11-26 00:51:30 +01:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
else
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
2000-11-26 00:51:30 +01:00
|
|
|
/* get element n from linked list */
|
2001-09-07 17:27:16 +02:00
|
|
|
for(i=0; pImpl && i<index; i++)
|
2000-11-26 00:51:30 +01:00
|
|
|
{
|
2001-09-07 17:27:16 +02:00
|
|
|
pImpl = pImpl->next;
|
2000-11-26 00:51:30 +01:00
|
|
|
}
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
if (!pImpl) return TYPE_E_ELEMENTNOTFOUND;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
*pRefType = pImpl->hRef;
|
2000-12-21 21:20:12 +01:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
TRACE("-- 0x%08lx\n", pImpl->hRef );
|
2000-06-24 15:50:52 +02:00
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
return S_OK;
|
2000-11-26 00:51:30 +01:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetImplTypeFlags
|
|
|
|
*
|
|
|
|
* Retrieves the IMPLTYPEFLAGS enumeration for one implemented interface
|
|
|
|
* or base interface in a type description.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetImplTypeFlags( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
UINT index, INT *pImplTypeFlags)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
2001-09-07 17:27:16 +02:00
|
|
|
int i;
|
|
|
|
TLBImplType *pImpl;
|
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, index);
|
2001-09-07 17:27:16 +02:00
|
|
|
for(i=0, pImpl=This->impltypelist; i<index && pImpl;
|
|
|
|
i++, pImpl=pImpl->next)
|
1999-06-05 14:00:13 +02:00
|
|
|
;
|
2001-09-07 17:27:16 +02:00
|
|
|
if(i==index && pImpl){
|
|
|
|
*pImplTypeFlags=pImpl->implflags;
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
*pImplTypeFlags=0;
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* GetIDsOfNames
|
|
|
|
* Maps between member names and member IDs, and parameter names and
|
|
|
|
* parameter IDs.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetIDsOfNames( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
LPOLESTR *rgszNames, UINT cNames, MEMBERID *pMemId)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
TLBVarDesc * pVDesc;
|
|
|
|
HRESULT ret=S_OK;
|
2001-10-04 18:14:08 +02:00
|
|
|
|
2000-10-25 23:24:53 +02:00
|
|
|
TRACE("(%p) Name %s cNames %d\n", This, debugstr_w(*rgszNames),
|
1999-06-05 14:00:13 +02:00
|
|
|
cNames);
|
|
|
|
for(pFDesc=This->funclist; pFDesc; pFDesc=pFDesc->next) {
|
|
|
|
int i, j;
|
2001-10-04 18:14:08 +02:00
|
|
|
if(!lstrcmpiW(*rgszNames, pFDesc->Name)) {
|
1999-06-05 14:00:13 +02:00
|
|
|
if(cNames) *pMemId=pFDesc->funcdesc.memid;
|
|
|
|
for(i=1; i < cNames; i++){
|
|
|
|
for(j=0; j<pFDesc->funcdesc.cParams; j++)
|
2001-10-04 18:14:08 +02:00
|
|
|
if(!lstrcmpiW(rgszNames[i],pFDesc->pParamDesc[j].Name))
|
1999-06-05 14:00:13 +02:00
|
|
|
break;
|
|
|
|
if( j<pFDesc->funcdesc.cParams)
|
|
|
|
pMemId[i]=j;
|
|
|
|
else
|
|
|
|
ret=DISP_E_UNKNOWNNAME;
|
|
|
|
};
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
for(pVDesc=This->varlist; pVDesc; pVDesc=pVDesc->next) {
|
2001-10-04 18:14:08 +02:00
|
|
|
if(!lstrcmpiW(*rgszNames, pVDesc->Name)) {
|
1999-06-05 14:00:13 +02:00
|
|
|
if(cNames) *pMemId=pVDesc->vardesc.memid;
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* not found, see if this is and interface with an inheritance */
|
|
|
|
if(This->TypeAttr.typekind==TKIND_INTERFACE &&
|
|
|
|
This->TypeAttr.cImplTypes ){
|
|
|
|
/* recursive search */
|
|
|
|
ITypeInfo *pTInfo;
|
1999-10-13 16:01:40 +02:00
|
|
|
ret=ITypeInfo_GetRefTypeInfo(iface,
|
2001-09-07 17:27:16 +02:00
|
|
|
This->impltypelist->hRef, &pTInfo);
|
1999-06-05 14:00:13 +02:00
|
|
|
if(SUCCEEDED(ret)){
|
1999-10-13 16:01:40 +02:00
|
|
|
ret=ITypeInfo_GetIDsOfNames(pTInfo, rgszNames, cNames, pMemId );
|
|
|
|
ITypeInfo_Release(pTInfo);
|
1999-06-05 14:00:13 +02:00
|
|
|
return ret;
|
|
|
|
}
|
1999-12-08 04:56:23 +01:00
|
|
|
WARN("Could not search inherited interface!\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
} else
|
1999-12-08 04:56:23 +01:00
|
|
|
WARN("no names found\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return DISP_E_UNKNOWNNAME;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::Invoke
|
|
|
|
*
|
|
|
|
* Invokes a method, or accesses a property of an object, that implements the
|
|
|
|
* interface described by the type description.
|
|
|
|
*/
|
2002-02-05 19:11:17 +01:00
|
|
|
DWORD
|
|
|
|
_invoke(LPVOID func,CALLCONV callconv, int nrargs, DWORD *args) {
|
2001-08-06 19:46:18 +02:00
|
|
|
DWORD res;
|
|
|
|
|
|
|
|
if (TRACE_ON(ole)) {
|
|
|
|
int i;
|
|
|
|
MESSAGE("Calling %p(",func);
|
|
|
|
for (i=0;i<nrargs;i++) MESSAGE("%08lx,",args[i]);
|
|
|
|
MESSAGE(")\n");
|
|
|
|
}
|
|
|
|
|
|
|
|
switch (callconv) {
|
|
|
|
case CC_STDCALL:
|
|
|
|
|
|
|
|
switch (nrargs) {
|
|
|
|
case 0: {
|
|
|
|
DWORD (WINAPI *xfunc)() = func;
|
|
|
|
res = xfunc();
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 1: {
|
|
|
|
DWORD (WINAPI *xfunc)(DWORD) = func;
|
|
|
|
res = xfunc(args[0]);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 2: {
|
|
|
|
DWORD (WINAPI *xfunc)(DWORD,DWORD) = func;
|
|
|
|
res = xfunc(args[0],args[1]);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 3: {
|
|
|
|
DWORD (WINAPI *xfunc)(DWORD,DWORD,DWORD) = func;
|
|
|
|
res = xfunc(args[0],args[1],args[2]);
|
|
|
|
break;
|
|
|
|
}
|
2002-02-05 19:11:17 +01:00
|
|
|
case 4: {
|
|
|
|
DWORD (WINAPI *xfunc)(DWORD,DWORD,DWORD,DWORD) = func;
|
|
|
|
res = xfunc(args[0],args[1],args[2],args[3]);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 5: {
|
|
|
|
DWORD (WINAPI *xfunc)(DWORD,DWORD,DWORD,DWORD,DWORD) = func;
|
|
|
|
res = xfunc(args[0],args[1],args[2],args[3],args[4]);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 6: {
|
|
|
|
DWORD (WINAPI *xfunc)(DWORD,DWORD,DWORD,DWORD,DWORD,DWORD) = func;
|
|
|
|
res = xfunc(args[0],args[1],args[2],args[3],args[4],args[5]);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
case 7: {
|
|
|
|
DWORD (WINAPI *xfunc)(DWORD,DWORD,DWORD,DWORD,DWORD,DWORD,DWORD) = func;
|
|
|
|
res = xfunc(args[0],args[1],args[2],args[3],args[4],args[5],args[6]);
|
|
|
|
break;
|
|
|
|
}
|
2001-08-06 19:46:18 +02:00
|
|
|
default:
|
|
|
|
FIXME("unsupported number of arguments %d in stdcall\n",nrargs);
|
|
|
|
res = -1;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
FIXME("unsupported calling convention %d\n",callconv);
|
|
|
|
res = -1;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
TRACE("returns %08lx\n",res);
|
|
|
|
return res;
|
|
|
|
}
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnInvoke(
|
2001-08-06 19:46:18 +02:00
|
|
|
ITypeInfo2 *iface,
|
|
|
|
VOID *pIUnk,
|
|
|
|
MEMBERID memid,
|
|
|
|
UINT16 dwFlags,
|
|
|
|
DISPPARAMS *pDispParams,
|
|
|
|
VARIANT *pVarResult,
|
|
|
|
EXCEPINFO *pExcepInfo,
|
|
|
|
UINT *pArgErr)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
2001-08-06 19:46:18 +02:00
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
TLBVarDesc * pVDesc;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
TRACE("(%p)(%p,id=%ld,flags=0x%08x,%p,%p,%p,%p) partial stub!\n",
|
|
|
|
This,pIUnk,memid,dwFlags,pDispParams,pVarResult,pExcepInfo,pArgErr
|
|
|
|
);
|
2000-06-24 15:50:52 +02:00
|
|
|
dump_DispParms(pDispParams);
|
2001-08-06 19:46:18 +02:00
|
|
|
|
|
|
|
for(pFDesc=This->funclist; pFDesc; pFDesc=pFDesc->next)
|
|
|
|
if (pFDesc->funcdesc.memid == memid) {
|
2001-10-03 20:42:54 +02:00
|
|
|
if (pFDesc->funcdesc.invkind & dwFlags)
|
2001-08-06 19:46:18 +02:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (pFDesc) {
|
|
|
|
dump_TLBFuncDescOne(pFDesc);
|
|
|
|
switch (pFDesc->funcdesc.funckind) {
|
|
|
|
case FUNC_PUREVIRTUAL:
|
|
|
|
case FUNC_VIRTUAL: {
|
|
|
|
DWORD res;
|
|
|
|
DWORD *args = (DWORD*)HeapAlloc(GetProcessHeap(),0,sizeof(DWORD)*(pFDesc->funcdesc.cParams+1));
|
|
|
|
DWORD *args2 = (DWORD*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(DWORD)*(pFDesc->funcdesc.cParams));
|
|
|
|
args[0] = (DWORD)pIUnk;
|
|
|
|
|
|
|
|
for (i=0;i<pFDesc->funcdesc.cParams;i++) {
|
|
|
|
if (i<pDispParams->cArgs) {
|
|
|
|
TRACE("set %d to disparg type %d vs %d\n",i,
|
2001-10-04 20:11:11 +02:00
|
|
|
V_VT(&pDispParams->rgvarg[pDispParams->cArgs-i-1]),
|
2001-08-06 19:46:18 +02:00
|
|
|
pFDesc->funcdesc.lprgelemdescParam[i].tdesc.vt
|
|
|
|
);
|
2001-10-04 20:11:11 +02:00
|
|
|
args[i+1] = V_UNION(&pDispParams->rgvarg[pDispParams->cArgs-i-1],lVal);
|
2001-08-06 19:46:18 +02:00
|
|
|
} else {
|
|
|
|
TYPEDESC *tdesc = &(pFDesc->funcdesc.lprgelemdescParam[i].tdesc);
|
|
|
|
TRACE("set %d to pointer for get (type is %d)\n",i,tdesc->vt);
|
|
|
|
/*FIXME: give pointers for the rest, so propertyget works*/
|
|
|
|
args[i+1] = (DWORD)&args2[i];
|
|
|
|
|
|
|
|
/* If pointer to variant, pass reference to variant
|
|
|
|
* in result variant array.
|
|
|
|
*/
|
|
|
|
if ((tdesc->vt == VT_PTR) &&
|
|
|
|
(tdesc->u.lptdesc->vt == VT_VARIANT) &&
|
|
|
|
pVarResult
|
|
|
|
)
|
|
|
|
args[i+1] = (DWORD)(pVarResult+(i-pDispParams->cArgs));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (pFDesc->funcdesc.cParamsOpt)
|
|
|
|
FIXME("Does not support optional parameters (%d)\n",
|
|
|
|
pFDesc->funcdesc.cParamsOpt
|
|
|
|
);
|
|
|
|
|
|
|
|
res = _invoke((*(DWORD***)pIUnk)[pFDesc->funcdesc.oVft/4],
|
|
|
|
pFDesc->funcdesc.callconv,
|
|
|
|
pFDesc->funcdesc.cParams+1,
|
|
|
|
args
|
|
|
|
);
|
|
|
|
if (pVarResult && (dwFlags & (DISPATCH_PROPERTYGET))) {
|
|
|
|
for (i=0;i<pFDesc->funcdesc.cParams-pDispParams->cArgs;i++) {
|
2001-10-14 18:07:49 +02:00
|
|
|
TYPEDESC *tdesc = &(pFDesc->funcdesc.lprgelemdescParam[i+pDispParams->cArgs].tdesc);
|
2001-08-06 19:46:18 +02:00
|
|
|
/* If we are a pointer to a variant, we are done already */
|
|
|
|
if ((tdesc->vt==VT_PTR)&&(tdesc->u.lptdesc->vt==VT_VARIANT))
|
|
|
|
continue;
|
|
|
|
|
|
|
|
VariantInit(&pVarResult[i]);
|
2001-10-14 18:07:49 +02:00
|
|
|
V_UNION(pVarResult+i,intVal) = args2[i+pDispParams->cArgs];
|
2001-08-06 19:46:18 +02:00
|
|
|
|
|
|
|
if (tdesc->vt == VT_PTR)
|
|
|
|
tdesc = tdesc->u.lptdesc;
|
2001-08-21 19:03:10 +02:00
|
|
|
V_VT(pVarResult+i) = tdesc->vt;
|
2001-08-06 19:46:18 +02:00
|
|
|
|
|
|
|
/* HACK: VB5 likes this.
|
|
|
|
* I do not know why. There is 1 example in MSDN which uses
|
|
|
|
* this which appears broken (mixes int vals and
|
|
|
|
* IDispatch*.).
|
|
|
|
*/
|
|
|
|
if ((tdesc->vt == VT_PTR) && (dwFlags & DISPATCH_METHOD))
|
2001-08-21 19:03:10 +02:00
|
|
|
V_VT(pVarResult+i) = VT_DISPATCH;
|
2001-10-14 18:07:49 +02:00
|
|
|
TRACE("storing into variant: [%d]\n", i);
|
|
|
|
dump_Variant(pVarResult+i);
|
2001-08-06 19:46:18 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
HeapFree(GetProcessHeap(),0,args2);
|
|
|
|
HeapFree(GetProcessHeap(),0,args);
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
case FUNC_DISPATCH: {
|
|
|
|
IDispatch *disp;
|
|
|
|
HRESULT hr;
|
|
|
|
|
|
|
|
hr = IUnknown_QueryInterface((LPUNKNOWN)pIUnk,&IID_IDispatch,(LPVOID*)&disp);
|
|
|
|
if (hr) {
|
|
|
|
FIXME("FUNC_DISPATCH used on object without IDispatch iface?\n");
|
|
|
|
return hr;
|
|
|
|
}
|
|
|
|
FIXME("Calling Invoke in IDispatch iface. untested!\n");
|
|
|
|
hr = IDispatch_Invoke(
|
|
|
|
disp,memid,&IID_NULL,LOCALE_USER_DEFAULT,dwFlags,pDispParams,
|
|
|
|
pVarResult,pExcepInfo,pArgErr
|
|
|
|
);
|
|
|
|
if (hr)
|
|
|
|
FIXME("IDispatch::Invoke failed with %08lx. (Could be not a real error?)\n",hr);
|
|
|
|
IDispatch_Release(disp);
|
|
|
|
return hr;
|
|
|
|
}
|
|
|
|
default:
|
|
|
|
FIXME("Unknown function invocation type %d\n",pFDesc->funcdesc.funckind);
|
|
|
|
return E_FAIL;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
for(pVDesc=This->varlist; pVDesc; pVDesc=pVDesc->next) {
|
|
|
|
if (pVDesc->vardesc.memid == memid) {
|
2001-10-04 18:14:08 +02:00
|
|
|
FIXME("varseek: Found memid name %s, but variable-based invoking not supported\n",debugstr_w(((LPWSTR)pVDesc->Name)));
|
2001-08-06 19:46:18 +02:00
|
|
|
dump_TLBVarDesc(pVDesc);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2001-10-04 18:14:08 +02:00
|
|
|
/* not found, look for it in inherited interfaces */
|
|
|
|
if (This->TypeAttr.typekind==TKIND_INTERFACE && This->TypeAttr.cImplTypes) {
|
|
|
|
/* recursive search */
|
|
|
|
ITypeInfo *pTInfo;
|
|
|
|
HRESULT hr;
|
|
|
|
hr=ITypeInfo_GetRefTypeInfo(iface, This->impltypelist->hRef, &pTInfo);
|
|
|
|
if(SUCCEEDED(hr)){
|
|
|
|
hr=ITypeInfo_Invoke(pTInfo,pIUnk,memid,dwFlags,pDispParams,pVarResult,pExcepInfo,pArgErr);
|
|
|
|
ITypeInfo_Release(pTInfo);
|
|
|
|
return hr;
|
|
|
|
}
|
|
|
|
WARN("Could not search inherited interface!\n");
|
|
|
|
}
|
|
|
|
ERR("did not find member id %d, flags %d!\n", (int)memid, dwFlags);
|
2001-08-06 19:46:18 +02:00
|
|
|
return DISP_E_MEMBERNOTFOUND;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetDocumentation
|
|
|
|
*
|
|
|
|
* Retrieves the documentation string, the complete Help file name and path,
|
|
|
|
* and the context ID for the Help topic for a specified type description.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetDocumentation( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
MEMBERID memid, BSTR *pBstrName, BSTR *pBstrDocString,
|
|
|
|
DWORD *pdwHelpContext, BSTR *pBstrHelpFile)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
TLBVarDesc * pVDesc;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) memid %ld Name(%p) DocString(%p)"
|
|
|
|
" HelpContext(%p) HelpFile(%p)\n",
|
1999-06-05 14:00:13 +02:00
|
|
|
This, memid, pBstrName, pBstrDocString, pdwHelpContext, pBstrHelpFile);
|
|
|
|
if(memid==MEMBERID_NIL){ /* documentation for the typeinfo */
|
|
|
|
if(pBstrName)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pBstrName=SysAllocString(This->Name);
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pBstrDocString)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pBstrDocString=SysAllocString(This->DocString);
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pdwHelpContext)
|
|
|
|
*pdwHelpContext=This->dwHelpContext;
|
|
|
|
if(pBstrHelpFile)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pBstrHelpFile=SysAllocString(This->DocString);/* FIXME */
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}else {/* for a member */
|
|
|
|
for(pFDesc=This->funclist; pFDesc; pFDesc=pFDesc->next)
|
|
|
|
if(pFDesc->funcdesc.memid==memid){
|
2001-09-07 17:27:16 +02:00
|
|
|
if(pBstrName)
|
|
|
|
*pBstrName = SysAllocString(pFDesc->Name);
|
|
|
|
if(pBstrDocString)
|
|
|
|
*pBstrDocString=SysAllocString(pFDesc->HelpString);
|
|
|
|
if(pdwHelpContext)
|
|
|
|
*pdwHelpContext=pFDesc->helpcontext;
|
|
|
|
return S_OK;
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
|
|
|
for(pVDesc=This->varlist; pVDesc; pVDesc=pVDesc->next)
|
|
|
|
if(pVDesc->vardesc.memid==memid){
|
2001-09-07 17:27:16 +02:00
|
|
|
FIXME("Not implemented\n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetDllEntry
|
|
|
|
*
|
|
|
|
* Retrieves a description or specification of an entry point for a function
|
|
|
|
* in a DLL.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetDllEntry( ITypeInfo2 *iface, MEMBERID memid,
|
1999-06-05 14:00:13 +02:00
|
|
|
INVOKEKIND invKind, BSTR *pBstrDllName, BSTR *pBstrName,
|
|
|
|
WORD *pwOrdinal)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%p) stub!\n", This);
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_FAIL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetRefTypeInfo
|
|
|
|
*
|
|
|
|
* If a type description references other type descriptions, it retrieves
|
|
|
|
* the referenced type descriptions.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetRefTypeInfo(
|
|
|
|
ITypeInfo2 *iface,
|
|
|
|
HREFTYPE hRefType,
|
|
|
|
ITypeInfo **ppTInfo)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
2000-11-26 00:51:30 +01:00
|
|
|
HRESULT result = E_FAIL;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
if (hRefType == -1 &&
|
|
|
|
(((ITypeInfoImpl*) This)->TypeAttr.typekind == TKIND_DISPATCH) &&
|
|
|
|
(((ITypeInfoImpl*) This)->TypeAttr.wTypeFlags & TYPEFLAG_FDUAL))
|
2000-11-26 00:51:30 +01:00
|
|
|
{
|
|
|
|
/* when we meet a DUAL dispinterface, we must create the interface
|
|
|
|
* version of it.
|
|
|
|
*/
|
|
|
|
ITypeInfoImpl* pTypeInfoImpl = (ITypeInfoImpl*) ITypeInfo_Constructor();
|
|
|
|
|
|
|
|
|
|
|
|
/* the interface version contains the same information as the dispinterface
|
|
|
|
* copy the contents of the structs.
|
|
|
|
*/
|
|
|
|
*pTypeInfoImpl = *This;
|
|
|
|
pTypeInfoImpl->ref = 1;
|
|
|
|
|
|
|
|
/* change the type to interface */
|
|
|
|
pTypeInfoImpl->TypeAttr.typekind = TKIND_INTERFACE;
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
*ppTInfo = (ITypeInfo*) pTypeInfoImpl;
|
2000-11-26 00:51:30 +01:00
|
|
|
|
|
|
|
ITypeInfo_AddRef((ITypeInfo*) pTypeInfoImpl);
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
result = S_OK;
|
|
|
|
|
|
|
|
} else {
|
|
|
|
TLBRefType *pRefType;
|
|
|
|
for(pRefType = This->reflist; pRefType; pRefType = pRefType->next) {
|
|
|
|
if(pRefType->reference == hRefType)
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if(!pRefType)
|
|
|
|
FIXME("Can't find pRefType for ref %lx\n", hRefType);
|
|
|
|
if(pRefType && hRefType != -1) {
|
2002-02-04 19:32:20 +01:00
|
|
|
ITypeLib *pTLib = NULL;
|
2001-09-07 17:27:16 +02:00
|
|
|
|
|
|
|
if(pRefType->pImpTLInfo == TLB_REF_INTERNAL) {
|
|
|
|
int Index;
|
|
|
|
result = ITypeInfo_GetContainingTypeLib(iface, &pTLib, &Index);
|
|
|
|
} else {
|
|
|
|
if(pRefType->pImpTLInfo->pImpTypeLib) {
|
|
|
|
TRACE("typeinfo in imported typelib that is already loaded\n");
|
|
|
|
pTLib = (ITypeLib*)pRefType->pImpTLInfo->pImpTypeLib;
|
|
|
|
ITypeLib2_AddRef((ITypeLib*) pTLib);
|
|
|
|
result = S_OK;
|
|
|
|
} else {
|
|
|
|
TRACE("typeinfo in imported typelib that isn't already loaded\n");
|
|
|
|
result = LoadRegTypeLib( &pRefType->pImpTLInfo->guid,
|
|
|
|
pRefType->pImpTLInfo->wVersionMajor,
|
|
|
|
pRefType->pImpTLInfo->wVersionMinor,
|
|
|
|
pRefType->pImpTLInfo->lcid,
|
|
|
|
&pTLib);
|
|
|
|
|
|
|
|
if(!SUCCEEDED(result)) {
|
|
|
|
BSTR libnam=SysAllocString(pRefType->pImpTLInfo->name);
|
|
|
|
result=LoadTypeLib(libnam, &pTLib);
|
|
|
|
SysFreeString(libnam);
|
|
|
|
}
|
|
|
|
if(SUCCEEDED(result)) {
|
|
|
|
pRefType->pImpTLInfo->pImpTypeLib = (ITypeLibImpl*)pTLib;
|
|
|
|
ITypeLib2_AddRef(pTLib);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if(SUCCEEDED(result)) {
|
|
|
|
if(pRefType->index == TLB_REF_USE_GUID)
|
|
|
|
result = ITypeLib2_GetTypeInfoOfGuid(pTLib,
|
|
|
|
&pRefType->guid,
|
|
|
|
ppTInfo);
|
|
|
|
else
|
|
|
|
result = ITypeLib2_GetTypeInfo(pTLib, pRefType->index,
|
|
|
|
ppTInfo);
|
|
|
|
}
|
2002-02-04 19:32:20 +01:00
|
|
|
if (pTLib != NULL)
|
|
|
|
ITypeLib2_Release(pTLib);
|
2000-11-26 00:51:30 +01:00
|
|
|
}
|
1999-06-05 14:00:13 +02:00
|
|
|
}
|
2000-11-26 00:51:30 +01:00
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) hreftype 0x%04lx loaded %s (%p)\n", This, hRefType,
|
|
|
|
SUCCEEDED(result)? "SUCCESS":"FAILURE", *ppTInfo);
|
1999-06-05 14:00:13 +02:00
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::AddressOfMember
|
|
|
|
*
|
|
|
|
* Retrieves the addresses of static functions or variables, such as those
|
|
|
|
* defined in a DLL.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnAddressOfMember( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
MEMBERID memid, INVOKEKIND invKind, PVOID *ppv)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%p) stub!\n", This);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::CreateInstance
|
|
|
|
*
|
|
|
|
* Creates a new instance of a type that describes a component object class
|
|
|
|
* (coclass).
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnCreateInstance( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
IUnknown *pUnk, REFIID riid, VOID **ppvObj)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%p) stub!\n", This);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetMops
|
|
|
|
*
|
|
|
|
* Retrieves marshaling information.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetMops( ITypeInfo2 *iface, MEMBERID memid,
|
1999-06-05 14:00:13 +02:00
|
|
|
BSTR *pBstrMops)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
FIXME("(%p) stub!\n", This);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::GetContainingTypeLib
|
|
|
|
*
|
|
|
|
* Retrieves the containing type library and the index of the type description
|
|
|
|
* within that type library.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnGetContainingTypeLib( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
ITypeLib * *ppTLib, UINT *pIndex)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
2000-12-19 04:37:44 +01:00
|
|
|
if (!pIndex)
|
|
|
|
return E_INVALIDARG;
|
1999-06-05 14:00:13 +02:00
|
|
|
*ppTLib=(LPTYPELIB )(This->pTypeLib);
|
|
|
|
*pIndex=This->index;
|
2000-06-24 15:50:52 +02:00
|
|
|
ITypeLib2_AddRef(*ppTLib);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) returns (%p) index %d!\n", This, *ppTLib, *pIndex);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::ReleaseTypeAttr
|
|
|
|
*
|
|
|
|
* Releases a TYPEATTR previously returned by GetTypeAttr.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnReleaseTypeAttr( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
TYPEATTR* pTypeAttr)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)->(%p)\n", This, pTypeAttr);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::ReleaseFuncDesc
|
|
|
|
*
|
|
|
|
* Releases a FUNCDESC previously returned by GetFuncDesc. *
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnReleaseFuncDesc(
|
|
|
|
ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
FUNCDESC *pFuncDesc)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)->(%p)\n", This, pFuncDesc);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo::ReleaseVarDesc
|
|
|
|
*
|
|
|
|
* Releases a VARDESC previously returned by GetVarDesc.
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo_fnReleaseVarDesc( ITypeInfo2 *iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
VARDESC *pVarDesc)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p)->(%p)\n", This, pVarDesc);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetTypeKind
|
|
|
|
*
|
|
|
|
* Returns the TYPEKIND enumeration quickly, without doing any allocations.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetTypeKind( ITypeInfo2 * iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
TYPEKIND *pTypeKind)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
*pTypeKind=This->TypeAttr.typekind;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) type 0x%0x\n", This,*pTypeKind);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetTypeFlags
|
|
|
|
*
|
|
|
|
* Returns the type flags without any allocations. This returns a DWORD type
|
|
|
|
* flag, which expands the type flags without growing the TYPEATTR (type
|
|
|
|
* attribute).
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetTypeFlags( ITypeInfo2 * iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
UINT *pTypeFlags)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
*pTypeFlags=This->TypeAttr.wTypeFlags;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) flags 0x%04x\n", This,*pTypeFlags);
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetFuncIndexOfMemId
|
|
|
|
* Binds to a specific member based on a known DISPID, where the member name
|
|
|
|
* is not known (for example, when binding to a default member).
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetFuncIndexOfMemId( ITypeInfo2 * iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
MEMBERID memid, INVOKEKIND invKind, UINT *pFuncIndex)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBFuncDesc *pFuncInfo;
|
|
|
|
int i;
|
|
|
|
HRESULT result;
|
|
|
|
/* FIXME: should check for invKind??? */
|
|
|
|
for(i=0, pFuncInfo=This->funclist;pFuncInfo &&
|
|
|
|
memid != pFuncInfo->funcdesc.memid; i++, pFuncInfo=pFuncInfo->next);
|
|
|
|
if(pFuncInfo){
|
|
|
|
*pFuncIndex=i;
|
|
|
|
result= S_OK;
|
|
|
|
}else{
|
|
|
|
*pFuncIndex=0;
|
|
|
|
result=E_INVALIDARG;
|
|
|
|
}
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) memid 0x%08lx invKind 0x%04x -> %s\n", This,
|
|
|
|
memid, invKind, SUCCEEDED(result)? "SUCCES":"FAILED");
|
1999-06-05 14:00:13 +02:00
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* TypeInfo2::GetVarIndexOfMemId
|
|
|
|
*
|
|
|
|
* Binds to a specific member based on a known DISPID, where the member name
|
|
|
|
* is not known (for example, when binding to a default member).
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetVarIndexOfMemId( ITypeInfo2 * iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
MEMBERID memid, UINT *pVarIndex)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBVarDesc *pVarInfo;
|
|
|
|
int i;
|
|
|
|
HRESULT result;
|
|
|
|
for(i=0, pVarInfo=This->varlist; pVarInfo &&
|
|
|
|
memid != pVarInfo->vardesc.memid; i++, pVarInfo=pVarInfo->next)
|
|
|
|
;
|
|
|
|
if(pVarInfo){
|
|
|
|
*pVarIndex=i;
|
|
|
|
result= S_OK;
|
|
|
|
}else{
|
|
|
|
*pVarIndex=0;
|
|
|
|
result=E_INVALIDARG;
|
|
|
|
}
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) memid 0x%08lx -> %s\n", This,
|
|
|
|
memid, SUCCEEDED(result)? "SUCCES":"FAILED");
|
1999-06-05 14:00:13 +02:00
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetCustData
|
|
|
|
*
|
|
|
|
* Gets the custom data
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
REFGUID guid,
|
|
|
|
VARIANT *pVarVal)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
for(pCData=This->pCustData; pCData; pCData = pCData->next)
|
|
|
|
if( IsEqualIID(guid, &pCData->guid)) break;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p) guid %s %s found!x)\n", This, debugstr_guid(guid), pCData? "" : "NOT");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
if(pCData)
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
VariantInit( pVarVal);
|
|
|
|
VariantCopy( pVarVal, &pCData->data);
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG; /* FIXME: correct? */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetFuncCustData
|
|
|
|
*
|
|
|
|
* Gets the custom data
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetFuncCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
UINT index,
|
|
|
|
REFGUID guid,
|
|
|
|
VARIANT *pVarVal)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData=NULL;
|
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
int i;
|
|
|
|
for(i=0, pFDesc=This->funclist; i!=index && pFDesc; i++,
|
2000-06-24 15:50:52 +02:00
|
|
|
pFDesc=pFDesc->next);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pFDesc)
|
|
|
|
for(pCData=pFDesc->pCustData; pCData; pCData = pCData->next)
|
|
|
|
if( IsEqualIID(guid, &pCData->guid)) break;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p) guid %s %s found!x)\n", This, debugstr_guid(guid), pCData? "" : "NOT");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pCData){
|
|
|
|
VariantInit( pVarVal);
|
|
|
|
VariantCopy( pVarVal, &pCData->data);
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG; /* FIXME: correct? */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetParamCustData
|
|
|
|
*
|
|
|
|
* Gets the custom data
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetParamCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
UINT indexFunc,
|
|
|
|
UINT indexParam,
|
|
|
|
REFGUID guid,
|
|
|
|
VARIANT *pVarVal)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData=NULL;
|
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
int i;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
for(i=0, pFDesc=This->funclist; i!=indexFunc && pFDesc; i++,pFDesc=pFDesc->next);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pFDesc && indexParam >=0 && indexParam<pFDesc->funcdesc.cParams)
|
|
|
|
for(pCData=pFDesc->pParamDesc[indexParam].pCustData; pCData;
|
|
|
|
pCData = pCData->next)
|
|
|
|
if( IsEqualIID(guid, &pCData->guid)) break;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p) guid %s %s found!x)\n", This, debugstr_guid(guid), pCData? "" : "NOT");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
if(pCData)
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
VariantInit( pVarVal);
|
|
|
|
VariantCopy( pVarVal, &pCData->data);
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG; /* FIXME: correct? */
|
|
|
|
}
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
/* ITypeInfo2::GetVarCustData
|
1999-06-05 14:00:13 +02:00
|
|
|
*
|
|
|
|
* Gets the custom data
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetVarCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
UINT index,
|
|
|
|
REFGUID guid,
|
|
|
|
VARIANT *pVarVal)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData=NULL;
|
|
|
|
TLBVarDesc * pVDesc;
|
|
|
|
int i;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
for(i=0, pVDesc=This->varlist; i!=index && pVDesc; i++, pVDesc=pVDesc->next);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pVDesc)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
|
|
|
for(pCData=pVDesc->pCustData; pCData; pCData = pCData->next)
|
|
|
|
{
|
|
|
|
if( IsEqualIID(guid, &pCData->guid)) break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p) guid %s %s found!x)\n", This, debugstr_guid(guid), pCData? "" : "NOT");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
if(pCData)
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
VariantInit( pVarVal);
|
|
|
|
VariantCopy( pVarVal, &pCData->data);
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG; /* FIXME: correct? */
|
|
|
|
}
|
|
|
|
|
2001-09-07 17:27:16 +02:00
|
|
|
/* ITypeInfo2::GetImplCustData
|
1999-06-05 14:00:13 +02:00
|
|
|
*
|
|
|
|
* Gets the custom data
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetImplTypeCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
UINT index,
|
|
|
|
REFGUID guid,
|
|
|
|
VARIANT *pVarVal)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData=NULL;
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBImplType * pRDesc;
|
1999-06-05 14:00:13 +02:00
|
|
|
int i;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
for(i=0, pRDesc=This->impltypelist; i!=index && pRDesc; i++, pRDesc=pRDesc->next);
|
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pRDesc)
|
2000-06-24 15:50:52 +02:00
|
|
|
{
|
|
|
|
for(pCData=pRDesc->pCustData; pCData; pCData = pCData->next)
|
|
|
|
{
|
|
|
|
if( IsEqualIID(guid, &pCData->guid)) break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2000-06-23 18:13:33 +02:00
|
|
|
TRACE("(%p) guid %s %s found!x)\n", This, debugstr_guid(guid), pCData? "" : "NOT");
|
2000-06-24 15:50:52 +02:00
|
|
|
|
|
|
|
if(pCData)
|
|
|
|
{
|
1999-06-05 14:00:13 +02:00
|
|
|
VariantInit( pVarVal);
|
|
|
|
VariantCopy( pVarVal, &pCData->data);
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return E_INVALIDARG; /* FIXME: correct? */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetDocumentation2
|
|
|
|
*
|
|
|
|
* Retrieves the documentation string, the complete Help file name and path,
|
|
|
|
* the localization context to use, and the context ID for the library Help
|
|
|
|
* topic in the Help file.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetDocumentation2(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
MEMBERID memid,
|
|
|
|
LCID lcid,
|
|
|
|
BSTR *pbstrHelpString,
|
|
|
|
DWORD *pdwHelpStringContext,
|
|
|
|
BSTR *pbstrHelpStringDll)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
TLBVarDesc * pVDesc;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) memid %ld lcid(0x%lx) HelpString(%p) "
|
|
|
|
"HelpStringContext(%p) HelpStringDll(%p)\n",
|
|
|
|
This, memid, lcid, pbstrHelpString, pdwHelpStringContext,
|
|
|
|
pbstrHelpStringDll );
|
1999-06-05 14:00:13 +02:00
|
|
|
/* the help string should be obtained from the helpstringdll,
|
|
|
|
* using the _DLLGetDocumentation function, based on the supplied
|
|
|
|
* lcid. Nice to do sometime...
|
|
|
|
*/
|
|
|
|
if(memid==MEMBERID_NIL){ /* documentation for the typeinfo */
|
|
|
|
if(pbstrHelpString)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pbstrHelpString=SysAllocString(This->Name);
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pdwHelpStringContext)
|
|
|
|
*pdwHelpStringContext=This->dwHelpStringContext;
|
|
|
|
if(pbstrHelpStringDll)
|
|
|
|
*pbstrHelpStringDll=
|
2000-10-25 23:24:53 +02:00
|
|
|
SysAllocString(This->pTypeLib->HelpStringDll);/* FIXME */
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}else {/* for a member */
|
|
|
|
for(pFDesc=This->funclist; pFDesc; pFDesc=pFDesc->next)
|
|
|
|
if(pFDesc->funcdesc.memid==memid){
|
|
|
|
if(pbstrHelpString)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pbstrHelpString=SysAllocString(pFDesc->HelpString);
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pdwHelpStringContext)
|
|
|
|
*pdwHelpStringContext=pFDesc->HelpStringContext;
|
|
|
|
if(pbstrHelpStringDll)
|
|
|
|
*pbstrHelpStringDll=
|
2000-10-25 23:24:53 +02:00
|
|
|
SysAllocString(This->pTypeLib->HelpStringDll);/* FIXME */
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
for(pVDesc=This->varlist; pVDesc; pVDesc=pVDesc->next)
|
|
|
|
if(pVDesc->vardesc.memid==memid){
|
|
|
|
if(pbstrHelpString)
|
2000-10-25 23:24:53 +02:00
|
|
|
*pbstrHelpString=SysAllocString(pVDesc->HelpString);
|
1999-06-05 14:00:13 +02:00
|
|
|
if(pdwHelpStringContext)
|
|
|
|
*pdwHelpStringContext=pVDesc->HelpStringContext;
|
|
|
|
if(pbstrHelpStringDll)
|
|
|
|
*pbstrHelpStringDll=
|
2000-10-25 23:24:53 +02:00
|
|
|
SysAllocString(This->pTypeLib->HelpStringDll);/* FIXME */
|
1999-06-05 14:00:13 +02:00
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetAllCustData
|
|
|
|
*
|
|
|
|
* Gets all custom data items for the Type info.
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetAllCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
CUSTDATA *pCustData)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData;
|
|
|
|
int i;
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) returning %d items\n", This, This->ctCustData);
|
2000-06-24 15:50:52 +02:00
|
|
|
|
1999-06-05 14:00:13 +02:00
|
|
|
pCustData->prgCustData = TLB_Alloc(This->ctCustData * sizeof(CUSTDATAITEM));
|
|
|
|
if(pCustData->prgCustData ){
|
|
|
|
pCustData->cCustData=This->ctCustData;
|
|
|
|
for(i=0, pCData=This->pCustData; pCData; i++, pCData = pCData->next){
|
|
|
|
pCustData->prgCustData[i].guid=pCData->guid;
|
|
|
|
VariantCopy(& pCustData->prgCustData[i].varValue, & pCData->data);
|
|
|
|
}
|
|
|
|
}else{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR(" OUT OF MEMORY! \n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_OUTOFMEMORY;
|
|
|
|
}
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetAllFuncCustData
|
|
|
|
*
|
|
|
|
* Gets all custom data items for the specified Function
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetAllFuncCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
UINT index,
|
|
|
|
CUSTDATA *pCustData)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData;
|
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
int i;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, index);
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0, pFDesc=This->funclist; i!=index && pFDesc; i++,
|
|
|
|
pFDesc=pFDesc->next)
|
|
|
|
;
|
|
|
|
if(pFDesc){
|
|
|
|
pCustData->prgCustData =
|
|
|
|
TLB_Alloc(pFDesc->ctCustData * sizeof(CUSTDATAITEM));
|
|
|
|
if(pCustData->prgCustData ){
|
|
|
|
pCustData->cCustData=pFDesc->ctCustData;
|
|
|
|
for(i=0, pCData=pFDesc->pCustData; pCData; i++,
|
|
|
|
pCData = pCData->next){
|
|
|
|
pCustData->prgCustData[i].guid=pCData->guid;
|
|
|
|
VariantCopy(& pCustData->prgCustData[i].varValue,
|
|
|
|
& pCData->data);
|
|
|
|
}
|
|
|
|
}else{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR(" OUT OF MEMORY! \n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_OUTOFMEMORY;
|
|
|
|
}
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetAllParamCustData
|
|
|
|
*
|
|
|
|
* Gets all custom data items for the Functions
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetAllParamCustData( ITypeInfo2 * iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
UINT indexFunc, UINT indexParam, CUSTDATA *pCustData)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData=NULL;
|
|
|
|
TLBFuncDesc * pFDesc;
|
|
|
|
int i;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, indexFunc);
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0, pFDesc=This->funclist; i!=indexFunc && pFDesc; i++,
|
|
|
|
pFDesc=pFDesc->next)
|
|
|
|
;
|
|
|
|
if(pFDesc && indexParam >=0 && indexParam<pFDesc->funcdesc.cParams){
|
|
|
|
pCustData->prgCustData =
|
|
|
|
TLB_Alloc(pFDesc->pParamDesc[indexParam].ctCustData *
|
|
|
|
sizeof(CUSTDATAITEM));
|
|
|
|
if(pCustData->prgCustData ){
|
|
|
|
pCustData->cCustData=pFDesc->pParamDesc[indexParam].ctCustData;
|
|
|
|
for(i=0, pCData=pFDesc->pParamDesc[indexParam].pCustData;
|
|
|
|
pCData; i++, pCData = pCData->next){
|
|
|
|
pCustData->prgCustData[i].guid=pCData->guid;
|
|
|
|
VariantCopy(& pCustData->prgCustData[i].varValue,
|
|
|
|
& pCData->data);
|
|
|
|
}
|
|
|
|
}else{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR(" OUT OF MEMORY! \n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_OUTOFMEMORY;
|
|
|
|
}
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetAllVarCustData
|
|
|
|
*
|
|
|
|
* Gets all custom data items for the specified Variable
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetAllVarCustData( ITypeInfo2 * iface,
|
1999-06-05 14:00:13 +02:00
|
|
|
UINT index, CUSTDATA *pCustData)
|
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData;
|
|
|
|
TLBVarDesc * pVDesc;
|
|
|
|
int i;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, index);
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0, pVDesc=This->varlist; i!=index && pVDesc; i++,
|
|
|
|
pVDesc=pVDesc->next)
|
|
|
|
;
|
|
|
|
if(pVDesc){
|
|
|
|
pCustData->prgCustData =
|
|
|
|
TLB_Alloc(pVDesc->ctCustData * sizeof(CUSTDATAITEM));
|
|
|
|
if(pCustData->prgCustData ){
|
|
|
|
pCustData->cCustData=pVDesc->ctCustData;
|
|
|
|
for(i=0, pCData=pVDesc->pCustData; pCData; i++,
|
|
|
|
pCData = pCData->next){
|
|
|
|
pCustData->prgCustData[i].guid=pCData->guid;
|
|
|
|
VariantCopy(& pCustData->prgCustData[i].varValue,
|
|
|
|
& pCData->data);
|
|
|
|
}
|
|
|
|
}else{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR(" OUT OF MEMORY! \n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_OUTOFMEMORY;
|
|
|
|
}
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* ITypeInfo2::GetAllImplCustData
|
|
|
|
*
|
|
|
|
* Gets all custom data items for the specified implementation type
|
|
|
|
*
|
|
|
|
*/
|
2000-06-24 15:50:52 +02:00
|
|
|
static HRESULT WINAPI ITypeInfo2_fnGetAllImplTypeCustData(
|
|
|
|
ITypeInfo2 * iface,
|
|
|
|
UINT index,
|
|
|
|
CUSTDATA *pCustData)
|
1999-06-05 14:00:13 +02:00
|
|
|
{
|
2000-06-24 15:50:52 +02:00
|
|
|
ICOM_THIS( ITypeInfoImpl, iface);
|
1999-06-05 14:00:13 +02:00
|
|
|
TLBCustData *pCData;
|
2001-09-07 17:27:16 +02:00
|
|
|
TLBImplType * pRDesc;
|
1999-06-05 14:00:13 +02:00
|
|
|
int i;
|
1999-12-08 04:56:23 +01:00
|
|
|
TRACE("(%p) index %d\n", This, index);
|
1999-06-05 14:00:13 +02:00
|
|
|
for(i=0, pRDesc=This->impltypelist; i!=index && pRDesc; i++,
|
|
|
|
pRDesc=pRDesc->next)
|
|
|
|
;
|
|
|
|
if(pRDesc){
|
|
|
|
pCustData->prgCustData =
|
|
|
|
TLB_Alloc(pRDesc->ctCustData * sizeof(CUSTDATAITEM));
|
|
|
|
if(pCustData->prgCustData ){
|
|
|
|
pCustData->cCustData=pRDesc->ctCustData;
|
|
|
|
for(i=0, pCData=pRDesc->pCustData; pCData; i++,
|
|
|
|
pCData = pCData->next){
|
|
|
|
pCustData->prgCustData[i].guid=pCData->guid;
|
|
|
|
VariantCopy(& pCustData->prgCustData[i].varValue,
|
|
|
|
& pCData->data);
|
|
|
|
}
|
|
|
|
}else{
|
1999-12-08 04:56:23 +01:00
|
|
|
ERR(" OUT OF MEMORY! \n");
|
1999-06-05 14:00:13 +02:00
|
|
|
return E_OUTOFMEMORY;
|
|
|
|
}
|
|
|
|
return S_OK;
|
|
|
|
}
|
|
|
|
return TYPE_E_ELEMENTNOTFOUND;
|
|
|
|
}
|
|
|
|
|
2000-06-24 15:50:52 +02:00
|
|
|
static ICOM_VTABLE(ITypeInfo2) tinfvt =
|
|
|
|
{
|
|
|
|
ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
|
|
|
|
|
|
|
|
ITypeInfo_fnQueryInterface,
|
|
|
|
ITypeInfo_fnAddRef,
|
|
|
|
ITypeInfo_fnRelease,
|
|
|
|
|
|
|
|
ITypeInfo_fnGetTypeAttr,
|
|
|
|
ITypeInfo_fnGetTypeComp,
|
|
|
|
ITypeInfo_fnGetFuncDesc,
|
|
|
|
ITypeInfo_fnGetVarDesc,
|
|
|
|
ITypeInfo_fnGetNames,
|
|
|
|
ITypeInfo_fnGetRefTypeOfImplType,
|
|
|
|
ITypeInfo_fnGetImplTypeFlags,
|
|
|
|
ITypeInfo_fnGetIDsOfNames,
|
|
|
|
ITypeInfo_fnInvoke,
|
|
|
|
ITypeInfo_fnGetDocumentation,
|
|
|
|
ITypeInfo_fnGetDllEntry,
|
|
|
|
ITypeInfo_fnGetRefTypeInfo,
|
|
|
|
ITypeInfo_fnAddressOfMember,
|
|
|
|
ITypeInfo_fnCreateInstance,
|
|
|
|
ITypeInfo_fnGetMops,
|
|
|
|
ITypeInfo_fnGetContainingTypeLib,
|
|
|
|
ITypeInfo_fnReleaseTypeAttr,
|
|
|
|
ITypeInfo_fnReleaseFuncDesc,
|
|
|
|
ITypeInfo_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,
|
|
|
|
};
|