From: Akim Demaille <akim@epita.fr>
Date: Fri, 27 Apr 2001 11:14:10 +0000 (+0000)
Subject: * automake.in (&register_language): Use `new Language' with a hash.
X-Git-Tag: handle-languages~46
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=225470f54d1f9ec6967e34a2456ac7e4500e51c8;p=thirdparty%2Fautomake.git

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

diff --git a/ChangeLog b/ChangeLog
index 773fd150c..6b00653f4 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 3b05a2dec..1463d7333 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});