Update win32.api to match the current sources.
[wine] / tools / winapi / winapi_c_parser.pm
1 #
2 # Copyright 1999, 2000, 2001 Patrik Stridvall
3 #
4 # This library is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU Lesser General Public
6 # License as published by the Free Software Foundation; either
7 # version 2.1 of the License, or (at your option) any later version.
8 #
9 # This library is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 # Lesser General Public License for more details.
13 #
14 # You should have received a copy of the GNU Lesser General Public
15 # License along with this library; if not, write to the Free Software
16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
17 #
18
19 package winapi_c_parser;
20
21 use strict;
22
23 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
24 require Exporter;
25
26 @ISA = qw(Exporter);
27 @EXPORT = qw();
28 @EXPORT_OK = qw();
29
30 use options qw($options);
31 use output qw($output);
32
33 use c_function;
34 use c_type;
35 use function;
36 use winapi_function;
37 use winapi_parser;
38
39 ########################################################################
40 # new
41 #
42 sub new($$) {
43     my $proto = shift;
44     my $class = ref($proto) || $proto;
45     my $self  = {};
46     bless ($self, $class);
47
48     my $file = \${$self->{FILE}};
49     my $create_function = \${$self->{CREATE_FUNCTION}};
50     my $create_type = \${$self->{CREATE_TYPE}};
51     my $found_comment = \${$self->{FOUND_COMMENT}};
52     my $found_declaration = \${$self->{FOUND_DECLARATION}};
53     my $found_function = \${$self->{FOUND_FUNCTION}};
54     my $found_function_call = \${$self->{FOUND_FUNCTION_CALL}};
55     my $found_line = \${$self->{FOUND_LINE}};
56     my $found_preprocessor = \${$self->{FOUND_PREPROCESSOR}};
57     my $found_statement = \${$self->{FOUND_STATEMENT}};
58     my $found_type = \${$self->{FOUND_TYPE}};
59     my $found_variable = \${$self->{FOUND_VARIABLE}};
60
61     $$file = shift;
62
63     $$create_function = sub { return new c_function; };
64     $$create_type = sub { return new c_type; };
65     $$found_comment = sub { return 1; };
66     $$found_declaration = sub { return 1; };
67     $$found_function = sub { return 1; };
68     $$found_function_call = sub { return 1; };
69     $$found_line = sub { return 1; };
70     $$found_preprocessor = sub { return 1; };
71     $$found_statement = sub { return 1; };
72     $$found_type = sub { return 1; };
73     $$found_variable = sub { return 1; };
74
75     return $self;
76 }
77
78 ########################################################################
79 # set_found_comment_callback
80 #
81 sub set_found_comment_callback($$) {
82     my $self = shift;
83
84     my $found_comment = \${$self->{FOUND_COMMENT}};
85
86     $$found_comment = shift;
87 }
88
89 ########################################################################
90 # set_found_declaration_callback
91 #
92 sub set_found_declaration_callback($$) {
93     my $self = shift;
94
95     my $found_declaration = \${$self->{FOUND_DECLARATION}};
96
97     $$found_declaration = shift;
98 }
99
100 ########################################################################
101 # set_found_function_callback
102 #
103 sub set_found_function_callback($$) {
104     my $self = shift;
105
106     my $found_function = \${$self->{FOUND_FUNCTION}};
107
108     $$found_function = shift;
109 }
110
111 ########################################################################
112 # set_found_function_call_callback
113 #
114 sub set_found_function_call_callback($$) {
115     my $self = shift;
116
117     my $found_function_call = \${$self->{FOUND_FUNCTION_CALL}};
118
119     $$found_function_call = shift;
120 }
121
122 ########################################################################
123 # set_found_line_callback
124 #
125 sub set_found_line_callback($$) {
126     my $self = shift;
127
128     my $found_line = \${$self->{FOUND_LINE}};
129
130     $$found_line = shift;
131 }
132
133 ########################################################################
134 # set_found_preprocessor_callback
135 #
136 sub set_found_preprocessor_callback($$) {
137     my $self = shift;
138
139     my $found_preprocessor = \${$self->{FOUND_PREPROCESSOR}};
140
141     $$found_preprocessor = shift;
142 }
143
144 ########################################################################
145 # set_found_statement_callback
146 #
147 sub set_found_statement_callback($$) {
148     my $self = shift;
149
150     my $found_statement = \${$self->{FOUND_STATEMENT}};
151
152     $$found_statement = shift;
153 }
154
155 ########################################################################
156 # set_found_type_callback
157 #
158 sub set_found_type_callback($$) {
159     my $self = shift;
160
161     my $found_type = \${$self->{FOUND_TYPE}};
162
163     $$found_type = shift;
164 }
165
166 ########################################################################
167 # set_found_variable_callback
168 #
169 sub set_found_variable_callback($$) {
170     my $self = shift;
171
172     my $found_variable = \${$self->{FOUND_VARIABLE}};
173
174     $$found_variable = shift;
175 }
176
177 ########################################################################
178 # parse_c_file
179
180 sub parse_c_file($$$$) {
181     my $self = shift;
182
183     my $file = \${$self->{FILE}};
184
185     my $found_comment = \${$self->{FOUND_COMMENT}};
186     my $found_declaration = \${$self->{FOUND_DECLARATION}};
187     my $create_function = \${$self->{CREATE_FUNCTION}};
188     my $found_function = \${$self->{FOUND_FUNCTION}};
189     my $found_function_call = \${$self->{FOUND_FUNCTION_CALL}};
190     my $found_line = \${$self->{FOUND_LINE}};
191     my $found_preprocessor = \${$self->{FOUND_PREPROCESSOR}};
192     my $found_statement = \${$self->{FOUND_STATEMENT}};
193     my $found_variable = \${$self->{FOUND_VARIABLE}};
194
195     my $refcurrent = shift;
196     my $refline = shift;
197     my $refcolumn = shift;
198
199     my $_create_function = sub {
200         return 'function'->new;
201     };
202
203     my $_create_type = sub {
204         return 'type'->new;
205     };
206
207     my $_found_function = sub {
208         my $old_function = shift;
209
210         my $function = new c_function;
211
212         $function->file($old_function->file);
213         
214         $function->begin_line($old_function->function_line);
215         $function->begin_column(0);
216         $function->end_line($old_function->function_line);
217         $function->end_column(0);
218
219         $function->linkage($old_function->linkage);
220         $function->return_type($old_function->return_type);
221         $function->calling_convention($old_function->calling_convention);
222         $function->name($old_function->internal_name);
223
224         if(defined($old_function->argument_types)) {
225             $function->argument_types([@{$old_function->argument_types}]);
226         }
227         if(defined($old_function->argument_names)) {
228             $function->argument_names([@{$old_function->argument_names}]);
229         }
230
231         $function->statements_line($old_function->statements_line);
232         $function->statements_column(0);
233         $function->statements($old_function->statements);
234         
235         &$$found_function($function);
236     };
237
238     my $_found_preprocessor = sub {
239         my $directive = shift;
240         my $argument = shift;
241
242         my $begin_line = 0;
243         my $begin_column = 0;
244         my $preprocessor = "#$directive $argument";
245
246         &$$found_preprocessor($begin_line, $begin_column, $preprocessor);
247     };
248
249     my $_found_type = sub {
250         my $type = shift;
251     };
252
253     winapi_parser::parse_c_file($$file, {
254         # c_comment_found => $found_c_comment,
255         # cplusplus_comment_found => $found_cplusplus_comment,
256         function_create => $_create_function,
257         function_found => $_found_function,
258         preprocessor_found => $_found_preprocessor,
259         type_create => $_create_type,
260         type_found => $_found_type,
261     });
262 }
263
264 1;