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;
126 my $module16 = \
${$self->{MODULE16
}};
130 if(defined($_)) { $$module16 = $_; }
136 my $module32 = \
${$self->{MODULE32
}};
140 if(defined($_)) { $$module32 = $_; }
146 my $statements = \
${$self->{STATEMENTS
}};
150 if(defined($_)) { $$statements = $_; }
157 my $module16 = \
${$self->{MODULE16
}};
158 my $module32 = \
${$self->{MODULE32
}};
161 if(defined($$module16) && defined($$module32)) {
162 $module = "$$module16 & $$module32";
163 } elsif(defined($$module16)) {
164 $module = $$module16;
165 } elsif(defined($$module32)) {
166 $module = $$module32;
172 sub function_called
{
174 my $called_function_names = \
%{$self->{CALLED_FUNCTION_NAMES
}};
178 $$called_function_names{$name}++;
181 sub function_called_by
{
183 my $called_by_function_names = \
%{$self->{CALLED_BY_FUNCTION_NAMES
}};
187 $$called_by_function_names{$name}++;
190 sub called_function_names
{
192 my $called_function_names = \
%{$self->{CALLED_FUNCTION_NAMES
}};
194 return sort(keys(%$called_function_names));
197 sub called_by_function_names
{
199 my $called_by_function_names = \
%{$self->{CALLED_BY_FUNCTION_NAMES
}};
201 return sort(keys(%$called_by_function_names));