gdiplus: Add a test to show that GdipCloneImage is not supposed to increase refcount...
[wine/multimedia.git] / tools / winapi / nativeapi.pm
blob78b6ec958fadc97e45ed47ca8c1f5ad20254325c
2 # Copyright 1999, 2000, 2001 Patrik Stridvall
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.
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.
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
19 package nativeapi;
21 use strict;
23 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
24 require Exporter;
26 @ISA = qw(Exporter);
27 @EXPORT = qw();
28 @EXPORT_OK = qw($nativeapi);
30 use vars qw($nativeapi);
32 use config qw(file_type $current_dir $wine_dir $winapi_dir);
33 use options qw($options);
34 use output qw($output);
36 $nativeapi = 'nativeapi'->new;
38 sub new($) {
39 my $proto = shift;
40 my $class = ref($proto) || $proto;
41 my $self = {};
42 bless ($self, $class);
44 my $functions = \%{$self->{FUNCTIONS}};
45 my $conditionals = \%{$self->{CONDITIONALS}};
46 my $conditional_headers = \%{$self->{CONDITIONAL_HEADERS}};
47 my $conditional_functions = \%{$self->{CONDITIONAL_FUNCTIONS}};
49 my $api_file = "$winapi_dir/nativeapi.dat";
50 my $configure_ac_file = "$wine_dir/configure.ac";
51 my $config_h_in_file = "$wine_dir/include/config.h.in";
53 $api_file =~ s/^\.\///;
54 $configure_ac_file =~ s/^\.\///;
55 $config_h_in_file =~ s/^\.\///;
58 $$conditional_headers{"config.h"}++;
60 $output->progress("$api_file");
62 open(IN, "< $api_file") || die "Error: Can't open $api_file: $!\n";
63 local $/ = "\n";
64 while(<IN>) {
65 s/^\s*(.*?)\s*$/$1/; # remove whitespace at begin and end of line
66 s/^(.*?)\s*#.*$/$1/; # remove comments
67 /^$/ && next; # skip empty lines
69 $$functions{$_}++;
71 close(IN);
73 $output->progress("$configure_ac_file");
75 my $again = 0;
76 open(IN, "< $configure_ac_file") || die "Error: Can't open $configure_ac_file: $!\n";
77 local $/ = "\n";
78 while($again || (defined($_ = <IN>))) {
79 $again = 0;
80 chomp;
81 if(/^(.*?)\\$/) {
82 my $current = $1;
83 my $next = <IN>;
84 if(defined($next)) {
85 # remove trailing whitespace
86 $current =~ s/\s+$//;
88 # remove leading whitespace
89 $next =~ s/^\s+//;
91 $_ = $current . " " . $next;
93 $again = 1;
94 next;
98 # remove leading and trailing whitespace
99 s/^\s*(.*?)\s*$/$1/;
101 # skip emty lines
102 if(/^$/) { next; }
104 # skip comments
105 if(/^dnl/) { next; }
107 if(/AC_CHECK_HEADERS\(\s*([^,\)]*)(?:,|\))?/) {
108 my $headers = $1;
109 $headers =~ s/^\s*\[\s*(.*?)\s*\]\s*$/$1/;
110 foreach my $name (split(/\s+/, $headers)) {
111 $$conditional_headers{$name}++;
113 } elsif(/AC_HEADER_STAT\(\)/) {
114 # This checks for a bunch of standard headers
115 # There's stdlib.h, string.h and sys/types.h too but we don't
116 # want to force ifdefs for those at this point.
117 foreach my $name ("sys/stat.h", "memory.h", "strings.h",
118 "inttypes.h", "stdint.h", "unistd.h") {
119 $$conditional_headers{$name}++;
121 } elsif(/AC_CHECK_FUNCS\(\s*([^,\)]*)(?:,|\))?/) {
122 my $funcs = $1;
123 $funcs =~ s/^\s*\[\s*(.*?)\s*\]\s*$/$1/;
124 foreach my $name (split(/\s+/, $funcs)) {
125 $$conditional_functions{$name}++;
127 } elsif(/AC_FUNC_ALLOCA/) {
128 $$conditional_headers{"alloca.h"}++;
129 } elsif (/AC_DEFINE\(\s*HAVE_(.*?)_H/) {
130 my $name = lc($1);
131 $name =~ s/_/\//;
132 $name .= ".h";
134 next if $name =~ m%correct/%;
136 $$conditional_headers{$name}++;
140 close(IN);
142 $output->progress("$config_h_in_file");
144 open(IN, "< $config_h_in_file") || die "Error: Can't open $config_h_in_file: $!\n";
145 local $/ = "\n";
146 while(<IN>) {
147 # remove leading and trailing whitespace
148 s/^\s*(.*?)\s*$/$1/;
150 # skip emty lines
151 if(/^$/) { next; }
153 if(/^\#undef\s+(\S+)$/) {
154 $$conditionals{$1}++;
157 close(IN);
159 $nativeapi = $self;
161 return $self;
164 sub is_function($$) {
165 my $self = shift;
166 my $functions = \%{$self->{FUNCTIONS}};
168 my $name = shift;
170 return ($$functions{$name} || 0);
173 sub is_conditional($$) {
174 my $self = shift;
175 my $conditionals = \%{$self->{CONDITIONALS}};
177 my $name = shift;
179 return ($$conditionals{$name} || 0);
182 sub found_conditional($$) {
183 my $self = shift;
184 my $conditional_found = \%{$self->{CONDITIONAL_FOUND}};
186 my $name = shift;
188 $$conditional_found{$name}++;
191 sub is_conditional_header($$) {
192 my $self = shift;
193 my $conditional_headers = \%{$self->{CONDITIONAL_HEADERS}};
195 my $name = shift;
197 return ($$conditional_headers{$name} || 0);
200 sub is_conditional_function($$) {
201 my $self = shift;
202 my $conditional_functions = \%{$self->{CONDITIONAL_FUNCTIONS}};
204 my $name = shift;
206 return ($$conditional_functions{$name} || 0);
209 sub global_report($) {
210 my $self = shift;
212 my $output = \${$self->{OUTPUT}};
213 my $conditional_found = \%{$self->{CONDITIONAL_FOUND}};
214 my $conditionals = \%{$self->{CONDITIONALS}};
216 my @messages;
217 foreach my $name (sort(keys(%$conditionals))) {
218 if($name =~ /^(?:const|inline|size_t)$/) { next; }
220 if(0 && !$$conditional_found{$name}) {
221 push @messages, "config.h.in: conditional $name not used\n";
225 foreach my $message (sort(@messages)) {
226 $output->write($message);