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