1 package winapi_function
;
7 my $class = ref($proto) || $proto;
16 my $file = \
${$self->{FILE
}};
20 if(defined($_)) { $$file = $_; }
27 my $documentation = \
${$self->{DOCUMENTATION
}};
31 if(defined($_)) { $$documentation = $_; }
33 return $$documentation;
38 my $linkage = \
${$self->{LINKAGE
}};
42 if(defined($_)) { $$linkage = $_; }
49 my $return_type = \
${$self->{RETURN_TYPE
}};
53 if(defined($_)) { $$return_type = $_; }
58 sub calling_convention
{
60 my $calling_convention = \
${$self->{CALLING_CONVENTION
}};
64 if(defined($_)) { $$calling_convention = $_; }
66 return $$calling_convention;
71 my $external_name16 = \
${$self->{EXTERNAL_NAME16
}};
75 if(defined($_)) { $$external_name16 = $_; }
77 return $$external_name16;
82 my $external_name32 = \
${$self->{EXTERNAL_NAME32
}};
86 if(defined($_)) { $$external_name32 = $_; }
88 return $$external_name32;
93 my $internal_name = \
${$self->{INTERNAL_NAME
}};
97 if(defined($_)) { $$internal_name = $_; }
99 return $$internal_name;
104 my $argument_types = \
${$self->{ARGUMENT_TYPES
}};
108 if(defined($_)) { $$argument_types = $_; }
110 return $$argument_types;
115 my $argument_names = \
${$self->{ARGUMENT_NAMES
}};
119 if(defined($_)) { $$argument_names = $_; }
121 return $$argument_names;
124 sub argument_documentations
{
126 my $argument_documentations = \
${$self->{ARGUMENT_DOCUMENTATIONS
}};
130 if(defined($_)) { $$argument_documentations = $_; }
132 return $$argument_documentations;
137 my $module16 = \
${$self->{MODULE16
}};
141 if(defined($_)) { $$module16 = $_; }
147 my $module32 = \
${$self->{MODULE32
}};
151 if(defined($_)) { $$module32 = $_; }
157 my $statements = \
${$self->{STATEMENTS
}};
161 if(defined($_)) { $$statements = $_; }
168 my $module16 = \
${$self->{MODULE16
}};
169 my $module32 = \
${$self->{MODULE32
}};
172 if(defined($$module16) && defined($$module32)) {
173 $module = "$$module16 & $$module32";
174 } elsif(defined($$module16)) {
175 $module = $$module16;
176 } elsif(defined($$module32)) {
177 $module = $$module32;
183 sub function_called
{
185 my $called_function_names = \
%{$self->{CALLED_FUNCTION_NAMES
}};
189 $$called_function_names{$name}++;
192 sub function_called_by
{
194 my $called_by_function_names = \
%{$self->{CALLED_BY_FUNCTION_NAMES
}};
198 $$called_by_function_names{$name}++;
201 sub called_function_names
{
203 my $called_function_names = \
%{$self->{CALLED_FUNCTION_NAMES
}};
205 return sort(keys(%$called_function_names));
208 sub called_by_function_names
{
210 my $called_by_function_names = \
%{$self->{CALLED_BY_FUNCTION_NAMES
}};
212 return sort(keys(%$called_by_function_names));