--- old/automake	2003-09-08 11:12:12.000000000 +0200
+++ dyalog/automake	2003-09-08 11:12:52.000000000 +0200
@@ -255,6 +255,8 @@
    PYTHON => 'AM_PATH_PYTHON',
    pythondir => 'AM_PATH_PYTHON',
    U => 'AM_C_PROTOTYPES',
+   DYACC => 'AC_PATH_DYALOG',
+   DFLAGS => 'AC_PATH_DYALOG'
    );
 
 # Macros shipped with Autoconf.
@@ -1112,6 +1114,23 @@
 		   'pure' => 1,
 		   'extensions' => ['.java', '.class', '.zip', '.jar']);
 
+# DyALog
+register_language( 'name' => 'dyalog',
+		   'Name' => 'DyALog',
+		   'config_vars' => ['DYACC'],
+		   'ld' => '$(DYACC)',
+		   'lder' =>'DYACCLD',
+		   'linker' => 'DYACCLINK',
+		   'link' => '$(DYACCLD) ${AM_DFLAGS} ${DFLAGS} ${AM_LDFLAGS} ${LDFLAGS} -o $@',
+		   'flags' => ['DFLAGS','DINCLUDE'],
+		   'compile' => '$(DYACC) $(DINCLUDES) $(AM_DFLAGS) $(DFLAGS)',
+		   'compiler' => 'DYACCOMP',
+		   'compile_flag' => '-c',
+		   'output_flag' => '-o',
+		   'pure' => 1,
+		   'extensions' => ['.pl','.tag','.rcg','.dcg']
+		   );
+
 ################################################################
 
 # Parse the WARNINGS environnent variable.
@@ -5658,6 +5677,12 @@
     return LANG_SUBDIR;
 }
 
+# Rewrite a single DyALog file.
+sub lang_dyalog_rewrite
+{
+    return &lang_sub_obj;
+}
+
 # The lang_X_finish functions are called after all source file
 # processing is done.  Each should handle defining rules for the
 # language, etc.  A finish function is only called if a source file of
@@ -5813,7 +5838,7 @@
 {
     my (%linkers) = @_;
 
-    foreach my $l (qw(GCJLINK CXXLINK F77LINK OBJCLINK))
+    foreach my $l (qw(GCJLINK CXXLINK F77LINK OBJCLINK DYACCLINK))
     {
 	return $l if defined $linkers{$l};
     }
