Mercurial > lxmppd-hg-xmllex / changeset

--- a/util/iterators.lua	Mon Aug 10 14:29:28 2009 +0100
+++ b/util/iterators.lua	Mon Aug 10 15:07:32 2009 +0100
@@ -78,6 +78,18 @@
 	return x;
 end
 
+-- Return the first n items an iterator returns
+function head(n, f, s, var)
+	local c = 0;
+	return function (s, var)
+		if c >= n then
+			return nil;
+		end
+		c = c + 1;
+		return f(s, var);
+	end, s;
+end
+
 -- Convert the values returned by an iterator to an array
 function it2array(f, s, var)
 	local t, var = {};