# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1480314621 -3600
# Node ID e58524240b301c694a8227123bdc9901b4a209fa
# Parent  a43a9ffd0579934a76fc9ff36b8272fbcff7c6d4
util.stanza: Add an is_stanza() function to check if an object is a stanza

diff -r a43a9ffd0579 -r e58524240b30 util/stanza.lua
--- a/util/stanza.lua	Mon Nov 28 06:55:48 2016 +0100
+++ b/util/stanza.lua	Mon Nov 28 07:30:21 2016 +0100
@@ -14,6 +14,7 @@
 local s_match       =  string.match;
 local tostring      =      tostring;
 local setmetatable  =  setmetatable;
+local getmetatable  =  getmetatable;
 local pairs         =         pairs;
 local ipairs        =        ipairs;
 local type          =          type;
@@ -45,6 +46,10 @@
 	return setmetatable(stanza, stanza_mt);
 end
 
+local function is_stanza(s)
+	return getmetatable(s) == stanza_mt;
+end
+
 function stanza_mt:query(xmlns)
 	return self:tag("query", { xmlns = xmlns });
 end
@@ -417,6 +422,7 @@
 return {
 	stanza_mt = stanza_mt;
 	stanza = new_stanza;
+	is_stanza = is_stanza;
 	new_id = new_id;
 	preserialize = preserialize;
 	deserialize = deserialize;