my @_known_extensions_list = ();
my %_rule_dict = ();
+# See comments in the implementation of the 'next_in_suffix_chain()'
+# variable for details.
+my %_suffix_rules;
+
+# Same as $suffix_rules, but records only the default rules
+# supplied by the languages Automake supports.
+my %_suffix_rules_builtin;
+
=item C<%dependencies>
Holds the dependencies of targets which dependencies are factored.
use vars '%actions';
-# See comments in the implementation of the 'next_in_suffix_chain()'
-# variable for details.
-my %suffix_rules;
-
-# Same as $suffix_rules, but records only the default rules
-# supplied by the languages Automake supports.
-my %suffix_rules_builtin;
-
=item C<$KNOWN_EXTENSIONS_PATTERN>
Pattern that matches all know input extensions (i.e. extensions used
{
%_rule_dict = ();
@_suffixes = ();
- %suffix_rules = %suffix_rules_builtin;
+ %_suffix_rules = %_suffix_rules_builtin;
%dependencies =
(
sub next_in_suffix_chain ($$)
{
my ($ext1, $ext2) = @_;
- return undef unless (exists $suffix_rules{$ext1} and
- exists $suffix_rules{$ext1}{$ext2});
- return $suffix_rules{$ext1}{$ext2}[0];
+ return undef unless (exists $_suffix_rules{$ext1} and
+ exists $_suffix_rules{$ext1}{$ext2});
+ return $_suffix_rules{$ext1}{$ext2}[0];
}
=item C<register_suffix_rule ($where, $src, $dest)>
sub register_suffix_rule ($$$)
{
my ($where, $src, $dest) = @_;
- my $suffix_rules = $where->{'position'} ? \%suffix_rules
- : \%suffix_rules_builtin;
+ my $suffix_rules = $where->{'position'} ? \%_suffix_rules
+ : \%_suffix_rules_builtin;
verb "Sources ending in $src become $dest";
push @_suffixes, $src, $dest;
sub suffix_rules_count ()
{
- return (scalar keys %suffix_rules) - (scalar keys %suffix_rules_builtin);
+ return (scalar keys %_suffix_rules) - (scalar keys %_suffix_rules_builtin);
}
=item C<@list = suffixes>