911 lines
31 KiB
Perl
911 lines
31 KiB
Perl
#
|
|
# Copyright 1999, 2000, 2001 Patrik Stridvall
|
|
#
|
|
# 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
|
|
#
|
|
|
|
package winapi_module_user;
|
|
|
|
use strict;
|
|
use warnings 'all';
|
|
|
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
|
require Exporter;
|
|
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw();
|
|
@EXPORT_OK = qw(
|
|
is_user_function
|
|
get_message_result_type
|
|
get_message_result_kind
|
|
get_message_wparam_type
|
|
get_message_wparam_kind
|
|
get_message_lparam_type
|
|
get_message_lparam_kind
|
|
);
|
|
|
|
use config qw($wine_dir);
|
|
use options qw($options);
|
|
use output qw($output);
|
|
|
|
use c_parser;
|
|
|
|
########################################################################
|
|
|
|
my $message;
|
|
|
|
########################################################################
|
|
# is_user_function
|
|
|
|
sub is_user_function($) {
|
|
my $name = shift;
|
|
if($name =~ /^(?:DefWindowProc|SendMessage)[AW]?$/) {
|
|
}
|
|
}
|
|
|
|
########################################################################
|
|
# $message
|
|
|
|
$message = {
|
|
WM_ACTIVATE => {
|
|
id => 0x0006, result => "void", wparam => ["", ""], lparam => "HWND" },
|
|
WM_ACTIVATEAPP => {
|
|
id => 0x001c, result => "void", wparam => "BOOL", lparam => "DWORD" },
|
|
WM_ACTIVATESHELLWINDOW => {
|
|
id => 0x003e, result => "", wparam => "", lparam => "" },
|
|
WM_ACTIVATETOPLEVEL => {
|
|
id => 0x036e, result => "", wparam => "", lparam => "" },
|
|
WM_ALTTABACTIVE => {
|
|
id => 0x0029, result => "", wparam => "", lparam => "" },
|
|
WM_APP => {
|
|
id => 0x8000, result => "", wparam => "", lparam => "" },
|
|
WM_ASKCBFORMATNAME => {
|
|
id => 0x030c, result => "void", wparam => "int", lparam => "LPTSTR" },
|
|
|
|
WM_BEGINDRAG => {
|
|
id => 0x022c, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_CANCELMODE => {
|
|
id => 0x001f, result => "void", wparam => "void", lparam => "void" },
|
|
WM_CANCELJOURNAL => {
|
|
id => 0x004b, result => "", wparam => "", lparam => "" },
|
|
WM_CAPTURECHANGED => {
|
|
id => 0x0215, result => "void", wparam => "void", lparam => "HWND" },
|
|
WM_CHANGECBCHAIN => {
|
|
id => 0x030d, result => "void", wparam => "HWND", lparam => "HWND" },
|
|
WM_CHILDACTIVATE => {
|
|
id => 0x0022, result => "void", wparam => "void", lparam => "void" },
|
|
WM_CLEAR => {
|
|
id => 0x0303, result => "void", wparam => "void", lparam => "void" },
|
|
WM_CHAR => {
|
|
id => 0x0102, result => "void", wparam => "TCHAR", lparam => ["", ""] },
|
|
WM_CHARTOITEM => {
|
|
id => 0x002f, result => "int", wparam => ["UINT", "UINT"], lparam => "HWND" },
|
|
WM_CLOSE => {
|
|
id => 0x0010, result => "void", wparam => "void", lparam => "void" },
|
|
WM_COALESCE_FIRST => {
|
|
id => 0x0390, result => "", wparam => "", lparam => "" },
|
|
WM_COALESCE_LAST => {
|
|
id => 0x039f, result => "", wparam => "", lparam => "" },
|
|
WM_COMMAND => {
|
|
id => 0x0111, result => "void", wparam => ["UINT", "UINT"], lparam => "HWND" },
|
|
WM_COMMANDHELP => {
|
|
id => 0x0365, result => "", wparam => "", lparam => "" },
|
|
WM_COMMNOTIFY => {
|
|
id => 0x0044, result => "void", wparam => "int", lparam => ["", ""] },
|
|
WM_CONTEXTMENU => {
|
|
id => 0x007b, result => "void", wparam => "HWND", lparam => ["UINT", "UINT"] },
|
|
WM_COPY => {
|
|
id => 0x0301, result => "void", wparam => "void", lparam => "void" },
|
|
WM_COPYDATA => {
|
|
id => 0x004a, result => "", wparam => "", lparam => "" },
|
|
WM_COMPACTING => {
|
|
id => 0x0041, result => "void", wparam => "UINT", lparam => "void" },
|
|
WM_COMPAREITEM => {
|
|
id => 0x0039, result => "int", wparam => "UINT", lparam => "const COMPAREITEMSTRUCT *" },
|
|
WM_CREATE => {
|
|
id => 0x0001, result => "BOOL", wparam => "void", lparam => "LPCREATESTRUCT" },
|
|
WM_CTLCOLOR => {
|
|
id => 0x0019, result => "", wparam => "", lparam => "" },
|
|
WM_CTLCOLORBTN => {
|
|
id => 0x0135, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
|
|
WM_CTLCOLORDLG => {
|
|
id => 0x136, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
|
|
WM_CTLCOLOREDIT => {
|
|
id => 0x133, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
|
|
WM_CTLCOLORLISTBOX => {
|
|
id => 0x134, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
|
|
WM_CTLCOLORMSGBOX => {
|
|
id => 0x132, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
|
|
WM_CTLCOLORSCROLLBAR => {
|
|
id => 0x137, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
|
|
WM_CTLCOLORSTATIC => {
|
|
id => 0x138, result => "HBRUSH", wparam => "HDC", lparam => "HWND" },
|
|
WM_CUT => {
|
|
id => 0x0300, result => "void", wparam => "void", lparam => "void" },
|
|
|
|
WM_DDE_ACK => { # FIXME: Only correct if replying to WM_DDE_INITIATE
|
|
id => 0x03E4, result => "void", wparam => "HWND", lparam => ["ATOM", "ATOM"] },
|
|
WM_DDE_INITIATE => {
|
|
id => 0x03E0, result => "void", wparam => "HWND", lparam => ["ATOM", "ATOM"] },
|
|
WM_DEADCHAR => {
|
|
id => 0x0103, result => "void", wparam => "TCHAR", lparam => ["", ""] },
|
|
WM_DEVICECHANGE => {
|
|
id => 0x0219, result => "BOOL", wparam => "UINT", lparam => "DWORD" },
|
|
WM_DELETEITEM => {
|
|
id => 0x002d, result => "void", wparam => "UINT", lparam => "const DELETEITEMSTRUCT *" },
|
|
WM_DEVMODECHANGE => {
|
|
id => 0x001b, result => "void", wparam => "void", lparam => "LPCTSTR" },
|
|
WM_DESTROY => {
|
|
id => 0x0002, result => "void", wparam => "void", lparam => "void" },
|
|
WM_DESTROYCLIPBOARD => {
|
|
id => 0x0307, result => "void", wparam => "void", lparam => "void" },
|
|
WM_DISABLEMODAL => {
|
|
id => 0x036c, result => "", wparam => "", lparam => "" },
|
|
WM_DISPLAYCHANGE => {
|
|
id => 0x007e, result => "void", wparam => "UINT", lparam => ["UINT", "UINT"] },
|
|
WM_DRAGLOOP => {
|
|
id => 0x022d, result => "", wparam => "", lparam => "" },
|
|
WM_DRAGMOVE => {
|
|
id => 0x022f, result => "", wparam => "", lparam => "" },
|
|
WM_DRAGSELECT => {
|
|
id => 0x022e, result => "", wparam => "", lparam => "" },
|
|
WM_DRAWCLIPBOARD => {
|
|
id => 0x0308, result => "void", wparam => "void", lparam => "void" },
|
|
WM_DRAWITEM => {
|
|
id => 0x002b, result => "void", wparam => "UINT", lparam => "const DRAWITEMSTRUCT *" },
|
|
WM_DROPFILES => {
|
|
id => 0x0233, result => "void", wparam => "HDROP", lparam => "void" },
|
|
WM_DROPOBJECT => {
|
|
id => 0x022a, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_ENABLE => {
|
|
id => 0x000a, result => "void", wparam => "BOOL", lparam => "void" },
|
|
WM_ENDSESSION => {
|
|
id => 0x0016, result => "void", wparam => "BOOL", lparam => "void" },
|
|
WM_ENTERIDLE => {
|
|
id => 0x0121, result => "void", wparam => "UINT", lparam => "HWND" },
|
|
WM_ENTERSIZEMOVE => {
|
|
id => 0x0231, result => "", wparam => "", lparam => "" },
|
|
WM_ENTERMENULOOP => {
|
|
id => 0x0211, result => "", wparam => "", lparam => "" },
|
|
WM_ERASEBKGND => {
|
|
id => 0x0014, result => "BOOL", wparam => "HDC", lparam => "void" },
|
|
WM_EXITHELPMODE => {
|
|
id => 0x0367, result => "", wparam => "", lparam => "" },
|
|
WM_EXITMENULOOP => {
|
|
id => 0x0212, result => "", wparam => "", lparam => "" },
|
|
WM_EXITSIZEMOVE => {
|
|
id => 0x0232, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_FILESYSCHANGE => {
|
|
id => 0x0034, result => "", wparam => "", lparam => "" },
|
|
WM_FLOATSTATUS => {
|
|
id => 0x036d, result => "", wparam => "", lparam => "" },
|
|
WM_FONTCHANGE => {
|
|
id => 0x001d, result => "void", wparam => "void", lparam => "void" },
|
|
|
|
WM_GETDLGCODE => {
|
|
id => 0x0087, result => "UINT", wparam => "WPARAM", lparam => "LPMSG" },
|
|
WM_GETFONT => {
|
|
id => 0x0031, result => "HFONT", wparam => "void", lparam => "void" },
|
|
WM_GETHOTKEY => {
|
|
id => 0x0033, result => "", wparam => "", lparam => "" },
|
|
WM_GETICON => {
|
|
id => 0x007f, result => "", wparam => "", lparam => "" },
|
|
WM_GETMINMAXINFO => {
|
|
id => 0x0024, result => "void", wparam => "void", lparam => "LPMINMAXINFO" },
|
|
WM_GETTEXT => {
|
|
id => 0x000d, result => "int", wparam => "int", lparam => "LPTSTR" },
|
|
WM_GETTEXTLENGTH => {
|
|
id => 0x000e, result => "int", wparam => "void", lparam => "void" },
|
|
|
|
WM_HELP => {
|
|
id => 0x0053, result => "void", wparam => "void", lparam => "LPHELPINFO" },
|
|
WM_HELPHITTEST => {
|
|
id => 0x0366, result => "", wparam => "", lparam => "" },
|
|
WM_HOTKEY => {
|
|
id => 0x0312, result => "", wparam => "", lparam => "" },
|
|
WM_HSCROLL => {
|
|
id => 0x0114, result => "void", wparam => ["int", "int"], lparam => "HWND" },
|
|
WM_HSCROLLCLIPBOARD => {
|
|
id => 0x030e, result => "void", wparam => "HWND", lparam => "" },
|
|
|
|
WM_ICONERASEBKGND => {
|
|
id => 0x0027, result => "BOOL", wparam => "HDC", lparam => "void" },
|
|
WM_IME_CHAR => {
|
|
id => 0x0286, result => "", wparam => "", lparam => "" },
|
|
WM_IME_COMPOSITION => {
|
|
id => 0x010f, result => "", wparam => "", lparam => "" },
|
|
WM_IME_COMPOSITIONFULL => {
|
|
id => 0x0284, result => "", wparam => "", lparam => "" },
|
|
WM_IME_CONTROL => {
|
|
id => 0x0283, result => "", wparam => "", lparam => "" },
|
|
WM_IME_ENDCOMPOSITION => {
|
|
id => 0x010e, result => "", wparam => "", lparam => "" },
|
|
WM_IME_KEYDOWN => {
|
|
id => 0x0290, result => "void", wparam => "UINT", lparam => ["int", "UINT"] },
|
|
WM_IME_KEYLAST => {
|
|
id => 0x010f, result => "", wparam => "", lparam => "" },
|
|
WM_IME_KEYUP => {
|
|
id => 0x0291, result => "void", wparam => "UINT", lparam => ["int", "UINT"] },
|
|
WM_IME_NOTIFY => {
|
|
id => 0x0282, result => "", wparam => "", lparam => "" },
|
|
WM_IME_REQUEST => {
|
|
id => 0x0288, result => "", wparam => "", lparam => "" },
|
|
WM_IME_SELECT => {
|
|
id => 0x0285, result => "", wparam => "", lparam => "" },
|
|
WM_IME_SETCONTEXT => {
|
|
id => 0x0281, result => "", wparam => "", lparam => "" },
|
|
WM_IME_STARTCOMPOSITION => {
|
|
id => 0x010d, result => "", wparam => "", lparam => "" },
|
|
WM_IDLEUPDATECMDUI => {
|
|
id => 0x0363, result => "", wparam => "", lparam => "" },
|
|
WM_INITDIALOG => {
|
|
id => 0x0110, result => "BOOL", wparam => "HWND", lparam => "LPARAM" },
|
|
WM_INITIALUPDATE => {
|
|
id => 0x0364, result => "", wparam => "", lparam => "" },
|
|
WM_INITMENU => {
|
|
id => 0x0116, result => "void", wparam => "HMENU", lparam => "void" },
|
|
WM_INITMENUPOPUP => {
|
|
id => 0x0117, result => "void", wparam => "HMENU", lparam => ["UINT", "BOOL"] },
|
|
WM_INPUTLANGCHANGE => {
|
|
id => 0x0051, result => "", wparam => "", lparam => "" },
|
|
WM_INPUTLANGCHANGEREQUEST => {
|
|
id => 0x0050, result => "", wparam => "", lparam => "" },
|
|
WM_ISACTIVEICON => {
|
|
id => 0x0035, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_KEYDOWN => {
|
|
id => 0x0100, result => "void", wparam => "UINT", lparam => ["int", "UINT"] },
|
|
WM_KEYLAST => {
|
|
id => 0x0108, result => "", wparam => "", lparam => "" },
|
|
WM_KICKIDLE => {
|
|
id => 0x036a, result => "", wparam => "", lparam => "" },
|
|
WM_KEYUP => {
|
|
id => 0x0101, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_KILLFOCUS => {
|
|
id => 0x0008, result => "void", wparam => "HWND", lparam => "void" },
|
|
|
|
WM_LBTRACKPOINT => {
|
|
id => 0x0131, result => "", wparam => "", lparam => "" },
|
|
WM_LBUTTONDBLCLK => {
|
|
id => 0x0203, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_LBUTTONDOWN => {
|
|
id => 0x0201, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_LBUTTONUP => {
|
|
id => 0x0202, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
|
|
WM_MBUTTONDBLCLK => {
|
|
id => 0x0209, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_MBUTTONDOWN => {
|
|
id => 0x0207, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_MBUTTONUP => {
|
|
id => 0x0208, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_MDIACTIVATE => {
|
|
id => 0x0222, result => "void", wparam => "HWND", lparam => "HWND" },
|
|
WM_MDICASCADE => {
|
|
id => 0x0227, result => "BOOL", wparam => "UINT", lparam => "void" },
|
|
WM_MDICREATE => {
|
|
id => 0x0220, result => "HWND", wparam => "void", lparam => "const LPMDICREATESTRUCT" },
|
|
WM_MDIDESTROY => {
|
|
id => 0x0221, result => "void", wparam => "HWND", lparam => "void" },
|
|
WM_MDIGETACTIVE => {
|
|
id => 0x0229, result => "HWND", wparam => "void", lparam => "void" },
|
|
WM_MDIICONARRANGE => {
|
|
id => 0x0228, result => "void", wparam => "void", lparam => "void" },
|
|
WM_MDIMAXIMIZE => {
|
|
id => 0x0225, result => "void", wparam => "HWND", lparam => "void" },
|
|
WM_MDINEXT => {
|
|
id => 0x0224, result => "HWND", wparam => "HWND", lparam => "BOOL" },
|
|
WM_MDIREFRESHMENU => {
|
|
id => 0x0234, result => "", wparam => "", lparam => "" },
|
|
WM_MDIRESTORE => {
|
|
id => 0x0223, result => "void", wparam => "HWND", lparam => "void" },
|
|
WM_MDISETMENU => {
|
|
id => 0x0230, result => "HMENU", wparam => "BOOL", lparam => "HMENU" },
|
|
WM_MDITILE => {
|
|
id => 0x0226, result => "BOOL", wparam => "UINT", lparam => "void" },
|
|
WM_MEASUREITEM => {
|
|
id => 0x002c, result => "void", wparam => "UINT", lparam => "MEASUREITEMSTRUCT *" },
|
|
WM_MENUSELECT => {
|
|
id => 0x011f, result => "void", wparam => ["", ""], lparam => "HMENU" },
|
|
WM_MENUCHAR => {
|
|
id => 0x0120, result => "DWORD", wparam => ["", "WORD"], lparam => "HMENU" },
|
|
WM_MOUSEACTIVATE => {
|
|
id => 0x0021, result => "int", wparam => "HWND", lparam => ["", ""] },
|
|
WM_MOUSEMOVE => {
|
|
id => 0x0200, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_MOUSEWHEEL => {
|
|
id => 0x020a, result => "void", wparam => ["DWORD", "int"], lparam => ["UINT", "UINT"] },
|
|
WM_MOVE => {
|
|
id => 0x0003, result => "void", wparam => "void", lparam => ["", ""] },
|
|
WM_MOVING => {
|
|
id => 0x0216, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_NCACTIVATE => {
|
|
id => 0x0086, result => "BOOL", wparam => "BOOL", lparam => "void" },
|
|
WM_NCLBUTTONDBLCLK => {
|
|
id => 0x00a3, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCLBUTTONDOWN => {
|
|
id => 0x00a1, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCLBUTTONUP => {
|
|
id => 0x00a2, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCMOUSEMOVE => {
|
|
id => 0x00a0, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCMBUTTONDBLCLK => {
|
|
id => 0x00a9, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCMBUTTONDOWN => {
|
|
id => 0x00a7, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCMBUTTONUP => {
|
|
id => 0x00a8, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCRBUTTONDBLCLK => {
|
|
id => 0x00a6, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCRBUTTONDOWN => {
|
|
id => 0x00a4, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCRBUTTONUP => {
|
|
id => 0x00a5, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_NCCALCSIZE => {
|
|
id => 0x0083, result => "UINT", wparam => "void", lparam => "NCCALCSIZE_PARAMS *" },
|
|
WM_NCCREATE => {
|
|
id => 0x0081, result => "BOOL", wparam => "void", lparam => "LPCREATESTRUCT" },
|
|
WM_NCDESTROY => {
|
|
id => 0x0082, result => "void", wparam => "void", lparam => "void" },
|
|
WM_NCHITTEST => {
|
|
id => 0x0084, result => "UINT", wparam => "void", lparam => ["int", "int"] },
|
|
WM_NCPAINT => {
|
|
id => 0x0085, result => "void", wparam => "HRGN", lparam => "void" },
|
|
WM_NEXTDLGCTL => {
|
|
id => 0x0028, result => "HWND", wparam => "HWND", lparam => "BOOL" },
|
|
WM_NEXTMENU => {
|
|
id => 0x0213, result => "void", wparam => "UINT", lparam => "LPMDINEXTMENU" },
|
|
WM_NOTIFY => {
|
|
id => 0x004e, result => "LRESULT", wparam => "int", lparam => "NMHDR *" },
|
|
WM_NOTIFYFORMAT => {
|
|
id => 0x0055, result => "", wparam => "", lparam => "" },
|
|
WM_NULL => {
|
|
id => 0x0000, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_OCC_INITNEW => {
|
|
id => 0x0378, result => "", wparam => "", lparam => "" },
|
|
WM_OCC_LOADFROMSTORAGE => {
|
|
id => 0x0377, result => "", wparam => "", lparam => "" },
|
|
WM_OCC_LOADFROMSTORAGE_EX => {
|
|
id => 0x037b, result => "", wparam => "", lparam => "" },
|
|
WM_OCC_LOADFROMSTREAM => {
|
|
id => 0x0376, result => "", wparam => "", lparam => "" },
|
|
WM_OCC_LOADFROMSTREAM_EX => {
|
|
id => 0x037a, result => "", wparam => "", lparam => "" },
|
|
WM_OTHERWINDOWCREATED => {
|
|
id => 0x003c, result => "", wparam => "", lparam => "" },
|
|
WM_OTHERWINDOWDESTROYED => {
|
|
id => 0x003d, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_PAINT => {
|
|
id => 0x000f, result => "void", wparam => "void", lparam => "void" },
|
|
WM_PAINTCLIPBOARD => {
|
|
id => 0x0309, result => "void", wparam => "HWND", lparam => "const LPPAINTSTRUCT" },
|
|
WM_PAINTICON => {
|
|
id => 0x0026, result => "", wparam => "", lparam => "" },
|
|
WM_PALETTEISCHANGING => {
|
|
id => 0x0310, result => "void", wparam => "HWND", lparam => "void" },
|
|
WM_PALETTECHANGED => {
|
|
id => 0x0311, result => "void", wparam => "HWND", lparam => "void" },
|
|
WM_PARENTNOTIFY => {
|
|
id => 0x0210, result => "void", wparam => ["UINT", "int"], lparam => "HWND" },
|
|
WM_PASTE => {
|
|
id => 0x0302, result => "void", wparam => "void", lparam => "void" },
|
|
WM_PENWINFIRST => {
|
|
id => 0x0380, result => "", wparam => "", lparam => "" },
|
|
WM_PENWINLAST => {
|
|
id => 0x038f, result => "", wparam => "", lparam => "" },
|
|
WM_POPMESSAGESTRING => {
|
|
id => 0x0375, result => "", wparam => "", lparam => "" },
|
|
WM_POWER => {
|
|
id => 0x0048, result => "void", wparam => "int", lparam => "void" },
|
|
WM_POWERBROADCAST => {
|
|
id => 0x0218, result => "", wparam => "", lparam => "" },
|
|
WM_PRINT => {
|
|
id => 0x0317, result => "", wparam => "", lparam => "" },
|
|
WM_PRINTCLIENT => {
|
|
id => 0x0318, result => "void", wparam => "HDC", lparam => "DWORD" },
|
|
|
|
WM_QUERY3DCONTROLS => {
|
|
id => 0x036f, result => "", wparam => "", lparam => "" },
|
|
WM_QUERYAFXWNDPROC => {
|
|
id => 0x0360, result => "", wparam => "", lparam => "" },
|
|
WM_QUERYCENTERWND => {
|
|
id => 0x036b, result => "", wparam => "", lparam => "" },
|
|
WM_QUERYDRAGICON => {
|
|
id => 0x0037, result => "HICON", wparam => "void", lparam => "void" },
|
|
WM_QUERYDROPOBJECT => {
|
|
id => 0x022b, result => "", wparam => "", lparam => "" },
|
|
WM_QUERYENDSESSION => {
|
|
id => 0x0011, result => "BOOL", wparam => "void", lparam => "void" },
|
|
WM_QUERYNEWPALETTE => {
|
|
id => 0x030f, result => "BOOL", wparam => "void", lparam => "void" },
|
|
WM_QUERYOPEN => {
|
|
id => 0x0013, result => "BOOL", wparam => "void", lparam => "void" },
|
|
WM_QUERYPARKICON => {
|
|
id => 0x0036, result => "", wparam => "", lparam => "" },
|
|
WM_QUERYSAVESTATE => {
|
|
id => 0x0038, result => "", wparam => "", lparam => "" },
|
|
WM_QUEUESYNC => {
|
|
id => 0x0023, result => "void", wparam => "void", lparam => "void" },
|
|
WM_QUEUE_SENTINEL => {
|
|
id => 0x0379, result => "", wparam => "", lparam => "" },
|
|
WM_QUIT => {
|
|
id => 0x0012, result => "void", wparam => "int", lparam => "void" },
|
|
|
|
WM_RBUTTONDBLCLK => {
|
|
id => 0x0206, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_RBUTTONDOWN => {
|
|
id => 0x0204, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_RBUTTONUP => {
|
|
id => 0x0205, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_RECALCPARENT => {
|
|
id => 0x0368, result => "", wparam => "", lparam => "" },
|
|
WM_RENDERALLFORMATS => {
|
|
id => 0x0306, result => "void", wparam => "void", lparam => "void" },
|
|
WM_RENDERFORMAT => {
|
|
id => 0x0305, result => "HANDLE", wparam => "UINT", lparam => "void" },
|
|
|
|
WM_SETCURSOR => {
|
|
id => 0x0020, result => "BOOL", wparam => "HWND", lparam => ["UINT", "UINT"] },
|
|
WM_SETFOCUS => {
|
|
id => 0x0007, result => "void", wparam => "HWND", lparam => "void" },
|
|
WM_SETFONT => {
|
|
id => 0x0030, result => "void", wparam => "HFONT", lparam => "BOOL" },
|
|
WM_SETHOTKEY => {
|
|
id => 0x0032, result => "", wparam => "", lparam => "" },
|
|
WM_SETICON => {
|
|
id => 0x0080, result => "HICON", wparam => "DWORD", lparam => "HICON" },
|
|
WM_SETMESSAGESTRING => {
|
|
id => 0x0362, result => "", wparam => "", lparam => "" },
|
|
WM_SETREDRAW => {
|
|
id => 0x000b, result => "void", wparam => "BOOL", lparam => "void" },
|
|
WM_SETTEXT => {
|
|
id => 0x000c, result => "void", wparam => "void", lparam => "LPCTSTR" },
|
|
WM_SETVISIBLE => {
|
|
id => 0x0009, result => "", wparam => "", lparam => "" },
|
|
WM_SHOWWINDOW => {
|
|
id => 0x0018, result => "void", wparam => "BOOL", lparam => "UINT" },
|
|
WM_SIZE => {
|
|
id => 0x0005, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_SIZECHILD => {
|
|
id => 0x0369, result => "", wparam => "", lparam => "" },
|
|
WM_SIZECLIPBOARD => {
|
|
id => 0x030b, result => "void", wparam => "HWND", lparam => "const LPRECT" },
|
|
WM_SIZEPARENT => {
|
|
id => 0x0361, result => "", wparam => "", lparam => "" },
|
|
WM_SIZEWAIT => {
|
|
id => 0x0004, result => "", wparam => "", lparam => "" },
|
|
WM_SIZING => {
|
|
id => 0x0214, result => "", wparam => "", lparam => "" },
|
|
WM_SOCKET_DEAD => {
|
|
id => 0x0374, result => "", wparam => "", lparam => "" },
|
|
WM_SOCKET_NOTIFY => {
|
|
id => 0x0373, result => "", wparam => "", lparam => "" },
|
|
WM_SPOOLERSTATUS => {
|
|
id => 0x002a, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_STYLECHANGED => {
|
|
id => 0x007d, result => "void", wparam => "DWORD", lparam => "LPSTYLESTRUCT" },
|
|
WM_STYLECHANGING => {
|
|
id => 0x007c, result => "void", wparam => "DWORD", lparam => "LPSTYLESTRUCT" },
|
|
WM_SYNCPAINT => {
|
|
id => 0x0088, result => "", wparam => "", lparam => "" },
|
|
WM_SYNCTASK => {
|
|
id => 0x0089, result => "", wparam => "", lparam => "" },
|
|
WM_SYSCHAR => {
|
|
id => 0x0106, result => "void", wparam => "TCHAR", lparam => ["", ""] },
|
|
WM_SYSCOLORCHANGE => {
|
|
id => 0x0015, result => "void", wparam => "void", lparam => "void" },
|
|
WM_SYSCOMMAND => {
|
|
id => 0x0112, result => "void", wparam => "UINT", lparam => "int" },
|
|
WM_SYSDEADCHAR => {
|
|
id => 0x0107, result => "void", wparam => "TCHAR", lparam => ["", ""] },
|
|
WM_SYSKEYDOWN => {
|
|
id => 0x0104, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_SYSKEYUP => {
|
|
id => 0x0105, result => "void", wparam => "UINT", lparam => ["", ""] },
|
|
WM_SYSTEMERROR => {
|
|
id => 0x0017, result => "", wparam => "", lparam => "" },
|
|
WM_SYSTIMER => {
|
|
id => 0x0118, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_TCARD => {
|
|
id => 0x0052, result => "", wparam => "", lparam => "" },
|
|
WM_TESTING => {
|
|
id => 0x003a, result => "", wparam => "", lparam => "" },
|
|
WM_TIMECHANGE => {
|
|
id => 0x001e, result => "void", wparam => "void", lparam => "void" },
|
|
WM_TIMER => {
|
|
id => 0x0113, result => "void", wparam => "UINT", lparam => "void" },
|
|
|
|
WM_UNDO => {
|
|
id => 0x0304, result => "void", wparam => "void", lparam => "void" },
|
|
WM_USER => {
|
|
id => 0x0400, result => "", wparam => "", lparam => "" },
|
|
WM_USERCHANGED => {
|
|
id => 0x0054, result => "", wparam => "", lparam => "" },
|
|
|
|
WM_VKEYTOITEM => {
|
|
id => 0x002e, result => "int", wparam => ["UINT", "int"], lparam => "HWND" },
|
|
WM_VSCROLL => {
|
|
id => 0x0115, result => "void", wparam => ["int", "int"], lparam => "HWND" },
|
|
WM_VSCROLLCLIPBOARD => {
|
|
id => 0x030a, result => "void", wparam => "HWND", lparam => ["", ""] },
|
|
|
|
WM_WINDOWPOSCHANGING => {
|
|
id => 0x0046, result => "BOOL", wparam => "void", lparam => "LPWINDOWPOS" },
|
|
WM_WINDOWPOSCHANGED => {
|
|
id => 0x0047, result => "void", wparam => "void", lparam => "const LPWINDOWPOS" },
|
|
WM_WININICHANGE => {
|
|
id => 0x001a, result => "void", wparam => "void", lparam => "LPCTSTR" }
|
|
};
|
|
|
|
########################################################################
|
|
# _get_kind
|
|
|
|
sub _get_kind($) {
|
|
local $_ = shift;
|
|
|
|
if(!$_) {
|
|
return undef;
|
|
} elsif(/^(?:HBRUSH|HDC|HFONT|HMENU|HRGN|HWND)$/ || /\*$/ ||
|
|
/^LP(?!ARAM)/)
|
|
{
|
|
return "ptr";
|
|
} else {
|
|
return "long";
|
|
}
|
|
}
|
|
|
|
########################################################################
|
|
# get_message_result_type
|
|
|
|
sub get_message_result_type($) {
|
|
my $name = shift;
|
|
return $$message{$name}{result};
|
|
}
|
|
|
|
########################################################################
|
|
# get_message_result_kind
|
|
|
|
sub get_message_result_kind(@) {
|
|
return _get_kind(get_message_result_type(@_));
|
|
}
|
|
|
|
########################################################################
|
|
# get_message_wparam_type
|
|
|
|
sub get_message_wparam_type($) {
|
|
my $name = shift;
|
|
return $$message{$name}{wparam};
|
|
}
|
|
|
|
########################################################################
|
|
# get_message_wparam_kind
|
|
|
|
sub get_message_wparam_kind(@) {
|
|
return _get_kind(get_message_wparam_type(@_));
|
|
}
|
|
|
|
########################################################################
|
|
# get_message_lparam_type
|
|
|
|
sub get_message_lparam_type($) {
|
|
my $name = shift;
|
|
return $$message{$name}{lparam};
|
|
}
|
|
|
|
########################################################################
|
|
# get_message_lparam_kind
|
|
|
|
sub get_message_lparam_kind(@) {
|
|
return _get_kind(get_message_lparam_type(@_));
|
|
}
|
|
|
|
########################################################################
|
|
# _parse_file
|
|
|
|
sub _parse_file($$$) {
|
|
my $file = shift;
|
|
my $found_preprocessor = shift;
|
|
my $found_comment = shift;
|
|
|
|
{
|
|
open(IN, "< $file") || die "Error: Can't open $file: $!\n";
|
|
local $/ = undef;
|
|
$_ = <IN>;
|
|
close(IN);
|
|
}
|
|
|
|
my @lines = split(/\n/, $_);
|
|
my $max_line = scalar(@lines);
|
|
|
|
my $parser = new c_parser($file);
|
|
|
|
$parser->set_found_preprocessor_callback($found_preprocessor);
|
|
$parser->set_found_comment_callback($found_comment);
|
|
|
|
my $found_line = sub {
|
|
my $line = shift;
|
|
local $_ = shift;
|
|
|
|
$output->progress("$file: line $line of $max_line");
|
|
};
|
|
|
|
$parser->set_found_line_callback($found_line);
|
|
|
|
my $line = 1;
|
|
my $column = 0;
|
|
|
|
my $old_prefix = $output->prefix;
|
|
$output->progress("$file");
|
|
$output->prefix("$file: ");
|
|
|
|
if(!$parser->parse_c_file(\$_, \$line, \$column)) {
|
|
$output->write("can't parse file\n");
|
|
}
|
|
|
|
$output->prefix($old_prefix);
|
|
}
|
|
|
|
########################################################################
|
|
# _get_tuple_arguments
|
|
|
|
sub _get_tuple_arguments($) {
|
|
local $_ = shift;
|
|
|
|
my $parser = new c_parser;
|
|
|
|
my $line = 1;
|
|
my $column = 0;
|
|
|
|
my @arguments;
|
|
my @argument_lines;
|
|
my @argument_columns;
|
|
if(!$parser->parse_c_tuple(\$_, \$line, \$column, \@arguments, \@argument_lines, \@argument_columns)) {
|
|
return undef;
|
|
}
|
|
|
|
return @arguments;
|
|
}
|
|
|
|
########################################################################
|
|
# _parse_windowsx_h
|
|
|
|
|
|
sub _parse_windowsx_h($$$) {
|
|
my $last_comment;
|
|
|
|
my $found_preprocessor = sub {
|
|
my $begin_line = shift;
|
|
my $begin_column = shift;
|
|
local $_ = shift;
|
|
|
|
if(!s/^\#\s*define\s*// || !/^FORWARD_WM_/) {
|
|
return 1;
|
|
}
|
|
|
|
my $name;
|
|
if(s/^FORWARD_(\w+)\([^\)]*\)\s*(.*?)\s*$/$2/s) {
|
|
$name = $1;
|
|
}
|
|
|
|
if($name eq "WM_SYSTEMERROR") {
|
|
return 1;
|
|
}
|
|
|
|
my $result;
|
|
if(s/^\(\s*(\w+)\s*\)(?:\(\s*\w+\s*\))*\(\s*\w+\s*\)//) {
|
|
$result = $1;
|
|
} else {
|
|
die "$name: '$_'";
|
|
}
|
|
|
|
(undef, $_, my $wparam, my $lparam) = _get_tuple_arguments($_);
|
|
|
|
my @names = ();
|
|
if(/^$name$/) {
|
|
@names = $name;
|
|
} elsif(/^\(\w+\)\s*\?\s*(\w+)\s*:\s*(\w+)$/) {
|
|
@names = ($1, $2);
|
|
} else {
|
|
die "$name: '$_'";
|
|
}
|
|
|
|
local $_ = $last_comment;
|
|
s%^/\*\s*(.*?)\s*\*/$%$1%;
|
|
|
|
my %arguments;
|
|
if(s/^(\w+)\s+\w+\s*\(\s*(.*?)\s*\)$/$2/) {
|
|
my $result2 = $1;
|
|
if($result2 eq "INT") { $result2 = "int"; }
|
|
if($result ne $result2) {
|
|
$output->write("message $name: result type mismatch '$result' != '$result2'\n");
|
|
}
|
|
foreach (split(/\s*,\s*/)) {
|
|
if(/^((?:const\s+|volatile\s+)?\w+(?:\s*\*\s*|\s+)?)(\w+)$/) {
|
|
my $type = $1;
|
|
my $name = $2;
|
|
|
|
$type =~ s/^\s*(.*?)\s*$/$1/;
|
|
|
|
$arguments{$name} = $type;
|
|
} else {
|
|
die "$name: '$_'";
|
|
}
|
|
}
|
|
# $output->write("$1: $_\n");
|
|
} else {
|
|
die "$name: '$_'";
|
|
}
|
|
|
|
my $find_inner_cast = sub {
|
|
local $_ = shift;
|
|
if(/^(?:\(\s*((?:const\s+|volatile\s+)?\w+(?:\s*\*)?)\s*\))*\(.*?\)$/) {
|
|
if(defined($1)) {
|
|
return $1;
|
|
} else {
|
|
return "";
|
|
}
|
|
}
|
|
|
|
};
|
|
|
|
my @entries = (
|
|
[ \$wparam, "W", "w" ],
|
|
[ \$lparam, "L", "l" ]
|
|
);
|
|
foreach my $entry (@entries) {
|
|
(my $refparam, my $upper, my $lower) = @$entry;
|
|
|
|
local $_ = $$refparam;
|
|
if(s/^\(\s*$upper(?:)PARAM\s*\)\s*(?:\(\s*((?:const\s+|volatile\s+)?\w+(?:\s*\*)?)\s*\))*\(\s*(.*?)\s*\)$/$2/) {
|
|
if(defined($1)) {
|
|
$$refparam = $1;
|
|
} else {
|
|
$$refparam = "";
|
|
}
|
|
|
|
if(/^\w+$/) {
|
|
if(exists($arguments{$_})) {
|
|
$$refparam = $arguments{$_};
|
|
}
|
|
} elsif(/^\(\s*(\w+)\s*\)\s*\?\s*\(\s*(\w+)\s*\)\s*:\s*(?:\(\s*(\w+)\s*\)|0)$/) {
|
|
foreach ($1, $2, $3) {
|
|
if(exists($arguments{$_})) {
|
|
$$refparam = $arguments{$_};
|
|
last;
|
|
}
|
|
}
|
|
} elsif(/^\(\((?:const\s+|volatile\s+)?\w+\s*(?:\*\s*)?\)\s*(?:\(\s*\w+\s*\)|\w+)\s*\)\s*\->\s*\w+$/) {
|
|
$$refparam = "UINT";
|
|
} else {
|
|
die "$name: '$_'";
|
|
}
|
|
} elsif(s/^(?:\(\s*$upper(?:)PARAM\s*\)\s*)?MAKE$upper(?:)PARAM\s*//) {
|
|
(my $low, my $high) = _get_tuple_arguments($_);
|
|
|
|
$low = &$find_inner_cast($low);
|
|
$high = &$find_inner_cast($high);
|
|
|
|
$$refparam = "($low,$high)";
|
|
} elsif(s/^\(.*?$lower(?:)Param.*?\)$//) {
|
|
$$refparam = $upper . "PARAM";
|
|
} elsif(s/^\(\s*(.*?)\s*\)$//) {
|
|
$$refparam = "$1";
|
|
} elsif(s/^0L$//) {
|
|
$$refparam = "void";
|
|
} else {
|
|
die "$name: '$_'";
|
|
}
|
|
}
|
|
|
|
# $output->write("$result: '@names', '$wparam', '$lparam'\n");
|
|
|
|
foreach my $name (@names) {
|
|
my $result2 = $$message{$name}{result};
|
|
my $wparam2 = $$message{$name}{wparam};
|
|
my $lparam2 = $$message{$name}{lparam};
|
|
|
|
if(ref($wparam2)) {
|
|
$wparam2 = "(" . join(",", @$wparam2) . ")";
|
|
}
|
|
|
|
if(ref($lparam2)) {
|
|
$lparam2 = "(" . join(",", @$lparam2) . ")";
|
|
}
|
|
|
|
if($result ne $result2) {
|
|
$output->write("message $name: wrong result type '$result2' should be '$result'\n");
|
|
}
|
|
|
|
if($wparam ne $wparam2) {
|
|
# if($wparam ne "WPARAM" && $wparam ne "(,)") {
|
|
$output->write("message $name: wrong wparam type '$wparam2' should be '$wparam'\n");
|
|
# }
|
|
}
|
|
|
|
if($lparam ne $lparam2) {
|
|
# if($lparam ne "LPARAM" && $lparam ne "(,)") {
|
|
$output->write("message $name: wrong lparam type '$lparam2' should be '$lparam'\n");
|
|
# }
|
|
}
|
|
}
|
|
|
|
return 1;
|
|
};
|
|
|
|
my $found_comment = sub {
|
|
my $begin_line = shift;
|
|
my $begin_column = shift;
|
|
my $comment = shift;
|
|
|
|
$last_comment = $comment;
|
|
|
|
return 1;
|
|
};
|
|
|
|
_parse_file("$wine_dir/include/windowsx.h", $found_preprocessor, $found_comment);
|
|
}
|
|
|
|
|
|
########################################################################
|
|
# _parse_winuser_h
|
|
|
|
sub _parse_winuser_h($$$) {
|
|
my %not_found = ();
|
|
|
|
my $found_preprocessor = sub {
|
|
my $begin_line = shift;
|
|
my $begin_column = shift;
|
|
local $_ = shift;
|
|
|
|
if(/^\#\s*define\s+(WM_\w+)\s+(0x[0-9a-fA-F]+)\s*$/) {
|
|
my $name = $1;
|
|
my $id = lc($2);
|
|
|
|
if(exists($$message{$name})) {
|
|
my $id2 = sprintf("0x%04x", $$message{$name}{id});
|
|
if($id ne $id2) {
|
|
$output->write("message $name: wrong value ($id2) should be $id\n");
|
|
}
|
|
} else {
|
|
$output->write("message $name: exists but is not supported\n");
|
|
$not_found{$name} = $id;
|
|
}
|
|
}
|
|
|
|
return 1;
|
|
};
|
|
|
|
_parse_file("$wine_dir/include/winuser.h", $found_preprocessor);
|
|
|
|
foreach my $name (sort(keys(%not_found))) {
|
|
my $id = $not_found{$name};
|
|
|
|
print " $name => {\n";
|
|
print "\tid => $id, result => \"\", wparam => \"\", lparam => \"\" },\n";
|
|
}
|
|
}
|
|
|
|
# _parse_windowsx_h;
|
|
# _parse_winuser_h;
|
|
|
|
1;
|