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_name = \
${$self->{EXTERNAL_NAME
}};
75 if(defined($_)) { $$external_name = $_; }
77 return $$external_name;
82 my $internal_name = \
${$self->{INTERNAL_NAME
}};
86 if(defined($_)) { $$internal_name = $_; }
88 return $$internal_name;
93 my $arguments = \
${$self->{ARGUMENTS
}};
97 if(defined($_)) { $$arguments = $_; }
104 my $module16 = \
${$self->{MODULE16
}};
108 if(defined($_)) { $$module16 = $_; }
114 my $module32 = \
${$self->{MODULE32
}};
118 if(defined($_)) { $$module32 = $_; }
124 my $statements = \
${$self->{STATEMENTS
}};
128 if(defined($_)) { $$statements = $_; }
135 my $module16 = \
${$self->{MODULE16
}};
136 my $module32 = \
${$self->{MODULE32
}};
139 if(defined($$module16) && defined($$module32)) {
140 $module = "$$module16 & $$module32";
141 } elsif(defined($$module16)) {
142 $module = $$module16;
143 } elsif(defined($$module32)) {
144 $module = $$module32;
150 sub function_called
{
152 my $called_function_names = \
%{$self->{CALLED_FUNCTION_NAMES
}};
156 $$called_function_names{$name}++;
159 sub function_called_by
{
161 my $called_by_function_names = \
%{$self->{CALLED_BY_FUNCTION_NAMES
}};
165 $$called_by_function_names{$name}++;
168 sub called_function_names
{
170 my $called_function_names = \
%{$self->{CALLED_FUNCTION_NAMES
}};
172 return sort(keys(%$called_function_names));
175 sub called_by_function_names
{
177 my $called_by_function_names = \
%{$self->{CALLED_BY_FUNCTION_NAMES
}};
179 return sort(keys(%$called_by_function_names));