blob: 1b3c841f5afbeebf2cd69197a6759f53a78fd81e [file] [log] [blame]
Alexandre Julliard0799c1a2002-03-09 23:29:33 +00001#
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
Jonathan Ernst360a3f92006-05-18 14:49:52 +020016# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
Alexandre Julliard0799c1a2002-03-09 23:29:33 +000017#
18
Patrik Stridvall4b33b132001-08-09 21:35:38 +000019package winapi_fixup_statements;
20
21use strict;
22
23use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
24require Exporter;
25
26@ISA = qw(Exporter);
27@EXPORT = qw();
Francois Gougeta8b09d12004-10-26 00:12:21 +000028@EXPORT_OK = qw(fixup_statements);
Patrik Stridvall4b33b132001-08-09 21:35:38 +000029
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000030use config qw($wine_dir);
Patrik Stridvall4b33b132001-08-09 21:35:38 +000031use options qw($options);
32use output qw($output);
33
34use c_parser;
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000035use winapi_module_user qw(
Francois Gougeta8b09d12004-10-26 00:12:21 +000036 get_message_result_kind
37 get_message_wparam_kind
38 get_message_lparam_kind
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000039);
40
41########################################################################
42# fixup_function_call
Patrik Stridvall4b33b132001-08-09 21:35:38 +000043
Francois Gougeta8b09d12004-10-26 00:12:21 +000044sub fixup_function_call($$) {
Patrik Stridvall4b33b132001-08-09 21:35:38 +000045 my $name = shift;
46 my @arguments = @{(shift)};;
47
48 return "$name(" . join(", ", @arguments) . ")";
49}
50
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000051########################################################################
52# _parse_makelong
53
Francois Gougeta8b09d12004-10-26 00:12:21 +000054sub _parse_makelong($) {
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000055 local $_ = shift;
Patrik Stridvall4b33b132001-08-09 21:35:38 +000056
57 my $low;
58 my $high;
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000059
60 my $name;
61 my @arguments;
62 my @argument_lines;
63 my @argument_columns;
64
65 my $parser = new c_parser;
66
67 my $line = 1;
68 my $column = 0;
69 if($parser->parse_c_function_call(\$_, \$line, \$column, \$name, \@arguments, \@argument_lines, \@argument_columns) &&
Alexandre Julliard7cae5582002-06-01 02:55:48 +000070 $name =~ /^MAKE(?:LONG|LPARAM|LRESULT|WPARAM)$/)
Patrik Stridvall4b33b132001-08-09 21:35:38 +000071 {
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000072 $low = $arguments[0];
73 $high = $arguments[1];
74 } elsif(/^(?:\(\w+\)\s*)?0L?$/) {
Patrik Stridvall4b33b132001-08-09 21:35:38 +000075 $low = "0";
76 $high = "0";
77 } else {
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000078 $low = "($_) & 0xffff";
79 $high = "($_) << 16";
Patrik Stridvall4b33b132001-08-09 21:35:38 +000080 }
81
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000082 $low =~ s/^\s*(.*?)\s*$/$1/;
83 $high =~ s/^\s*(.*?)\s*$/$1/;
84
Patrik Stridvall4b33b132001-08-09 21:35:38 +000085 return ($low, $high);
86}
87
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000088########################################################################
89# fixup_function_call_2_windowsx
90
Francois Gougeta8b09d12004-10-26 00:12:21 +000091sub fixup_user_message_2_windowsx($$) {
Patrik Stridvall4b33b132001-08-09 21:35:38 +000092 my $name = shift;
93 (my $hwnd, my $msg, my $wparam, my $lparam) = @{(shift)};
94
Patrik Stridvallaeb023f2001-08-22 18:09:15 +000095 if($msg !~ /^WM_/) {
96 return undef;
97 } elsif($msg =~ /^(?:WM_BEGINDRAG|WM_ENTERMENULOOP|WM_EXITMENULOOP|WM_HELP|
Alexandre Julliard7cae5582002-06-01 02:55:48 +000098 WM_ISACTIVEICON|WM_LBTRACKPOINT|WM_NEXTMENU)$/x)
Patrik Stridvall4b33b132001-08-09 21:35:38 +000099 {
100 return undef;
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000101 } elsif($msg =~ /^WM_(?:GET|SET)TEXT$/) {
102 return undef;
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000103 }
104
105 my $suffix;
106 $name =~ /([AW])?$/;
107 if(defined($1)) {
108 $suffix = $1;
109 } else {
110 $suffix = "";
111 }
112
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000113 $wparam =~ s/^\(WPARAM\)\s*//;
114 $lparam =~ s/^\(LPARAM\)\s*//;
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000115
116 my @arguments;
117 if(0) {
118 # Nothing
119 } elsif($msg =~ /^WM_COMMAND$/) {
120 (my $id, my $code_notify) = _parse_makelong($wparam);
121 my $hwndctl = $lparam;
122 @arguments = ($id, $hwndctl, $code_notify);
123 } elsif($msg =~ /^WM_(?:COPY|CUT|PASTE)$/) {
124 @arguments = ();
125 } elsif($msg =~ /^WM_(?:CHARTO|VKEYTO)ITEM$/) {
126 (my $key, my $caret) = _parse_makelong($wparam);
127 my $hwndctl = $lparam;
128 @arguments = ($key, $hwndctl, $caret);
129 } elsif($msg =~ /^WM_(?:COMPARE|DELETE|DRAW|MEASURE)ITEM$/) {
130 @arguments = ($lparam);
131 } elsif($msg =~ s/^WM_GETTEXT$/$&$suffix/) {
132 @arguments = ($wparam, $lparam);
133 } elsif($msg =~ /^WM_INITMENU$/) {
134 my $hmenu = $wparam;
135 @arguments = ($hmenu);
136 } elsif($msg =~ /^WM_INITMENUPOPUP$/) {
137 my $hmenu = $wparam;
138 (my $item, my $system_menu) = _parse_makelong($lparam);
139 @arguments = ($hmenu, $item, $system_menu);
140 } elsif($msg =~ /^WM_MENUCHAR$/) {
141 (my $ch, my $flags) = _parse_makelong($wparam);
142 my $hmenu = $lparam;
143 @arguments = ($ch, $flags, $hmenu);
144 } elsif($msg =~ /^WM_MENUSELECT$/) {
145 (my $item, my $flags) = _parse_makelong($wparam);
146 my $hmenu = $lparam;
147 my $hmenu_popup = "NULL"; # FIXME: Is this really correct?
148 @arguments = ($hmenu, $item, $hmenu_popup, $flags);
149 } elsif($msg =~ s/^WM_(NC)?LBUTTONDBLCLK$/WM_$1LBUTTONDOWN/) {
150 my $double_click = "TRUE";
151 my $key_flags = $wparam;
152 (my $x, my $y) = _parse_makelong($lparam);
153 @arguments = ($double_click, $x, $y, $key_flags);
154 } elsif($msg =~ /^WM_(NC)?LBUTTONDOWN$/) {
155 my $double_click = "FALSE";
156 my $key_flags = $wparam;
157 (my $x, my $y) = _parse_makelong($lparam);
158 @arguments = ($double_click, $x, $y, $key_flags);
159 } elsif($msg =~ /^WM_LBUTTONUP$/) {
160 my $key_flags = $wparam;
161 (my $x, my $y) = _parse_makelong($lparam);
162 @arguments = ($x, $y, $key_flags);
163 } elsif($msg =~ /^WM_SETCURSOR$/) {
164 my $hwnd_cursor = $wparam;
165 (my $code_hit_test, my $msg2) = _parse_makelong($lparam);
166 @arguments = ($hwnd_cursor, $code_hit_test, $msg2);
167 } elsif($msg =~ s/^WM_SETTEXT$/$&$suffix/) {
168 my $text = $lparam;
169 @arguments = ($text);
170 } elsif($msg =~ /^WM_(?:SYS)?KEYDOWN$/) {
171 my $vk = $wparam;
172 (my $repeat, my $flags) = _parse_makelong($lparam);
173 @arguments = ($vk, $repeat, $flags);
174 } else {
175 @arguments = ($wparam, $lparam);
176 }
177 unshift @arguments, $hwnd;
178
179 return "FORWARD_" . $msg . "(" . join(", ", @arguments) . ", $name)";
180}
181
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000182########################################################################
Patrik Stridvalld171a552001-09-10 23:16:05 +0000183# _get_messages
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000184
Francois Gougeta8b09d12004-10-26 00:12:21 +0000185sub _get_messages($) {
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000186 local $_ = shift;
187
Patrik Stridvalld171a552001-09-10 23:16:05 +0000188 if(/^(?:BM|CB|EM|LB|STM|WM)_\w+(.*?)$/) {
189 if(!$1) {
190 return ($_);
191 } else {
192 return ();
193 }
194 } elsif(/^(.*?)\s*\?\s*((?:BM|CB|EM|LB|STM|WM)_\w+)\s*:\s*((?:BM|CB|EM|LB|STM|WM)_\w+)$/) {
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000195 return ($2, $3);
196 } elsif(/^\w+$/) {
197 return ();
Patrik Stridvalld171a552001-09-10 23:16:05 +0000198 } elsif(/^RegisterWindowMessage[AW]\s*\(.*?\)$/) {
199 return ();
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000200 } else {
Patrik Stridvalld171a552001-09-10 23:16:05 +0000201 $output->write("warning: _get_messages: '$_'\n");
202 return ();
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000203 }
204}
205
206########################################################################
207# _fixup_user_message
208
Francois Gougeta8b09d12004-10-26 00:12:21 +0000209sub _fixup_user_message($$) {
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000210 my $name = shift;
211 (my $hwnd, my $msg, my $wparam, my $lparam) = @{(shift)};
212
213 my $modified = 0;
214
215 my $wkind;
216 my $lkind;
217 foreach my $msg (_get_messages($msg)) {
Francois Gougeta8b09d12004-10-26 00:12:21 +0000218 my $new_wkind = get_message_wparam_kind($msg);
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000219 if(defined($wkind) && $new_wkind ne $wkind) {
220 $output->write("messsages used together do not have the same type\n");
221 } else {
222 $wkind = $new_wkind;
223 }
224
Francois Gougeta8b09d12004-10-26 00:12:21 +0000225 my $new_lkind = get_message_lparam_kind($msg);
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000226 if(defined($lkind) && $new_lkind ne $lkind) {
227 $output->write("messsages used together do not have the same type\n");
228 } else {
229 $lkind = $new_lkind;
230 }
231 }
232
233 my @entries = (
234 [ \$wparam, $wkind, "W", "w" ],
235 [ \$lparam, $lkind, "L", "l" ]
236 );
237 foreach my $entry (@entries) {
238 (my $refparam, my $kind, my $upper, my $lower) = @$entry;
239
240 if(!defined($kind)) {
241 if($msg =~ /^WM_/) {
Patrik Stridvalld171a552001-09-10 23:16:05 +0000242 $output->write("messsage $msg not properly defined\n");
243 $modified = 0;
244 last;
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000245 }
246 } elsif($kind eq "ptr") {
247 if($$refparam =~ /^(\(${upper}PARAM\))?\s*($lower[pP]aram)$/) {
248 if(defined($1)) {
249 $$refparam = $2;
250 $modified = 1;
251 }
252 } elsif($$refparam =~ /^(\(${upper}PARAM\))?\s*0$/) {
253 $$refparam = "(${upper}PARAM) NULL";
254 $modified = 1;
255 } elsif($$refparam !~ /^\(${upper}PARAM\)\s*/) {
256 $$refparam = "(${upper}PARAM) $$refparam";
257 $modified = 1;
258 }
259 } elsif($kind eq "long") {
260 if($$refparam =~ s/^\(${upper}PARAM\)\s*//) {
261 $modified = 1;
262 }
263 }
264 }
265
266 if($modified) {
267 my @arguments = ($hwnd, $msg, $wparam, $lparam);
268 return "$name(" . join(", ", @arguments) . ")";
269 } else {
270 return undef;
271 }
272}
273
274########################################################################
275# fixup_statements
276
Francois Gougeta8b09d12004-10-26 00:12:21 +0000277sub fixup_statements($$) {
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000278 my $function = shift;
279 my $editor = shift;
280
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000281 my $file = $function->file;
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000282 my $linkage = $function->linkage;
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000283 my $name = $function->name;
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000284 my $statements_line = $function->statements_line;
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000285 my $statements_column = $function->statements_column;
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000286 my $statements = $function->statements;
Alexandre Julliard7cae5582002-06-01 02:55:48 +0000287
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000288 if(!defined($statements)) {
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000289 return;
290 }
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000291
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000292 my $parser = new c_parser($file);
Alexandre Julliard7cae5582002-06-01 02:55:48 +0000293
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000294 my $found_function_call = sub {
295 my $begin_line = shift;
296 my $begin_column = shift;
297 my $end_line = shift;
298 my $end_column = shift;
299 my $name = shift;
300 my $arguments = shift;
Alexandre Julliard7cae5582002-06-01 02:55:48 +0000301
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000302 foreach my $argument (@$arguments) {
303 $argument =~ s/^\s*(.*?)\s*$/$1/;
304 }
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000305
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000306 my $fixup_function_call;
307 if($name =~ /^(?:DefWindowProc|SendMessage)[AW]$/)
308 {
309 if($options->statements_windowsx) {
310 $fixup_function_call = \&fixup_user_message_2_windowsx;
311 } else {
312 $fixup_function_call = \&_fixup_user_message;
313 }
Alexandre Julliard7cae5582002-06-01 02:55:48 +0000314 }
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000315
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000316 if(defined($fixup_function_call)) {
317 my $replace = &$fixup_function_call($name, $arguments);
318
319 if(defined($replace)) {
320 $editor->replace($begin_line, $begin_column, $end_line, $end_column, $replace);
321 }
Patrik Stridvalld171a552001-09-10 23:16:05 +0000322 } elsif($options->debug) {
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000323 $output->write("$begin_line.$begin_column-$end_line.$end_column: " .
324 "$name(" . join(", ", @$arguments) . ")\n");
325 }
326
327 return 0;
328 };
Alexandre Julliard7cae5582002-06-01 02:55:48 +0000329
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000330 $parser->set_found_function_call_callback($found_function_call);
Alexandre Julliard7cae5582002-06-01 02:55:48 +0000331
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000332 my $line = $statements_line;
Alexandre Julliard7cae5582002-06-01 02:55:48 +0000333 my $column = 0;
Patrik Stridvallaeb023f2001-08-22 18:09:15 +0000334 if(!$parser->parse_c_statements(\$statements, \$line, \$column)) {
335 $output->write("error: can't parse statements\n");
Patrik Stridvall4b33b132001-08-09 21:35:38 +0000336 }
337}
338
3391;