* automake.in (&register_language): Use `new Language' with a hash.

diff --git a/ChangeLog b/ChangeLog
index 773fd150ca43c1254d51332502a7346aa8a24f83..6b00653f47877a2794b55cfa94ba6f2adb32169a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-04-27  Akim Demaille  <akim@epita.fr>
+
+       * automake.in (&register_language): Use `new Language' with a hash.
+
 2001-04-27  Akim Demaille  <akim@epita.fr>
 
        * automake.in (&register_language): Rename `output-arg' and

diff --git a/automake.in b/automake.in
index 3b05a2decbae74dfd4ae61a44299cdf218a96ccf..1463d73331f206924cc891a3cb511fc0c7ed92a4 100755 (executable)
--- a/automake.in
+++ b/automake.in
@@ -5333,70 +5333,7 @@ sub register_language ($%)
     $option{'pure'} = 'no'
       unless defined $option{'pure'};
 
-    my $lang = new Language;
-    while (my ($attr, $value) = each %option)
-    {
-      if ($attr eq 'ansi')
-       {
-         $lang->ansi ($value);
-       }
-      elsif ($attr eq 'autodep')
-       {
-         $lang->autodep ($value);
-       }
-      elsif ($attr eq 'compile')
-       {
-         $lang->compile ($value);
-       }
-      elsif ($attr eq 'compiler')
-       {
-         $lang->compiler ($value);
-       }
-      elsif ($attr eq 'derived_autodep')
-       {
-         $lang->derived_autodep ($value);
-       }
-      elsif ($attr eq 'extensions')
-       {
-         # This array accessor is stupid...
-         my $cnt = 0;
-         foreach (@{$value})
-           {
-             $lang->extensions ($cnt, $_);
-             ++$cnt;
-           }
-       }
-      elsif ($attr eq 'flags')
-       {
-         $lang->flags ($value);
-       }
-      elsif ($attr eq 'linker')
-       {
-         $lang->linker ($value);
-       }
-      elsif ($attr eq 'name')
-       {
-         $lang->name ($value);
-       }
-      elsif ($attr eq 'output_arg')
-       {
-         $lang->output_arg ($value);
-       }
-      elsif ($attr eq 'pure')
-       {
-         $lang->pure ($value);
-       }
-      elsif ($attr eq '_finish')
-       {
-         $lang->_finish ($value);
-       }
-      else
-       {
-         prog_error ("register_language: "
-                     . $lang->name
-                     . ": invalid attribute: $attr");
-       }
-    }
+    my $lang = new Language (%option);
 
     # Fill indexes.
     grep ($extension_map{$_} = $lang->name, @{$lang->extensions});