* lib/m4sugar/m4sugar.m4 (m4_map_sep): New.

diff --git a/ChangeLog b/ChangeLog
index f8d8ef24d2207087c3c6da09bba5c0ee7a3c9c44..6e41d2983d36175c90206a32a9c18e0a557812d4 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-03  Akim Demaille  <akim@epita.fr>
+
+       * lib/m4sugar/m4sugar.m4 (m4_map_sep): New.
+
 2002-04-29  Paul Eggert  <eggert@twinsun.com>
 
        * bin/autoreconf.in (autoreconf): Don't age aclocal.m4's input

diff --git a/lib/m4sugar/m4sugar.m4 b/lib/m4sugar/m4sugar.m4
index 4df63120a204585587db48b7f13686cadb73970a..c2d3f7a82bc7ccb6c68b197fe6482786047cfbed 100644 (file)
--- a/lib/m4sugar/m4sugar.m4
+++ b/lib/m4sugar/m4sugar.m4
@@ -437,6 +437,20 @@ m4_define([m4_map],
 m4_map([$1], m4_cdr($2))])])
 
 
+# m4_map_sep(MACRO, SEPARATOR, LIST)
+# ----------------------------------
+# Invoke MACRO($1), SEPARATOR, MACRO($2), ..., MACRO($N) where $1, $2... $N
+# are the elements of LIST (which can be lists themselves, for multiple
+# arguments MACROs).
+m4_define([m4_map_sep],
+[m4_if([$3], [[]], [],
+       [$1(m4_fst($3))[]dnl
+m4_if(m4_cdr($3),
+      [[]], [],
+      [$2])[]dnl
+m4_map_sep([$1], [$2], m4_cdr($3))])])
+
+
 ## ---------------------------------------- ##
 ## 6. Enhanced version of some primitives.  ##
 ## ---------------------------------------- ##