Generate Perl modules defining prototypes for exported functions.

programs/winetest/include/avifil32.pm

+package avifil32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@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"]]
+};
+
+&wine::declare("avifil32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/comctl32.pm

+package comctl32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "MenuHelp" => ["void",  ["long", "long", "long", "long", "long", "long", "ptr"]],
+    "ShowHideMenuCtl" => ["long",  ["long", "long", "ptr"]],
+    "GetEffectiveClientRect" => ["void",  ["long", "ptr", "ptr"]],
+    "DrawStatusTextA" => ["void",  ["long", "ptr", "str", "long"]],
+    "CreateStatusWindowA" => ["long",  ["long", "str", "long", "long"]],
+    "CreateToolbar" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr", "long"]],
+    "CreateMappedBitmap" => ["long",  ["long", "long", "long", "ptr", "long"]],
+    "DPA_LoadStream" => ["long",  ["ptr", "ptr", "ptr", "long"]],
+    "DPA_SaveStream" => ["long",  ["long", "ptr", "ptr", "long"]],
+    "DPA_Merge" => ["long",  ["long", "long", "long", "ptr", "ptr", "long"]],
+    "MakeDragList" => ["long",  ["long"]],
+    "LBItemFromPt" => ["long",  ["long", "long", "long", "long"]],
+    "DrawInsert" => ["void",  ["long", "long", "long"]],
+    "CreateUpDownControl" => ["long",  ["long", "long", "long", "long", "long", "long", "long", "long", "long", "long", "long", "long"]],
+    "InitCommonControls" => ["void",  []],
+    "CreatePropertySheetPage" => ["long",  ["ptr"]],
+    "CreatePropertySheetPageA" => ["long",  ["ptr"]],
+    "CreatePropertySheetPageW" => ["long",  ["ptr"]],
+    "CreateStatusWindow" => ["long",  ["long", "str", "long", "long"]],
+    "CreateStatusWindowW" => ["long",  ["long", "wstr", "long", "long"]],
+    "CreateToolbarEx" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr", "long", "long", "long", "long", "long", "long"]],
+    "DestroyPropertySheetPage" => ["long",  ["long"]],
+    "DllGetVersion" => ["long",  ["ptr"]],
+    "DllInstall" => ["long",  ["long", "wstr"]],
+    "DrawStatusText" => ["void",  ["long", "ptr", "str", "long"]],
+    "DrawStatusTextW" => ["void",  ["long", "ptr", "wstr", "long"]],
+    "FlatSB_EnableScrollBar" => ["long",  ["long", "long", "long"]],
+    "FlatSB_GetScrollInfo" => ["long",  ["long", "long", "ptr"]],
+    "FlatSB_GetScrollPos" => ["long",  ["long", "long"]],
+    "FlatSB_GetScrollProp" => ["long",  ["long", "long", "ptr"]],
+    "FlatSB_GetScrollRange" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "FlatSB_SetScrollInfo" => ["long",  ["long", "long", "ptr", "long"]],
+    "FlatSB_SetScrollPos" => ["long",  ["long", "long", "long", "long"]],
+    "FlatSB_SetScrollProp" => ["long",  ["long", "long", "long", "long"]],
+    "FlatSB_ShowScrollBar" => ["long",  ["long", "long", "long"]],
+    "GetMUILanguage" => ["long",  []],
+    "ImageList_Add" => ["long",  ["long", "long", "long"]],
+    "ImageList_AddIcon" => ["long",  ["long", "long"]],
+    "ImageList_AddMasked" => ["long",  ["long", "long", "long"]],
+    "ImageList_BeginDrag" => ["long",  ["long", "long", "long", "long"]],
+    "ImageList_Copy" => ["long",  ["long", "long", "long", "long", "long"]],
+    "ImageList_Create" => ["long",  ["long", "long", "long", "long", "long"]],
+    "ImageList_Destroy" => ["long",  ["long"]],
+    "ImageList_DragEnter" => ["long",  ["long", "long", "long"]],
+    "ImageList_DragLeave" => ["long",  ["long"]],
+    "ImageList_DragMove" => ["long",  ["long", "long"]],
+    "ImageList_DragShowNolock" => ["long",  ["long"]],
+    "ImageList_Draw" => ["long",  ["long", "long", "long", "long", "long", "long"]],
+    "ImageList_DrawEx" => ["long",  ["long", "long", "long", "long", "long", "long", "long", "long", "long", "long"]],
+    "ImageList_DrawIndirect" => ["long",  ["ptr"]],
+    "ImageList_Duplicate" => ["long",  ["long"]],
+    "ImageList_EndDrag" => ["long",  []],
+    "ImageList_GetBkColor" => ["long",  ["long"]],
+    "ImageList_GetDragImage" => ["long",  ["ptr", "ptr"]],
+    "ImageList_GetFlags" => ["long",  ["long"]],
+    "ImageList_GetIcon" => ["long",  ["long", "long", "long"]],
+    "ImageList_GetIconSize" => ["long",  ["long", "ptr", "ptr"]],
+    "ImageList_GetImageCount" => ["long",  ["long"]],
+    "ImageList_GetImageInfo" => ["long",  ["long", "long", "ptr"]],
+    "ImageList_GetImageRect" => ["long",  ["long", "long", "ptr"]],
+    "ImageList_LoadImage" => ["long",  ["long", "str", "long", "long", "long", "long", "long"]],
+    "ImageList_LoadImageA" => ["long",  ["long", "str", "long", "long", "long", "long", "long"]],
+    "ImageList_LoadImageW" => ["long",  ["long", "wstr", "long", "long", "long", "long", "long"]],
+    "ImageList_Merge" => ["long",  ["long", "long", "long", "long", "long", "long"]],
+    "ImageList_Read" => ["long",  ["ptr"]],
+    "ImageList_Remove" => ["long",  ["long", "long"]],
+    "ImageList_Replace" => ["long",  ["long", "long", "long", "long"]],
+    "Alloc" => ["ptr",  ["long"]],
+    "ReAlloc" => ["ptr",  ["ptr", "long"]],
+    "Free" => ["long",  ["ptr"]],
+    "GetSize" => ["long",  ["ptr"]],
+    "ImageList_ReplaceIcon" => ["long",  ["long", "long", "long"]],
+    "ImageList_SetBkColor" => ["long",  ["long", "long"]],
+    "ImageList_SetDragCursorImage" => ["long",  ["long", "long", "long", "long"]],
+    "ImageList_SetFilter" => ["long",  ["long", "long", "long"]],
+    "ImageList_SetFlags" => ["long",  ["long", "long"]],
+    "ImageList_SetIconSize" => ["long",  ["long", "long", "long"]],
+    "ImageList_SetImageCount" => ["long",  ["long", "long"]],
+    "ImageList_SetOverlayImage" => ["long",  ["long", "long", "long"]],
+    "ImageList_Write" => ["long",  ["long", "ptr"]],
+    "InitCommonControlsEx" => ["long",  ["ptr"]],
+    "InitMUILanguage" => ["void",  ["long"]],
+    "InitializeFlatSB" => ["long",  ["long"]],
+    "PropertySheet" => ["long",  ["ptr"]],
+    "PropertySheetA" => ["long",  ["ptr"]],
+    "PropertySheetW" => ["long",  ["ptr"]],
+    "UninitializeFlatSB" => ["long",  ["long"]],
+    "_TrackMouseEvent" => ["long",  ["ptr"]],
+    "CreateMRUListA" => ["long",  ["ptr"]],
+    "FreeMRUList" => ["long",  ["long"]],
+    "AddMRUStringA" => ["long",  ["long", "str"]],
+    "EnumMRUListA" => ["long",  ["long", "long", "ptr", "long"]],
+    "FindMRUStringA" => ["long",  ["long", "str", "ptr"]],
+    "DelMRUString" => ["long",  ["long", "long"]],
+    "CreateMRUListLazyA" => ["long",  ["ptr", "long", "long", "long"]],
+    "AddMRUData" => ["long",  ["long", "ptr", "long"]],
+    "FindMRUData" => ["long",  ["long", "ptr", "long", "ptr"]],
+    "Str_GetPtrA" => ["long",  ["str", "str", "long"]],
+    "Str_SetPtrA" => ["long",  ["ptr", "str"]],
+    "Str_GetPtrW" => ["long",  ["wstr", "wstr", "long"]],
+    "Str_SetPtrW" => ["long",  ["ptr", "wstr"]],
+    "DSA_Create" => ["long",  ["long", "long"]],
+    "DSA_Destroy" => ["long",  ["long"]],
+    "DSA_GetItem" => ["long",  ["long", "long", "ptr"]],
+    "DSA_GetItemPtr" => ["ptr",  ["long", "long"]],
+    "DSA_InsertItem" => ["long",  ["long", "long", "ptr"]],
+    "DSA_SetItem" => ["long",  ["long", "long", "ptr"]],
+    "DSA_DeleteItem" => ["long",  ["long", "long"]],
+    "DSA_DeleteAllItems" => ["long",  ["long"]],
+    "DPA_Create" => ["long",  ["long"]],
+    "DPA_Destroy" => ["long",  ["long"]],
+    "DPA_Grow" => ["long",  ["long", "long"]],
+    "DPA_Clone" => ["long",  ["long", "long"]],
+    "DPA_GetPtr" => ["ptr",  ["long", "long"]],
+    "DPA_GetPtrIndex" => ["long",  ["long", "ptr"]],
+    "DPA_InsertPtr" => ["long",  ["long", "long", "ptr"]],
+    "DPA_SetPtr" => ["long",  ["long", "long", "ptr"]],
+    "DPA_DeletePtr" => ["ptr",  ["long", "long"]],
+    "DPA_DeleteAllPtrs" => ["long",  ["long"]],
+    "DPA_Sort" => ["long",  ["long", "ptr", "long"]],
+    "DPA_Search" => ["long",  ["long", "ptr", "long", "ptr", "long", "long"]],
+    "DPA_CreateEx" => ["long",  ["long", "long"]],
+    "SendNotify" => ["long",  ["long", "long", "long", "ptr"]],
+    "SendNotifyEx" => ["long",  ["long", "long", "long", "ptr", "long"]],
+    "StrChrA" => ["str",  ["str", "long"]],
+    "StrRChrA" => ["str",  ["str", "str", "long"]],
+    "StrCmpNA" => ["long",  ["str", "str", "long"]],
+    "StrCmpNIA" => ["long",  ["str", "str", "long"]],
+    "StrStrA" => ["str",  ["str", "str"]],
+    "StrStrIA" => ["str",  ["str", "str"]],
+    "StrCSpnA" => ["long",  ["str", "str"]],
+    "StrToIntA" => ["long",  ["str"]],
+    "StrChrW" => ["wstr",  ["wstr", "long"]],
+    "StrRChrW" => ["wstr",  ["wstr", "wstr", "long"]],
+    "StrCmpNW" => ["long",  ["wstr", "wstr", "long"]],
+    "StrCmpNIW" => ["long",  ["wstr", "wstr", "long"]],
+    "StrStrW" => ["wstr",  ["wstr", "wstr"]],
+    "StrSpnW" => ["long",  ["wstr", "wstr"]],
+    "StrToIntW" => ["long",  ["wstr"]],
+    "SmoothScrollWindow" => ["long",  ["ptr"]],
+    "DPA_EnumCallback" => ["void",  ["long", "ptr", "long"]],
+    "DPA_DestroyCallback" => ["long",  ["long", "ptr", "long"]],
+    "DSA_EnumCallback" => ["void",  ["long", "ptr", "long"]],
+    "DSA_DestroyCallback" => ["long",  ["long", "ptr", "long"]],
+    "CreateMRUListW" => ["long",  ["ptr"]],
+    "AddMRUStringW" => ["long",  ["long", "wstr"]],
+    "FindMRUStringW" => ["long",  ["long", "wstr", "ptr"]],
+    "EnumMRUListW" => ["long",  ["long", "long", "ptr", "long"]],
+    "CreateMRUListLazyW" => ["long",  ["ptr", "long", "long", "long"]]
+};
+
+&wine::declare("comctl32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/comdlg32.pm

+package comdlg32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "ChooseColorA" => ["long",  ["ptr"]],
+    "ChooseColorW" => ["long",  ["ptr"]],
+    "ChooseFontA" => ["long",  ["ptr"]],
+    "ChooseFontW" => ["long",  ["ptr"]],
+    "CommDlgExtendedError" => ["long",  []],
+    "FindTextA" => ["long",  ["ptr"]],
+    "FindTextW" => ["long",  ["ptr"]],
+    "GetFileTitleA" => ["long",  ["str", "str", "long"]],
+    "GetFileTitleW" => ["long",  ["wstr", "wstr", "long"]],
+    "GetOpenFileNameA" => ["long",  ["ptr"]],
+    "GetOpenFileNameW" => ["long",  ["ptr"]],
+    "GetSaveFileNameA" => ["long",  ["ptr"]],
+    "GetSaveFileNameW" => ["long",  ["ptr"]],
+    "PageSetupDlgA" => ["long",  ["ptr"]],
+    "PageSetupDlgW" => ["long",  ["ptr"]],
+    "PrintDlgA" => ["long",  ["ptr"]],
+    "PrintDlgExA" => ["long",  ["ptr"]],
+    "PrintDlgExW" => ["long",  ["ptr"]],
+    "PrintDlgW" => ["long",  ["ptr"]],
+    "ReplaceTextA" => ["long",  ["ptr"]],
+    "ReplaceTextW" => ["long",  ["ptr"]]
+};
+
+&wine::declare("comdlg32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/dciman32.pm

+package dciman32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DCICloseProvider" => ["void",  ["long"]],
+    "DCIOpenProvider" => ["long",  []]
+};
+
+&wine::declare("dciman32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/ddraw.pm

+package ddraw;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DirectDrawCreate" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DirectDrawEnumerateA" => ["long",  ["ptr", "ptr"]],
+    "DirectDrawEnumerateExA" => ["long",  ["ptr", "ptr", "long"]],
+    "DirectDrawEnumerateExW" => ["long",  ["ptr", "ptr", "long"]],
+    "DirectDrawEnumerateW" => ["long",  ["ptr", "ptr"]],
+    "DllCanUnloadNow" => ["long",  []],
+    "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]]
+};
+
+&wine::declare("ddraw",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/dinput.pm

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

programs/winetest/include/dplayx.pm

+package dplayx;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DirectPlayCreate" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DirectPlayEnumerateA" => ["long",  ["ptr", "ptr"]],
+    "DirectPlayEnumerateW" => ["long",  ["ptr", "ptr"]],
+    "DirectPlayLobbyCreateA" => ["long",  ["ptr", "ptr", "ptr", "ptr", "long"]],
+    "DirectPlayLobbyCreateW" => ["long",  ["ptr", "ptr", "ptr", "ptr", "long"]],
+    "DirectPlayEnumerate" => ["long",  ["ptr", "ptr"]],
+    "DllCanUnloadNow" => ["long",  []],
+    "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]]
+};
+
+&wine::declare("dplayx",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/dsound.pm

+package dsound;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DirectSoundCreate" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DirectSoundEnumerateA" => ["long",  ["ptr", "ptr"]],
+    "DirectSoundEnumerateW" => ["long",  ["ptr", "ptr"]],
+    "DllCanUnloadNow" => ["long",  []],
+    "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DirectSoundCaptureCreate" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DirectSoundCaptureEnumerateA" => ["long",  ["ptr", "ptr"]],
+    "DirectSoundCaptureEnumerateW" => ["long",  ["ptr", "ptr"]]
+};
+
+&wine::declare("dsound",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/glu32.pm

+package glu32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "gluBeginCurve" => ["long",  ["ptr"]],
+    "gluBeginPolygon" => ["long",  ["ptr"]],
+    "gluBeginSurface" => ["long",  ["ptr"]],
+    "gluBeginTrim" => ["long",  ["ptr"]],
+    "gluBuild1DMipmaps" => ["long",  ["long", "long", "long", "long", "long", "ptr"]],
+    "gluBuild2DMipmaps" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr"]],
+    "gluCheckExtension" => ["long",  ["ptr", "ptr"]],
+    "gluCylinder" => ["long",  ["ptr", "double", "double", "double", "long", "long"]],
+    "gluDeleteNurbsRenderer" => ["long",  ["ptr"]],
+    "gluDeleteQuadric" => ["long",  ["ptr"]],
+    "gluDeleteTess" => ["long",  ["ptr"]],
+    "gluDisk" => ["long",  ["ptr", "double", "double", "long", "long"]],
+    "gluEndCurve" => ["long",  ["ptr"]],
+    "gluEndPolygon" => ["long",  ["ptr"]],
+    "gluEndSurface" => ["long",  ["ptr"]],
+    "gluEndTrim" => ["long",  ["ptr"]],
+    "gluErrorString" => ["long",  ["long"]],
+    "gluGetNurbsProperty" => ["long",  ["ptr", "long", "ptr"]],
+    "gluGetString" => ["long",  ["long"]],
+    "gluLoadSamplingMatrices" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
+    "gluLookAt" => ["long",  ["double", "double", "double", "double", "double", "double", "double", "double", "double"]],
+    "gluNewNurbsRenderer" => ["long",  ["undef"]],
+    "gluNewQuadric" => ["long",  ["undef"]],
+    "gluNewTess" => ["long",  ["undef"]],
+    "gluNextContour" => ["long",  ["ptr", "long"]],
+    "gluNurbsCallback" => ["long",  ["ptr", "long", "ptr"]],
+    "gluNurbsCurve" => ["long",  ["ptr", "long", "ptr", "long", "ptr", "long", "long"]],
+    "gluNurbsProperty" => ["long",  ["ptr", "long", "long"]],
+    "gluNurbsSurface" => ["long",  ["ptr", "long", "ptr", "long", "ptr", "long", "long", "ptr", "long", "long", "long"]],
+    "gluOrtho2D" => ["long",  ["double", "double", "double", "double"]],
+    "gluPartialDisk" => ["long",  ["ptr", "double", "double", "long", "long", "double", "double"]],
+    "gluPerspective" => ["long",  ["double", "double", "double", "double"]],
+    "gluPickMatrix" => ["long",  ["double", "double", "double", "double", "ptr"]],
+    "gluProject" => ["long",  ["double", "double", "double", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
+    "gluPwlCurve" => ["long",  ["ptr", "long", "ptr", "long", "long"]],
+    "gluQuadricCallback" => ["long",  ["ptr", "long", "ptr"]],
+    "gluQuadricDrawStyle" => ["long",  ["ptr", "long"]],
+    "gluQuadricNormals" => ["long",  ["ptr", "long"]],
+    "gluQuadricOrientation" => ["long",  ["ptr", "long"]],
+    "gluQuadricTexture" => ["long",  ["ptr", "long"]],
+    "gluScaleImage" => ["long",  ["long", "long", "long", "long", "ptr", "long", "long", "long", "ptr"]],
+    "gluSphere" => ["long",  ["ptr", "double", "long", "long"]],
+    "gluTessCallback" => ["long",  ["ptr", "long", "ptr"]],
+    "gluTessVertex" => ["long",  ["ptr", "ptr", "ptr"]],
+    "gluUnProject" => ["long",  ["double", "double", "double", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]]
+};
+
+&wine::declare("glu32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/icmp.pm

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

programs/winetest/include/imagehlp.pm

+package imagehlp;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "BindImage" => ["long",  ["str", "str", "str"]],
+    "BindImageEx" => ["long",  ["long", "str", "str", "str", "ptr"]],
+    "CheckSumMappedFile" => ["ptr",  ["ptr", "long", "ptr", "ptr"]],
+    "EnumerateLoadedModules" => ["long",  ["long", "ptr", "ptr"]],
+    "FindDebugInfoFile" => ["long",  ["str", "str", "str"]],
+    "FindExecutableImage" => ["long",  ["str", "str", "str"]],
+    "GetImageConfigInformation" => ["long",  ["ptr", "ptr"]],
+    "GetImageUnusedHeaderBytes" => ["long",  ["ptr", "ptr"]],
+    "GetTimestampForLoadedLibrary" => ["long",  ["long"]],
+    "ImageAddCertificate" => ["long",  ["long", "ptr", "ptr"]],
+    "ImageDirectoryEntryToData" => ["ptr",  ["ptr", "long", "long", "ptr"]],
+    "ImageEnumerateCertificates" => ["long",  ["long", "long", "ptr", "ptr", "long"]],
+    "ImageGetCertificateData" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "ImageGetCertificateHeader" => ["long",  ["long", "long", "ptr"]],
+    "ImageGetDigestStream" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "ImageLoad" => ["ptr",  ["str", "str"]],
+    "ImageNtHeader" => ["ptr",  ["ptr"]],
+    "ImageRemoveCertificate" => ["long",  ["long", "long"]],
+    "ImageRvaToSection" => ["ptr",  ["ptr", "ptr", "long"]],
+    "ImageRvaToVa" => ["ptr",  ["ptr", "ptr", "long", "ptr"]],
+    "ImageUnload" => ["long",  ["ptr"]],
+    "ImagehlpApiVersion" => ["ptr",  ["undef"]],
+    "ImagehlpApiVersionEx" => ["ptr",  ["ptr"]],
+    "MakeSureDirectoryPathExists" => ["long",  ["str"]],
+    "MapAndLoad" => ["long",  ["str", "str", "ptr", "long", "long"]],
+    "MapDebugInformation" => ["ptr",  ["long", "str", "str", "long"]],
+    "MapFileAndCheckSumA" => ["long",  ["str", "ptr", "ptr"]],
+    "MapFileAndCheckSumW" => ["long",  ["wstr", "ptr", "ptr"]],
+    "ReBaseImage" => ["long",  ["str", "str", "long", "long", "long", "long", "ptr", "ptr", "ptr", "ptr", "long"]],
+    "RemovePrivateCvSymbolic" => ["long",  ["ptr", "ptr", "ptr"]],
+    "RemoveRelocations" => ["void",  ["ptr"]],
+    "SearchTreeForFile" => ["long",  ["str", "str", "str"]],
+    "SetImageConfigInformation" => ["long",  ["ptr", "ptr"]],
+    "SplitSymbols" => ["long",  ["str", "str", "str", "long"]],
+    "StackWalk" => ["long",  ["long", "long", "long", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
+    "SymCleanup" => ["long",  ["long"]],
+    "SymEnumerateModules" => ["long",  ["long", "ptr", "ptr"]],
+    "SymEnumerateSymbols" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "SymFunctionTableAccess" => ["ptr",  ["long", "long"]],
+    "SymGetModuleBase" => ["long",  ["long", "long"]],
+    "SymGetModuleInfo" => ["long",  ["long", "long", "ptr"]],
+    "SymGetOptions" => ["long",  ["undef"]],
+    "SymGetSearchPath" => ["long",  ["long", "str", "long"]],
+    "SymGetSymFromAddr" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "SymGetSymFromName" => ["long",  ["long", "str", "ptr"]],
+    "SymGetSymNext" => ["long",  ["long", "ptr"]],
+    "SymGetSymPrev" => ["long",  ["long", "ptr"]],
+    "SymInitialize" => ["long",  ["long", "str", "long"]],
+    "SymLoadModule" => ["long",  ["long", "long", "str", "str", "long", "long"]],
+    "SymRegisterCallback" => ["long",  ["long", "ptr", "ptr"]],
+    "SymSetOptions" => ["long",  ["long"]],
+    "SymSetSearchPath" => ["long",  ["long", "str"]],
+    "SymUnDName" => ["long",  ["ptr", "str", "long"]],
+    "SymUnloadModule" => ["long",  ["long", "long"]],
+    "TouchFileTimes" => ["long",  ["long", "ptr"]],
+    "UnDecorateSymbolName" => ["long",  ["str", "str", "long", "long"]],
+    "UnMapAndLoad" => ["long",  ["ptr"]],
+    "UnmapDebugInformation" => ["long",  ["ptr"]],
+    "UpdateDebugInfoFile" => ["long",  ["str", "str", "str", "ptr"]],
+    "UpdateDebugInfoFileEx" => ["long",  ["str", "str", "str", "ptr", "long"]]
+};
+
+&wine::declare("imagehlp",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/imm32.pm

+package imm32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+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"]],
+    "ImmDestroyContext" => ["long",  ["long"]],
+    "ImmDestroyIMCC" => ["long",  ["long"]],
+    "ImmDestroySoftKeyboard" => ["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"]],
+    "ImmGetCandidateListW" => ["long",  ["long", "long", "ptr", "long"]],
+    "ImmGetCandidateWindow" => ["long",  ["long", "long", "ptr"]],
+    "ImmGetCompositionFontA" => ["long",  ["long", "ptr"]],
+    "ImmGetCompositionFontW" => ["long",  ["long", "ptr"]],
+    "ImmGetCompositionStringA" => ["long",  ["long", "long", "ptr", "long"]],
+    "ImmGetCompositionStringW" => ["long",  ["long", "long", "ptr", "long"]],
+    "ImmGetCompositionWindow" => ["long",  ["long", "ptr"]],
+    "ImmGetContext" => ["long",  ["long"]],
+    "ImmGetConversionListA" => ["long",  ["long", "long", "str", "ptr", "long", "long"]],
+    "ImmGetConversionListW" => ["long",  ["long", "long", "wstr", "ptr", "long", "long"]],
+    "ImmGetConversionStatus" => ["long",  ["long", "ptr", "ptr"]],
+    "ImmGetDefaultIMEWnd" => ["long",  ["long"]],
+    "ImmGetDescriptionA" => ["long",  ["long", "str", "long"]],
+    "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"]],
+    "ImmGetProperty" => ["long",  ["long", "long"]],
+    "ImmGetRegisterWordStyleA" => ["long",  ["long", "long", "ptr"]],
+    "ImmGetRegisterWordStyleW" => ["long",  ["long", "long", "ptr"]],
+    "ImmGetStatusWindowPos" => ["long",  ["long", "ptr"]],
+    "ImmGetVirtualKey" => ["long",  ["long"]],
+    "ImmInstallIMEA" => ["long",  ["str", "str"]],
+    "ImmInstallIMEW" => ["long",  ["wstr", "wstr"]],
+    "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"]],
+    "ImmSetCandidateWindow" => ["long",  ["long", "ptr"]],
+    "ImmSetCompositionFontA" => ["long",  ["long", "ptr"]],
+    "ImmSetCompositionFontW" => ["long",  ["long", "ptr"]],
+    "ImmSetCompositionStringA" => ["long",  ["long", "long", "ptr", "long", "ptr", "long"]],
+    "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"]]
+};
+
+&wine::declare("imm32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/joystick_drv.pm

+package joystick_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("joystick.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/lz32.pm

+package lz32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "CopyLZFile" => ["long",  ["long", "long"]],
+    "GetExpandedNameA" => ["long",  ["str", "str"]],
+    "GetExpandedNameW" => ["long",  ["wstr", "wstr"]],
+    "LZClose" => ["void",  ["long"]],
+    "LZCopy" => ["long",  ["long", "long"]],
+    "LZDone" => ["void",  []],
+    "LZInit" => ["long",  ["long"]],
+    "LZOpenFileA" => ["long",  ["str", "ptr", "long"]],
+    "LZOpenFileW" => ["long",  ["wstr", "ptr", "long"]],
+    "LZRead" => ["long",  ["long", "ptr", "long"]],
+    "LZSeek" => ["long",  ["long", "long", "long"]],
+    "LZStart" => ["long",  []]
+};
+
+&wine::declare("lz32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/mcianim_drv.pm

+package mcianim_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("mcianim.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/mciavi_drv.pm

+package mciavi_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("mciavi.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/mcicda_drv.pm

+package mcicda_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("mcicda.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/mciseq_drv.pm

+package mciseq_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("mciseq.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/mciwave_drv.pm

+package mciwave_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("mciwave.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/midimap_drv.pm

+package midimap_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]],
+    "modMessage" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("midimap.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/mpr.pm

+package mpr;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "MultinetGetConnectionPerformanceA" => ["long",  ["ptr", "ptr"]],
+    "MultinetGetConnectionPerformanceW" => ["long",  ["ptr", "ptr"]],
+    "MultinetGetErrorTextA" => ["long",  ["long", "long", "long"]],
+    "MultinetGetErrorTextW" => ["long",  ["long", "long", "long"]],
+    "NPSAuthenticationDialogA" => ["long",  ["ptr"]],
+    "NPSCopyStringA" => ["long",  ["str", "ptr", "ptr"]],
+    "NPSDeviceGetNumberA" => ["long",  ["str", "ptr", "ptr"]],
+    "NPSDeviceGetStringA" => ["long",  ["long", "long", "str", "ptr"]],
+    "NPSGetProviderHandleA" => ["long",  ["ptr"]],
+    "NPSGetProviderNameA" => ["long",  ["long", "ptr"]],
+    "NPSGetSectionNameA" => ["long",  ["long", "ptr"]],
+    "NPSNotifyGetContextA" => ["ptr",  ["ptr"]],
+    "NPSNotifyRegisterA" => ["long",  ["long", "ptr"]],
+    "NPSSetCustomTextA" => ["void",  ["str"]],
+    "NPSSetExtendedErrorA" => ["long",  ["long", "str"]],
+    "WNetAddConnection2A" => ["long",  ["ptr", "str", "str", "long"]],
+    "WNetAddConnection2W" => ["long",  ["ptr", "wstr", "wstr", "long"]],
+    "WNetAddConnection3A" => ["long",  ["long", "ptr", "str", "str", "long"]],
+    "WNetAddConnection3W" => ["long",  ["long", "ptr", "wstr", "wstr", "long"]],
+    "WNetAddConnectionA" => ["long",  ["str", "str", "str"]],
+    "WNetAddConnectionW" => ["long",  ["wstr", "wstr", "wstr"]],
+    "WNetCachePassword" => ["long",  ["str", "long", "str", "long", "long", "long"]],
+    "WNetCancelConnection2A" => ["long",  ["str", "long", "long"]],
+    "WNetCancelConnection2W" => ["long",  ["wstr", "long", "long"]],
+    "WNetCancelConnectionA" => ["long",  ["str", "long"]],
+    "WNetCancelConnectionW" => ["long",  ["wstr", "long"]],
+    "WNetCloseEnum" => ["long",  ["long"]],
+    "WNetConnectionDialog" => ["long",  ["long", "long"]],
+    "WNetConnectionDialog1A" => ["long",  ["ptr"]],
+    "WNetConnectionDialog1W" => ["long",  ["ptr"]],
+    "WNetDisconnectDialog" => ["long",  ["long", "long"]],
+    "WNetDisconnectDialog1A" => ["long",  ["ptr"]],
+    "WNetDisconnectDialog1W" => ["long",  ["ptr"]],
+    "WNetEnumCachedPasswords" => ["long",  ["str", "long", "long", "ptr", "long"]],
+    "WNetEnumResourceA" => ["long",  ["long", "ptr", "ptr", "ptr"]],
+    "WNetEnumResourceW" => ["long",  ["long", "ptr", "ptr", "ptr"]],
+    "WNetGetCachedPassword" => ["long",  ["str", "long", "str", "ptr", "long"]],
+    "WNetGetConnectionA" => ["long",  ["str", "str", "ptr"]],
+    "WNetGetConnectionW" => ["long",  ["wstr", "wstr", "ptr"]],
+    "WNetGetLastErrorA" => ["long",  ["ptr", "str", "long", "str", "long"]],
+    "WNetGetLastErrorW" => ["long",  ["ptr", "wstr", "long", "wstr", "long"]],
+    "WNetGetNetworkInformationA" => ["long",  ["str", "ptr"]],
+    "WNetGetNetworkInformationW" => ["long",  ["wstr", "ptr"]],
+    "WNetGetProviderNameA" => ["long",  ["long", "str", "ptr"]],
+    "WNetGetProviderNameW" => ["long",  ["long", "wstr", "ptr"]],
+    "WNetGetResourceInformationA" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
+    "WNetGetResourceInformationW" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
+    "WNetGetResourceParentA" => ["long",  ["ptr", "ptr", "ptr"]],
+    "WNetGetResourceParentW" => ["long",  ["ptr", "ptr", "ptr"]],
+    "WNetGetUniversalNameA" => ["long",  ["str", "long", "ptr", "ptr"]],
+    "WNetGetUniversalNameW" => ["long",  ["wstr", "long", "ptr", "ptr"]],
+    "WNetGetUserA" => ["long",  ["str", "str", "ptr"]],
+    "WNetGetUserW" => ["long",  ["wstr", "wstr", "ptr"]],
+    "WNetLogoffA" => ["long",  ["str", "long"]],
+    "WNetLogoffW" => ["long",  ["wstr", "long"]],
+    "WNetLogonA" => ["long",  ["str", "long"]],
+    "WNetLogonW" => ["long",  ["wstr", "long"]],
+    "WNetOpenEnumA" => ["long",  ["long", "long", "long", "ptr", "ptr"]],
+    "WNetOpenEnumW" => ["long",  ["long", "long", "long", "ptr", "ptr"]],
+    "WNetRemoveCachedPassword" => ["long",  ["str", "long", "long"]],
+    "WNetRestoreConnectionA" => ["long",  ["long", "str"]],
+    "WNetRestoreConnectionW" => ["long",  ["long", "wstr"]],
+    "WNetSetConnectionA" => ["long",  ["str", "long", "ptr"]],
+    "WNetSetConnectionW" => ["long",  ["wstr", "long", "ptr"]],
+    "WNetUseConnectionA" => ["long",  ["long", "ptr", "str", "str", "long", "str", "ptr", "ptr"]],
+    "WNetUseConnectionW" => ["long",  ["long", "ptr", "wstr", "wstr", "long", "wstr", "ptr", "ptr"]],
+    "WNetVerifyPasswordA" => ["long",  ["str", "ptr"]],
+    "WNetVerifyPasswordW" => ["long",  ["wstr", "ptr"]]
+};
+
+&wine::declare("mpr",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/msacm32.pm

+package msacm32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]],
+    "acmDriverAddA" => ["long",  ["ptr", "long", "long", "long", "long"]],
+    "acmDriverAddW" => ["long",  ["ptr", "long", "long", "long", "long"]],
+    "acmDriverClose" => ["long",  ["long", "long"]],
+    "acmDriverDetailsA" => ["long",  ["long", "ptr", "long"]],
+    "acmDriverDetailsW" => ["long",  ["long", "ptr", "long"]],
+    "acmDriverEnum" => ["long",  ["ptr", "long", "long"]],
+    "acmDriverID" => ["long",  ["long", "ptr", "long"]],
+    "acmDriverMessage" => ["long",  ["long", "long", "long", "long"]],
+    "acmDriverOpen" => ["long",  ["ptr", "long", "long"]],
+    "acmDriverPriority" => ["long",  ["long", "long", "long"]],
+    "acmDriverRemove" => ["long",  ["long", "long"]],
+    "acmFilterChooseA" => ["long",  ["ptr"]],
+    "acmFilterChooseW" => ["long",  ["ptr"]],
+    "acmFilterDetailsA" => ["long",  ["long", "ptr", "long"]],
+    "acmFilterDetailsW" => ["long",  ["long", "ptr", "long"]],
+    "acmFilterEnumA" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFilterEnumW" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFilterTagDetailsA" => ["long",  ["long", "ptr", "long"]],
+    "acmFilterTagDetailsW" => ["long",  ["long", "ptr", "long"]],
+    "acmFilterTagEnumA" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFilterTagEnumW" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFormatChooseA" => ["long",  ["ptr"]],
+    "acmFormatChooseW" => ["long",  ["ptr"]],
+    "acmFormatDetailsA" => ["long",  ["long", "ptr", "long"]],
+    "acmFormatDetailsW" => ["long",  ["long", "ptr", "long"]],
+    "acmFormatEnumA" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFormatEnumW" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFormatSuggest" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFormatTagDetailsA" => ["long",  ["long", "ptr", "long"]],
+    "acmFormatTagDetailsW" => ["long",  ["long", "ptr", "long"]],
+    "acmFormatTagEnumA" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmFormatTagEnumW" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "acmGetVersion" => ["long",  []],
+    "acmMetrics" => ["long",  ["long", "long", "ptr"]],
+    "acmStreamClose" => ["long",  ["long", "long"]],
+    "acmStreamConvert" => ["long",  ["long", "ptr", "long"]],
+    "acmStreamMessage" => ["long",  ["long", "long", "long", "long"]],
+    "acmStreamOpen" => ["long",  ["ptr", "long", "ptr", "ptr", "ptr", "long", "long", "long"]],
+    "acmStreamPrepareHeader" => ["long",  ["long", "ptr", "long"]],
+    "acmStreamReset" => ["long",  ["long", "long"]],
+    "acmStreamSize" => ["long",  ["long", "long", "ptr", "long"]],
+    "acmStreamUnprepareHeader" => ["long",  ["long", "ptr", "long"]]
+};
+
+&wine::declare("msacm32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/msacm_drv.pm

+package msacm_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]],
+    "widMessage" => ["long",  ["long", "long", "long", "long", "long"]],
+    "wodMessage" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("msacm.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/msvcrt.pm

+package msvcrt;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "\?\?8type_info\@\@QBEHABV0\@\@Z" => ["long",  ["ptr", "ptr"]],
+    "\?\?9type_info\@\@QBEHABV0\@\@Z" => ["long",  ["ptr", "ptr"]],
+    "\?name\@type_info\@\@QBEPBDXZ" => ["ptr",  ["ptr"]],
+    "\?raw_name\@type_info\@\@QBEPBDXZ" => ["ptr",  ["ptr"]]
+};
+
+&wine::declare("msvcrt",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/msvfw32.pm

+package msvfw32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "VideoForWindowsVersion" => ["long",  []],
+    "DrawDibBegin" => ["long",  ["long", "long", "long", "long", "ptr", "long", "long", "long"]],
+    "DrawDibClose" => ["long",  ["long"]],
+    "DrawDibDraw" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr", "ptr", "long", "long", "long", "long", "long"]],
+    "DrawDibEnd" => ["long",  ["long"]],
+    "DrawDibGetPalette" => ["long",  ["long"]],
+    "DrawDibOpen" => ["long",  []],
+    "DrawDibRealize" => ["long",  ["long", "long", "long"]],
+    "DrawDibSetPalette" => ["long",  ["long", "long"]],
+    "DrawDibStart" => ["long",  ["long", "long"]],
+    "DrawDibStop" => ["long",  ["long"]],
+    "ICClose" => ["long",  ["long"]],
+    "ICGetDisplayFormat" => ["long",  ["long", "ptr", "ptr", "long", "long", "long"]],
+    "ICGetInfo" => ["long",  ["long", "ptr", "long"]],
+    "ICImageCompress" => ["long",  ["long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
+    "ICImageDecompress" => ["long",  ["long", "long", "ptr", "ptr", "ptr"]],
+    "ICInfo" => ["long",  ["long", "long", "ptr"]],
+    "ICLocate" => ["long",  ["long", "long", "ptr", "ptr", "long"]],
+    "ICOpenFunction" => ["long",  ["long", "long", "long", "ptr"]],
+    "ICSendMessage" => ["long",  ["long", "long", "long", "long"]],
+    "MCIWndRegisterClass" => ["long",  ["long"]]
+};
+
+&wine::declare("msvfw32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/odbc32.pm

+package odbc32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "SQLAllocConnect" => ["long",  ["long", "ptr"]],
+    "SQLAllocEnv" => ["long",  ["ptr"]],
+    "SQLAllocStmt" => ["long",  ["long", "ptr"]],
+    "SQLBindCol" => ["long",  ["long", "long", "long", "ptr", "long", "ptr"]],
+    "SQLCancel" => ["long",  ["long"]],
+    "SQLColAttributes" => ["long",  ["long", "long", "long", "ptr", "long", "ptr", "ptr"]],
+    "SQLConnect" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLDescribeCol" => ["long",  ["long", "long", "ptr", "long", "ptr", "ptr", "ptr", "ptr", "ptr"]],
+    "SQLDisconnect" => ["long",  ["long"]],
+    "SQLError" => ["long",  ["long", "long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
+    "SQLExecDirect" => ["long",  ["long", "ptr", "long"]],
+    "SQLExecute" => ["long",  ["long"]],
+    "SQLFetch" => ["long",  ["long"]],
+    "SQLFreeConnect" => ["long",  ["long"]],
+    "SQLFreeEnv" => ["long",  ["long"]],
+    "SQLFreeStmt" => ["long",  ["long", "long"]],
+    "SQLGetCursorName" => ["long",  ["long", "ptr", "long", "ptr"]],
+    "SQLNumResultCols" => ["long",  ["long", "ptr"]],
+    "SQLPrepare" => ["long",  ["long", "ptr", "long"]],
+    "SQLRowCount" => ["long",  ["long", "ptr"]],
+    "SQLSetCursorName" => ["long",  ["long", "ptr", "long"]],
+    "SQLSetParam" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr", "ptr"]],
+    "SQLTransact" => ["long",  ["long", "long", "long"]],
+    "SQLAllocHandle" => ["long",  ["long", "long", "ptr"]],
+    "SQLBindParam" => ["long",  ["long", "long", "long", "long", "long", "long", "ptr", "ptr"]],
+    "SQLCloseCursor" => ["long",  ["long"]],
+    "SQLColAttribute" => ["long",  ["long", "long", "long", "ptr", "long", "ptr", "ptr"]],
+    "SQLCopyDesc" => ["long",  ["long", "long"]],
+    "SQLEndTran" => ["long",  ["long", "long", "long"]],
+    "SQLFetchScroll" => ["long",  ["long", "long", "long"]],
+    "SQLFreeHandle" => ["long",  ["long", "long"]],
+    "SQLGetConnectAttr" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "SQLGetDescField" => ["long",  ["long", "long", "long", "ptr", "long", "ptr"]],
+    "SQLGetDescRec" => ["long",  ["long", "long", "ptr", "long", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
+    "SQLGetDiagField" => ["long",  ["long", "long", "long", "long", "ptr", "long", "ptr"]],
+    "SQLGetDiagRec" => ["long",  ["long", "long", "long", "ptr", "ptr", "ptr", "long", "ptr"]],
+    "SQLGetEnvAttr" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "SQLGetStmtAttr" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "SQLSetConnectAttr" => ["long",  ["long", "long", "ptr", "long"]],
+    "SQLColumns" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLDriverConnect" => ["long",  ["long", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLGetConnectOption" => ["long",  ["long", "long", "ptr"]],
+    "SQLGetData" => ["long",  ["long", "long", "long", "ptr", "long", "ptr"]],
+    "SQLGetFunctions" => ["long",  ["long", "long", "ptr"]],
+    "SQLGetInfo" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "SQLGetStmtOption" => ["long",  ["long", "long", "ptr"]],
+    "SQLGetTypeInfo" => ["long",  ["long", "long"]],
+    "SQLParamData" => ["long",  ["long", "ptr"]],
+    "SQLPutData" => ["long",  ["long", "ptr", "long"]],
+    "SQLSetConnectOption" => ["long",  ["long", "long", "long"]],
+    "SQLSetStmtOption" => ["long",  ["long", "long", "long"]],
+    "SQLSpecialColumns" => ["long",  ["long", "long", "ptr", "long", "ptr", "long", "ptr", "long", "long", "long"]],
+    "SQLStatistics" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long", "long", "long"]],
+    "SQLTables" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLBrowseConnect" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr"]],
+    "SQLColumnPrivileges" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLDataSources" => ["long",  ["long", "long", "ptr", "long", "ptr", "ptr", "long", "ptr"]],
+    "SQLDescribeParam" => ["long",  ["long", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "SQLExtendedFetch" => ["long",  ["long", "long", "long", "ptr", "ptr"]],
+    "SQLForeignKeys" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLMoreResults" => ["long",  ["long"]],
+    "SQLNativeSql" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr"]],
+    "SQLNumParams" => ["long",  ["long", "ptr"]],
+    "SQLParamOptions" => ["long",  ["long", "long", "ptr"]],
+    "SQLPrimaryKeys" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLProcedureColumns" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLProcedures" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLSetPos" => ["long",  ["long", "long", "long", "long"]],
+    "SQLSetScrollOptions" => ["long",  ["long", "long", "long", "long"]],
+    "SQLTablePrivileges" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "SQLDrivers" => ["long",  ["long", "long", "ptr", "long", "ptr", "ptr", "long", "ptr"]],
+    "SQLBindParameter" => ["long",  ["long", "long", "long", "long", "long", "long", "long", "ptr", "long", "ptr"]],
+    "SQLSetDescField" => ["long",  ["long", "long", "long", "ptr", "long"]],
+    "SQLSetDescRec" => ["long",  ["long", "long", "long", "long", "long", "long", "long", "ptr", "ptr", "ptr"]],
+    "SQLSetEnvAttr" => ["long",  ["long", "long", "ptr", "long"]],
+    "SQLSetStmtAttr" => ["long",  ["long", "long", "ptr", "long"]],
+    "SQLAllocHandleStd" => ["long",  ["long", "long", "ptr"]],
+    "SQLBulkOperations" => ["long",  ["long", "long"]]
+};
+
+&wine::declare("odbc32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/ole32.pm

+package ole32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "CLSIDFromProgID" => ["long",  ["str", "ptr"]],
+    "CLSIDFromString" => ["long",  ["str", "ptr"]],
+    "CoBuildVersion" => ["long",  []],
+    "CoCreateFreeThreadedMarshaler" => ["long",  ["ptr", "ptr"]],
+    "CoCreateGuid" => ["long",  ["ptr"]],
+    "CoCreateInstance" => ["long",  ["ptr", "ptr", "long", "ptr", "ptr"]],
+    "CoDisconnectObject" => ["long",  ["ptr", "long"]],
+    "CoFileTimeNow" => ["long",  ["ptr"]],
+    "CoFreeAllLibraries" => ["void",  []],
+    "CoFreeLibrary" => ["void",  ["long"]],
+    "CoFreeUnusedLibraries" => ["void",  []],
+    "CoGetClassObject" => ["long",  ["ptr", "long", "ptr", "ptr", "ptr"]],
+    "CoGetCurrentProcess" => ["long",  []],
+    "CoGetMalloc" => ["long",  ["long", "ptr"]],
+    "CoGetPSClsid" => ["long",  ["ptr", "ptr"]],
+    "CoInitialize" => ["long",  ["ptr"]],
+    "CoInitializeWOW" => ["long",  ["long", "long"]],
+    "CoIsOle1Class" => ["long",  ["ptr"]],
+    "CoLoadLibrary" => ["long",  ["str", "long"]],
+    "CoLockObjectExternal" => ["long",  ["ptr", "long", "long"]],
+    "CoRegisterClassObject" => ["long",  ["ptr", "ptr", "long", "long", "ptr"]],
+    "CoRegisterMessageFilter" => ["long",  ["ptr", "ptr"]],
+    "CoRevokeClassObject" => ["long",  ["long"]],
+    "CoSetState" => ["long",  ["ptr"]],
+    "CoTaskMemAlloc" => ["ptr",  ["long"]],
+    "CoTaskMemFree" => ["void",  ["ptr"]],
+    "CoTaskMemRealloc" => ["ptr",  ["ptr", "long"]],
+    "CoTreatAsClass" => ["long",  ["ptr", "ptr"]],
+    "CoUninitialize" => ["void",  []],
+    "CreateAntiMoniker" => ["long",  ["ptr"]],
+    "CreateBindCtx" => ["long",  ["long", "ptr"]],
+    "CreateDataAdviseHolder" => ["long",  ["ptr"]],
+    "CreateDataCache" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
+    "CreateFileMoniker" => ["long",  ["str", "ptr"]],
+    "CreateGenericComposite" => ["long",  ["ptr", "ptr", "ptr"]],
+    "CreateILockBytesOnHGlobal" => ["long",  ["long", "long", "ptr"]],
+    "CreateItemMoniker" => ["long",  ["str", "str", "ptr"]],
+    "CreateOleAdviseHolder" => ["long",  ["ptr"]],
+    "CreateStreamOnHGlobal" => ["long",  ["long", "long", "ptr"]],
+    "DllDebugObjectRPCHook" => ["long",  ["long", "ptr"]],
+    "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DoDragDrop" => ["long",  ["ptr", "ptr", "long", "ptr"]],
+    "GetClassFile" => ["long",  ["str", "ptr"]],
+    "GetConvertStg" => ["long",  ["ptr"]],
+    "GetHGlobalFromILockBytes" => ["long",  ["ptr", "ptr"]],
+    "GetHGlobalFromStream" => ["long",  ["ptr", "ptr"]],
+    "GetRunningObjectTable" => ["long",  ["long", "ptr"]],
+    "IIDFromString" => ["long",  ["str", "ptr"]],
+    "IsAccelerator" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "IsEqualGUID" => ["long",  ["ptr", "ptr"]],
+    "IsValidInterface" => ["long",  ["ptr"]],
+    "MkParseDisplayName" => ["long",  ["ptr", "str", "ptr", "ptr"]],
+    "MonikerCommonPrefixWith" => ["long",  ["ptr", "ptr", "ptr"]],
+    "OleBuildVersion" => ["long",  []],
+    "OleConvertIStorageToOLESTREAM" => ["long",  ["ptr", "ptr"]],
+    "OleConvertOLESTREAMToIStorage" => ["long",  ["ptr", "ptr", "ptr"]],
+    "OleCreate" => ["long",  ["ptr", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "OleCreateDefaultHandler" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
+    "OleCreateFromData" => ["long",  ["ptr", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "OleCreateFromFile" => ["long",  ["ptr", "str", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "OleCreateLink" => ["long",  ["ptr", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "OleCreateLinkFromData" => ["long",  ["ptr", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "OleCreateLinkToFile" => ["long",  ["str", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "OleCreateMenuDescriptor" => ["long",  ["long", "ptr"]],
+    "OleCreateStaticFromData" => ["long",  ["ptr", "ptr", "long", "ptr", "ptr", "ptr", "ptr"]],
+    "OleDestroyMenuDescriptor" => ["long",  ["long"]],
+    "OleDuplicateData" => ["long",  ["long", "long", "long"]],
+    "OleFlushClipboard" => ["long",  ["undef"]],
+    "OleGetAutoConvert" => ["long",  ["ptr", "ptr"]],
+    "OleGetClipboard" => ["long",  ["ptr"]],
+    "OleGetIconOfClass" => ["long",  ["ptr", "str", "long"]],
+    "OleInitialize" => ["long",  ["ptr"]],
+    "OleInitializeWOW" => ["long",  ["long"]],
+    "OleIsCurrentClipboard" => ["long",  ["ptr"]],
+    "OleIsRunning" => ["long",  ["ptr"]],
+    "OleLoad" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
+    "OleLoadFromStream" => ["long",  ["ptr", "ptr", "ptr"]],
+    "OleLockRunning" => ["long",  ["ptr", "long", "long"]],
+    "OleQueryCreateFromData" => ["long",  ["ptr"]],
+    "OleQueryLinkFromData" => ["long",  ["ptr"]],
+    "OleRegEnumFormatEtc" => ["long",  ["ptr", "long", "ptr"]],
+    "OleRegEnumVerbs" => ["long",  ["ptr", "ptr"]],
+    "OleRegGetMiscStatus" => ["long",  ["ptr", "long", "ptr"]],
+    "OleRegGetUserType" => ["long",  ["ptr", "long", "ptr"]],
+    "OleRun" => ["long",  ["ptr"]],
+    "OleSave" => ["long",  ["ptr", "ptr", "long"]],
+    "OleSaveToStream" => ["long",  ["ptr", "ptr"]],
+    "OleSetAutoConvert" => ["long",  ["ptr", "ptr"]],
+    "OleSetClipboard" => ["long",  ["ptr"]],
+    "OleSetContainedObject" => ["long",  ["ptr", "long"]],
+    "OleSetMenuDescriptor" => ["long",  ["long", "long", "long", "ptr", "ptr"]],
+    "OleTranslateAccelerator" => ["long",  ["ptr", "ptr", "ptr"]],
+    "OleUninitialize" => ["void",  []],
+    "ProgIDFromCLSID" => ["long",  ["ptr", "ptr"]],
+    "ReadClassStg" => ["long",  ["ptr", "ptr"]],
+    "ReadClassStm" => ["long",  ["ptr", "ptr"]],
+    "ReadFmtUserTypeStg" => ["long",  ["ptr", "ptr", "ptr"]],
+    "RegisterDragDrop" => ["long",  ["long", "ptr"]],
+    "ReleaseStgMedium" => ["void",  ["ptr"]],
+    "RevokeDragDrop" => ["long",  ["long"]],
+    "SetConvertStg" => ["long",  ["ptr", "long"]],
+    "StgCreateDocfile" => ["long",  ["str", "long", "long", "ptr"]],
+    "StgCreateDocfileOnILockBytes" => ["long",  ["ptr", "long", "long", "ptr"]],
+    "StgIsStorageFile" => ["long",  ["str"]],
+    "StgIsStorageILockBytes" => ["long",  ["ptr"]],
+    "StgOpenStorage" => ["long",  ["ptr", "ptr", "long", "ptr", "long", "ptr"]],
+    "StgOpenStorageOnILockBytes" => ["long",  ["ptr", "ptr", "long", "ptr", "long", "ptr"]],
+    "StgSetTimes" => ["long",  ["ptr", "ptr", "ptr", "ptr"]],
+    "StringFromCLSID" => ["long",  ["ptr", "ptr"]],
+    "StringFromGUID2" => ["long",  ["ptr", "str", "long"]],
+    "StringFromIID" => ["long",  ["ptr", "ptr"]],
+    "WriteClassStg" => ["long",  ["ptr", "ptr"]],
+    "WriteClassStm" => ["long",  ["ptr", "ptr"]],
+    "WriteFmtUserTypeStg" => ["long",  ["ptr", "long", "str"]],
+    "CoInitializeEx" => ["long",  ["ptr", "long"]],
+    "CoCreateInstanceEx" => ["long",  ["ptr", "ptr", "long", "ptr", "long", "ptr"]],
+    "PropVariantClear" => ["long",  ["ptr"]],
+    "CoResumeClassObjects" => ["long",  []],
+    "CreateErrorInfo" => ["long",  ["ptr"]],
+    "DllRegisterServer" => ["long",  ["undef"]],
+    "FreePropVariantArray" => ["long",  ["long", "ptr"]],
+    "GetErrorInfo" => ["long",  ["long", "ptr"]],
+    "PropVariantCopy" => ["long",  ["ptr", "ptr"]],
+    "SetErrorInfo" => ["long",  ["long", "ptr"]],
+    "DllEntryPoint" => ["long",  ["long", "long", "ptr"]]
+};
+
+&wine::declare("ole32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/olecli32.pm

+package olecli32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "OleQueryLinkFromClip" => ["long",  ["str", "long", "long"]],
+    "OleQueryCreateFromClip" => ["long",  ["str", "long", "long"]],
+    "OleCreateLinkFromClip" => ["long",  ["str", "ptr", "long", "str", "ptr", "long", "long"]],
+    "OleCreateFromClip" => ["long",  ["str", "ptr", "long", "str", "ptr", "long", "long"]],
+    "OleQueryType" => ["long",  ["ptr", "ptr"]],
+    "OleSetHostNames" => ["long",  ["ptr", "str", "str"]],
+    "OleRegisterClientDoc" => ["long",  ["str", "str", "long", "ptr"]],
+    "OleRevokeClientDoc" => ["long",  ["long"]],
+    "OleRenameClientDoc" => ["long",  ["long", "str"]],
+    "OleSavedClientDoc" => ["long",  ["long"]],
+    "OleIsDcMeta" => ["long",  ["long"]]
+};
+
+&wine::declare("olecli32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/oledlg.pm

+package oledlg;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "OleUIAddVerbMenuA" => ["long",  ["ptr", "str", "long", "long", "long", "long", "long", "long", "ptr"]],
+    "OleUICanConvertOrActivateAs" => ["long",  ["ptr", "long", "long"]],
+    "OleUIInsertObjectA" => ["long",  ["ptr"]],
+    "OleUIPasteSpecialA" => ["long",  ["ptr"]],
+    "OleUIEditLinksA" => ["long",  ["ptr"]],
+    "OleUIChangeIconA" => ["long",  ["ptr"]],
+    "OleUIConvertA" => ["long",  ["ptr"]],
+    "OleUIBusyA" => ["long",  ["ptr"]],
+    "OleUIUpdateLinksA" => ["long",  ["ptr", "long", "str", "long"]],
+    "OleUIObjectPropertiesA" => ["long",  ["ptr"]],
+    "OleUIChangeSourceA" => ["long",  ["ptr"]],
+    "OleUIAddVerbMenuW" => ["long",  ["ptr", "wstr", "long", "long", "long", "long", "long", "long", "ptr"]],
+    "OleUIBusyW" => ["long",  ["ptr"]],
+    "OleUIChangeIconW" => ["long",  ["ptr"]],
+    "OleUIChangeSourceW" => ["long",  ["ptr"]],
+    "OleUIConvertW" => ["long",  ["ptr"]],
+    "OleUIEditLinksW" => ["long",  ["ptr"]],
+    "OleUIInsertObjectW" => ["long",  ["ptr"]],
+    "OleUIObjectPropertiesW" => ["long",  ["ptr"]],
+    "OleUIPasteSpecialW" => ["long",  ["ptr"]],
+    "OleUIUpdateLinksW" => ["long",  ["ptr", "long", "wstr", "long"]]
+};
+
+&wine::declare("oledlg",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/olepro32.pm

+package olepro32;
+
+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("olepro32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/olesvr32.pm

+package olesvr32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "OleRegisterServer" => ["long",  ["str", "ptr", "ptr", "long", "long"]],
+    "OleBlockServer" => ["long",  ["long"]],
+    "OleUnblockServer" => ["long",  ["long", "ptr"]],
+    "OleRegisterServerDoc" => ["long",  ["long", "str", "ptr", "ptr"]],
+    "OleRevokeServerDoc" => ["long",  ["long"]],
+    "OleRenameServerDoc" => ["long",  ["long", "str"]]
+};
+
+&wine::declare("olesvr32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/psapi.pm

+package psapi;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "QueryWorkingSet" => ["long",  ["long", "ptr", "long"]],
+    "EmptyWorkingSet" => ["long",  ["long"]],
+    "EnumDeviceDrivers" => ["long",  ["ptr", "long", "ptr"]],
+    "EnumProcessModules" => ["long",  ["long", "ptr", "long", "ptr"]],
+    "EnumProcesses" => ["long",  ["ptr", "long", "ptr"]],
+    "GetDeviceDriverBaseNameA" => ["long",  ["ptr", "str", "long"]],
+    "GetDeviceDriverBaseNameW" => ["long",  ["ptr", "wstr", "long"]],
+    "GetDeviceDriverFileNameA" => ["long",  ["ptr", "str", "long"]],
+    "GetDeviceDriverFileNameW" => ["long",  ["ptr", "wstr", "long"]],
+    "GetMappedFileNameA" => ["long",  ["long", "ptr", "str", "long"]],
+    "GetMappedFileNameW" => ["long",  ["long", "ptr", "wstr", "long"]],
+    "GetModuleBaseNameA" => ["long",  ["long", "long", "str", "long"]],
+    "GetModuleBaseNameW" => ["long",  ["long", "long", "wstr", "long"]],
+    "GetModuleFileNameExA" => ["long",  ["long", "long", "str", "long"]],
+    "GetModuleFileNameExW" => ["long",  ["long", "long", "wstr", "long"]],
+    "GetModuleInformation" => ["long",  ["long", "long", "ptr", "long"]],
+    "GetProcessMemoryInfo" => ["long",  ["long", "ptr", "long"]],
+    "GetWsChanges" => ["long",  ["long", "ptr", "long"]],
+    "InitializeProcessForWsWatch" => ["long",  ["long"]]
+};
+
+&wine::declare("psapi",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/quartz.pm

+package quartz;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "AMGetErrorTextA" => ["long",  ["long", "str", "long"]],
+    "AMGetErrorTextW" => ["long",  ["long", "wstr", "long"]],
+    "AmpFactorToDB" => ["long",  ["long"]],
+    "DBToAmpFactor" => ["long",  ["long"]],
+    "DllCanUnloadNow" => ["long",  []],
+    "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DllRegisterServer" => ["long",  []],
+    "DllUnregisterServer" => ["long",  []]
+};
+
+&wine::declare("quartz",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/rasapi32.pm

+package rasapi32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "RasDeleteEntryA" => ["long",  ["str", "str"]],
+    "RasDeleteEntryW" => ["long",  ["wstr", "wstr"]],
+    "RasEnumAutodialAddressesA" => ["long",  ["ptr", "ptr", "ptr"]],
+    "RasEnumAutodialAddressesW" => ["long",  ["ptr", "ptr", "ptr"]],
+    "RasEnumDevicesA" => ["long",  ["ptr", "ptr", "ptr"]],
+    "RasEnumDevicesW" => ["long",  ["ptr", "ptr", "ptr"]],
+    "RasGetAutodialAddressA" => ["long",  ["str", "ptr", "ptr", "ptr", "ptr"]],
+    "RasGetAutodialAddressW" => ["long",  ["wstr", "ptr", "ptr", "ptr", "ptr"]],
+    "RasGetAutodialEnableA" => ["long",  ["long", "ptr"]],
+    "RasGetAutodialEnableW" => ["long",  ["long", "ptr"]],
+    "RasGetAutodialParamA" => ["long",  ["long", "ptr", "ptr"]],
+    "RasGetAutodialParamW" => ["long",  ["long", "ptr", "ptr"]],
+    "RasSetAutodialAddressA" => ["long",  ["str", "long", "ptr", "long", "long"]],
+    "RasSetAutodialAddressW" => ["long",  ["wstr", "long", "ptr", "long", "long"]],
+    "RasSetAutodialEnableA" => ["long",  ["long", "long"]],
+    "RasSetAutodialEnableW" => ["long",  ["long", "long"]],
+    "RasSetAutodialParamA" => ["long",  ["long", "ptr", "long"]],
+    "RasSetAutodialParamW" => ["long",  ["long", "ptr", "long"]],
+    "RasEnumConnectionsA" => ["long",  ["ptr", "ptr", "ptr"]],
+    "RasEnumEntriesA" => ["long",  ["str", "str", "ptr", "ptr", "ptr"]],
+    "RasGetEntryDialParamsA" => ["long",  ["str", "ptr", "ptr"]],
+    "RasHangUpA" => ["long",  ["long"]]
+};
+
+&wine::declare("rasapi32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/riched32.pm

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

programs/winetest/include/rpcrt4.pm

+package rpcrt4;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "NdrDllRegisterProxy" => ["long",  ["long", "ptr", "ptr"]],
+    "RpcBindingFromStringBindingA" => ["long",  ["str", "ptr"]],
+    "RpcBindingFromStringBindingW" => ["long",  ["wstr", "ptr"]],
+    "RpcServerListen" => ["long",  ["long", "long", "long"]],
+    "RpcServerRegisterAuthInfoA" => ["long",  ["str", "long", "ptr", "ptr"]],
+    "RpcServerRegisterAuthInfoW" => ["long",  ["wstr", "long", "ptr", "ptr"]],
+    "RpcServerRegisterIf" => ["long",  ["long", "ptr", "ptr"]],
+    "RpcServerRegisterIf2" => ["long",  ["long", "ptr", "ptr", "long", "long", "long", "ptr"]],
+    "RpcServerRegisterIfEx" => ["long",  ["long", "ptr", "ptr", "long", "long", "ptr"]],
+    "RpcServerUseProtseqEpA" => ["long",  ["str", "long", "str", "ptr"]],
+    "RpcServerUseProtseqEpExA" => ["long",  ["str", "long", "str", "ptr", "ptr"]],
+    "RpcServerUseProtseqEpExW" => ["long",  ["wstr", "long", "wstr", "ptr", "ptr"]],
+    "RpcServerUseProtseqEpW" => ["long",  ["wstr", "long", "wstr", "ptr"]],
+    "RpcStringBindingComposeA" => ["long",  ["str", "str", "str", "str", "str", "ptr"]],
+    "RpcStringBindingComposeW" => ["long",  ["wstr", "wstr", "wstr", "wstr", "wstr", "ptr"]],
+    "RpcStringFreeA" => ["long",  ["ptr"]],
+    "UuidCreate" => ["long",  ["ptr"]],
+    "UuidCreateSequential" => ["long",  ["ptr"]],
+    "UuidHash" => ["ptr",  ["ptr", "ptr"]],
+    "UuidToStringA" => ["long",  ["ptr", "ptr"]]
+};
+
+&wine::declare("rpcrt4",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/serialui.pm

+package serialui;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "EnumPropPages" => ["long",  ["ptr", "ptr", "long"]],
+    "drvCommConfigDialog" => ["long",  ["str", "long", "ptr"]],
+    "drvSetDefaultCommConfig" => ["long",  ["str", "ptr", "long"]],
+    "drvGetDefaultCommConfig" => ["long",  ["str", "ptr", "ptr"]]
+};
+
+&wine::declare("serialui",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/setupapi.pm

+package setupapi;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "SetupCloseFileQueue" => ["void",  ["long"]],
+    "SetupCloseInfFile" => ["void",  ["long"]],
+    "SetupCommitFileQueueA" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "SetupDefaultQueueCallbackA" => ["long",  ["ptr", "long", "long", "long"]],
+    "SetupFindFirstLineA" => ["long",  ["long", "str", "str", "ptr"]],
+    "SetupFindNextLine" => ["long",  ["ptr", "ptr"]],
+    "SetupGetLineByIndexA" => ["long",  ["long", "str", "long", "ptr"]],
+    "SetupGetLineTextA" => ["long",  ["ptr", "long", "str", "str", "str", "long", "ptr"]],
+    "SetupGetStringFieldA" => ["long",  ["ptr", "long", "str", "long", "ptr"]],
+    "SetupInitDefaultQueueCallback" => ["ptr",  ["long"]],
+    "SetupInitDefaultQueueCallbackEx" => ["ptr",  ["long", "long", "long", "long", "ptr"]],
+    "SetupInstallFromInfSectionA" => ["long",  ["long", "long", "str", "long", "long", "str", "long", "ptr", "ptr", "long", "ptr"]],
+    "SetupIterateCabinetA" => ["long",  ["str", "long", "ptr", "ptr"]],
+    "SetupIterateCabinetW" => ["long",  ["str", "long", "ptr", "ptr"]],
+    "SetupOpenAppendInfFileA" => ["long",  ["str", "long", "ptr"]],
+    "SetupOpenFileQueue" => ["long",  []],
+    "SetupOpenInfFileA" => ["long",  ["str", "str", "long", "ptr"]],
+    "SetupQueueCopyA" => ["long",  ["long", "str", "str", "str", "str", "str", "str", "str", "long"]],
+    "SetupSetDirectoryIdA" => ["long",  ["long", "long", "str"]],
+    "SetupTermDefaultQueueCallback" => ["void",  ["ptr"]]
+};
+
+&wine::declare("setupapi",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/shdocvw.pm

+package shdocvw;
+
+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",  []],
+    "DllGetVersion" => ["long",  ["ptr"]],
+    "DllInstall" => ["long",  ["long", "wstr"]],
+    "DllRegisterServer" => ["long",  ["undef"]],
+    "DllUnregisterServer" => ["long",  ["undef"]],
+    "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]]
+};
+
+&wine::declare("shdocvw",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/tapi32.pm

+package tapi32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "lineAccept" => ["long",  ["long", "str", "long"]],
+    "lineAddProvider" => ["long",  ["str", "long", "ptr"]],
+    "lineAddToConference" => ["long",  ["long", "long"]],
+    "lineAnswer" => ["long",  ["long", "str", "long"]],
+    "lineBlindTransfer" => ["long",  ["long", "str", "long"]],
+    "lineClose" => ["long",  ["long"]],
+    "lineCompleteCall" => ["long",  ["long", "ptr", "long", "long"]],
+    "lineCompleteTransfer" => ["long",  ["long", "long", "ptr", "long"]],
+    "lineConfigDialog" => ["long",  ["long", "long", "str"]],
+    "lineConfigDialogEdit" => ["long",  ["long", "long", "str", "ptr", "long", "ptr"]],
+    "lineConfigProvider" => ["long",  ["long", "long"]],
+    "lineDeallocateCall" => ["long",  ["long"]],
+    "lineDevSpecific" => ["long",  ["long", "long", "long", "ptr", "long"]],
+    "lineDevSpecificFeature" => ["long",  ["long", "long", "ptr", "long"]],
+    "lineDial" => ["long",  ["long", "str", "long"]],
+    "lineDrop" => ["long",  ["long", "str", "long"]],
+    "lineForward" => ["long",  ["long", "long", "long", "ptr", "long", "ptr", "ptr"]],
+    "lineGatherDigits" => ["long",  ["long", "long", "str", "long", "str", "long", "long"]],
+    "lineGenerateDigits" => ["long",  ["long", "long", "str", "long"]],
+    "lineGenerateTone" => ["long",  ["long", "long", "long", "long", "ptr"]],
+    "lineGetAddressCaps" => ["long",  ["long", "long", "long", "long", "long", "ptr"]],
+    "lineGetAddressID" => ["long",  ["long", "ptr", "long", "str", "long"]],
+    "lineGetAddressStatus" => ["long",  ["long", "long", "ptr"]],
+    "lineGetAppPriority" => ["long",  ["str", "long", "ptr", "long", "ptr", "ptr"]],
+    "lineGetCallInfo" => ["long",  ["long", "ptr"]],
+    "lineGetCallStatus" => ["long",  ["long", "ptr"]],
+    "lineGetConfRelatedCalls" => ["long",  ["long", "ptr"]],
+    "lineGetCountry" => ["long",  ["long", "long", "ptr"]],
+    "lineGetDevCaps" => ["long",  ["long", "long", "long", "long", "ptr"]],
+    "lineGetDevConfig" => ["long",  ["long", "ptr", "str"]],
+    "lineGetID" => ["long",  ["long", "long", "long", "long", "ptr", "str"]],
+    "lineGetIcon" => ["long",  ["long", "str", "ptr"]],
+    "lineGetLineDevStatus" => ["long",  ["long", "ptr"]],
+    "lineGetNewCalls" => ["long",  ["long", "long", "long", "ptr"]],
+    "lineGetNumRings" => ["long",  ["long", "long", "ptr"]],
+    "lineGetProviderList" => ["long",  ["long", "ptr"]],
+    "lineGetRequest" => ["long",  ["long", "long", "ptr"]],
+    "lineGetStatusMessages" => ["long",  ["long", "ptr", "ptr"]],
+    "lineGetTranslateCaps" => ["long",  ["long", "long", "ptr"]],
+    "lineHandoff" => ["long",  ["long", "str", "long"]],
+    "lineHold" => ["long",  ["long"]],
+    "lineInitialize" => ["long",  ["ptr", "long", "ptr", "str", "ptr"]],
+    "lineMakeCall" => ["long",  ["long", "ptr", "str", "long", "ptr"]],
+    "lineMonitorDigits" => ["long",  ["long", "long"]],
+    "lineMonitorMedia" => ["long",  ["long", "long"]],
+    "lineMonitorTones" => ["long",  ["long", "ptr", "long"]],
+    "lineNegotiateAPIVersion" => ["long",  ["long", "long", "long", "long", "ptr", "ptr"]],
+    "lineNegotiateExtVersion" => ["long",  ["long", "long", "long", "long", "long", "ptr"]],
+    "lineOpen" => ["long",  ["long", "long", "ptr", "long", "long", "long", "long", "long", "ptr"]],
+    "linePark" => ["long",  ["long", "long", "str", "ptr"]],
+    "linePickup" => ["long",  ["long", "long", "ptr", "str", "str"]],
+    "linePrepareAddToConference" => ["long",  ["long", "ptr", "ptr"]],
+    "lineRedirect" => ["long",  ["long", "str", "long"]],
+    "lineRegisterRequestRecipient" => ["long",  ["long", "long", "long", "long"]],
+    "lineReleaseUserUserInfo" => ["long",  ["long"]],
+    "lineRemoveFromConference" => ["long",  ["long"]],
+    "lineRemoveProvider" => ["long",  ["long", "long"]],
+    "lineSecureCall" => ["long",  ["long"]],
+    "lineSendUserUserInfo" => ["long",  ["long", "str", "long"]],
+    "lineSetAppPriority" => ["long",  ["str", "long", "ptr", "long", "str", "long"]],
+    "lineSetAppSpecific" => ["long",  ["long", "long"]],
+    "lineSetCallParams" => ["long",  ["long", "long", "long", "long", "ptr"]],
+    "lineSetCallPrivilege" => ["long",  ["long", "long"]],
+    "lineSetCurrentLocation" => ["long",  ["long", "long"]],
+    "lineSetDevConfig" => ["long",  ["long", "ptr", "long", "str"]],
+    "lineSetMediaControl" => ["long",  ["long", "long", "long", "long", "ptr", "long", "ptr", "long", "ptr", "long", "ptr", "long"]],
+    "lineSetMediaMode" => ["long",  ["long", "long"]],
+    "lineSetNumRings" => ["long",  ["long", "long", "long"]],
+    "lineSetStatusMessages" => ["long",  ["long", "long", "long"]],
+    "lineSetTerminal" => ["long",  ["long", "long", "long", "long", "long", "long", "long"]],
+    "lineSetTollList" => ["long",  ["long", "long", "str", "long"]],
+    "lineSetupConference" => ["long",  ["long", "long", "ptr", "ptr", "long", "ptr"]],
+    "lineSetupTransfer" => ["long",  ["long", "ptr", "ptr"]],
+    "lineShutdown" => ["long",  ["long"]],
+    "lineSwapHold" => ["long",  ["long", "long"]],
+    "lineTranslateAddress" => ["long",  ["long", "long", "long", "str", "long", "long", "ptr"]],
+    "lineTranslateDialog" => ["long",  ["long", "long", "long", "long", "str"]],
+    "lineUncompleteCall" => ["long",  ["long", "long"]],
+    "lineUnhold" => ["long",  ["long"]],
+    "lineUnpark" => ["long",  ["long", "long", "ptr", "str"]],
+    "phoneClose" => ["long",  ["long"]],
+    "phoneConfigDialog" => ["long",  ["long", "long", "str"]],
+    "phoneDevSpecific" => ["long",  ["long", "ptr", "long"]],
+    "phoneGetButtonInfo" => ["long",  ["long", "long", "ptr"]],
+    "phoneGetData" => ["long",  ["long", "long", "ptr", "long"]],
+    "phoneGetDevCaps" => ["long",  ["long", "long", "long", "long", "ptr"]],
+    "phoneGetDisplay" => ["long",  ["long", "ptr"]],
+    "phoneGetGain" => ["long",  ["long", "long", "ptr"]],
+    "phoneGetHookSwitch" => ["long",  ["long", "ptr"]],
+    "phoneGetID" => ["long",  ["long", "ptr", "str"]],
+    "phoneGetIcon" => ["long",  ["long", "str", "ptr"]],
+    "phoneGetLamp" => ["long",  ["long", "long", "ptr"]],
+    "phoneGetRing" => ["long",  ["long", "ptr", "ptr"]],
+    "phoneGetStatus" => ["long",  ["long", "ptr"]],
+    "phoneGetStatusMessages" => ["long",  ["long", "ptr", "ptr", "ptr"]],
+    "phoneGetVolume" => ["long",  ["long", "long", "ptr"]],
+    "phoneInitialize" => ["long",  ["ptr", "long", "ptr", "str", "ptr"]],
+    "phoneNegotiateAPIVersion" => ["long",  ["long", "long", "long", "long", "ptr", "ptr"]],
+    "phoneNegotiateExtVersion" => ["long",  ["long", "long", "long", "long", "long", "ptr"]],
+    "phoneOpen" => ["long",  ["long", "long", "ptr", "long", "long", "long", "long"]],
+    "phoneSetButtonInfo" => ["long",  ["long", "long", "ptr"]],
+    "phoneSetData" => ["long",  ["long", "long", "ptr", "long"]],
+    "phoneSetDisplay" => ["long",  ["long", "long", "long", "str", "long"]],
+    "phoneSetGain" => ["long",  ["long", "long", "long"]],
+    "phoneSetHookSwitch" => ["long",  ["long", "long", "long"]],
+    "phoneSetLamp" => ["long",  ["long", "long", "long"]],
+    "phoneSetRing" => ["long",  ["long", "long", "long"]],
+    "phoneSetStatusMessages" => ["long",  ["long", "long", "long", "long"]],
+    "phoneSetVolume" => ["long",  ["long", "long", "long"]],
+    "phoneShutdown" => ["long",  ["long"]],
+    "tapiGetLocationInfo" => ["long",  ["str", "str"]],
+    "tapiRequestMakeCall" => ["long",  ["str", "str", "str", "str"]]
+};
+
+&wine::declare("tapi32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/urlmon.pm

+package urlmon;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "CreateAsyncBindCtxEx" => ["long",  ["ptr", "long", "ptr", "ptr", "ptr", "long"]],
+    "CreateURLMoniker" => ["long",  ["ptr", "wstr", "ptr"]],
+    "DllCanUnloadNow" => ["long",  []],
+    "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]],
+    "DllInstall" => ["long",  ["long", "wstr"]],
+    "DllRegisterServer" => ["long",  []],
+    "DllRegisterServerEx" => ["long",  []],
+    "DllUnregisterServer" => ["long",  []],
+    "RegisterBindStatusCallback" => ["long",  ["ptr", "ptr", "ptr", "long"]],
+    "RevokeBindStatusCallback" => ["long",  ["ptr", "ptr"]],
+    "UrlMkSetSessionOption" => ["long",  ["long", "ptr", "long", "long"]]
+};
+
+&wine::declare("urlmon",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/version.pm

+package version;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "GetFileVersionInfoA" => ["long",  ["str", "long", "long", "ptr"]],
+    "GetFileVersionInfoSizeA" => ["long",  ["str", "ptr"]],
+    "GetFileVersionInfoSizeW" => ["long",  ["wstr", "ptr"]],
+    "GetFileVersionInfoW" => ["long",  ["wstr", "long", "long", "ptr"]],
+    "VerFindFileA" => ["long",  ["long", "str", "str", "str", "str", "ptr", "str", "ptr"]],
+    "VerFindFileW" => ["long",  ["long", "wstr", "wstr", "wstr", "wstr", "ptr", "wstr", "ptr"]],
+    "VerInstallFileA" => ["long",  ["long", "str", "str", "str", "str", "str", "str", "ptr"]],
+    "VerInstallFileW" => ["long",  ["long", "wstr", "wstr", "wstr", "wstr", "wstr", "wstr", "ptr"]],
+    "VerQueryValueA" => ["long",  ["ptr", "str", "ptr", "ptr"]],
+    "VerQueryValueW" => ["long",  ["ptr", "wstr", "ptr", "ptr"]]
+};
+
+&wine::declare("version",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/w32skrnl.pm

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

programs/winetest/include/winedos.pm

+package winedos;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "ASPIHandler" => ["void",  ["ptr"]],
+    "AllocRMCB" => ["void",  ["ptr"]],
+    "CallRMInt" => ["void",  ["ptr"]],
+    "CallRMProc" => ["void",  ["undef"]],
+    "Enter" => ["long",  ["ptr"]],
+    "FreeRMCB" => ["void",  ["ptr"]],
+    "GetTimer" => ["long",  []],
+    "KbdReadScan" => ["long",  ["ptr"]],
+    "LoadDosExe" => ["void",  ["str", "long"]],
+    "OutPIC" => ["void",  ["long", "long"]],
+    "QueueEvent" => ["void",  ["long", "long", "undef", "ptr"]],
+    "SetTimer" => ["void",  ["long"]],
+    "Wait" => ["void",  ["long", "long"]]
+};
+
+&wine::declare("winedos",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/wineoss_drv.pm

+package wineoss_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "DriverProc" => ["long",  ["long", "long", "long", "long", "long"]],
+    "auxMessage" => ["long",  ["long", "long", "long", "long", "long"]],
+    "mixMessage" => ["long",  ["long", "long", "long", "long", "long"]],
+    "midMessage" => ["long",  ["long", "long", "long", "long", "long"]],
+    "modMessage" => ["long",  ["long", "long", "long", "long", "long"]],
+    "widMessage" => ["long",  ["long", "long", "long", "long", "long"]],
+    "wodMessage" => ["long",  ["long", "long", "long", "long", "long"]]
+};
+
+&wine::declare("wineoss.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/wininet.pm

+package wininet;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "CommitUrlCacheEntryA" => ["long",  ["str", "str", "long", "long", "long", "ptr", "long", "str", "long"]],
+    "DllInstall" => ["long",  ["long", "wstr"]],
+    "FtpCreateDirectoryA" => ["long",  ["long", "str"]],
+    "FtpDeleteFileA" => ["long",  ["long", "str"]],
+    "FtpFindFirstFileA" => ["long",  ["long", "str", "ptr", "long", "long"]],
+    "FtpGetCurrentDirectoryA" => ["long",  ["long", "str", "ptr"]],
+    "FtpGetFileA" => ["long",  ["long", "str", "str", "long", "long", "long", "long"]],
+    "FtpOpenFileA" => ["long",  ["long", "str", "long", "long", "long"]],
+    "FtpPutFileA" => ["long",  ["long", "str", "str", "long", "long"]],
+    "FtpRemoveDirectoryA" => ["long",  ["long", "str"]],
+    "FtpRenameFileA" => ["long",  ["long", "str", "str"]],
+    "FtpSetCurrentDirectoryA" => ["long",  ["long", "str"]],
+    "GetUrlCacheEntryInfoA" => ["long",  ["str", "ptr", "ptr"]],
+    "HttpAddRequestHeadersA" => ["long",  ["long", "str", "long", "long"]],
+    "HttpOpenRequestA" => ["long",  ["long", "str", "str", "str", "str", "ptr", "long", "long"]],
+    "HttpQueryInfoA" => ["long",  ["long", "long", "ptr", "ptr", "ptr"]],
+    "HttpSendRequestA" => ["long",  ["long", "str", "long", "ptr", "long"]],
+    "HttpSendRequestExA" => ["long",  ["long", "ptr", "ptr", "long", "long"]],
+    "InternetAttemptConnect" => ["long",  ["long"]],
+    "InternetCanonicalizeUrlA" => ["long",  ["str", "str", "ptr", "long"]],
+    "InternetCheckConnectionA" => ["long",  ["str", "long", "long"]],
+    "InternetCloseHandle" => ["long",  ["long"]],
+    "InternetConnectA" => ["long",  ["long", "str", "long", "str", "str", "long", "long", "long"]],
+    "InternetCrackUrlA" => ["long",  ["str", "long", "long", "ptr"]],
+    "InternetFindNextFileA" => ["long",  ["long", "ptr"]],
+    "InternetGetConnectedState" => ["long",  ["ptr", "long"]],
+    "InternetGetCookieA" => ["long",  ["str", "str", "str", "ptr"]],
+    "InternetGetLastResponseInfoA" => ["long",  ["ptr", "str", "ptr"]],
+    "InternetOpenA" => ["long",  ["str", "long", "str", "str", "long"]],
+    "InternetQueryOptionA" => ["long",  ["long", "long", "ptr", "ptr"]],
+    "InternetReadFile" => ["long",  ["long", "ptr", "long", "ptr"]],
+    "InternetSetCookieA" => ["long",  ["str", "str", "str"]],
+    "InternetSetStatusCallback" => ["ptr",  ["long", "ptr"]],
+    "InternetWriteFile" => ["long",  ["long", "ptr", "long", "ptr"]]
+};
+
+&wine::declare("wininet",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/winspool_drv.pm

+package winspool_drv;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "AddFormA" => ["long",  ["long", "long", "ptr"]],
+    "AddFormW" => ["long",  ["long", "long", "ptr"]],
+    "AddJobA" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "AddJobW" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "AddMonitorA" => ["long",  ["str", "long", "ptr"]],
+    "AddPrinterA" => ["long",  ["str", "long", "ptr"]],
+    "AddPrinterDriverA" => ["long",  ["str", "long", "ptr"]],
+    "AddPrinterDriverW" => ["long",  ["wstr", "long", "ptr"]],
+    "AddPrinterW" => ["long",  ["wstr", "long", "ptr"]],
+    "ClosePrinter" => ["long",  ["long"]],
+    "DeleteFormA" => ["long",  ["long", "str"]],
+    "DeleteFormW" => ["long",  ["long", "wstr"]],
+    "DeleteMonitorA" => ["long",  ["str", "str", "str"]],
+    "DeletePortA" => ["long",  ["str", "long", "str"]],
+    "DeletePrinter" => ["long",  ["long"]],
+    "DeletePrinterDriverA" => ["long",  ["str", "str", "str"]],
+    "DeviceCapabilities" => ["long",  ["str", "str", "long", "str", "ptr"]],
+    "DeviceCapabilitiesA" => ["long",  ["str", "str", "long", "str", "ptr"]],
+    "DeviceCapabilitiesW" => ["long",  ["wstr", "wstr", "long", "wstr", "ptr"]],
+    "DocumentPropertiesA" => ["long",  ["long", "long", "str", "ptr", "ptr", "long"]],
+    "DocumentPropertiesW" => ["long",  ["long", "long", "wstr", "ptr", "ptr", "long"]],
+    "EnumJobsA" => ["long",  ["long", "long", "long", "long", "ptr", "long", "ptr", "ptr"]],
+    "EnumJobsW" => ["long",  ["long", "long", "long", "long", "ptr", "long", "ptr", "ptr"]],
+    "EnumPortsA" => ["long",  ["str", "long", "ptr", "long", "ptr", "ptr"]],
+    "EnumPrinterDataExA" => ["long",  ["long", "str", "ptr", "long", "ptr", "ptr"]],
+    "EnumPrinterDataExW" => ["long",  ["long", "wstr", "ptr", "long", "ptr", "ptr"]],
+    "EnumPrinterDriversA" => ["long",  ["str", "str", "long", "ptr", "long", "ptr", "ptr"]],
+    "EnumPrinterDriversW" => ["long",  ["wstr", "wstr", "long", "ptr", "long", "ptr", "ptr"]],
+    "EnumPrintersA" => ["long",  ["long", "str", "long", "ptr", "long", "ptr", "ptr"]],
+    "EnumPrintersW" => ["long",  ["long", "wstr", "long", "ptr", "long", "ptr", "ptr"]],
+    "GetFormA" => ["long",  ["long", "str", "long", "ptr", "long", "ptr"]],
+    "GetFormW" => ["long",  ["long", "wstr", "long", "ptr", "long", "ptr"]],
+    "GetPrinterA" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "GetPrinterDataA" => ["long",  ["long", "str", "ptr", "ptr", "long", "ptr"]],
+    "GetPrinterDataExA" => ["long",  ["long", "str", "str", "ptr", "ptr", "long", "ptr"]],
+    "GetPrinterDataExW" => ["long",  ["long", "wstr", "wstr", "ptr", "ptr", "long", "ptr"]],
+    "GetPrinterDataW" => ["long",  ["long", "wstr", "ptr", "ptr", "long", "ptr"]],
+    "GetPrinterDriverA" => ["long",  ["long", "str", "long", "ptr", "long", "ptr"]],
+    "GetPrinterDriverDirectoryA" => ["long",  ["str", "str", "long", "ptr", "long", "ptr"]],
+    "GetPrinterDriverDirectoryW" => ["long",  ["wstr", "wstr", "long", "ptr", "long", "ptr"]],
+    "GetPrinterDriverW" => ["long",  ["long", "wstr", "long", "ptr", "long", "ptr"]],
+    "GetPrinterW" => ["long",  ["long", "long", "ptr", "long", "ptr"]],
+    "OpenPrinterA" => ["long",  ["str", "ptr", "ptr"]],
+    "OpenPrinterW" => ["long",  ["wstr", "ptr", "ptr"]],
+    "PrinterProperties" => ["long",  ["long", "long"]],
+    "ReadPrinter" => ["long",  ["long", "ptr", "long", "ptr"]],
+    "ResetPrinterA" => ["long",  ["long", "ptr"]],
+    "ResetPrinterW" => ["long",  ["long", "ptr"]],
+    "SetFormA" => ["long",  ["long", "str", "long", "ptr"]],
+    "SetFormW" => ["long",  ["long", "wstr", "long", "ptr"]],
+    "SetJobA" => ["long",  ["long", "long", "long", "ptr", "long"]],
+    "SetJobW" => ["long",  ["long", "long", "long", "ptr", "long"]],
+    "SetPrinterA" => ["long",  ["long", "long", "ptr", "long"]],
+    "SetPrinterDataA" => ["long",  ["long", "str", "long", "ptr", "long"]],
+    "SetPrinterDataExA" => ["long",  ["long", "str", "str", "long", "ptr", "long"]],
+    "SetPrinterDataExW" => ["long",  ["long", "wstr", "wstr", "long", "ptr", "long"]],
+    "SetPrinterDataW" => ["long",  ["long", "wstr", "long", "ptr", "long"]],
+    "SetPrinterW" => ["long",  ["long", "long", "ptr", "long"]],
+    "WritePrinter" => ["long",  ["long", "ptr", "long", "ptr"]]
+};
+
+&wine::declare("winspool.drv",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/wintrust.pm

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

programs/winetest/include/ws2_32.pm

+package ws2_32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "accept" => ["long",  ["long", "ptr", "ptr"]],
+    "bind" => ["long",  ["long", "ptr", "long"]],
+    "closesocket" => ["long",  ["long"]],
+    "connect" => ["long",  ["long", "ptr", "long"]],
+    "getpeername" => ["long",  ["long", "ptr", "ptr"]],
+    "getsockname" => ["long",  ["long", "ptr", "ptr"]],
+    "getsockopt" => ["long",  ["long", "long", "long", "ptr", "ptr"]],
+    "htonl" => ["long",  ["long"]],
+    "htons" => ["long",  ["long"]],
+    "ioctlsocket" => ["long",  ["long", "long", "ptr"]],
+    "inet_addr" => ["long",  ["ptr"]],
+    "inet_ntoa" => ["ptr",  ["unknown"]],
+    "listen" => ["long",  ["long", "long"]],
+    "ntohl" => ["long",  ["long"]],
+    "ntohs" => ["long",  ["long"]],
+    "recv" => ["long",  ["long", "ptr", "long", "long"]],
+    "recvfrom" => ["long",  ["long", "ptr", "long", "long", "ptr", "ptr"]],
+    "select" => ["long",  ["long", "ptr", "ptr", "ptr", "ptr"]],
+    "send" => ["long",  ["long", "ptr", "long", "long"]],
+    "sendto" => ["long",  ["long", "ptr", "long", "long", "ptr", "long"]],
+    "setsockopt" => ["long",  ["long", "long", "long", "ptr", "long"]],
+    "shutdown" => ["long",  ["long", "long"]],
+    "socket" => ["long",  ["long", "long", "long"]],
+    "WSApSetPostRoutine" => ["long",  ["ptr"]],
+    "WSAAccept" => ["long",  ["long", "ptr", "ptr", "ptr", "long"]],
+    "WSACloseEvent" => ["long",  ["long"]],
+    "WSACreateEvent" => ["long",  []],
+    "WSAEnumNetworkEvents" => ["long",  ["long", "long", "ptr"]],
+    "WSAEventSelect" => ["long",  ["long", "long", "long"]],
+    "gethostbyaddr" => ["ptr",  ["ptr", "long", "long"]],
+    "gethostbyname" => ["ptr",  ["ptr"]],
+    "getprotobyname" => ["ptr",  ["ptr"]],
+    "getprotobynumber" => ["ptr",  ["long"]],
+    "getservbyname" => ["ptr",  ["ptr", "ptr"]],
+    "getservbyport" => ["ptr",  ["long", "ptr"]],
+    "gethostname" => ["long",  ["ptr", "long"]],
+    "WSARecvFrom" => ["long",  ["long", "ptr", "long", "ptr", "ptr", "ptr", "ptr", "ptr", "ptr"]],
+    "WSASend" => ["long",  ["long", "ptr", "long", "ptr", "long", "ptr", "ptr"]],
+    "WSASocketA" => ["long",  ["long", "long", "long", "ptr", "long", "long"]],
+    "WSCDeinstallProvider" => ["long",  ["ptr", "ptr"]],
+    "WSCInstallProvider" => ["long",  ["ptr", "wstr", "ptr", "long", "ptr"]],
+    "WSAAsyncSelect" => ["long",  ["long", "long", "long", "long"]],
+    "WSAAsyncGetHostByAddr" => ["long",  ["long", "long", "str", "long", "long", "str", "long"]],
+    "WSAAsyncGetHostByName" => ["long",  ["long", "long", "str", "str", "long"]],
+    "WSAAsyncGetProtoByNumber" => ["long",  ["long", "long", "long", "str", "long"]],
+    "WSAAsyncGetProtoByName" => ["long",  ["long", "long", "str", "str", "long"]],
+    "WSAAsyncGetServByPort" => ["long",  ["long", "long", "long", "str", "str", "long"]],
+    "WSAAsyncGetServByName" => ["long",  ["long", "long", "str", "str", "str", "long"]],
+    "WSACancelAsyncRequest" => ["long",  ["long"]],
+    "WSASetBlockingHook" => ["ptr",  ["ptr"]],
+    "WSAGetLastError" => ["long",  []],
+    "WSASetLastError" => ["void",  ["long"]],
+    "WSACancelBlockingCall" => ["long",  []],
+    "WSAIsBlocking" => ["long",  []],
+    "WSAStartup" => ["long",  ["long", "ptr"]],
+    "WSACleanup" => ["long",  []],
+    "__WSAFDIsSet" => ["long",  ["long", "ptr"]]
+};
+
+&wine::declare("ws2_32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

programs/winetest/include/wsock32.pm

+package wsock32;
+
+use strict;
+
+require Exporter;
+
+use wine;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw();
+
+my $module_declarations = {
+    "inet_network" => ["long",  ["ptr"]],
+    "getnetbyname" => ["ptr",  ["ptr"]],
+    "WSARecvEx" => ["long",  ["long", "ptr", "long", "ptr"]],
+    "s_perror" => ["void",  ["str"]],
+    "EnumProtocolsA" => ["long",  ["ptr", "ptr", "ptr"]],
+    "EnumProtocolsW" => ["long",  ["ptr", "ptr", "ptr"]]
+};
+
+&wine::declare("wsock32",%$module_declarations);
+push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
+1;

tools/winapi/winapi_extract

@@ -28,30 +28,58 @@ use winapi_function;
 use winapi_parser;
 use winapi qw(@winapis);
 
+my %module2entries;
 my %module2spec_file;
 my %module2type;
-if($options->spec_files) {
+my %module2filename;
+if($options->spec_files || $options->winetest) {
     local $_;
 
     foreach my $spec_file (get_spec_files("winelib")) {
+	my $entries = [];
+
 	my $module;
 	my $type;
 
 	open(IN, "< $wine_dir/$spec_file");
-	while(<IN>) {
+
+	my $header = 1;
+	my $lookahead = 0;
+	while($lookahead || defined($_ = <IN>)) {
+	    $lookahead = 0;
+
 	    s/^\s*?(.*?)\s*$/$1/; # remove whitespace at begining and end of line
 	    s/^(.*?)\s*#.*$/$1/;  # remove comments
 	    /^$/ && next;         # skip empty lines
 
-	    if(/^name\s+(.*?)$/) {
-		$module = $1;
-		$module2spec_file{$module} = $spec_file;
-	    } elsif(/^type\s+(.*?)$/) {
-		$type = $1;
-		$module2type{$module} = $type;
+	    if($header)  {
+		if(/^name\s+(.*?)$/) {
+		    $module = $1;
+		    $module2spec_file{$module} = $spec_file;
+		} elsif(/^file\s+(.*?)$/) {
+		    my $filename = $1;
+		    $module2filename{$module} = $filename;
+		} elsif(/^type\s+(.*?)$/) {
+		    $type = $1;
+		    $module2type{$module} = $type;
+		} elsif(/^\d+|@/) {
+		    $header = 0;
+		    $lookahead = 1; 
+		}
+		next;
+	    }
+
+	    if(/^(@|\d+)\s+stdcall\s+(\w+)\s*\(\s*([^\)]*)\s*\)/) {
+		my $ordinal = $1;
+		my $name = $2;
+		my @args = split(/\s+/, $3);
+
+		push @$entries, [$name, "undef", \@args];
 	    }
 	}
 	close(IN);
+
+	$module2entries{$module} = $entries;
     }
 }
 
@@ -177,7 +205,7 @@ foreach my $file (@c_files) {
 	my $calling_convention = $function->calling_convention;
 	my $statements = $function->statements;
 
-	if($options->spec_files) {
+	if($options->spec_files || $options->winetest) {
 	    documentation_specifications($function);
 	}
 
@@ -377,3 +405,106 @@ if($options->stub_statistics) {
     } 
 }
 
+if($options->winetest) {
+    foreach my $module (sort(keys(%specifications))) {
+	my $type = $module2type{$module};
+        my $filename = $module2filename{$module} || $module;
+        my $modulename = $filename;
+        $modulename =~ s/\./_/g;
+
+	next unless $type eq "win32";
+
+	my @entries;
+
+	foreach my $external_name (sort(keys(%{$specifications{$module}{unknown}}))) {
+	    my $entry = $specifications{$module}{unknown}{$external_name};
+	    push @entries, $entry;
+	}
+
+	foreach my $ordinal (sort {$a <=> $b} keys(%{$specifications{$module}{fixed}})) {
+	    my $entry = $specifications{$module}{fixed}{$ordinal};
+	    push @entries, $entry;
+	}
+
+	foreach my $external_name (sort(keys(%{$specifications{$module}{unfixed}}))) {
+	    my $entry = $specifications{$module}{unfixed}{$external_name};
+	    push @entries, $entry;
+	}
+
+	my $n = 0;
+	foreach my $entry (@entries) {
+	    my $external_name = $entry->{external_name}; 
+	    my $ordinal = $entry->{ordinal}; 
+	    my $function = $entry->{function}; 
+
+	    my $return_kind;
+	    my $calling_convention;
+	    my $refargument_kinds;
+	    if($type eq "win16") {
+		$return_kind = $function->return_kind16 || "undef";
+		$calling_convention = $function->calling_convention16 || "undef";
+		$refargument_kinds = $function->argument_kinds16;
+	    } elsif($type eq "win32") {
+		$return_kind = $function->return_kind32 || "undef";
+		$calling_convention = $function->calling_convention32 || "undef";
+		$refargument_kinds = $function->argument_kinds32;
+	    }
+
+	    my @argument_kinds;
+	    if(defined($refargument_kinds)) {
+		@argument_kinds = map { $_ || "undef"; } @$refargument_kinds;
+	    }
+
+	    next if $calling_convention ne "stdcall";
+	    next if $external_name eq "\@";
+
+	    if($n == 0) {
+                open(OUT, "> $wine_dir/programs/winetest/include/${modulename}.pm");
+
+                print OUT "package ${modulename};\n";
+                print OUT "\n";
+
+                print OUT "use strict;\n";
+                print OUT "\n";
+
+                print OUT "require Exporter;\n";
+                print OUT "\n";
+
+                print OUT "use wine;\n";
+                print OUT "use vars qw(\@ISA \@EXPORT \@EXPORT_OK);\n";
+                print OUT "\n";
+
+                print OUT "\@ISA = qw(Exporter);\n";
+                print OUT "\@EXPORT = qw();\n";
+                print OUT "\@EXPORT_OK = qw();\n";
+                print OUT "\n";
+
+                print OUT "my \$module_declarations = {\n";
+	    } elsif($n > 0) {
+		print OUT ",\n";
+	    }
+
+	    print OUT "    \"\Q$external_name\E\" => [\"$return_kind\",  [";
+	    my $m = 0;
+	    foreach my $argument_kind (@argument_kinds) {
+		if($m > 0) {
+		    print OUT ", ";
+		}
+		print OUT "\"$argument_kind\"";
+		$m++;
+	    }
+	    print OUT "]]";
+	    $n++;
+	}
+
+	if($n > 0) {
+	    print OUT "\n";
+	    print OUT "};\n";
+	    print OUT "\n";
+            print OUT "&wine::declare(\"$filename\",\%\$module_declarations);\n";
+            print OUT "push \@EXPORT, map { \"&\" . \$_; } sort(keys(\%\$module_declarations));\n";
+	    print OUT "1;\n";
+            close(OUT);
+	}
+    }
+}

tools/winapi/winapi_extract_options.pm

@@ -25,8 +25,9 @@ my %options_long = (
     "local" =>  { default => 1, description => "local extraction" },
     "global" => { default => 1, description => "global extraction" },
 
-    "spec-files" => { default => 1, parent => "global", description => "spec files extraction" },
+    "spec-files" => { default => 0, parent => "global", description => "spec files extraction" },
     "stub-statistics" => { default => 1, parent => "global", description => "stub statistics" },
+    "winetest" => { default => 1, parent => "global", description => "winetest extraction" },
 );
 
 my %options_short = (