automake
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]