May 2011 - Wine-commits - list.winehq.org

Henri Verbeet : ddraw/tests: Make sure the window is properly released by ddraw in test_wndproc().
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 0293e19928f9ec66697cbd6e421c64bb43380aa9 URL: http://source.winehq.org/git/wine.git/?a=commit;h=0293e19928f9ec66697cbd6e4… Author: Henri Verbeet <hverbeet(a)codeweavers.com> Date: Mon May 2 22:16:37 2011 +0200 ddraw/tests: Make sure the window is properly released by ddraw in test_wndproc(). --- dlls/ddraw/tests/d3d.c | 22 ++++++++++++++++++++++ 1 files changed, 22 insertions(+), 0 deletions(-) diff --git a/dlls/ddraw/tests/d3d.c b/dlls/ddraw/tests/d3d.c index 8d43cca..8bb517c 100644 --- a/dlls/ddraw/tests/d3d.c +++ b/dlls/ddraw/tests/d3d.c @@ -3251,6 +3251,27 @@ static LRESULT CALLBACK test_proc(HWND hwnd, UINT message, WPARAM wparam, LPARAM return DefWindowProcA(hwnd, message, wparam, lparam); } +/* Set the wndproc back to what ddraw expects it to be, and release the ddraw + * interface. This prevents subsequent SetCooperativeLevel() calls on a + * different window from failing with DDERR_HWNDALREADYSET. */ +static void fix_wndproc(HWND window, LONG_PTR proc) +{ + IDirectDraw7 *ddraw7; + HRESULT hr; + + hr = pDirectDrawCreateEx(NULL, (void **)&ddraw7, &IID_IDirectDraw7, NULL); + ok(SUCCEEDED(hr), "Failed to create IDirectDraw7 object, hr %#x.", hr); + if (FAILED(hr)) return; + + SetWindowLongPtrA(window, GWLP_WNDPROC, proc); + hr = IDirectDraw7_SetCooperativeLevel(ddraw7, window, DDSCL_EXCLUSIVE | DDSCL_FULLSCREEN); + ok(SUCCEEDED(hr), "SetCooperativeLevel failed, hr %#x.\n", hr); + hr = IDirectDraw7_SetCooperativeLevel(ddraw7, window, DDSCL_NORMAL); + ok(SUCCEEDED(hr), "SetCooperativeLevel failed, hr %#x.\n", hr); + + IDirectDraw7_Release(ddraw7); +} + static void test_wndproc(void) { LONG_PTR proc, ddraw_proc; @@ -3458,6 +3479,7 @@ static void test_wndproc(void) (LONG_PTR)DefWindowProcA, proc); done: + fix_wndproc(window, (LONG_PTR)test_proc); expect_messages = NULL; DestroyWindow(window); UnregisterClassA("d3d7_test_wndproc_wc", GetModuleHandleA(NULL));

1 0

Henri Verbeet : ddraw/tests: Add a test for SetCooperativeLevel() window styles.
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 65272a4f8124a74ed120b9efb3fd130843092fbf URL: http://source.winehq.org/git/wine.git/?a=commit;h=65272a4f8124a74ed120b9efb… Author: Henri Verbeet <hverbeet(a)codeweavers.com> Date: Mon May 2 22:16:38 2011 +0200 ddraw/tests: Add a test for SetCooperativeLevel() window styles. --- dlls/ddraw/tests/d3d.c | 51 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 51 insertions(+), 0 deletions(-) diff --git a/dlls/ddraw/tests/d3d.c b/dlls/ddraw/tests/d3d.c index 8bb517c..9c01ef0 100644 --- a/dlls/ddraw/tests/d3d.c +++ b/dlls/ddraw/tests/d3d.c @@ -3874,6 +3874,56 @@ static void BackBuffer3DAttachmentTest(void) DestroyWindow(window); } +static void test_window_style(void) +{ + LONG style, exstyle, tmp; + RECT fullscreen_rect, r; + IDirectDraw7 *ddraw7; + HWND window; + HRESULT hr; + ULONG ref; + + hr = pDirectDrawCreateEx(NULL, (void **)&ddraw7, &IID_IDirectDraw7, NULL); + if (FAILED(hr)) + { + skip("Failed to create IDirectDraw7 object (%#x), skipping tests.\n", hr); + return; + } + + window = CreateWindowA("static", "d3d7_test", WS_OVERLAPPEDWINDOW, + 0, 0, 100, 100, 0, 0, 0, 0); + + style = GetWindowLongA(window, GWL_STYLE); + exstyle = GetWindowLongA(window, GWL_EXSTYLE); + SetRect(&fullscreen_rect, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN)); + + hr = IDirectDraw7_SetCooperativeLevel(ddraw7, window, DDSCL_EXCLUSIVE | DDSCL_FULLSCREEN); + ok(SUCCEEDED(hr), "SetCooperativeLevel failed, hr %#x.\n", hr); + if (FAILED(hr)) + { + IDirectDraw7_Release(ddraw7); + DestroyWindow(window); + return; + } + + tmp = GetWindowLongA(window, GWL_STYLE); + todo_wine ok(tmp == style, "Expected window style %#x, got %#x.\n", style, tmp); + tmp = GetWindowLongA(window, GWL_EXSTYLE); + todo_wine ok(tmp == exstyle, "Expected window extended style %#x, got %#x.\n", exstyle, tmp); + + GetWindowRect(window, &r); + ok(EqualRect(&r, &fullscreen_rect), "Expected {%d, %d, %d, %d}, got {%d, %d, %d, %d}.\n", + fullscreen_rect.left, fullscreen_rect.top, fullscreen_rect.right, fullscreen_rect.bottom, + r.left, r.top, r.right, r.bottom); + GetClientRect(window, &r); + todo_wine ok(!EqualRect(&r, &fullscreen_rect), "Client rect and window rect are equal.\n"); + + ref = IDirectDraw7_Release(ddraw7); + ok(ref == 0, "The ddraw object was not properly freed: refcount %u.\n", ref); + + DestroyWindow(window); +} + START_TEST(d3d) { init_function_pointers(); @@ -3915,4 +3965,5 @@ START_TEST(d3d) } test_wndproc(); + test_window_style(); }

1 0

Henri Verbeet : d3d8/tests: Add a test for window styles on device creation .
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 7b44caa7520d18a226cbd36d3bd63bdfeb09e246 URL: http://source.winehq.org/git/wine.git/?a=commit;h=7b44caa7520d18a226cbd36d3… Author: Henri Verbeet <hverbeet(a)codeweavers.com> Date: Mon May 2 22:16:39 2011 +0200 d3d8/tests: Add a test for window styles on device creation. --- dlls/d3d8/tests/device.c | 75 ++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 75 insertions(+), 0 deletions(-) diff --git a/dlls/d3d8/tests/device.c b/dlls/d3d8/tests/device.c index 557eec1..16fc22b 100644 --- a/dlls/d3d8/tests/device.c +++ b/dlls/d3d8/tests/device.c @@ -2182,6 +2182,80 @@ cleanup: DestroyWindow(hwnd); } +static void test_window_style(void) +{ + RECT focus_rect, fullscreen_rect, r; + LONG device_style, device_exstyle; + LONG focus_style, focus_exstyle; + LONG style, expected_style; + IDirect3DDevice8 *device; + IDirect3D8 *d3d8; + ULONG ref; + + + if (!(d3d8 = pDirect3DCreate8(D3D_SDK_VERSION))) + { + skip("Failed to create IDirect3D8 object, skipping tests.\n"); + return; + } + + focus_window = CreateWindowA("d3d8_test_wc", "d3d8_test", WS_OVERLAPPEDWINDOW, + 0, 0, screen_width / 2, screen_height / 2, 0, 0, 0, 0); + device_window = CreateWindowA("d3d8_test_wc", "d3d8_test", WS_OVERLAPPEDWINDOW, + 0, 0, screen_width / 2, screen_height / 2, 0, 0, 0, 0); + + device_style = GetWindowLongA(device_window, GWL_STYLE); + device_exstyle = GetWindowLongA(device_window, GWL_EXSTYLE); + focus_style = GetWindowLongA(focus_window, GWL_STYLE); + focus_exstyle = GetWindowLongA(focus_window, GWL_EXSTYLE); + + SetRect(&fullscreen_rect, 0, 0, screen_width, screen_height); + GetWindowRect(focus_window, &focus_rect); + + device = create_device(d3d8, device_window, focus_window, FALSE); + if (!device) + { + skip("Failed to create a D3D device, skipping tests.\n"); + goto done; + } + + style = GetWindowLongA(device_window, GWL_STYLE); + expected_style = device_style | WS_VISIBLE; + todo_wine ok(style == expected_style, "Expected device window style %#x, got %#x.\n", + expected_style, style); + style = GetWindowLongA(device_window, GWL_EXSTYLE); + expected_style = device_exstyle | WS_EX_TOPMOST; + todo_wine ok(style == expected_style, "Expected device window extended style %#x, got %#x.\n", + expected_style, style); + + style = GetWindowLongA(focus_window, GWL_STYLE); + ok(style == focus_style, "Expected focus window style %#x, got %#x.\n", + focus_style, style); + style = GetWindowLongA(focus_window, GWL_EXSTYLE); + ok(style == focus_exstyle, "Expected focus window extended style %#x, got %#x.\n", + focus_exstyle, style); + + GetWindowRect(device_window, &r); + ok(EqualRect(&r, &fullscreen_rect), "Expected {%d, %d, %d, %d}, got {%d, %d, %d, %d}.\n", + fullscreen_rect.left, fullscreen_rect.top, fullscreen_rect.right, fullscreen_rect.bottom, + r.left, r.top, r.right, r.bottom); + GetClientRect(device_window, &r); + todo_wine ok(!EqualRect(&r, &fullscreen_rect), "Client rect and window rect are equal.\n"); + GetWindowRect(focus_window, &r); + ok(EqualRect(&r, &focus_rect), "Expected {%d, %d, %d, %d}, got {%d, %d, %d, %d}.\n", + focus_rect.left, focus_rect.top, focus_rect.right, focus_rect.bottom, + r.left, r.top, r.right, r.bottom); + + ref = IDirect3DDevice8_Release(device); + ok(ref == 0, "The device was not properly freed: refcount %u.\n", ref); + +done: + IDirect3D8_Release(d3d8); + + DestroyWindow(device_window); + DestroyWindow(focus_window); +} + START_TEST(device) { HMODULE d3d8_handle = LoadLibraryA( "d3d8.dll" ); @@ -2230,6 +2304,7 @@ START_TEST(device) test_wndproc(); test_wndproc_windowed(); test_depth_stencil_size(); + test_window_style(); } UnregisterClassA("d3d8_test_wc", GetModuleHandleA(NULL)); }

1 0

Francois Gouget : infosoft: Export DllUnregisterServer().
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 87d76cc2ab2f9337c7fbf1ef1e5b840050dc43b7 URL: http://source.winehq.org/git/wine.git/?a=commit;h=87d76cc2ab2f9337c7fbf1ef1… Author: Francois Gouget <fgouget(a)free.fr> Date: Tue May 3 00:35:00 2011 +0200 infosoft: Export DllUnregisterServer(). --- dlls/infosoft/infosoft.spec | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/dlls/infosoft/infosoft.spec b/dlls/infosoft/infosoft.spec index d480bbb..b16365d 100644 --- a/dlls/infosoft/infosoft.spec +++ b/dlls/infosoft/infosoft.spec @@ -1,4 +1,4 @@ @ stdcall -private DllCanUnloadNow() @ stdcall -private DllGetClassObject(ptr ptr ptr) @ stdcall -private DllRegisterServer() -# @ stdcall -private DllUnregisterServer() +@ stdcall -private DllUnregisterServer()

1 0

Francois Gouget : msvcrt: Make printf_arg arg_clbk_positional() and MSVCRT_wcsrtombs_s_l() static.
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: ca268b199a76525742b7f5acbc1edf056a30e64f URL: http://source.winehq.org/git/wine.git/?a=commit;h=ca268b199a76525742b7f5acb… Author: Francois Gouget <fgouget(a)free.fr> Date: Tue May 3 00:35:12 2011 +0200 msvcrt: Make printf_arg arg_clbk_positional() and MSVCRT_wcsrtombs_s_l() static. --- dlls/msvcrt/msvcrt.h | 1 - dlls/msvcrt/wcs.c | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/dlls/msvcrt/msvcrt.h b/dlls/msvcrt/msvcrt.h index 40d7261..838895a 100644 --- a/dlls/msvcrt/msvcrt.h +++ b/dlls/msvcrt/msvcrt.h @@ -933,7 +933,6 @@ int pf_printf_a(puts_clbk_a, void*, const char*, MSVCRT__locale_t, int pf_printf_w(puts_clbk_w, void*, const MSVCRT_wchar_t*, MSVCRT__locale_t, BOOL, BOOL, args_clbk, void*, __ms_va_list); printf_arg arg_clbk_valist(void*, int, int, __ms_va_list*); -printf_arg arg_clbk_positional(void*, int, int, __ms_va_list*); #define MSVCRT__OVERFLOW 3 #define MSVCRT__UNDERFLOW 4 diff --git a/dlls/msvcrt/wcs.c b/dlls/msvcrt/wcs.c index 527bcff..2f2c140 100644 --- a/dlls/msvcrt/wcs.c +++ b/dlls/msvcrt/wcs.c @@ -376,7 +376,7 @@ MSVCRT_size_t CDECL MSVCRT_wcsrtombs(char *mbstr, const MSVCRT_wchar_t **wcstr, /********************************************************************* * MSVCRT_wcsrtombs_s_l (INTERNAL) */ -MSVCRT_size_t CDECL MSVCRT_wcsrtombs_s_l(MSVCRT_size_t *ret, char *mbstr, +static MSVCRT_size_t MSVCRT_wcsrtombs_s_l(MSVCRT_size_t *ret, char *mbstr, MSVCRT_size_t size, const MSVCRT_wchar_t **wcstr, MSVCRT_size_t count, MSVCRT__locale_t locale) { @@ -501,7 +501,7 @@ printf_arg arg_clbk_valist(void *ctx, int arg_pos, int type, __ms_va_list *valis /********************************************************************* * arg_clbk_positional (INTERNAL) */ -printf_arg arg_clbk_positional(void *ctx, int pos, int type, __ms_va_list *valist) +static printf_arg arg_clbk_positional(void *ctx, int pos, int type, __ms_va_list *valist) { printf_arg *args = ctx; return args[pos];

1 0

Francois Gouget : msxml3: Make a bunch of XSLPattern_*() functions static.
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 8a8c8bbd868762d3b065d00cecdf52bffb7c3fc4 URL: http://source.winehq.org/git/wine.git/?a=commit;h=8a8c8bbd868762d3b065d00ce… Author: Francois Gouget <fgouget(a)free.fr> Date: Tue May 3 00:35:31 2011 +0200 msxml3: Make a bunch of XSLPattern_*() functions static. --- dlls/msxml3/selection.c | 18 +++++++++--------- 1 files changed, 9 insertions(+), 9 deletions(-) diff --git a/dlls/msxml3/selection.c b/dlls/msxml3/selection.c index abd9347..e0f30c3 100644 --- a/dlls/msxml3/selection.c +++ b/dlls/msxml3/selection.c @@ -500,7 +500,7 @@ static dispex_static_data_t domselection_dispex = { } -void XSLPattern_index(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_index(xmlXPathParserContextPtr pctx, int nargs) { XSLPATTERN_CHECK_ARGS(0); @@ -508,7 +508,7 @@ void XSLPattern_index(xmlXPathParserContextPtr pctx, int nargs) xmlXPathReturnNumber(pctx, xmlXPathPopNumber(pctx) - 1.0); } -void XSLPattern_end(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_end(xmlXPathParserContextPtr pctx, int nargs) { double pos, last; XSLPATTERN_CHECK_ARGS(0); @@ -520,13 +520,13 @@ void XSLPattern_end(xmlXPathParserContextPtr pctx, int nargs) xmlXPathReturnBoolean(pctx, pos == last); } -void XSLPattern_nodeType(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_nodeType(xmlXPathParserContextPtr pctx, int nargs) { XSLPATTERN_CHECK_ARGS(0); xmlXPathReturnNumber(pctx, pctx->context->node->type); } -void XSLPattern_OP_IEq(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_OP_IEq(xmlXPathParserContextPtr pctx, int nargs) { xmlChar *arg1, *arg2; XSLPATTERN_CHECK_ARGS(2); @@ -538,7 +538,7 @@ void XSLPattern_OP_IEq(xmlXPathParserContextPtr pctx, int nargs) xmlFree(arg2); } -void XSLPattern_OP_INEq(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_OP_INEq(xmlXPathParserContextPtr pctx, int nargs) { xmlChar *arg1, *arg2; XSLPATTERN_CHECK_ARGS(2); @@ -550,7 +550,7 @@ void XSLPattern_OP_INEq(xmlXPathParserContextPtr pctx, int nargs) xmlFree(arg2); } -void XSLPattern_OP_ILt(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_OP_ILt(xmlXPathParserContextPtr pctx, int nargs) { xmlChar *arg1, *arg2; XSLPATTERN_CHECK_ARGS(2); @@ -562,7 +562,7 @@ void XSLPattern_OP_ILt(xmlXPathParserContextPtr pctx, int nargs) xmlFree(arg2); } -void XSLPattern_OP_ILEq(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_OP_ILEq(xmlXPathParserContextPtr pctx, int nargs) { xmlChar *arg1, *arg2; XSLPATTERN_CHECK_ARGS(2); @@ -574,7 +574,7 @@ void XSLPattern_OP_ILEq(xmlXPathParserContextPtr pctx, int nargs) xmlFree(arg2); } -void XSLPattern_OP_IGt(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_OP_IGt(xmlXPathParserContextPtr pctx, int nargs) { xmlChar *arg1, *arg2; XSLPATTERN_CHECK_ARGS(2); @@ -586,7 +586,7 @@ void XSLPattern_OP_IGt(xmlXPathParserContextPtr pctx, int nargs) xmlFree(arg2); } -void XSLPattern_OP_IGEq(xmlXPathParserContextPtr pctx, int nargs) +static void XSLPattern_OP_IGEq(xmlXPathParserContextPtr pctx, int nargs) { xmlChar *arg1, *arg2; XSLPATTERN_CHECK_ARGS(2);

1 0

Alexandre Julliard : msvcrt: Add a stub for msvcp70.dll.
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 2f9c02e8f12d900b723cc7d89e417ec2a0973c65 URL: http://source.winehq.org/git/wine.git/?a=commit;h=2f9c02e8f12d900b723cc7d89… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Tue May 3 11:09:58 2011 +0200 msvcrt: Add a stub for msvcp70.dll. --- configure | 1 + configure.ac | 1 + dlls/msvcp70/Makefile.in | 5 + dlls/msvcp70/msvcp70.c | 37 + dlls/msvcp70/msvcp70.spec | 5109 +++++++++++++++++++++++++++++++++++++++++++++ 5 files changed, 5153 insertions(+), 0 deletions(-) Diff: http://source.winehq.org/git/wine.git/?a=commitdiff;h=2f9c02e8f12d900b723cc…

1 0

Alexandre Julliard : msvcrt: Add a stub for msvcp71.dll.
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 4be2026aefce9db46426cbe8cc8628ccea50d7ef URL: http://source.winehq.org/git/wine.git/?a=commit;h=4be2026aefce9db46426cbe8c… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Mon May 2 17:32:22 2011 +0200 msvcrt: Add a stub for msvcp71.dll. --- configure | 1 + configure.ac | 1 + dlls/msvcp71/Makefile.in | 5 + dlls/msvcp71/msvcp71.c | 37 + dlls/msvcp71/msvcp71.spec | 5169 +++++++++++++++++++++++++++++++++++++++++++++ 5 files changed, 5213 insertions(+), 0 deletions(-) Diff: http://source.winehq.org/git/wine.git/?a=commitdiff;h=4be2026aefce9db46426c…

1 0

Alexandre Julliard : tools: Add a script to help synchronize spec files that share an implementation.
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 2623e329cbd21fdbc33a4ebdccc7bd99bda6bda3 URL: http://source.winehq.org/git/wine.git/?a=commit;h=2623e329cbd21fdbc33a4ebdc… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Tue May 3 12:02:25 2011 +0200 tools: Add a script to help synchronize spec files that share an implementation. --- tools/make_specfiles | 195 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 195 insertions(+), 0 deletions(-) diff --git a/tools/make_specfiles b/tools/make_specfiles new file mode 100755 index 0000000..b911866 --- /dev/null +++ b/tools/make_specfiles @@ -0,0 +1,195 @@ +#!/usr/bin/perl -w +# +# Update spec files across dlls that share an implementation +# +# Copyright 2011 Alexandre Julliard +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser General Public +# License as published by the Free Software Foundation; either +# version 2.1 of the License, or (at your option) any later version. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Lesser General Public License for more details. +# +# You should have received a copy of the GNU Lesser General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA +# + +use strict; + +my %funcs; +my $group_head; + +my @dll_groups = +( + [ + "msvcrt", + "msvcr90", + "msvcirt", + "msvcr100", + "msvcr80", + "msvcr71", + "msvcr70", + "msvcrt40", + "msvcrt20", + "msvcrtd", + "crtdll", + ], + [ + "msvcrt", + "msvcp90", + "msvcp100", + "msvcp80", + "msvcp71", + "msvcp70", + "msvcp60", + ], +); + +my $update_flags = 0; +my $show_duplicates = 0; + +foreach my $arg (@ARGV) +{ + if ($arg eq "-f") { $update_flags = 1; } + elsif ($arg eq "-d") { $show_duplicates = 1; } +} + +sub update_file($) +{ + my $file = shift; + my $ret = !(-f $file) || system "cmp $file $file.new >/dev/null"; + if (!$ret) + { + unlink "$file.new"; + } + else + { + #system "diff -u $file $file.new"; + rename "$file.new", "$file"; + print "$file updated\n"; + } + return $ret; +} + +# parse a spec file line +sub parse_line($$$) +{ + my ($name, $line, $_) = @_; + + if (/^\s*(\@|\d+)\s+(stdcall|cdecl|varargs|thiscall|stub|extern)\s+((?:-\S+\s+)*)([A-Za-z0-9_\@\$?]+)(?:\s*($[^)]*$))?(?:\s+([A-Za-z0-9_\@\$?.]+))?(\s*\#.*)?/) + { + return ( "ordinal" => $1, "callconv" => $2, "flags" => $3, "name" => $4, "args" => $5 || "", + "target" => $6 || $4, "comment" => $7, "spec" => $name ); + } + return () if /^\s*$/; + return () if /^\s*\#/; + printf STDERR "$name.spec:$line: error: Unrecognized line $_\n"; +} + +sub read_spec_file($) +{ + my $name = shift; + my $file = "dlls/$name/$name.spec"; + my %stubs; + open SPEC, "<$file" or die "cannot open $file"; + while (<SPEC>) + { + chomp; + my %descr = parse_line( $name, $., $_ ); + next unless %descr; + + my $func = $descr{name}; + next if defined $funcs{$func}; + $funcs{$func} = \%descr; + } + close SPEC; +} + +sub update_spec_file($) +{ + my $name = shift; + my $file = "dlls/$name/$name.spec"; + my %stubs; + + open SPEC, "<$file" or die "cannot open $file"; + open NEW, ">$file.new" or die "cannot create $file.new"; + while (<SPEC>) + { + chomp; + + my $commented_out = 0; + my %descr = parse_line( $name, $., $_ ); + if (!%descr) + { + # check for commented out exports + if (/^\s*\#\s*((?:\@|\d+)\s+)?((?:extern|stub|stdcall|cdecl|varargs|thiscall)\s+.*)/) + { + $commented_out = 1; + %descr = parse_line( $name, $., ($1 || "\@ ") . $2 ); + } + } + goto done unless %descr; + + my $func = $descr{name}; + if (!defined $funcs{$func}) + { + $funcs{$func} = \%descr unless $commented_out; + goto done; + } + + my %parent = %{$funcs{$func}}; + goto done if $parent{spec} eq $descr{spec}; # the definition is in this spec file + if ($descr{callconv} ne "stub" && $descr{target} !~ /\./) + { + printf "%s:%u: note: %s already defined in %s\n", $file, $., $func, $parent{spec} if $show_duplicates; + goto done; + } + + my $flags = ($parent{callconv} ne "stub" || $update_flags) ? $parent{flags} : $descr{flags}; + + if ($parent{callconv} ne "stub") + { + my $callconv = $parent{callconv} ne "stub" ? $parent{callconv} : + $parent{spec} =~ /msvc/ ? "cdecl" : "stdcall"; # hack + $_ = sprintf "@ %s %s%s", $callconv, $flags, $func; + + if ($parent{target} =~ /$group_head\./) # use the same forward as parent if possible + { + $_ .= sprintf "%s %s", $parent{args}, $parent{target}; + } + else + { + $_ .= sprintf "%s %s.%s", $parent{args}, $parent{spec}, $func; + } + } + else + { + $_ = sprintf "@ stub %s%s", $flags, $func; + } + $_ .= $descr{comment} || ""; + + done: + print NEW "$_\n"; + } + close SPEC; + close NEW; + update_file( $file ); +} + +sub sync_spec_files(@) +{ + %funcs = (); + $group_head = shift; + read_spec_file( $group_head ); + foreach my $spec (@_) { update_spec_file($spec); } +} + +foreach my $group (@dll_groups) +{ + sync_spec_files( @{$group} ); +}

1 0

Alexandre Julliard : msvcrt: Update spec files using the make_specfiles script.
by Alexandre Julliard 03 May '11

03 May '11

Module: wine Branch: master Commit: 5ac184cad58e78419fcbb934d8f40d9c67fdc161 URL: http://source.winehq.org/git/wine.git/?a=commit;h=5ac184cad58e78419fcbb934d… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Tue May 3 12:02:39 2011 +0200 msvcrt: Update spec files using the make_specfiles script. --- dlls/crtdll/crtdll.spec | 51 +++--- dlls/msvcirt/msvcirt.spec | 3 +- dlls/msvcp60/msvcp60.spec | 494 +++++++++++++++++++++--------------------- dlls/msvcp80/msvcp80.spec | 1 + dlls/msvcp90/msvcp90.spec | 2 +- dlls/msvcr100/msvcr100.spec | 138 ++++++------ dlls/msvcr71/msvcr71.spec | 6 +- dlls/msvcr80/msvcr80.spec | 138 ++++++------ dlls/msvcrt20/msvcrt20.spec | 3 +- dlls/msvcrt40/msvcrt40.spec | 3 +- 10 files changed, 419 insertions(+), 420 deletions(-) Diff: http://source.winehq.org/git/wine.git/?a=commitdiff;h=5ac184cad58e78419fcbb…

1 0