From aa509f9fced444535e69471224c1b5df70b31e6f Mon Sep 17 00:00:00 2001 From: Matthew Wild Date: Sun, 29 Aug 2010 15:04:34 +0100 Subject: util.stanza: Add stanza:matched_children(name, xmlns) [name suggestions welcome] --- util/stanza.lua | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'util/stanza.lua') diff --git a/util/stanza.lua b/util/stanza.lua index 08ef2c9a..e787cacf 100644 --- a/util/stanza.lua +++ b/util/stanza.lua @@ -126,6 +126,23 @@ function stanza_mt:children() 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) -- cgit v1.2.3