Update win32.api to match the current sources.
[wine] / tools / winapi / winapi_module_user.pm
1 #
2 # Copyright 1999, 2000, 2001 Patrik Stridvall
3 #
4 # This library is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU Lesser General Public
6 # License as published by the Free Software Foundation; either
7 # version 2.1 of the License, or (at your option) any later version.
8 #
9 # This library is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 # Lesser General Public License for more details.
13 #
14 # You should have received a copy of the GNU Lesser General Public
15 # License along with this library; if not, write to the Free Software
16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
17 #
18
19 package winapi_module_user;
20
21 use strict;
22
23 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
24 require Exporter;
25
26 @ISA = qw(Exporter);
27 @EXPORT = qw();
28 @EXPORT_OK = qw(
29     is_user_function
30     get_message_result_type
31     get_message_result_kind
32     get_message_wparam_type
33     get_message_wparam_kind
34     get_message_lparam_type
35     get_message_lparam_kind
36 );
37
38 use config qw($wine_dir);
39 use options qw($options);
40 use output qw($output);
41
42 use c_parser;
43
44 ########################################################################
45
46 my $message;
47
48 ########################################################################
49 # is_user_function
50
51 sub is_user_function($) {
52     my $name = shift;
53     if($name =~ /^(?:DefWindowProc|SendMessage)[AW]?$/) {
54     }
55 }
56
57 ########################################################################
58 # $message
59
60 $message = {
61     WM_ACTIVATE => {
62         id => 0x0006, result => "void", wparam => ["", ""], lparam => "HWND" },
63     WM_ACTIVATEAPP => {
64         id => 0x001c, result => "void", wparam => "BOOL", lparam => "DWORD" },
65     WM_ACTIVATESHELLWINDOW => {
66         id => 0x003e, result => "", wparam => "", lparam => "" },
67     WM_ACTIVATETOPLEVEL => {
68         id => 0x036e, result => "", wparam => "", lparam => "" },
69     WM_ALTTABACTIVE => {
70         id => 0x0029, result => "", wparam => "", lparam => "" },
71     WM_APP => {
72         id => 0x8000, result => "", wparam => "", lparam => "" },
73     WM_ASKCBFORMATNAME => {
74         id => 0x030c, result => "void", wparam => "int", lparam => "LPTSTR" },
75
76     WM_BEGINDRAG => {
77         id => 0x022c, result => "", wparam => "", lparam => "" },
78
79     WM_CANCELMODE => {
80         id => 0x001f, result => "void", wparam => "void", lparam => "void" },
81     WM_CANCELJOURNAL => {
82         id => 0x004b, result => "", wparam => "", lparam => "" },
83     WM_CAPTURECHANGED => {
84         id => 0x0215, result => "void", wparam => "void", lparam => "HWND" },
85     WM_CHANGECBCHAIN => {
86         id => 0x030d, result => "void", wparam => "HWND", lparam => "HWND" },
87     WM_CHILDACTIVATE => {
88         id => 0x0022, result => "void", wparam => "void", lparam => "void" },
89     WM_CLEAR => {
90         id => 0x0303, result => "void", wparam => "void", lparam => "void" },
91     WM_CHAR => {
92         id => 0x0102, result => "void", wparam => "TCHAR", lparam => ["", ""] },
93     WM_CHARTOITEM => {
94         id => 0x002f, result => "int", wparam => ["UINT", "UINT"], lparam => "HWND" },
95     WM_CLOSE => {
96         id => 0x0010, result => "void", wparam => "void", lparam => "void" },
97     WM_COALESCE_FIRST => {
98         id => 0x0390, result => "", wparam => "", lparam => "" },
99     WM_COALESCE_LAST => {
100         id => 0x039f, result => "", wparam => "", lparam => "" },
101     WM_COMMAND => {
102         id => 0x0111, result => "void", wparam => ["UINT", "UINT"], lparam => "HWND" },
103     WM_COMMANDHELP => {
104         id => 0x0365, result => "", wparam => "", lparam => "" },
105     WM_COMMNOTIFY => {
106         id => 0x0044, result => "void", wparam => "int", lparam => ["", ""] },
107     WM_CONTEXTMENU => {
108         id => 0x007b, result => "void", wparam => "HWND", lparam => ["UINT", "UINT"] },
109     WM_COPY => {
110         id => 0x0301, result => "void", wparam => "void", lparam => "void" },
111     WM_COPYDATA => {
112         id => 0x004a, result => "", wparam => "", lparam => "" },
113     WM_COMPACTING => {
114         id => 0x0041, result => "void", wparam => "UINT", lparam => "void" },
115     WM_COMPAREITEM => {
116         id => 0x0039, result => "int", wparam => "UINT", lparam => "const COMPAREITEMSTRUCT *" },
117     WM_CREATE => {
118         id => 0x0001, result => "BOOL", wparam => "void", lparam => "LPCREATESTRUCT" },
119     WM_CTLCOLOR => {
120         id => 0x0019, result => "", wparam => "", lparam => "" },
121     WM_CTLCOLORBTN => {
122         id => 0x0135, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
123     WM_CTLCOLORDLG => {
124         id => 0x136, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
125     WM_CTLCOLOREDIT => {
126         id => 0x133, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
127     WM_CTLCOLORLISTBOX => {
128         id => 0x134, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
129     WM_CTLCOLORMSGBOX => {
130         id => 0x132, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
131     WM_CTLCOLORSCROLLBAR => {
132         id => 0x137, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
133     WM_CTLCOLORSTATIC => {
134         id => 0x138, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
135     WM_CUT => {
136         id => 0x0300, result => "void", wparam => "void", lparam => "void" },
137
138     WM_DDE_ACK => { # FIXME: Only correct if replying to WM_DDE_INITIATE
139         id => 0x03E4, result => "void", wparam => "HWND", lparam => ["ATOM", "ATOM"] },
140     WM_DDE_INITIATE => {
141         id => 0x03E0, result => "void", wparam => "HWND", lparam => ["ATOM", "ATOM"] },
142     WM_DEADCHAR => {
143         id => 0x0103, result => "void", wparam => "TCHAR", lparam => ["", ""] },
144     WM_DEVICECHANGE => {
145         id => 0x0219, result => "BOOL", wparam => "UINT", lparam => "DWORD" },
146     WM_DELETEITEM => {
147         id => 0x002d, result => "void", wparam => "UINT", lparam => "const DELETEITEMSTRUCT *" },
148     WM_DEVMODECHANGE => {
149         id => 0x001b, result => "void", wparam => "void", lparam => "LPCTSTR" },
150     WM_DESTROY => {
151         id => 0x0002, result => "void", wparam => "void", lparam => "void" },
152     WM_DESTROYCLIPBOARD => {
153         id => 0x0307, result => "void", wparam => "void", lparam => "void" },
154     WM_DISABLEMODAL => {
155         id => 0x036c, result => "", wparam => "", lparam => "" },
156     WM_DISPLAYCHANGE => {
157         id => 0x007e, result => "void", wparam => "UINT", lparam => ["UINT", "UINT"] },
158     WM_DRAGLOOP => {
159         id => 0x022d, result => "", wparam => "", lparam => "" },
160     WM_DRAGMOVE => {
161         id => 0x022f, result => "", wparam => "", lparam => "" },
162     WM_DRAGSELECT => {
163         id => 0x022e, result => "", wparam => "", lparam => "" },
164     WM_DRAWCLIPBOARD => {
165         id => 0x0308, result => "void", wparam => "void", lparam => "void" },
166     WM_DRAWITEM => {
167         id => 0x002b, result => "void", wparam => "UINT", lparam => "const DRAWITEMSTRUCT *" },
168     WM_DROPFILES => {
169         id => 0x0233, result => "void", wparam => "HDROP", lparam => "void" },
170     WM_DROPOBJECT => {
171         id => 0x022a, result => "", wparam => "", lparam => "" },
172
173     WM_ENABLE => {
174         id => 0x000a, result => "void", wparam => "BOOL", lparam => "void" },
175     WM_ENDSESSION => {
176         id => 0x0016, result => "void", wparam => "BOOL", lparam => "void" },
177     WM_ENTERIDLE => {
178         id => 0x0121, result => "void", wparam => "UINT", lparam => "HWND" },
179     WM_ENTERSIZEMOVE => {
180         id => 0x0231, result => "", wparam => "", lparam => "" },
181     WM_ENTERMENULOOP => {
182         id => 0x0211, result => "", wparam => "", lparam => "" },
183     WM_ERASEBKGND => {
184         id => 0x0014, result => "BOOL", wparam => "HDC", lparam => "void" },
185     WM_EXITHELPMODE => {
186         id => 0x0367, result => "", wparam => "", lparam => "" },
187     WM_EXITMENULOOP => {
188         id => 0x0212, result => "", wparam => "", lparam => "" },
189     WM_EXITSIZEMOVE => {
190         id => 0x0232, result => "", wparam => "", lparam => "" },
191
192     WM_FILESYSCHANGE => {
193         id => 0x0034, result => "", wparam => "", lparam => "" },
194     WM_FLOATSTATUS => {
195         id => 0x036d, result => "", wparam => "", lparam => "" },
196     WM_FONTCHANGE => {
197         id => 0x001d, result => "void", wparam => "void", lparam => "void" },
198
199     WM_GETDLGCODE => {
200         id => 0x0087, result => "UINT", wparam => "WPARAM", lparam => "LPMSG" },
201     WM_GETFONT => {
202         id => 0x0031, result => "HFONT", wparam => "void", lparam => "void" },
203     WM_GETHOTKEY => {
204         id => 0x0033, result => "", wparam => "", lparam => "" },
205     WM_GETICON => {
206         id => 0x007f, result => "", wparam => "", lparam => "" },
207     WM_GETMINMAXINFO => {
208         id => 0x0024, result => "void", wparam => "void", lparam => "LPMINMAXINFO" },
209     WM_GETTEXT => {
210         id => 0x000d, result => "int", wparam => "int", lparam => "LPTSTR" },
211     WM_GETTEXTLENGTH => {
212         id => 0x000e, result => "int", wparam => "void", lparam => "void" },
213
214     WM_HELP => {
215         id => 0x0053, result => "void", wparam => "void", lparam => "LPHELPINFO" },
216     WM_HELPHITTEST => {
217         id => 0x0366, result => "", wparam => "", lparam => "" },
218     WM_HOTKEY => {
219         id => 0x0312, result => "", wparam => "", lparam => "" },
220     WM_HSCROLL => {
221         id => 0x0114, result => "void", wparam => ["int", "int"], lparam => "HWND" },
222     WM_HSCROLLCLIPBOARD => {
223         id => 0x030e, result => "void", wparam => "HWND", lparam => "" },
224
225     WM_ICONERASEBKGND => {
226         id => 0x0027, result => "BOOL", wparam => "HDC", lparam => "void" },
227     WM_IME_CHAR => {
228         id => 0x0286, result => "", wparam => "", lparam => "" },
229     WM_IME_COMPOSITION => {
230         id => 0x010f, result => "", wparam => "", lparam => "" },
231     WM_IME_COMPOSITIONFULL => {
232         id => 0x0284, result => "", wparam => "", lparam => "" },
233     WM_IME_CONTROL => {
234         id => 0x0283, result => "", wparam => "", lparam => "" },
235     WM_IME_ENDCOMPOSITION => {
236         id => 0x010e, result => "", wparam => "", lparam => "" },
237     WM_IME_KEYDOWN => {
238         id => 0x0290, result => "void", wparam => "UINT", lparam => ["int", "UINT"] },
239     WM_IME_KEYLAST => {
240         id => 0x010f, result => "", wparam => "", lparam => "" },
241     WM_IME_KEYUP => {
242         id => 0x0291, result => "void", wparam => "UINT", lparam => ["int", "UINT"] },
243     WM_IME_NOTIFY => {
244         id => 0x0282, result => "", wparam => "", lparam => "" },
245     WM_IME_REQUEST => {
246         id => 0x0288, result => "", wparam => "", lparam => "" },
247     WM_IME_SELECT => {
248         id => 0x0285, result => "", wparam => "", lparam => "" },
249     WM_IME_SETCONTEXT => {
250         id => 0x0281, result => "", wparam => "", lparam => "" },
251     WM_IME_STARTCOMPOSITION => {
252         id => 0x010d, result => "", wparam => "", lparam => "" },
253     WM_IDLEUPDATECMDUI => {
254         id => 0x0363, result => "", wparam => "", lparam => "" },
255     WM_INITDIALOG => {
256         id => 0x0110, result => "BOOL", wparam => "HWND", lparam => "LPARAM" },
257     WM_INITIALUPDATE => {
258         id => 0x0364, result => "", wparam => "", lparam => "" },
259     WM_INITMENU => {
260         id => 0x0116, result => "void", wparam => "HMENU", lparam => "void" },
261     WM_INITMENUPOPUP => {
262         id => 0x0117, result => "void", wparam => "HMENU", lparam => ["UINT", "BOOL"] },
263     WM_INPUTLANGCHANGE => {
264         id => 0x0051, result => "", wparam => "", lparam => "" },
265     WM_INPUTLANGCHANGEREQUEST => {
266         id => 0x0050, result => "", wparam => "", lparam => "" },
267     WM_ISACTIVEICON => {
268         id => 0x0035, result => "", wparam => "", lparam => "" },
269
270     WM_KEYDOWN => {
271         id => 0x0100, result => "void", wparam => "UINT", lparam => ["int", "UINT"] },
272     WM_KEYLAST => {
273         id => 0x0108, result => "", wparam => "", lparam => "" },
274     WM_KICKIDLE => {
275         id => 0x036a, result => "", wparam => "", lparam => "" },
276     WM_KEYUP => {
277         id => 0x0101, result => "void", wparam => "UINT", lparam => ["", ""] },
278     WM_KILLFOCUS => {
279         id => 0x0008, result => "void", wparam => "HWND", lparam => "void" },
280
281     WM_LBTRACKPOINT => {
282         id => 0x0131, result => "", wparam => "", lparam => "" },
283     WM_LBUTTONDBLCLK => {
284         id => 0x0203, result => "void", wparam => "UINT", lparam => ["", ""] },
285     WM_LBUTTONDOWN => {
286         id => 0x0201, result => "void", wparam => "UINT", lparam => ["", ""] },
287     WM_LBUTTONUP => {
288         id => 0x0202, result => "void", wparam => "UINT", lparam => ["", ""] },
289
290     WM_MBUTTONDBLCLK => {
291         id => 0x0209, result => "void", wparam => "UINT", lparam => ["", ""] },
292     WM_MBUTTONDOWN => {
293         id => 0x0207, result => "void", wparam => "UINT", lparam => ["", ""] },
294     WM_MBUTTONUP => {
295         id => 0x0208, result => "void", wparam => "UINT", lparam => ["", ""] },
296     WM_MDIACTIVATE => {
297         id => 0x0222, result => "void", wparam => "HWND", lparam => "HWND" },
298     WM_MDICASCADE => {
299         id => 0x0227, result => "BOOL", wparam => "UINT", lparam => "void" },
300     WM_MDICREATE => {
301         id => 0x0220, result => "HWND", wparam => "void", lparam => "const LPMDICREATESTRUCT" },
302     WM_MDIDESTROY => {
303         id => 0x0221, result => "void", wparam => "HWND", lparam => "void" },
304     WM_MDIGETACTIVE => {
305         id => 0x0229, result => "HWND", wparam => "void", lparam => "void" },
306     WM_MDIICONARRANGE => {
307         id => 0x0228, result => "void", wparam => "void", lparam => "void" },
308     WM_MDIMAXIMIZE => {
309         id => 0x0225, result => "void", wparam => "HWND", lparam => "void" },
310     WM_MDINEXT => {
311         id => 0x0224, result => "HWND", wparam => "HWND", lparam => "BOOL" },
312     WM_MDIREFRESHMENU => {
313         id => 0x0234, result => "", wparam => "", lparam => "" },
314     WM_MDIRESTORE => {
315         id => 0x0223, result => "void", wparam => "HWND", lparam => "void" },
316     WM_MDISETMENU => {
317         id => 0x0230, result => "HMENU", wparam => "BOOL", lparam => "HMENU" },
318     WM_MDITILE => {
319         id => 0x0226, result => "BOOL", wparam => "UINT", lparam => "void" },
320     WM_MEASUREITEM => {
321         id => 0x002c, result => "void", wparam => "UINT", lparam => "MEASUREITEMSTRUCT *" },
322     WM_MENUSELECT => {
323         id => 0x011f, result => "void", wparam => ["", ""], lparam => "HMENU" },
324     WM_MENUCHAR => {
325         id => 0x0120, result => "DWORD", wparam => ["", "WORD"], lparam => "HMENU" },
326     WM_MOUSEACTIVATE => {
327         id => 0x0021, result => "int", wparam => "HWND", lparam => ["", ""] },
328     WM_MOUSEMOVE => {
329         id => 0x0200, result => "void", wparam => "UINT", lparam => ["", ""] },
330     WM_MOUSEWHEEL => {
331         id => 0x020a, result => "void", wparam => ["DWORD", "int"], lparam => ["UINT", "UINT"] },
332     WM_MOVE => {
333         id => 0x0003, result => "void", wparam => "void", lparam => ["", ""] },
334     WM_MOVING => {
335         id => 0x0216, result => "", wparam => "", lparam => "" },
336
337     WM_NCACTIVATE => {
338         id => 0x0086, result => "BOOL", wparam => "BOOL", lparam => "void" },
339     WM_NCLBUTTONDBLCLK => {
340         id => 0x00a3, result => "void", wparam => "UINT", lparam => ["", ""] },
341     WM_NCLBUTTONDOWN => {
342         id => 0x00a1, result => "void", wparam => "UINT", lparam => ["", ""] },
343     WM_NCLBUTTONUP => {
344         id => 0x00a2, result => "void", wparam => "UINT", lparam => ["", ""] },
345     WM_NCMOUSEMOVE => {
346         id => 0x00a0, result => "void", wparam => "UINT", lparam => ["", ""] },
347     WM_NCMBUTTONDBLCLK => {
348         id => 0x00a9, result => "void", wparam => "UINT", lparam => ["", ""] },
349     WM_NCMBUTTONDOWN => {
350         id => 0x00a7, result => "void", wparam => "UINT", lparam => ["", ""] },
351     WM_NCMBUTTONUP => {
352         id => 0x00a8, result => "void", wparam => "UINT", lparam => ["", ""] },
353     WM_NCRBUTTONDBLCLK => {
354         id => 0x00a6, result => "void", wparam => "UINT", lparam => ["", ""] },
355     WM_NCRBUTTONDOWN => {
356         id => 0x00a4, result => "void", wparam => "UINT", lparam => ["", ""] },
357     WM_NCRBUTTONUP => {
358         id => 0x00a5, result => "void", wparam => "UINT", lparam => ["", ""] },
359     WM_NCCALCSIZE => {
360         id => 0x0083, result => "UINT", wparam => "void", lparam => "NCCALCSIZE_PARAMS *" },
361     WM_NCCREATE => {
362         id => 0x0081, result => "BOOL", wparam => "void", lparam => "LPCREATESTRUCT" },
363     WM_NCDESTROY => {
364         id => 0x0082, result => "void", wparam => "void", lparam => "void" },
365     WM_NCHITTEST => {
366         id => 0x0084, result => "UINT", wparam => "void", lparam => ["int", "int"] },
367     WM_NCPAINT => {
368         id => 0x0085, result => "void", wparam => "HRGN", lparam => "void" },
369     WM_NEXTDLGCTL => {
370         id => 0x0028, result => "HWND", wparam => "HWND", lparam => "BOOL" },
371     WM_NEXTMENU => {
372         id => 0x0213, result => "void", wparam => "UINT", lparam => "LPMDINEXTMENU" },
373     WM_NOTIFY => {
374         id => 0x004e, result => "LRESULT", wparam => "int", lparam => "NMHDR *" },
375     WM_NOTIFYFORMAT => {
376         id => 0x0055, result => "", wparam => "", lparam => "" },
377     WM_NULL => {
378         id => 0x0000, result => "", wparam => "", lparam => "" },
379
380     WM_OCC_INITNEW => {
381         id => 0x0378, result => "", wparam => "", lparam => "" },
382     WM_OCC_LOADFROMSTORAGE => {
383         id => 0x0377, result => "", wparam => "", lparam => "" },
384     WM_OCC_LOADFROMSTORAGE_EX => {
385         id => 0x037b, result => "", wparam => "", lparam => "" },
386     WM_OCC_LOADFROMSTREAM => {
387         id => 0x0376, result => "", wparam => "", lparam => "" },
388     WM_OCC_LOADFROMSTREAM_EX => {
389         id => 0x037a, result => "", wparam => "", lparam => "" },
390     WM_OTHERWINDOWCREATED => {
391         id => 0x003c, result => "", wparam => "", lparam => "" },
392     WM_OTHERWINDOWDESTROYED => {
393         id => 0x003d, result => "", wparam => "", lparam => "" },
394
395     WM_PAINT => {
396         id => 0x000f, result => "void", wparam => "void", lparam => "void" },
397     WM_PAINTCLIPBOARD => {
398         id => 0x0309, result => "void", wparam => "HWND", lparam => "const LPPAINTSTRUCT" },
399     WM_PAINTICON => {
400         id => 0x0026, result => "", wparam => "", lparam => "" },
401     WM_PALETTEISCHANGING => {
402         id => 0x0310, result => "void", wparam => "HWND", lparam => "void" },
403     WM_PALETTECHANGED => {
404         id => 0x0311, result => "void", wparam => "HWND", lparam => "void" },
405     WM_PARENTNOTIFY => {
406         id => 0x0210, result => "void", wparam => ["UINT", "int"], lparam => "HWND" },
407     WM_PASTE => {
408         id => 0x0302, result => "void", wparam => "void", lparam => "void" },
409     WM_PENWINFIRST => {
410         id => 0x0380, result => "", wparam => "", lparam => "" },
411     WM_PENWINLAST => {
412         id => 0x038f, result => "", wparam => "", lparam => "" },
413     WM_POPMESSAGESTRING => {
414         id => 0x0375, result => "", wparam => "", lparam => "" },
415     WM_POWER => {
416         id => 0x0048, result => "void", wparam => "int", lparam => "void" },
417     WM_POWERBROADCAST => {
418         id => 0x0218, result => "", wparam => "", lparam => "" },
419     WM_PRINT => {
420         id => 0x0317, result => "", wparam => "", lparam => "" },
421     WM_PRINTCLIENT => {
422         id => 0x0318, result => "void", wparam => "HDC", lparam => "DWORD" },
423
424     WM_QUERY3DCONTROLS => {
425         id => 0x036f, result => "", wparam => "", lparam => "" },
426     WM_QUERYAFXWNDPROC => {
427         id => 0x0360, result => "", wparam => "", lparam => "" },
428     WM_QUERYCENTERWND => {
429         id => 0x036b, result => "", wparam => "", lparam => "" },
430     WM_QUERYDRAGICON => {
431         id => 0x0037, result => "HICON", wparam => "void", lparam => "void" },
432     WM_QUERYDROPOBJECT => {
433         id => 0x022b, result => "", wparam => "", lparam => "" },
434     WM_QUERYENDSESSION => {
435         id => 0x0011, result => "BOOL", wparam => "void", lparam => "void" },
436     WM_QUERYNEWPALETTE => {
437         id => 0x030f, result => "BOOL", wparam => "void", lparam => "void" },
438     WM_QUERYOPEN => {
439         id => 0x0013, result => "BOOL", wparam => "void", lparam => "void" },
440     WM_QUERYPARKICON => {
441         id => 0x0036, result => "", wparam => "", lparam => "" },
442     WM_QUERYSAVESTATE => {
443         id => 0x0038, result => "", wparam => "", lparam => "" },
444     WM_QUEUESYNC => {
445         id => 0x0023, result => "void", wparam => "void", lparam => "void" },
446     WM_QUEUE_SENTINEL => {
447         id => 0x0379, result => "", wparam => "", lparam => "" },
448     WM_QUIT => {
449         id => 0x0012, result => "void", wparam => "int", lparam => "void" },
450
451     WM_RBUTTONDBLCLK => {
452         id => 0x0206, result => "void", wparam => "UINT", lparam => ["", ""] },
453     WM_RBUTTONDOWN => {
454         id => 0x0204, result => "void", wparam => "UINT", lparam => ["", ""] },
455     WM_RBUTTONUP => {
456         id => 0x0205, result => "void", wparam => "UINT", lparam => ["", ""] },
457     WM_RECALCPARENT => {
458         id => 0x0368, result => "", wparam => "", lparam => "" },
459     WM_RENDERALLFORMATS => {
460         id => 0x0306, result => "void", wparam => "void", lparam => "void" },
461     WM_RENDERFORMAT => {
462         id => 0x0305, result => "HANDLE", wparam => "UINT", lparam => "void" },
463
464     WM_SETCURSOR => {
465         id => 0x0020, result => "BOOL", wparam => "HWND", lparam => ["UINT", "UINT"] },
466     WM_SETFOCUS => {
467         id => 0x0007, result => "void", wparam => "HWND", lparam => "void" },
468     WM_SETFONT => {
469         id => 0x0030, result => "void", wparam => "HFONT", lparam => "BOOL" },
470     WM_SETHOTKEY => {
471         id => 0x0032, result => "", wparam => "", lparam => "" },
472     WM_SETICON => {
473         id => 0x0080, result => "HICON", wparam => "DWORD", lparam => "HICON" },
474     WM_SETMESSAGESTRING => {
475         id => 0x0362, result => "", wparam => "", lparam => "" },
476     WM_SETREDRAW => {
477         id => 0x000b, result => "void", wparam => "BOOL", lparam => "void" },
478     WM_SETTEXT => {
479         id => 0x000c, result => "void", wparam => "void", lparam => "LPCTSTR" },
480     WM_SETVISIBLE => {
481         id => 0x0009, result => "", wparam => "", lparam => "" },
482     WM_SHOWWINDOW => {
483         id => 0x0018, result => "void", wparam => "BOOL", lparam => "UINT" },
484     WM_SIZE => {
485         id => 0x0005, result => "void", wparam => "UINT", lparam => ["", ""] },
486     WM_SIZECHILD => {
487         id => 0x0369, result => "", wparam => "", lparam => "" },
488     WM_SIZECLIPBOARD => {
489         id => 0x030b, result => "void", wparam => "HWND", lparam => "const LPRECT" },
490     WM_SIZEPARENT => {
491         id => 0x0361, result => "", wparam => "", lparam => "" },
492     WM_SIZEWAIT => {
493         id => 0x0004, result => "", wparam => "", lparam => "" },
494     WM_SIZING => {
495         id => 0x0214, result => "", wparam => "", lparam => "" },
496     WM_SOCKET_DEAD => {
497         id => 0x0374, result => "", wparam => "", lparam => "" },
498     WM_SOCKET_NOTIFY => {
499         id => 0x0373, result => "", wparam => "", lparam => "" },
500     WM_SPOOLERSTATUS => {
501         id => 0x002a, result => "void", wparam => "UINT", lparam => ["", ""] },
502     WM_STYLECHANGED => {
503         id => 0x007d, result => "void", wparam => "DWORD", lparam => "LPSTYLESTRUCT" },
504     WM_STYLECHANGING => {
505         id => 0x007c, result => "void", wparam => "DWORD", lparam => "LPSTYLESTRUCT" },
506     WM_SYNCPAINT => {
507         id => 0x0088, result => "", wparam => "", lparam => "" },
508     WM_SYNCTASK => {
509         id => 0x0089, result => "", wparam => "", lparam => "" },
510     WM_SYSCHAR => {
511         id => 0x0106, result => "void", wparam => "TCHAR", lparam => ["", ""] },
512     WM_SYSCOLORCHANGE => {
513         id => 0x0015, result => "void", wparam => "void", lparam => "void" },
514     WM_SYSCOMMAND => {
515         id => 0x0112, result => "void", wparam => "UINT", lparam => "int" },
516     WM_SYSDEADCHAR => {
517         id => 0x0107, result => "void", wparam => "TCHAR", lparam => ["", ""] },
518     WM_SYSKEYDOWN => {
519         id => 0x0104, result => "void", wparam => "UINT", lparam => ["", ""] },
520     WM_SYSKEYUP => {
521         id => 0x0105, result => "void", wparam => "UINT", lparam => ["", ""] },
522     WM_SYSTEMERROR => {
523         id => 0x0017, result => "", wparam => "", lparam => "" },
524     WM_SYSTIMER => {
525         id => 0x0118, result => "", wparam => "", lparam => "" },
526
527     WM_TCARD => {
528         id => 0x0052, result => "", wparam => "", lparam => "" },
529     WM_TESTING => {
530         id => 0x003a, result => "", wparam => "", lparam => "" },
531     WM_TIMECHANGE => {
532         id => 0x001e, result => "void", wparam => "void", lparam => "void" },
533     WM_TIMER => {
534         id => 0x0113, result => "void", wparam => "UINT", lparam => "void" },
535
536     WM_UNDO => {
537         id => 0x0304, result => "void", wparam => "void", lparam => "void" },
538     WM_USER => {
539         id => 0x0400, result => "", wparam => "", lparam => "" },
540     WM_USERCHANGED => {
541         id => 0x0054, result => "", wparam => "", lparam => "" },
542
543     WM_VKEYTOITEM => {
544         id => 0x002e, result => "int", wparam => ["UINT", "int"], lparam => "HWND" },
545     WM_VSCROLL => {
546         id => 0x0115, result => "void", wparam => ["int", "int"], lparam => "HWND" },
547     WM_VSCROLLCLIPBOARD => {
548         id => 0x030a, result => "void", wparam => "HWND", lparam => ["", ""] },
549
550     WM_WINDOWPOSCHANGING => {
551         id => 0x0046, result => "BOOL", wparam => "void", lparam => "LPWINDOWPOS" },
552     WM_WINDOWPOSCHANGED => {
553         id => 0x0047, result => "void", wparam => "void", lparam => "const LPWINDOWPOS" },
554     WM_WININICHANGE => {
555         id => 0x001a, result => "void", wparam => "void", lparam => "LPCTSTR" }
556 };
557
558 ########################################################################
559 # _get_kind
560
561 sub _get_kind($) {
562     local $_ = shift;
563
564     if(!$_) {
565         return undef;
566     } elsif(/^(?:HBRUSH|HDC|HFONT|HMENU|HRGN|HWND)$/ || /\*$/ ||
567             /^LP(?!ARAM)/)
568     {
569         return "ptr";
570     } else {
571         return "long";
572     }
573 }
574
575 ########################################################################
576 # get_message_result_type
577
578 sub get_message_result_type($) {
579     my $name = shift;
580     return $$message{$name}{result};
581 }
582
583 ########################################################################
584 # get_message_result_kind
585
586 sub get_message_result_kind(@) {
587     return _get_kind(get_message_result_type(@_));
588 }
589
590 ########################################################################
591 # get_message_wparam_type
592
593 sub get_message_wparam_type($) {
594     my $name = shift;
595     return $$message{$name}{wparam};
596 }
597
598 ########################################################################
599 # get_message_wparam_kind
600
601 sub get_message_wparam_kind(@) {
602     return _get_kind(get_message_wparam_type(@_));
603 }
604
605 ########################################################################
606 # get_message_lparam_type
607
608 sub get_message_lparam_type($) {
609     my $name = shift;
610     return $$message{$name}{lparam};
611 }
612
613 ########################################################################
614 # get_message_lparam_kind
615
616 sub get_message_lparam_kind(@) {
617     return _get_kind(get_message_lparam_type(@_));
618 }
619
620 ########################################################################
621 # _parse_file
622
623 sub _parse_file($$$) {
624     my $file = shift;
625     my $found_preprocessor = shift;
626     my $found_comment = shift;
627
628     {
629         open(IN, "< $file");
630         local $/ = undef;
631         $_ = <IN>;
632         close(IN);
633     }
634
635     my @lines = split(/\n/, $_);
636     my $max_line = scalar(@lines);
637
638     my $parser = new c_parser($file);
639
640     $parser->set_found_preprocessor_callback($found_preprocessor);
641     $parser->set_found_comment_callback($found_comment);
642
643     my $found_line = sub {
644         my $line = shift;
645         local $_ = shift;
646
647         $output->progress("$file: line $line of $max_line");
648     };
649
650     $parser->set_found_line_callback($found_line);
651
652     my $line = 1;
653     my $column = 0;
654
655     my $old_prefix = $output->prefix;
656     $output->progress("$file");
657     $output->prefix("$file: ");
658
659     if(!$parser->parse_c_file(\$_, \$line, \$column)) {
660         $output->write("can't parse file\n");
661     }
662
663     $output->prefix($old_prefix);
664 }
665
666 ########################################################################
667 # _get_tuple_arguments
668
669 sub _get_tuple_arguments($) {
670     local $_ = shift;
671
672     my $parser = new c_parser;
673
674     my $line = 1;
675     my $column = 0;
676
677     my @arguments;
678     my @argument_lines;
679     my @argument_columns;
680     if(!$parser->parse_c_tuple(\$_, \$line, \$column, \@arguments, \@argument_lines, \@argument_columns)) {
681         return undef;
682     }
683
684     return @arguments;
685 }
686
687 ########################################################################
688 # _parse_windowsx_h
689
690
691 sub _parse_windowsx_h($$$) {
692     my $last_comment;
693
694     my $found_preprocessor = sub {
695         my $begin_line = shift;
696         my $begin_column = shift;
697         local $_ = shift;
698
699         if(!s/^\#\s*define\s*// || !/^FORWARD_WM_/) {
700             return 1;
701         }
702
703         my $name;
704         if(s/^FORWARD_(\w+)\([^\)]*\)\s*(.*?)\s*$/$2/s) {
705             $name = $1;
706         }
707
708         if($name eq "WM_SYSTEMERROR") {
709             return 1;
710         }
711
712         my $result;
713         if(s/^\(\s*(\w+)\s*\)(?:\(\s*\w+\s*\))*\(\s*\w+\s*\)//) {
714             $result = $1;
715         } else {
716             die "$name: '$_'";
717         }
718
719         (undef, $_, my $wparam, my $lparam) = _get_tuple_arguments($_);
720
721         my @names = ();
722         if(/^$name$/) {
723             @names = $name;
724         } elsif(/^\(\w+\)\s*\?\s*(\w+)\s*:\s*(\w+)$/) {
725             @names = ($1, $2);
726         } else {
727             die "$name: '$_'";
728         }
729
730         local $_ = $last_comment;
731         s%^/\*\s*(.*?)\s*\*/$%$1%;
732
733         my %arguments;
734         if(s/^(\w+)\s+\w+\s*\(\s*(.*?)\s*\)$/$2/) {
735             my $result2 = $1;
736             if($result2 eq "INT") { $result2 = "int"; }
737             if($result ne $result2) {
738                 $output->write("message $name: result type mismatch '$result' != '$result2'\n");
739             }
740             foreach (split(/\s*,\s*/)) {
741                 if(/^((?:const\s+|volatile\s+)?\w+(?:\s*\*\s*|\s+)?)(\w+)$/) {
742                     my $type = $1;
743                     my $name = $2;
744
745                     $type =~ s/^\s*(.*?)\s*$/$1/;
746
747                     $arguments{$name} = $type;
748                 } else {
749                     die "$name: '$_'";
750                 }
751             }
752             # $output->write("$1: $_\n");
753         } else {
754             die "$name: '$_'";
755         }
756
757         my $find_inner_cast = sub {
758             local $_ = shift;
759             if(/^(?:\(\s*((?:const\s+|volatile\s+)?\w+(?:\s*\*)?)\s*\))*\(.*?\)$/) {
760                 if(defined($1)) {
761                     return $1;
762                 } else {
763                     return "";
764                 }
765             }
766
767         };
768
769         my @entries = (
770             [ \$wparam, "W", "w" ],
771             [ \$lparam, "L", "l" ]
772         );
773         foreach my $entry (@entries) {
774             (my $refparam, my $upper, my $lower) = @$entry;
775
776             local $_ = $$refparam;
777             if(s/^\(\s*$upper(?:)PARAM\s*\)\s*(?:\(\s*((?:const\s+|volatile\s+)?\w+(?:\s*\*)?)\s*\))*\(\s*(.*?)\s*\)$/$2/) {
778                 if(defined($1)) {
779                     $$refparam = $1;
780                 } else {
781                     $$refparam = "";
782                 }
783
784                 if(/^\w+$/) {
785                     if(exists($arguments{$_})) {
786                         $$refparam = $arguments{$_};
787                     }
788                 } elsif(/^\(\s*(\w+)\s*\)\s*\?\s*\(\s*(\w+)\s*\)\s*:\s*(?:\(\s*(\w+)\s*\)|0)$/) {
789                     foreach ($1, $2, $3) {
790                         if(exists($arguments{$_})) {
791                             $$refparam = $arguments{$_};
792                             last;
793                         }
794                     }
795                 } elsif(/^\(\((?:const\s+|volatile\s+)?\w+\s*(?:\*\s*)?\)\s*(?:\(\s*\w+\s*\)|\w+)\s*\)\s*\->\s*\w+$/) {
796                     $$refparam = "UINT";
797                 } else {
798                     die "$name: '$_'";
799                 }
800             } elsif(s/^(?:\(\s*$upper(?:)PARAM\s*\)\s*)?MAKE$upper(?:)PARAM\s*//) {
801                 (my $low, my $high) = _get_tuple_arguments($_);
802
803                 $low = &$find_inner_cast($low);
804                 $high = &$find_inner_cast($high);
805
806                 $$refparam = "($low,$high)";
807             } elsif(s/^\(.*?$lower(?:)Param.*?\)$//) {
808                 $$refparam = $upper . "PARAM";
809             } elsif(s/^\(\s*(.*?)\s*\)$//) {
810                 $$refparam = "$1";
811             } elsif(s/^0L$//) {
812                 $$refparam = "void";
813             } else {
814                 die "$name: '$_'";
815             }
816         }
817
818         # $output->write("$result: '@names', '$wparam', '$lparam'\n");
819
820         foreach my $name (@names) {
821             my $result2 = $$message{$name}{result};
822             my $wparam2 = $$message{$name}{wparam};
823             my $lparam2 = $$message{$name}{lparam};
824
825             if(ref($wparam2)) {
826                 $wparam2 = "(" . join(",", @$wparam2) . ")";
827             }
828
829             if(ref($lparam2)) {
830                 $lparam2 = "(" . join(",", @$lparam2) . ")";
831             }
832
833             if($result ne $result2) {
834                 $output->write("message $name: wrong result type '$result2' should be '$result'\n");
835             }
836
837             if($wparam ne $wparam2) {
838                 # if($wparam ne "WPARAM" && $wparam ne "(,)") {
839                     $output->write("message $name: wrong wparam type '$wparam2' should be '$wparam'\n");
840                 # }
841             }
842
843             if($lparam ne $lparam2) {
844                 # if($lparam ne "LPARAM" && $lparam ne "(,)") {
845                     $output->write("message $name: wrong lparam type '$lparam2' should be '$lparam'\n");
846                 # }
847             }
848         }
849
850         return 1;
851     };
852
853     my $found_comment = sub {
854         my $begin_line = shift;
855         my $begin_column = shift;
856         my $comment = shift;
857
858         $last_comment = $comment;
859
860         return 1;
861     };
862
863     _parse_file("$wine_dir/include/windowsx.h", $found_preprocessor, $found_comment);
864 }
865
866
867 ########################################################################
868 # _parse_winuser_h
869
870 sub _parse_winuser_h($$$) {
871     my %not_found = ();
872
873     my $found_preprocessor = sub {
874         my $begin_line = shift;
875         my $begin_column = shift;
876         local $_ = shift;
877
878         if(/^\#\s*define\s+(WM_\w+)\s+(0x[0-9a-fA-F]+)\s*$/) {
879             my $name = $1;
880             my $id = lc($2);
881
882             if(exists($$message{$name})) {
883                 my $id2 = sprintf("0x%04x", $$message{$name}{id});
884                 if($id ne $id2) {
885                     $output->write("message $name: wrong value ($id2) should be $id\n");
886                 }
887             } else {
888                 $output->write("message $name: exists but is not supported\n");
889                 $not_found{$name} = $id;
890             }
891         }
892
893         return 1;
894     };
895
896     _parse_file("$wine_dir/include/winuser.h", $found_preprocessor);
897
898     foreach my $name (sort(keys(%not_found))) {
899         my $id = $not_found{$name};
900
901         print "    $name => {\n";
902         print "\tid => $id, result => \"\", wparam => \"\", lparam => \"\" },\n";
903     }
904 }
905
906 # _parse_windowsx_h;
907 # _parse_winuser_h;
908
909 1;