From 2d642bfb76c8a191733a99bf6886f683dc901b53 Mon Sep 17 00:00:00 2001 From: Kim Alvefur Date: Mon, 28 Nov 2016 07:30:21 +0100 Subject: util.stanza: Add an is_stanza() function to check if an object is a stanza --- util/stanza.lua | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/util/stanza.lua b/util/stanza.lua index 8bb9ba05..2191fa8e 100644 --- a/util/stanza.lua +++ b/util/stanza.lua @@ -14,6 +14,7 @@ local s_format = string.format; 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 @@ local function new_stanza(name, attr) 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 @@ end return { stanza_mt = stanza_mt; stanza = new_stanza; + is_stanza = is_stanza; new_id = new_id; preserialize = preserialize; deserialize = deserialize; -- cgit v1.2.3