123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879 |
- package Automake::Rule;
- use 5.006;
- use strict;
- use Carp;
- use Automake::Item;
- use Automake::RuleDef;
- use Automake::ChannelDefs;
- use Automake::Channels;
- use Automake::Options;
- use Automake::Condition qw (TRUE FALSE);
- use Automake::DisjConditions;
- require Exporter;
- use vars '@ISA', '@EXPORT', '@EXPORT_OK';
- @ISA = qw/Automake::Item Exporter/;
- @EXPORT = qw (reset register_suffix_rule next_in_suffix_chain
- suffixes rules $KNOWN_EXTENSIONS_PATTERN
- depend %dependencies %actions register_action
- accept_extensions
- reject_rule msg_rule msg_cond_rule err_rule err_cond_rule
- rule rrule ruledef rruledef);
- my $_SUFFIX_RULE_PATTERN =
- '^(\.[a-zA-Z0-9_(){}$+@\-]+)(\.[a-zA-Z0-9_(){}$+@\-]+)' . "\$";
- my @_suffixes = ();
- my @_known_extensions_list = ();
- my %_rule_dict = ();
- my %_suffix_rules;
- my %_suffix_rules_builtin;
- use vars '%dependencies';
- use vars '%actions';
- use vars qw ($KNOWN_EXTENSIONS_PATTERN);
- $KNOWN_EXTENSIONS_PATTERN = "";
- sub err_rule ($$;%)
- {
- msg_rule ('error', @_);
- }
- sub err_cond_rule ($$$;%)
- {
- msg_cond_rule ('error', @_);
- }
- sub msg_cond_rule ($$$$;%)
- {
- my ($channel, $cond, $rule, $msg, %opts) = @_;
- my $r = ref ($rule) ? $rule : rrule ($rule);
- msg $channel, $r->rdef ($cond)->location, $msg, %opts;
- }
- sub msg_rule ($$$;%)
- {
- my ($channel, $rule, $msg, %opts) = @_;
- my $r = ref ($rule) ? $rule : rrule ($rule);
-
- my $cond = $r->conditions->one_cond;
- msg_cond_rule ($channel, $cond, $r, $msg, %opts);
- }
- sub reject_rule ($$)
- {
- my ($rule, $msg) = @_;
- if (rule ($rule))
- {
- err_rule $rule, $msg;
- return 1;
- }
- return 0;
- }
- sub accept_extensions (@)
- {
- push @_known_extensions_list, @_;
- $KNOWN_EXTENSIONS_PATTERN =
- '(?:' . join ('|', map (quotemeta, @_known_extensions_list)) . ')';
- }
- sub rules ()
- {
- return values %_rule_dict;
- }
- sub register_action ($$)
- {
- my ($target, $action) = @_;
- if ($actions{$target})
- {
- $actions{$target} .= "\n$action" if $action;
- }
- else
- {
- $actions{$target} = $action;
- }
- }
- sub reset()
- {
- %_rule_dict = ();
- @_suffixes = ();
- %_suffix_rules = %_suffix_rules_builtin;
- %dependencies =
- (
-
- 'dvi' => [],
- 'dvi-am' => [],
- 'pdf' => [],
- 'pdf-am' => [],
- 'ps' => [],
- 'ps-am' => [],
- 'info' => [],
- 'info-am' => [],
- 'html' => [],
- 'html-am' => [],
-
- 'install-data-am' => [],
- 'install-exec-am' => [],
- 'uninstall-am' => [],
- 'install-man' => [],
- 'uninstall-man' => [],
- 'install-dvi' => [],
- 'install-dvi-am' => [],
- 'install-html' => [],
- 'install-html-am' => [],
- 'install-info' => [],
- 'install-info-am' => [],
- 'install-pdf' => [],
- 'install-pdf-am' => [],
- 'install-ps' => [],
- 'install-ps-am' => [],
- 'installcheck-am' => [],
-
- 'clean-am' => [],
- 'mostlyclean-am' => [],
- 'maintainer-clean-am' => [],
- 'distclean-am' => [],
- 'clean' => [],
- 'mostlyclean' => [],
- 'maintainer-clean' => [],
- 'distclean' => [],
-
- 'dist-all' => [],
- '.PHONY' => [],
- '.PRECIOUS' => [],
-
- '.MAKE' => [],
- );
- %actions = ();
- }
- 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];
- }
- sub register_suffix_rule ($$$)
- {
- my ($where, $src, $dest) = @_;
- my $suffix_rules = $where->{'position'} ? \%_suffix_rules
- : \%_suffix_rules_builtin;
- verb "Sources ending in $src become $dest";
- push @_suffixes, $src, $dest;
-
-
-
-
-
-
-
-
-
- $dest = '.$(OBJEXT)' if ($dest eq '.o' || $dest eq '.obj');
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if (exists $suffix_rules->{$src})
- {
- $suffix_rules->{$src}{$dest} = [ $dest, 1 ];
- }
- else
- {
- $suffix_rules->{$src} = { $dest => [ $dest, 1 ] };
- }
-
-
- if (exists $suffix_rules->{$dest})
- {
- for my $dest2 (keys %{$suffix_rules->{$dest}})
- {
- my $dist = $suffix_rules->{$dest}{$dest2}[1] + 1;
-
-
- if (! exists $suffix_rules->{$src}{$dest2}
- || $suffix_rules->{$src}{$dest2}[1] > $dist)
- {
- $suffix_rules->{$src}{$dest2} = [ $dest, $dist ];
- }
- }
- }
-
-
- my @dest2 = keys %{$suffix_rules->{$src}};
- for my $src2 (keys %$suffix_rules)
- {
- if (exists $suffix_rules->{$src2}{$src})
- {
- for my $dest2 (@dest2)
- {
- my $dist = $suffix_rules->{$src}{$dest2} + 1;
-
-
- if (! exists $suffix_rules->{$src2}{$dest2}
- || $suffix_rules->{$src2}{$dest2}[1] > $dist)
- {
- $suffix_rules->{$src2}{$dest2} = [ $src, $dist ];
- }
- }
- }
- }
- }
- sub suffixes ()
- {
- return @_suffixes;
- }
- sub rule ($)
- {
- my ($name) = @_;
-
-
- $name =~ s,\$\(EXEEXT\)$,,;
- return $_rule_dict{$name} || 0;
- }
- sub ruledef ($$)
- {
- my ($name, $cond) = @_;
- my $rule = rule $name;
- return $rule && $rule->def ($cond);
- }
- sub rrule ($)
- {
- my ($name) = @_;
- my $r = rule $name;
- prog_error ("undefined rule $name\n" . &rules_dump)
- unless $r;
- return $r;
- }
- sub rruledef ($$)
- {
- my ($name, $cond) = @_;
- return rrule ($name)->rdef ($cond);
- }
- sub _crule ($)
- {
- my ($name) = @_;
- my $r = rule $name;
- return $r if $r;
- return _new Automake::Rule $name;
- }
- sub _new ($$)
- {
- my ($class, $name) = @_;
-
-
- (my $keyname = $name) =~ s,\$\(EXEEXT\)$,,;
- my $self = Automake::Item::new ($class, $name);
- $_rule_dict{$keyname} = $self;
- return $self;
- }
- sub _rule_defn_with_exeext_awareness ($$$)
- {
- my ($target, $cond, $where) = @_;
-
-
- (my $noexe = $target) =~ s/\$\(EXEEXT\)$//;
- my $noexerule = rule $noexe;
- my $tdef = $noexerule ? $noexerule->def ($cond) : undef;
- if ($noexe ne $target
- && $tdef
- && $noexerule->name ne $target)
- {
-
- if (! option 'no-exeext')
- {
- msg ('obsolete', $tdef->location,
- "deprecated feature: target '$noexe' overrides "
- . "'$noexe\$(EXEEXT)'\n"
- . "change your target to read '$noexe\$(EXEEXT)'",
- partial => 1);
- msg ('obsolete', $where, "target '$target' was defined here");
- }
- }
- return $tdef;
- }
- sub _maybe_warn_about_duplicated_target ($$$$$$)
- {
- my ($target, $tdef, $source, $owner, $cond, $where) = @_;
- my $oldowner = $tdef->owner;
-
-
- my $oldname = $tdef->name;
-
- my $condmsg =
- $cond == TRUE ? '' : (" in condition '" . $cond->human . "'");
- if ($owner == RULE_USER)
- {
- if ($oldowner == RULE_USER)
- {
-
-
-
- if ($target !~ /^[^%]*%[^%]*$/)
- {
-
-
-
-
-
-
-
-
-
-
- }
- }
- else
- {
-
-
- prog_error ("user target '$target'$condmsg seen after Automake's"
- . " definition\nfrom " . $tdef->source);
- }
- }
- else
- {
- if ($oldowner == RULE_USER)
- {
-
-
-
-
- my $hint = 0;
- my $noam = $target;
- $noam =~ s/-am$//;
- if (exists $dependencies{"$noam-am"})
- {
- $hint = "consider using $noam-local instead of $target";
- }
- msg_cond_rule ('override', $cond, $target,
- "user target '$target' defined here"
- . "$condmsg ...", partial => 1);
- msg ('override', $where,
- "... overrides Automake target '$oldname' defined here",
- partial => $hint);
- msg_cond_rule ('override', $cond, $target, $hint)
- if $hint;
- }
- else
- {
-
-
-
-
-
-
-
-
-
- my $oldsource = $tdef->source;
- if (not ($source eq $oldsource && $target eq $oldname))
- {
- msg ('syntax',
- $where, "redefinition of '$target'$condmsg ...",
- partial => 1);
- msg_cond_rule ('syntax', $cond, $target,
- "... '$oldname' previously defined here");
- }
- }
- }
- }
- sub _conditionals_for_rule ($$$$)
- {
- my ($rule, $owner, $cond, $where) = @_;
- my $target = $rule->name;
- my @conds;
- my ($message, $ambig_cond) = $rule->conditions->ambiguous_p ($target, $cond);
- return $cond if !$message;
- if ($owner == RULE_USER)
- {
-
- msg 'syntax', $where, "$message ...", partial => 1;
- msg_cond_rule ('syntax', $ambig_cond, $target,
- "... '$target' previously defined here");
- return ();
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- @conds = $rule->not_always_defined_in_cond ($cond)->conds;
-
-
- if (scalar @conds == 0)
- {
- msg 'syntax', $where, "$message ...", partial => 1;
- msg_cond_rule ('syntax', $ambig_cond, $target,
- "... '$target' previously defined here");
- return ();
- }
- return @conds;
- }
- sub define ($$$$$)
- {
- my ($target, $source, $owner, $cond, $where) = @_;
- prog_error "$where is not a reference"
- unless ref $where;
- prog_error "$cond is not a reference"
- unless ref $cond;
-
- return () if $cond == FALSE;
- my $tdef = _rule_defn_with_exeext_awareness ($target, $cond, $where);
-
- msg ('portability', $where,
- "'%'-style pattern rules are a GNU make extension")
- if $target =~ /^[^%]*%[^%]*$/;
-
- if ($tdef)
- {
-
-
-
- _maybe_warn_about_duplicated_target ($target, $tdef, $source,
- $owner, $cond, $where);
-
-
-
- return ();
- }
- my $rule = _crule $target;
-
-
-
-
-
- my @conds = _conditionals_for_rule ($rule, $owner, $cond, $where);
-
- return unless @conds;
-
- for my $c (@conds)
- {
- my $def = new Automake::RuleDef ($target, '', $where->clone,
- $owner, $source);
- $rule->set ($c, $def);
- }
-
-
-
- my $target_count = 0;
- my $inference_rule_count = 0;
- for my $t (split (' ', $target))
- {
- ++$target_count;
-
-
- if ($t =~ /^($KNOWN_EXTENSIONS_PATTERN)($KNOWN_EXTENSIONS_PATTERN)$/
-
-
-
-
-
- || ($t =~ /$_SUFFIX_RULE_PATTERN/o && accept_extensions($1)))
- {
- ++$inference_rule_count;
- register_suffix_rule ($where, $1, $2);
- }
- }
-
-
-
- msg ('portability', $where,
- "inference rules can have only one target before the colon (POSIX)")
- if $inference_rule_count > 0 && $target_count > 1;
- return @conds;
- }
- sub depend ($@)
- {
- my ($category, @dependees) = @_;
- push (@{$dependencies{$category}}, @dependees);
- }
- 1;
|