ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updated winetest Perl modules using winapi_extract.

This commit is contained in:
Patrik Stridvall 2002-07-20 20:06:58 +00:00 committed by Alexandre Julliard
parent 098883be33
commit 5a4a11b874
21 changed files with 138 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
programs/winetest/include/advapi32.pm
View File

@ -77,6 +77,7 @@ my $module_declarations = {
"EqualSid" => ["long", ["ptr", "ptr"]],
"FreeSid" => ["ptr", ["ptr"]],
"GetAce" => ["long", ["ptr", "long", "ptr"]],
"GetCurrentHwProfileA" => ["long", ["ptr"]],
"GetFileSecurityA" => ["long", ["str", "long", "ptr", "long", "ptr"]],
"GetFileSecurityW" => ["long", ["wstr", "long", "ptr", "long", "ptr"]],
"GetLengthSid" => ["long", ["ptr"]],

20
programs/winetest/include/avifil32.pm
View File

@ -12,48 +12,30 @@ use vars qw(@ISA @EXPORT @EXPORT_OK);
@EXPORT_OK = qw();
my $module_declarations = {
"AVIFileAddRef" => ["long", ["ptr"]],
"AVIFileCreateStreamA" => ["long", ["ptr", "ptr", "ptr"]],
"AVIFileCreateStreamW" => ["long", ["ptr", "ptr", "ptr"]],
"AVIFileEndRecord" => ["long", ["ptr"]],
"AVIFileExit" => ["void", []],
"AVIFileGetStream" => ["long", ["ptr", "ptr", "long", "long"]],
"AVIFileInfo" => ["long", ["ptr", "ptr", "long"]],
"AVIFileInfoA" => ["long", ["ptr", "ptr", "long"]],
"AVIFileInfoW" => ["long", ["ptr", "ptr", "long"]],
"AVIFileInit" => ["void", []],
"AVIFileOpenA" => ["long", ["ptr", "str", "long", "ptr"]],
"AVIFileOpenW" => ["long", ["ptr", "wstr", "long", "ptr"]],
"AVIFileReadData" => ["long", ["ptr", "long", "ptr", "ptr"]],
"AVIFileRelease" => ["long", ["ptr"]],
"AVIFileWriteData" => ["long", ["ptr", "long", "ptr", "long"]],
"AVIMakeCompressedStream" => ["long", ["ptr", "ptr", "ptr", "ptr"]],
"AVIStreamAddRef" => ["long", ["ptr"]],
"AVIStreamBeginStreaming" => ["long", ["ptr", "long", "long", "long"]],
"AVIStreamCreate" => ["long", ["ptr", "long", "long", "ptr"]],
"AVIStreamEndStreaming" => ["long", ["ptr"]],
"AVIStreamFindSample" => ["long", ["ptr", "long", "long"]],
"AVIStreamGetFrame" => ["ptr", ["ptr", "long"]],
"AVIStreamGetFrameClose" => ["long", ["ptr"]],
"AVIStreamGetFrameOpen" => ["ptr", ["ptr", "ptr"]],
"AVIStreamInfo" => ["long", ["ptr", "ptr", "long"]],
"AVIStreamInfoA" => ["long", ["ptr", "ptr", "long"]],
"AVIStreamInfoW" => ["long", ["ptr", "ptr", "long"]],
"AVIStreamLength" => ["long", ["ptr"]],
"AVIStreamOpenFromFileA" => ["long", ["ptr", "str", "long", "long", "long", "ptr"]],
"AVIStreamOpenFromFileW" => ["long", ["ptr", "wstr", "long", "long", "long", "ptr"]],
"AVIStreamRead" => ["long", ["ptr", "long", "long", "ptr", "long", "ptr", "ptr"]],
"AVIStreamReadData" => ["long", ["ptr", "long", "ptr", "ptr"]],
"AVIStreamReadFormat" => ["long", ["ptr", "long", "ptr", "ptr"]],
"AVIStreamRelease" => ["long", ["ptr"]],
"AVIStreamSampleToTime" => ["long", ["ptr", "long"]],
"AVIStreamSetFormat" => ["long", ["ptr", "long", "ptr", "long"]],
"AVIStreamStart" => ["long", ["ptr"]],
"AVIStreamTimeToSample" => ["long", ["ptr", "long"]],
"AVIStreamWrite" => ["long", ["ptr", "long", "long", "ptr", "long", "long", "ptr", "ptr"]],
"AVIStreamWriteData" => ["long", ["ptr", "long", "ptr", "long"]],
"DllCanUnloadNow" => ["long", []],
"DllGetClassObject" => ["long", ["ptr", "ptr", "ptr"]]
"AVIStreamWriteData" => ["long", ["ptr", "long", "ptr", "long"]]
};
&wine::declare("avifil32",%$module_declarations);

23
programs/winetest/include/comcat.pm Normal file
View File

@ -0,0 +1,23 @@
package comcat;
use strict;
require Exporter;
use wine;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw();
my $module_declarations = {
"DllCanUnloadNow" => ["long", ["undef"]],
"DllGetClassObject" => ["long", ["ptr", "ptr", "ptr"]],
"DllRegisterServer" => ["long", ["undef"]],
"DllUnregisterServer" => ["long", ["undef"]]
};
&wine::declare("comcat",%$module_declarations);
push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
1;

24
programs/winetest/include/dinput8.pm Normal file
View File

@ -0,0 +1,24 @@
package dinput8;
use strict;
require Exporter;
use wine;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw();
my $module_declarations = {
"DirectInput8Create" => ["long", ["long", "long", "ptr", "ptr", "ptr"]],
"DllCanUnloadNow" => ["long", []],
"DllGetClassObject" => ["long", ["ptr", "ptr", "ptr"]],
"DllRegisterServer" => ["long", []],
"DllUnregisterServer" => ["long", []]
};
&wine::declare("dinput8",%$module_declarations);
push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
1;

11
programs/winetest/include/gdi32.pm
View File

@ -15,6 +15,8 @@ my $module_declarations = {
"AbortDoc" => ["long", ["long"]],
"AbortPath" => ["long", ["long"]],
"AddFontResourceA" => ["long", ["str"]],
"AddFontResourceExA" => ["long", ["str", "long", "ptr"]],
"AddFontResourceExW" => ["long", ["wstr", "long", "ptr"]],
"AddFontResourceW" => ["long", ["wstr"]],
"AngleArc" => ["long", ["long", "long", "long", "long", "long", "long"]],
"AnimatePalette" => ["long", ["long", "long", "long", "ptr"]],
@ -26,6 +28,7 @@ my $module_declarations = {
"Chord" => ["long", ["long", "long", "long", "long", "long", "long", "long", "long", "long"]],
"CloseEnhMetaFile" => ["long", ["long"]],
"CloseFigure" => ["long", ["long"]],
"CloseJob16" => ["long", ["long"]],
"CloseMetaFile" => ["long", ["long"]],
"CloseMetaFile16" => ["long", ["long"]],
"CombineRgn" => ["long", ["long", "long", "long", "long"]],
@ -82,6 +85,8 @@ my $module_declarations = {
"DeleteObject" => ["long", ["long"]],
"DescribePixelFormat" => ["long", ["long", "long", "long", "ptr"]],
"DrawEscape" => ["long", ["long", "long", "long", "str"]],
"DrvGetPrinterData16" => ["long", ["str", "str", "ptr", "ptr", "long", "ptr"]],
"DrvSetPrinterData16" => ["long", ["str", "str", "long", "ptr", "long"]],
"Ellipse" => ["long", ["long", "long", "long", "long", "long"]],
"EndDoc" => ["long", ["long"]],
"EndPage" => ["long", ["long"]],
@ -226,6 +231,7 @@ my $module_declarations = {
"OffsetRgn" => ["long", ["long", "long", "long"]],
"OffsetViewportOrgEx" => ["long", ["long", "long", "long", "ptr"]],
"OffsetWindowOrgEx" => ["long", ["long", "long", "long", "ptr"]],
"OpenJob16" => ["long", ["str", "str", "long"]],
"PaintRgn" => ["long", ["long", "long"]],
"PatBlt" => ["long", ["long", "long", "long", "long", "long", "long"]],
"PathToRegion" => ["long", ["long"]],
@ -252,6 +258,8 @@ my $module_declarations = {
"RectVisible" => ["long", ["long", "ptr"]],
"Rectangle" => ["long", ["long", "long", "long", "long", "long"]],
"RemoveFontResourceA" => ["long", ["str"]],
"RemoveFontResourceExA" => ["long", ["str", "long", "ptr"]],
"RemoveFontResourceExW" => ["long", ["wstr", "long", "ptr"]],
"RemoveFontResourceW" => ["long", ["wstr"]],
"ResetDCA" => ["long", ["long", "ptr"]],
"ResetDCW" => ["long", ["long", "ptr"]],
@ -323,7 +331,8 @@ my $module_declarations = {
"TranslateCharsetInfo" => ["long", ["ptr", "ptr", "long"]],
"UnrealizeObject" => ["long", ["long"]],
"UpdateColors" => ["long", ["long"]],
"WidenPath" => ["long", ["long"]]
"WidenPath" => ["long", ["long"]],
"WriteSpool16" => ["long", ["long", "str", "long"]]
};
&wine::declare("gdi32",%$module_declarations);

19
programs/winetest/include/imm32.pm
View File

@ -15,18 +15,12 @@ my $module_declarations = {
"ImmAssociateContext" => ["long", ["long", "long"]],
"ImmConfigureIMEA" => ["long", ["long", "long", "long", "ptr"]],
"ImmConfigureIMEW" => ["long", ["long", "long", "long", "ptr"]],
"ImmCreateContext" => ["long", []],
"ImmCreateIMCC" => ["long", ["long"]],
"ImmCreateSoftKeyboard" => ["long", ["long", "long", "long", "long"]],
"ImmCreateContext" => ["long", ["undef"]],
"ImmDestroyContext" => ["long", ["long"]],
"ImmDestroyIMCC" => ["long", ["long"]],
"ImmDestroySoftKeyboard" => ["long", ["long"]],
"ImmDisableIME" => ["long", ["long"]],
"ImmEnumRegisterWordA" => ["long", ["long", "ptr", "str", "long", "str", "ptr"]],
"ImmEnumRegisterWordW" => ["long", ["long", "ptr", "wstr", "long", "wstr", "ptr"]],
"ImmEscapeA" => ["long", ["long", "long", "long", "ptr"]],
"ImmEscapeW" => ["long", ["long", "long", "long", "ptr"]],
"ImmGenerateMessage" => ["long", ["long"]],
"ImmGetCandidateListA" => ["long", ["long", "long", "ptr", "long"]],
"ImmGetCandidateListCountA" => ["long", ["long", "ptr"]],
"ImmGetCandidateListCountW" => ["long", ["long", "ptr"]],
@ -46,10 +40,6 @@ my $module_declarations = {
"ImmGetDescriptionW" => ["long", ["long", "wstr", "long"]],
"ImmGetGuideLineA" => ["long", ["long", "long", "str", "long"]],
"ImmGetGuideLineW" => ["long", ["long", "long", "wstr", "long"]],
"ImmGetHotKey" => ["long", ["long", "ptr", "ptr", "ptr"]],
"ImmGetIMCCLockCount" => ["long", ["long"]],
"ImmGetIMCCSize" => ["long", ["long"]],
"ImmGetIMCLockCount" => ["long", ["long"]],
"ImmGetIMEFileNameA" => ["long", ["long", "str", "long"]],
"ImmGetIMEFileNameW" => ["long", ["long", "wstr", "long"]],
"ImmGetOpenStatus" => ["long", ["long"]],
@ -63,10 +53,7 @@ my $module_declarations = {
"ImmIsIME" => ["long", ["long"]],
"ImmIsUIMessageA" => ["long", ["long", "long", "long", "long"]],
"ImmIsUIMessageW" => ["long", ["long", "long", "long", "long"]],
"ImmLockIMC" => ["ptr", ["long"]],
"ImmLockIMCC" => ["ptr", ["long"]],
"ImmNotifyIME" => ["long", ["long", "long", "long", "long"]],
"ImmReSizeIMCC" => ["long", ["long", "long"]],
"ImmRegisterWordA" => ["long", ["long", "str", "long", "str"]],
"ImmRegisterWordW" => ["long", ["long", "wstr", "long", "wstr"]],
"ImmReleaseContext" => ["long", ["long", "long"]],
@ -77,13 +64,9 @@ my $module_declarations = {
"ImmSetCompositionStringW" => ["long", ["long", "long", "ptr", "long", "ptr", "long"]],
"ImmSetCompositionWindow" => ["long", ["long", "ptr"]],
"ImmSetConversionStatus" => ["long", ["long", "long", "long"]],
"ImmSetHotKey" => ["long", ["long", "long", "long", "long"]],
"ImmSetOpenStatus" => ["long", ["long", "long"]],
"ImmSetStatusWindowPos" => ["long", ["long", "ptr"]],
"ImmShowSoftKeyboard" => ["long", ["long", "long"]],
"ImmSimulateHotKey" => ["long", ["long", "long"]],
"ImmUnlockIMC" => ["long", ["long"]],
"ImmUnlockIMCC" => ["long", ["long"]],
"ImmUnregisterWordA" => ["long", ["long", "str", "long", "str"]],
"ImmUnregisterWordW" => ["long", ["long", "wstr", "long", "wstr"]]
};

6
programs/winetest/include/kernel32.pm
View File

@ -38,6 +38,7 @@ my $module_declarations = {
"FreeLibrary16" => ["void", ["long"]],
"GetProcAddress16" => ["ptr", ["long", "str"]],
"AllocMappedBuffer" => ["void", ["ptr"]],
"FreeMappedBuffer" => ["void", ["ptr"]],
"OT_32ThkLSF" => ["void", ["ptr"]],
"ThunkInitLSF" => ["ptr", ["ptr", "str", "long", "str", "str"]],
"LogApiThkLSF" => ["void", ["str", "ptr"]],
@ -223,7 +224,7 @@ my $module_declarations = {
"FindResourceW" => ["long", ["long", "wstr", "wstr"]],
"FlushConsoleInputBuffer" => ["long", ["long"]],
"FlushFileBuffers" => ["long", ["long"]],
"FlushInstructionCache" => ["long", ["long", "long", "long"]],
"FlushInstructionCache" => ["long", ["long", "ptr", "long"]],
"FlushViewOfFile" => ["long", ["ptr", "long"]],
"FormatMessageA" => ["long", ["long", "ptr", "long", "long", "str", "long", "ptr"]],
"FormatMessageW" => ["long", ["long", "ptr", "long", "long", "wstr", "long", "ptr"]],
@ -679,6 +680,8 @@ my $module_declarations = {
"UpdateResourceW" => ["long", ["long", "wstr", "wstr", "long", "ptr", "long"]],
"VerLanguageNameA" => ["long", ["long", "str", "long"]],
"VerLanguageNameW" => ["long", ["long", "wstr", "long"]],
"VerifyVersionInfoA" => ["long", ["ptr", "long", "long", "long"]],
"VerifyVersionInfoW" => ["long", ["ptr", "long", "long", "long"]],
"VirtualAlloc" => ["ptr", ["ptr", "long", "long", "long"]],
"VirtualAllocEx" => ["ptr", ["long", "ptr", "long", "long", "long"]],
"VirtualFree" => ["long", ["ptr", "long", "long"]],
@ -722,6 +725,7 @@ my $module_declarations = {
"WriteProfileStringA" => ["long", ["str", "str", "str"]],
"WriteProfileStringW" => ["long", ["wstr", "wstr", "wstr"]],
"WriteTapemark" => ["long", ["long", "long", "long", "long"]],
"__wine_call_from_16_regs" => ["long", ["ptr", "ptr", "ptr", "ptr"]],
"_hread" => ["long", ["long", "ptr", "long"]],
"_hwrite" => ["long", ["long", "str", "long"]],
"_lclose" => ["long", ["long"]],

7
programs/winetest/include/ntdll.pm
View File

@ -25,7 +25,6 @@ my $module_declarations = {
"NtConnectPort" => ["long", ["long", "ptr", "long", "long", "long", "long", "long", "long"]],
"NtCreateDirectoryObject" => ["long", ["ptr", "long", "ptr"]],
"NtCreateEvent" => ["long", ["ptr", "long", "ptr", "long", "long"]],
"NtCreateFile" => ["long", ["ptr", "long", "ptr", "ptr", "ptr", "long", "long", "long", "long", "ptr", "long"]],
"NtCreateKey" => ["long", ["ptr", "long", "ptr", "long", "ptr", "long", "ptr"]],
"NtCreateMailslotFile" => ["long", ["long", "long", "long", "long", "long", "long", "long", "long"]],
"NtCreatePagingFile" => ["long", ["ptr", "long", "long", "ptr"]],
@ -104,6 +103,7 @@ my $module_declarations = {
"NtTerminateThread" => ["long", ["long", "long"]],
"NtUnloadKey" => ["long", ["long"]],
"NtWaitForSingleObject" => ["long", ["ptr", "long", "ptr"]],
"NtWriteFile" => ["long", ["long", "long", "ptr", "ptr", "ptr", "ptr", "long", "ptr", "ptr"]],
"RtlAcquirePebLock" => ["void", []],
"RtlAcquireResourceExclusive" => ["long", ["ptr", "long"]],
"RtlAcquireResourceShared" => ["long", ["ptr", "long"]],
@ -125,7 +125,7 @@ my $module_declarations = {
"RtlCompareString" => ["long", ["ptr", "ptr", "long"]],
"RtlCompareUnicodeString" => ["long", ["ptr", "ptr", "long"]],
"RtlConvertLongToLargeInteger" => ["longlong", ["long"]],
"RtlConvertSidToUnicodeString" => ["long", ["ptr", "ptr"]],
"RtlConvertSidToUnicodeString" => ["long", ["ptr", "ptr", "long"]],
"RtlConvertUlongToLargeInteger" => ["longlong", ["long"]],
"RtlCopySid" => ["long", ["long", "ptr", "ptr"]],
"RtlCopyString" => ["void", ["ptr", "ptr"]],
@ -260,13 +260,13 @@ my $module_declarations = {
"RtlxOemStringToUnicodeSize" => ["long", ["ptr"]],
"RtlxUnicodeStringToAnsiSize" => ["long", ["ptr"]],
"RtlxUnicodeStringToOemSize" => ["long", ["ptr"]],
"VerSetConditionMask" => ["longlong", ["long", "long", "long", "long"]],
"ZwAcceptConnectPort" => ["long", ["long", "long", "long", "long", "long", "long"]],
"ZwAdjustGroupsToken" => ["long", ["long", "long", "ptr", "long", "ptr", "ptr"]],
"ZwCompleteConnectPort" => ["long", ["long"]],
"ZwConnectPort" => ["long", ["long", "ptr", "long", "long", "long", "long", "long", "long"]],
"ZwCreateDirectoryObject" => ["long", ["ptr", "long", "ptr"]],
"ZwCreateEvent" => ["long", ["ptr", "long", "ptr", "long", "long"]],
"ZwCreateFile" => ["long", ["ptr", "long", "ptr", "ptr", "ptr", "long", "long", "long", "long", "ptr", "long"]],
"ZwCreateKey" => ["long", ["ptr", "long", "ptr", "long", "ptr", "long", "ptr"]],
"ZwCreateMailslotFile" => ["long", ["long", "long", "long", "long", "long", "long", "long", "long"]],
"ZwCreatePagingFile" => ["long", ["ptr", "long", "long", "ptr"]],
@ -325,6 +325,7 @@ my $module_declarations = {
"ZwTerminateThread" => ["long", ["long", "long"]],
"ZwUnloadKey" => ["long", ["long"]],
"ZwWaitForSingleObject" => ["long", ["ptr", "long", "ptr"]],
"ZwWriteFile" => ["long", ["long", "long", "ptr", "ptr", "ptr", "ptr", "long", "ptr", "ptr"]],
"_alldiv" => ["longlong", ["long", "long", "long", "long"]],
"_allmul" => ["longlong", ["long", "long", "long", "long"]],
"_alloca_probe" => ["void", ["ptr"]],

1
programs/winetest/include/ole32.pm
View File

@ -141,6 +141,7 @@ my $module_declarations = {
"GetErrorInfo" => ["long", ["long", "ptr"]],
"PropVariantCopy" => ["long", ["ptr", "ptr"]],
"SetErrorInfo" => ["long", ["long", "ptr"]],
"CoInitializeSecurity" => ["long", ["ptr", "long", "undef", "ptr", "long", "long", "ptr", "long", "ptr"]],
"DllEntryPoint" => ["long", ["long", "long", "ptr"]]
};

27
programs/winetest/include/oleaut32.pm
View File

@ -12,8 +12,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK);
@EXPORT_OK = qw();
my $module_declarations = {
"OleCreatePropertyFrame" => ["long", ["long", "long", "long", "str", "long", "ptr", "long", "ptr", "long", "long", "ptr"]],
"OleCreatePropertyFrameIndirect" => ["long", ["ptr"]],
"DllGetClassObject" => ["long", ["ptr", "ptr", "ptr"]],
"SysAllocString" => ["wstr", ["str"]],
"SysReAllocString" => ["long", ["ptr", "str"]],
@ -54,6 +52,7 @@ my $module_declarations = {
"SafeArrayDestroyDescriptor" => ["long", ["ptr"]],
"SafeArrayDestroyData" => ["long", ["ptr"]],
"SafeArrayRedim" => ["long", ["ptr", "ptr"]],
"SafeArrayAllocDescriptorEx" => ["long", ["long", "long", "ptr"]],
"VarParseNumFromStr" => ["long", ["ptr", "long", "long", "ptr", "ptr"]],
"VarNumFromParseNum" => ["long", ["ptr", "ptr", "long", "ptr"]],
"VarI2FromUI1" => ["long", ["long", "ptr"]],
@ -80,7 +79,7 @@ my $module_declarations = {
"VarR4FromDate" => ["long", ["double", "ptr"]],
"VarR4FromStr" => ["long", ["ptr", "long", "long", "ptr"]],
"VarR4FromBool" => ["long", ["long", "ptr"]],
"SafeArrayGetVarType" => ["long", ["ptr", "ptr"]],
"SafeArrayGetVartype" => ["long", ["ptr", "ptr"]],
"VarR8FromUI1" => ["long", ["long", "ptr"]],
"VarR8FromI2" => ["long", ["long", "ptr"]],
"VarR8FromI4" => ["long", ["long", "ptr"]],
@ -89,6 +88,7 @@ my $module_declarations = {
"VarR8FromDate" => ["long", ["double", "ptr"]],
"VarR8FromStr" => ["long", ["ptr", "long", "long", "ptr"]],
"VarR8FromBool" => ["long", ["long", "ptr"]],
"VarFormat" => ["long", ["ptr", "str", "long", "long", "long", "ptr"]],
"VarDateFromUI1" => ["long", ["long", "ptr"]],
"VarDateFromI2" => ["long", ["long", "ptr"]],
"VarDateFromI4" => ["long", ["long", "ptr"]],
@ -97,6 +97,7 @@ my $module_declarations = {
"VarDateFromCy" => ["long", ["double", "ptr"]],
"VarDateFromStr" => ["long", ["ptr", "long", "long", "ptr"]],
"VarDateFromBool" => ["long", ["long", "ptr"]],
"VarFormatDateTime" => ["long", ["ptr", "long", "long", "ptr"]],
"VarCyFromUI1" => ["long", ["long", "ptr"]],
"VarCyFromI2" => ["long", ["long", "ptr"]],
"VarCyFromI4" => ["long", ["long", "ptr"]],
@ -121,6 +122,7 @@ my $module_declarations = {
"VarBoolFromDate" => ["long", ["double", "ptr"]],
"VarBoolFromCy" => ["long", ["double", "ptr"]],
"VarBoolFromStr" => ["long", ["ptr", "long", "long", "ptr"]],
"VarFormatCurrency" => ["long", ["ptr", "long", "long", "long", "long", "long", "ptr"]],
"VarUI1FromI2" => ["long", ["long", "ptr"]],
"VarUI1FromI4" => ["long", ["long", "ptr"]],
"VarUI1FromR4" => ["long", ["long", "ptr"]],
@ -129,6 +131,9 @@ my $module_declarations = {
"VarUI1FromDate" => ["long", ["double", "ptr"]],
"VarUI1FromStr" => ["long", ["ptr", "long", "long", "ptr"]],
"VarUI1FromBool" => ["long", ["long", "ptr"]],
"VarFormatFromTokens" => ["long", ["ptr", "str", "ptr", "long", "ptr", "long"]],
"VarTokenizeFormatString" => ["long", ["str", "ptr", "long", "long", "long", "long", "ptr"]],
"VarAnd" => ["long", ["ptr", "ptr", "ptr"]],
"VariantChangeTypeEx" => ["long", ["ptr", "ptr", "long", "long", "long"]],
"SafeArrayPtrOfIndex" => ["long", ["ptr", "ptr", "ptr"]],
"SysStringByteLen" => ["long", ["wstr"]],
@ -141,6 +146,8 @@ my $module_declarations = {
"LHashValOfNameSys" => ["long", ["long", "long", "str"]],
"LHashValOfNameSysA" => ["long", ["long", "long", "str"]],
"OaBuildVersion" => ["long", ["undef"]],
"VarNot" => ["long", ["ptr", "ptr"]],
"VarCmp" => ["long", ["ptr", "ptr", "long", "long"]],
"LoadTypeLibEx" => ["long", ["str", "long", "ptr"]],
"SystemTimeToVariantTime" => ["long", ["ptr", "ptr"]],
"VariantTimeToSystemTime" => ["long", ["double", "ptr"]],
@ -205,22 +212,24 @@ my $module_declarations = {
"VarUI4FromBool" => ["long", ["long", "ptr"]],
"VarUI4FromI1" => ["long", ["long", "ptr"]],
"VarUI4FromUI2" => ["long", ["long", "ptr"]],
"VarCyMulI4" => ["long", ["double", "long", "ptr"]],
"VarBstrCat" => ["long", ["wstr", "wstr", "ptr"]],
"VarBstrCmp" => ["long", ["wstr", "wstr", "long", "long"]],
"VarCat" => ["long", ["ptr", "ptr", "ptr"]],
"DllRegisterServer" => ["long", ["undef"]],
"VarDateFromUdate" => ["long", ["ptr", "long", "ptr"]],
"VarUdateFromDate" => ["long", ["double", "long", "ptr"]],
"OleLoadPictureEx" => ["long", ["ptr", "long", "long", "ptr", "long", "long", "long", "ptr"]],
"DllCanUnloadNow" => ["long", ["undef"]],
"SafeArrayCreateVector" => ["ptr", ["long", "long", "long"]],
"SafeArrayCopyData" => ["long", ["ptr", "ptr"]],
"OleIconToCursor" => ["long", ["long", "long"]],
"OleCreatePropertyFrameIndirect" => ["long", ["ptr"]],
"OleCreatePropertyFrame" => ["long", ["long", "long", "long", "str", "long", "ptr", "long", "ptr", "long", "long", "ptr"]],
"OleLoadPicture" => ["long", ["ptr", "long", "long", "ptr", "ptr"]],
"OleCreatePictureIndirect" => ["long", ["ptr", "ptr", "long", "ptr"]],
"OleCreateFontIndirect" => ["long", ["ptr", "ptr", "ptr"]],
"OleTranslateColor" => ["long", ["long", "long", "ptr"]],
"OleLoadPictureEx" => ["long", ["ptr", "long", "long", "ptr", "long", "long", "long", "ptr"]],
"SafeArrayAllocDescriptorEx" => ["long", ["long", "long", "ptr"]],
"VarBstrCat" => ["long", ["wstr", "wstr", "ptr"]],
"VarBstrCmp" => ["long", ["wstr", "wstr", "long", "long"]],
"VarCat" => ["long", ["ptr", "ptr", "ptr"]]
"OleTranslateColor" => ["long", ["long", "long", "ptr"]]
};
&wine::declare("oleaut32",%$module_declarations);

3
programs/winetest/include/rpcrt4.pm
View File

@ -12,6 +12,7 @@ use vars qw(@ISA @EXPORT @EXPORT_OK);
@EXPORT_OK = qw();
my $module_declarations = {
"DllRegisterServer" => ["long", []],
"NdrDllCanUnloadNow" => ["long", ["ptr"]],
"NdrDllGetClassObject" => ["long", ["ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
"NdrDllRegisterProxy" => ["long", ["long", "ptr", "ptr"]],
@ -33,6 +34,8 @@ my $module_declarations = {
"RpcStringFreeA" => ["long", ["ptr"]],
"UuidCreate" => ["long", ["ptr"]],
"UuidCreateSequential" => ["long", ["ptr"]],
"UuidFromStringA" => ["long", ["ptr", "ptr"]],
"UuidFromStringW" => ["long", ["ptr", "ptr"]],
"UuidHash" => ["ptr", ["ptr", "ptr"]],
"UuidToStringA" => ["long", ["ptr", "ptr"]]
};

7
programs/winetest/include/setupapi.pm
View File

@ -18,6 +18,13 @@ my $module_declarations = {
"SetupCommitFileQueueW" => ["long", ["long", "long", "ptr", "ptr"]],
"SetupDefaultQueueCallbackA" => ["long", ["ptr", "long", "long", "long"]],
"SetupDefaultQueueCallbackW" => ["long", ["ptr", "long", "long", "long"]],
"SetupDiDestroyDeviceInfoList" => ["long", ["long"]],
"SetupDiEnumDeviceInfo" => ["long", ["long", "long", "ptr"]],
"SetupDiEnumDeviceInterfaces" => ["long", ["long", "ptr", "ptr", "long", "ptr"]],
"SetupDiGetClassDevsA" => ["long", ["ptr", "str", "long", "long"]],
"SetupDiGetDeviceInterfaceDetailA" => ["long", ["long", "ptr", "ptr", "long", "ptr", "ptr"]],
"SetupDiGetDeviceInterfaceDetailW" => ["long", ["long", "ptr", "ptr", "long", "ptr", "ptr"]],
"SetupDiGetDeviceRegistryPropertyA" => ["long", ["long", "ptr", "long", "ptr", "ptr", "long", "ptr"]],
"SetupFindFirstLineA" => ["long", ["long", "str", "str", "ptr"]],
"SetupFindFirstLineW" => ["long", ["long", "str", "str", "ptr"]],
"SetupFindNextLine" => ["long", ["ptr", "ptr"]],

4
programs/winetest/include/shdocvw.pm
View File

@ -16,8 +16,8 @@ my $module_declarations = {
"DllGetClassObject" => ["long", ["ptr", "ptr", "ptr"]],
"DllGetVersion" => ["long", ["ptr"]],
"DllInstall" => ["long", ["long", "wstr"]],
"DllRegisterServer" => ["long", []],
"DllUnregisterServer" => ["long", []]
"DllRegisterServer" => ["long", ["undef"]],
"DllUnregisterServer" => ["long", ["undef"]]
};
&wine::declare("shdocvw",%$module_declarations);

3
programs/winetest/include/shell32.pm
View File

@ -57,7 +57,6 @@ my $module_declarations = {
"PathGetDriveNumber" => ["long", ["ptr"]],
"ParseField" => ["long", ["ptr", "long", "ptr", "long"]],
"ExitWindowsDialog" => ["void", ["long"]],
"RunFileDlg" => ["void", ["long", "long", "str", "str", "str", "long"]],
"PickIconDlg" => ["long", ["long", "str", "long", "ptr"]],
"GetFileNameFromBrowse" => ["long", ["long", "str", "long", "str", "str", "str", "str"]],
"DriveType" => ["long", ["long"]],
@ -204,6 +203,7 @@ my $module_declarations = {
"DoEnvironmentSubstW" => ["long", ["wstr", "wstr"]],
"DuplicateIcon" => ["long", ["long", "long"]],
"ExtractAssociatedIconA" => ["long", ["long", "str", "ptr"]],
"ExtractAssociatedIconExA" => ["long", ["long", "long", "long", "long"]],
"ExtractAssociatedIconExW" => ["long", ["long", "long", "long", "long"]],
"ExtractIconA" => ["long", ["long", "str", "long"]],
"ExtractIconEx" => ["long", ["ptr", "long", "ptr", "ptr", "long"]],
@ -217,6 +217,7 @@ my $module_declarations = {
"SHAppBarMessage" => ["long", ["long", "ptr"]],
"SHBrowseForFolder" => ["ptr", ["ptr"]],
"SHBrowseForFolderA" => ["ptr", ["ptr"]],
"SHBrowseForFolderW" => ["ptr", ["ptr"]],
"SHChangeNotify" => ["void", ["long", "long", "ptr", "ptr"]],
"SHFileOperation" => ["long", ["ptr"]],
"SHFileOperationA" => ["long", ["ptr"]],

7
programs/winetest/include/shlwapi.pm
View File

@ -128,6 +128,9 @@ my $module_declarations = {
"PathUnquoteSpacesA" => ["void", ["str"]],
"PathUnquoteSpacesW" => ["void", ["wstr"]],
"SHCreateShellPalette" => ["long", ["long"]],
"SHCreateStreamOnFileA" => ["long", ["str", "long", "ptr"]],
"SHCreateStreamOnFileEx" => ["long", ["wstr", "long", "long", "long", "ptr", "ptr"]],
"SHCreateStreamOnFileW" => ["long", ["wstr", "long", "ptr"]],
"SHDeleteEmptyKeyA" => ["long", ["long", "str"]],
"SHDeleteEmptyKeyW" => ["long", ["long", "wstr"]],
"SHDeleteKeyA" => ["long", ["long", "str"]],
@ -234,7 +237,9 @@ my $module_declarations = {
"UrlIsW" => ["long", ["wstr", "long"]],
"UrlUnescapeA" => ["long", ["str", "str", "ptr", "long"]],
"UrlUnescapeW" => ["long", ["wstr", "wstr", "ptr", "long"]],
"_SHGetInstanceExplorer\@4" => ["long", ["ptr"]]
"_SHGetInstanceExplorer\@4" => ["long", ["ptr"]],
"wvnsprintfA" => ["long", ["str", "long", "str", "ptr"]],
"wvnsprintfW" => ["long", ["wstr", "long", "wstr", "ptr"]]
};
&wine::declare("shlwapi",%$module_declarations);

20
programs/winetest/include/sti.pm Normal file
View File

@ -0,0 +1,20 @@
package sti;
use strict;
require Exporter;
use wine;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw();
my $module_declarations = {
"StiCreateInstance" => ["long", ["long", "long", "ptr", "ptr"]]
};
&wine::declare("sti",%$module_declarations);
push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
1;

8
programs/winetest/include/user32.pm
View File

@ -315,7 +315,6 @@ my $module_declarations = {
"GetSubMenu" => ["long", ["long", "long"]],
"GetSysColor" => ["long", ["long"]],
"GetSysColorBrush" => ["long", ["long"]],
"GetSysColorPen" => ["long", ["long"]],
"GetSystemMenu" => ["long", ["long", "long"]],
"GetSystemMetrics" => ["long", ["long"]],
"GetTabbedTextExtentA" => ["long", ["long", "str", "long", "long", "ptr"]],
@ -331,6 +330,7 @@ my $module_declarations = {
"GetWindow" => ["long", ["long", "long"]],
"GetWindowContextHelpId" => ["long", ["long"]],
"GetWindowDC" => ["long", ["long"]],
"GetWindowInfo" => ["long", ["long", "ptr"]],
"GetWindowLongA" => ["long", ["long", "long"]],
"GetWindowLongW" => ["long", ["long", "long"]],
"GetWindowModuleFileNameA" => ["long", ["long", "str", "long"]],
@ -378,6 +378,7 @@ my $module_declarations = {
"IsIconic" => ["long", ["long"]],
"IsMenu" => ["long", ["long"]],
"IsRectEmpty" => ["long", ["ptr"]],
"IsWinEventHookInstalled" => ["long", ["long"]],
"IsWindow" => ["long", ["long"]],
"IsWindowEnabled" => ["long", ["long"]],
"IsWindowUnicode" => ["long", ["long"]],
@ -432,6 +433,7 @@ my $module_declarations = {
"MoveWindow" => ["long", ["long", "long", "long", "long", "long", "long"]],
"MsgWaitForMultipleObjects" => ["long", ["long", "ptr", "long", "long", "long"]],
"MsgWaitForMultipleObjectsEx" => ["long", ["long", "ptr", "long", "long", "long"]],
"NotifyWinEvent" => ["void", ["long", "long", "long", "long"]],
"OemKeyScan" => ["long", ["long"]],
"OemToCharA" => ["long", ["str", "str"]],
"OemToCharBuffA" => ["long", ["str", "str", "long"]],
@ -549,6 +551,7 @@ my $module_declarations = {
"SetTimer" => ["long", ["long", "long", "long", "ptr"]],
"SetUserObjectInformationA" => ["long", ["long", "long", "ptr", "long"]],
"SetUserObjectSecurity" => ["long", ["long", "ptr", "ptr"]],
"SetWinEventHook" => ["long", ["long", "long", "long", "ptr", "long", "long", "long"]],
"SetWindowContextHelpId" => ["long", ["long", "long"]],
"SetWindowLongA" => ["long", ["long", "long", "long"]],
"SetWindowLongW" => ["long", ["long", "long", "long"]],
@ -591,6 +594,7 @@ my $module_declarations = {
"TranslateCharsetInfo" => ["long", ["ptr", "ptr", "long"]],
"TranslateMDISysAccel" => ["long", ["long", "ptr"]],
"TranslateMessage" => ["long", ["ptr"]],
"UnhookWinEvent" => ["long", ["long"]],
"UnhookWindowsHook" => ["long", ["long", "ptr"]],
"UnhookWindowsHookEx" => ["long", ["long"]],
"UnionRect" => ["long", ["ptr", "ptr", "ptr"]],
@ -617,8 +621,6 @@ my $module_declarations = {
"WindowFromPoint" => ["long", ["long", "long"]],
"keybd_event" => ["void", ["long", "long", "long", "long"]],
"mouse_event" => ["void", ["long", "long", "long", "long", "long"]],
"wvsnprintfA" => ["long", ["str", "long", "str", "ptr"]],
"wvsnprintfW" => ["long", ["wstr", "long", "wstr", "ptr"]],
"wvsprintfA" => ["long", ["str", "str", "ptr"]],
"wvsprintfW" => ["long", ["wstr", "wstr", "ptr"]]
};

3
programs/winetest/include/winedos.pm
View File

@ -15,7 +15,7 @@ my $module_declarations = {
"ASPIHandler" => ["void", ["ptr"]],
"AllocRMCB" => ["void", ["ptr"]],
"CallRMInt" => ["void", ["ptr"]],
"CallRMProc" => ["void", ["undef"]],
"CallRMProc" => ["void", ["ptr"]],
"Enter" => ["long", ["ptr"]],
"FreeRMCB" => ["void", ["ptr"]],
"GetTimer" => ["long", []],
@ -23,6 +23,7 @@ my $module_declarations = {
"LoadDosExe" => ["void", ["str", "long"]],
"OutPIC" => ["void", ["long", "long"]],
"QueueEvent" => ["void", ["long", "long", "undef", "ptr"]],
"RawModeSwitch" => ["void", ["ptr"]],
"SetTimer" => ["void", ["long"]],
"Wait" => ["void", ["long", "long"]]
};

1
programs/winetest/include/wininet.pm
View File

@ -41,6 +41,7 @@ my $module_declarations = {
"InternetGetCookieA" => ["long", ["str", "str", "str", "ptr"]],
"InternetGetLastResponseInfoA" => ["long", ["ptr", "str", "ptr"]],
"InternetOpenA" => ["long", ["str", "long", "str", "str", "long"]],
"InternetOpenUrlA" => ["long", ["long", "str", "str", "long", "long", "long"]],
"InternetQueryOptionA" => ["long", ["long", "long", "ptr", "ptr"]],
"InternetReadFile" => ["long", ["long", "ptr", "long", "ptr"]],
"InternetSetCookieA" => ["long", ["str", "str", "str"]],

1
programs/winetest/include/winmm.pm
View File

@ -25,7 +25,6 @@ my $module_declarations = {
"GetDriverModuleHandle" => ["long", ["long"]],
"OpenDriver" => ["long", ["wstr", "wstr", "long"]],
"OpenDriverA" => ["long", ["str", "str", "long"]],
"PlaySound" => ["long", ["str", "long", "long"]],
"PlaySoundA" => ["long", ["str", "long", "long"]],
"PlaySoundW" => ["long", ["wstr", "long", "long"]],
"SendDriverMessage" => ["long", ["long", "long", "long", "long"]],

3
programs/winetest/include/ws2_32.pm
View File

@ -38,8 +38,9 @@ my $module_declarations = {
"WSApSetPostRoutine" => ["long", ["ptr"]],
"WSAAccept" => ["long", ["long", "ptr", "ptr", "ptr", "long"]],
"WSACloseEvent" => ["long", ["long"]],
"WSAConnect" => ["long", ["long", "ptr", "long", "ptr", "ptr", "undef", "undef"]],
"WSAConnect" => ["long", ["long", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
"WSACreateEvent" => ["long", []],
"WSADuplicateSocketA" => ["long", ["long", "long", "ptr"]],
"WSAEnumNetworkEvents" => ["long", ["long", "long", "ptr"]],
"WSAEnumProtocolsA" => ["long", ["ptr", "ptr", "ptr"]],
"WSAEnumProtocolsW" => ["long", ["ptr", "ptr", "ptr"]],