From 27c54776ccb19f23c972814f215923e3a5f9e1e0 Mon Sep 17 00:00:00 2001
From: Akim Demaille <akim@epita.fr>
Date: Fri, 27 Apr 2001 11:14:10 +0000
Subject: [PATCH] * automake.in (&register_language): Use `new Language' with a
 hash.

---
 ChangeLog   |  4 ++++
 automake.in | 65 +----------------------------------------------------
 2 files changed, 5 insertions(+), 64 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 773fd150..6b00653f 100644
--- 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 3b05a2de..1463d733 100755
--- 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});
-- 
2.43.5