* m4/ltsugar.m4 (lt_car, lt_cdr): New macros, clones of m4_car/m4_cdr

with the fixed semantics of Autoconf-59c CVS, in order to work with
2.59.  (lt_combine): Use it.
Reported by Christoph Egger <Christoph_Egger@gmx.de>.

diff --git a/ChangeLog b/ChangeLog
index 521d49d17ec8793962b52190251fd6d0617eb7a0..82b044429d49bf9f8dfc217e380e147781c8a16d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2005-06-17  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
+
+       * m4/ltsugar.m4 (lt_car, lt_cdr): New macros, clones of m4_car/m4_cdr
+       with the fixed semantics of Autoconf-59c CVS, in order to work with
+       2.59.  (lt_combine): Use it.
+       Reported by Christoph Egger <Christoph_Egger@gmx.de>.
+
 2005-06-11  Ralf Menzel  <menzel@ls6.cs.uni-dortmund.de>,
            Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 

diff --git a/m4/ltsugar.m4 b/m4/ltsugar.m4
index f5ad61e363f299d57e36744dbf99f8e0c0169c8c..69a131e348c3c67dcf2b17f7ae2da5d88caaea74 100644 (file)
--- a/m4/ltsugar.m4
+++ b/m4/ltsugar.m4
@@ -32,6 +32,19 @@ m4_define([lt_join],
 ])
 
 
+# lt_car(LIST)
+# lt_cdr(LIST)
+# ------------
+# Manipulate m4 lists.
+# These macros are necessary as long as will still need to support
+# Autoconf-2.59 which quotes differently.
+m4_define([lt_car], [[$1]])
+m4_define([lt_cdr],
+[m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])],
+       [$#], 1, [],
+       [m4_dquote(m4_shift($@))])])
+
+
 # lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...])
 # ----------------------------------------------------------
 # Produce a SEP delimited list of all paired combinations of elements of
@@ -40,8 +53,8 @@ m4_define([lt_join],
 m4_define([lt_combine],
 [m4_if([$2], [], [],
        [lt_join(m4_quote(m4_default([$1], [, ])),
-               _$0([$1], m4_car($2)[$3], m4_shiftn(3, $@)),
-               $0([$1], m4_cdr($2), m4_shiftn(2, $@)))])])
+               _$0([$1], lt_car($2)[$3], m4_shiftn(3, $@)),
+               $0([$1], lt_cdr($2), m4_shiftn(2, $@)))])])
 m4_define([_lt_combine],
 [m4_if([$3], [], [],
        [lt_join(m4_quote(m4_default([$1], [, ])),