git.oblomov.eu Git - wine/blob - tools/winapi/winapi_fixup_statements.pm

   1 package winapi_fixup_statements;
   2
   3 use strict;
   4
   5 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
   6 require Exporter;
   7
   8 @ISA = qw(Exporter);
   9 @EXPORT = qw();
  10 @EXPORT_OK = qw(&fixup_statements);
  11
  12 use options qw($options);
  13 use output qw($output);
  14
  15 use c_parser;
  16
  17 sub fixup_function_call {
  18     my $name = shift;
  19     my @arguments = @{(shift)};;
  20
  21     return "$name(" . join(", ", @arguments) . ")";
  22 }
  23
  24 sub _parse_makelong {
  25     my $value = shift;
  26
  27     my $low;
  28     my $high;
  29     if($value =~ /^
  30        (?:\(\w+\)\s*)?
  31        MAKE(?:LONG|LPARAM|LRESULT|WPARAM)\s*
  32        \(\s*(.*?)\s*,\s*(.*?)\s*\)$/sx)
  33     {
  34         $low = $1;
  35         $high = $2;
  36     } elsif($value =~ /^(?:\(\w+\)\s*)?0L?$/) {
  37         $low = "0";
  38         $high = "0";
  39     } else {
  40         $low = "($value) & 0xffff";
  41         $high = "($value) << 16";
  42     }
  43
  44     return ($low, $high);
  45 }
  46
  47 sub fixup_function_call_2_forward_wm_call {
  48     my $name = shift;
  49     (my $hwnd, my $msg, my $wparam, my $lparam) = @{(shift)};
  50
  51     if($msg =~ /^(?:WM_BEGINDRAG|WM_ENTERMENULOOP|WM_EXITMENULOOP|WM_HELP|
  52                   WM_ISACTIVEICON|WM_LBTRACKPOINT|WM_NEXTMENU)$/x)
  53     {
  54         return undef;
  55     }
  56
  57     my $suffix;
  58     $name =~ /([AW])?$/;
  59     if(defined($1)) {
  60         $suffix = $1;
  61     } else {
  62         $suffix = "";
  63     }
  64
  65     $wparam =~ s/^\(WPARAM\)//;
  66     $lparam =~ s/^\(LPARAM\)//;
  67
  68     my @arguments;
  69     if(0) {
  70         # Nothing
  71     } elsif($msg =~ /^WM_COMMAND$/) {
  72         (my $id, my $code_notify) = _parse_makelong($wparam);
  73         my $hwndctl = $lparam;
  74         @arguments = ($id, $hwndctl, $code_notify);
  75     } elsif($msg =~ /^WM_(?:COPY|CUT|PASTE)$/) {
  76         @arguments = ();
  77     } elsif($msg =~ /^WM_(?:CHARTO|VKEYTO)ITEM$/) {
  78         (my $key, my $caret) = _parse_makelong($wparam);
  79         my $hwndctl = $lparam;
  80         @arguments = ($key, $hwndctl, $caret);
  81     } elsif($msg =~ /^WM_(?:COMPARE|DELETE|DRAW|MEASURE)ITEM$/) {
  82         @arguments = ($lparam);
  83     } elsif($msg =~ s/^WM_GETTEXT$/$&$suffix/) {
  84         @arguments = ($wparam, $lparam);
  85     } elsif($msg =~ /^WM_INITMENU$/) {
  86         my $hmenu = $wparam;
  87         @arguments =  ($hmenu);
  88     } elsif($msg =~ /^WM_INITMENUPOPUP$/) {
  89         my $hmenu = $wparam;
  90         (my $item, my $system_menu) = _parse_makelong($lparam);
  91         @arguments =  ($hmenu, $item, $system_menu);
  92     } elsif($msg =~ /^WM_MENUCHAR$/) {
  93         (my $ch, my $flags) = _parse_makelong($wparam);
  94         my $hmenu = $lparam;
  95         @arguments = ($ch, $flags, $hmenu);
  96     } elsif($msg =~ /^WM_MENUSELECT$/) {
  97         (my $item, my $flags) = _parse_makelong($wparam);
  98         my $hmenu = $lparam;
  99         my $hmenu_popup = "NULL"; # FIXME: Is this really correct?
 100         @arguments = ($hmenu, $item, $hmenu_popup, $flags);
 101     } elsif($msg =~ s/^WM_(NC)?LBUTTONDBLCLK$/WM_$1LBUTTONDOWN/) {
 102         my $double_click = "TRUE";
 103         my $key_flags = $wparam;
 104         (my $x, my $y) = _parse_makelong($lparam);
 105         @arguments = ($double_click, $x, $y, $key_flags);
 106     } elsif($msg =~ /^WM_(NC)?LBUTTONDOWN$/) {
 107         my $double_click = "FALSE";
 108         my $key_flags = $wparam;
 109         (my $x, my $y) = _parse_makelong($lparam);
 110         @arguments = ($double_click, $x, $y, $key_flags);
 111     } elsif($msg =~ /^WM_LBUTTONUP$/) {
 112         my $key_flags = $wparam;
 113         (my $x, my $y) = _parse_makelong($lparam);
 114         @arguments = ($x, $y, $key_flags);
 115     } elsif($msg =~ /^WM_SETCURSOR$/) {
 116         my $hwnd_cursor = $wparam;
 117         (my $code_hit_test, my $msg2) = _parse_makelong($lparam);
 118         @arguments = ($hwnd_cursor, $code_hit_test, $msg2);
 119     } elsif($msg =~ s/^WM_SETTEXT$/$&$suffix/) {
 120         my $text = $lparam;
 121         @arguments = ($text);
 122     } elsif($msg =~ /^WM_(?:SYS)?KEYDOWN$/) {
 123         my $vk = $wparam;
 124         (my $repeat, my $flags) = _parse_makelong($lparam);
 125         @arguments = ($vk, $repeat, $flags);
 126     } else {
 127         @arguments = ($wparam, $lparam);
 128     }
 129     unshift @arguments, $hwnd;
 130
 131     return "FORWARD_" . $msg . "(" . join(", ", @arguments) . ", $name)";
 132 }
 133
 134 sub fixup_statements {
 135     my $function = shift;
 136     my $editor = shift;
 137
 138     my $linkage = $function->linkage;
 139     my $internal_name = $function->internal_name;
 140     my $statements_line = $function->statements_line;
 141     my $statements = $function->statements;
 142
 143     if(($linkage eq "extern" && !defined($statements)) ||
 144        ($linkage eq "" && !defined($statements)))
 145     {
 146         return;
 147     }
 148
 149     if($options->statements_windowsx && defined($statements)) {
 150         my $found_function_call = sub {
 151             my $begin_line = shift;
 152             my $begin_column = shift;
 153             my $end_line = shift;
 154             my $end_column = shift;
 155             my $name = shift;
 156             my $arguments = shift;
 157
 158             foreach my $argument (@$arguments) {
 159                 $argument =~ s/^\s*(.*?)\s*$/$1/;
 160             }
 161
 162             if($options->statements_windowsx &&
 163                $name =~ /^(?:DefWindowProc|SendMessage)[AW]$/ &&
 164                $$arguments[1] =~ /^WM_\w+$/)
 165             {
 166                 fixup_replace(\&fixup_function_call_2_forward_wm_call, $editor,
 167                               $begin_line, $begin_column, $end_line, $end_column,
 168                               $name, $arguments);
 169             } elsif(0) {
 170                 $output->write("$begin_line.$begin_column-$end_line.$end_column: " .
 171                                "$name(" . join(", ", @$arguments) . ")\n");
 172             }
 173         };
 174         my $line = $statements_line;
 175         my $column = 1;
 176
 177         if(!&c_parser::parse_c_statements(\$statements, \$line, \$column, $found_function_call)) {
 178             $output->write("error: can't parse statements\n");
 179         }
 180     }
 181 }
 182
 183 sub fixup_replace {
 184     my $function = shift;
 185     my $editor = shift;
 186     my $begin_line = shift;
 187     my $begin_column = shift;
 188     my $end_line = shift;
 189     my $end_column = shift;
 190
 191     my $replace = &$function(@_);
 192
 193     if(defined($replace)) {
 194         $editor->replace($begin_line, $begin_column, $end_line, $end_column, $replace);
 195     }
 196 }
 197
 198 1;