# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1283090674 -3600
# Node ID 730876bbe4e647d214d1b8ddf7e52de9b998174c
# Parent  84fe4d5ac2edddd5dd6703f4f66797ddf25a455d
util.stanza: Add stanza:matched_children(name, xmlns) [name suggestions welcome]

diff -r 84fe4d5ac2ed -r 730876bbe4e6 util/stanza.lua
--- a/util/stanza.lua	Sat Aug 28 23:41:09 2010 +0100
+++ b/util/stanza.lua	Sun Aug 29 15:04:34 2010 +0100
@@ -126,6 +126,23 @@
 			if v then return v; end
 		end, self, i;
 end
+
+function stanza_mt:matched_children(name, xmlns)
+	xmlns = xmlns or self.attr.xmlns;
+	local tags = self.tags;
+	local start_i, max_i = 1, #tags;
+	return function ()
+			for i=start_i,max_i do
+				v = tags[i];
+				if (not name or v.name == name)
+				and (not xmlns or xmlns == v.attr.xmlns) then
+					start_i = i+1;
+					return v;
+				end
+			end
+		end, tags, i;
+end
+
 function stanza_mt:childtags()
 	local i = 0;
 	return function (a)