Mercurial > MadButterfly

diff tools/foreach.m4 @ 63:f4b792afa74e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
m4 translator
author Thinker K.F. Li <thinker@branda.to>
date Tue, 12 Aug 2008 14:21:09 +0800
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/foreach.m4	Tue Aug 12 14:21:09 2008 +0800
@@ -0,0 +1,10 @@
+divert([-1])
+
+define([_arg1], [$1])
+
+define([_foreach], [ifelse([$2], [()], [],
+[define([$1], _arg1$2)$3[]_foreach([$1], (shift$2), [$3])])])
+
+define([foreach], [pushdef([$1])_foreach($@)popdef([$1])])
+
+divert[]dnl