[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
83-lang-spec-files-list.patch
From: |
Akim Demaille |
Subject: |
83-lang-spec-files-list.patch |
Date: |
28 Feb 2001 11:00:10 +0100 |
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley) |
Index: ChangeLog
from Akim Demaille <address@hidden>
* automake.in (&handle_single_transform_list, &add_depend2): Let
$lang_specific_files{$lang} be a list instead of a string.
Index: automake.in
--- automake.in Tue, 27 Feb 2001 22:23:36 +0100 akim (am/f/39_automake.i 1.90
755)
+++ automake.in Tue, 27 Feb 2001 22:29:07 +0100 akim (am/f/39_automake.i 1.90
755)
@@ -1305,9 +1305,8 @@ sub handle_single_transform_list
$rule = '';
my $obj_sans_ext = substr ($object, 0,
- length ($this_obj_ext));
- $lang_specific_files{$lang} .= (' ' . $derived
- . ' ' . $full
- . ' ' . $obj_sans_ext);
+ push (@{$lang_specific_files{$lang}},
+ "$derived $full $obj_sans_ext");
}
}
elsif ($extension eq 'o')
@@ -2770,17 +2769,10 @@ sub add_depend2
# Now include code for each specially handled object with this
# language.
- my @list = grep ($_ ne '', split (' ', $lang_specific_files{$lang}));
- my $max = scalar @list;
- my $i = 0;
- my ($derived, $source, $obj);
my %seen_files = ();
- while ($i < $max)
+ foreach my $file (@{$lang_specific_files{$lang}})
{
- $derived = $list[$i];
- $source = $list[$i + 1];
- $obj = $list[$i + 2];
- $i += 3;
+ my ($derived, $source, $obj) = split (' ', $file);
# We might see a given object twice, for instance if it is
# used under different conditions.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- 83-lang-spec-files-list.patch,
Akim Demaille <=