Changeset

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.luacheckrc	Wed May 13 17:00:27 2015 +0100
@@ -0,0 +1,8 @@
+cache = true
+read_globals = { "prosody", "hosts" }
+globals = { "_M" }
+allow_defined_top = true
+module = true
+unused_secondaries = false
+codes = true
+ignore = { "411/err", "421/err", "411/ok", "421/ok" }

--- a/core/sessionmanager.lua	Wed May 06 19:26:53 2015 +0100
+++ b/core/sessionmanager.lua	Wed May 13 17:00:27 2015 +0100
@@ -198,7 +198,7 @@
 	local count = 0;
 	local user = bare_sessions[jid];
 	if user then
-		for k, session in pairs(user.sessions) do
+		for _, session in pairs(user.sessions) do
 			if session.presence then
 				session.send(stanza);
 				count = count + 1;
@@ -208,12 +208,12 @@
 	return count;
 end
 
-function send_to_interested_resources(user, host, stanza)
-	local jid = user.."@"..host;
+function send_to_interested_resources(username, host, stanza)
+	local jid = username.."@"..host;
 	local count = 0;
 	local user = bare_sessions[jid];
 	if user then
-		for k, session in pairs(user.sessions) do
+		for _, session in pairs(user.sessions) do
 			if session.interested then
 				session.send(stanza);
 				count = count + 1;

--- a/util/dataforms.lua	Wed May 06 19:26:53 2015 +0100
+++ b/util/dataforms.lua	Wed May 13 17:00:27 2015 +0100
@@ -7,7 +7,7 @@
 --
 
 local setmetatable = setmetatable;
-local pairs, ipairs = pairs, ipairs;
+local ipairs = ipairs;
 local tostring, type, next = tostring, type, next;
 local t_concat = table.concat;
 local st = require "util.stanza";
@@ -32,7 +32,7 @@
 	if layout.instructions then
 		form:tag("instructions"):text(layout.instructions):up();
 	end
-	for n, field in ipairs(layout) do
+	for _, field in ipairs(layout) do
 		local field_type = field.type or "text-single";
 		-- Add field tag
 		form:tag("field", { type = field_type, var = field.name, label = field.label });

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/util/queue.lua	Wed May 13 17:00:27 2015 +0100
@@ -0,0 +1,54 @@
+-- Prosody IM
+-- Copyright (C) 2008-2015 Matthew Wild
+-- Copyright (C) 2008-2015 Waqas Hussain
+--
+-- This project is MIT/X11 licensed. Please see the
+-- COPYING file in the source package for more information.
+--
+
+-- Small ringbuffer library (i.e. an efficient FIFO queue with a size limit)
+-- (because unbounded dynamically-growing queues are a bad thing...)
+
+local have_utable, utable = pcall(require, "util.table"); -- For pre-allocation of table
+
+local function new(size)
+	-- Head is next insert, tail is next read
+	local head, tail = 1, 1;
+	local items = 0; -- Number of stored items
+	local t = have_utable and utable.create(size, 0) or {}; -- Table to hold items
+
+	return {
+		size = size;
+		count = function (self) return items; end;
+		push = function (self, item)
+			if items >= size then
+				return nil, "queue full";
+			end
+			t[head] = item;
+			items = items + 1;
+			head = (head%size)+1;
+			return true;
+		end;
+		pop = function (self)
+			if items == 0 then
+				return nil;
+			end
+			local item;
+			item, t[tail] = t[tail], 0;
+			tail = (tail%size)+1;
+			items = items - 1;
+			return item;
+		end;
+		peek = function (self)
+			if items == 0 then
+				return nil;
+			end
+			return t[tail];
+		end;
+	};
+end
+
+return {
+	new = new;
+};
+

--- a/util/serialization.lua	Wed May 06 19:26:53 2015 +0100
+++ b/util/serialization.lua	Wed May 13 17:00:27 2015 +0100
@@ -11,11 +11,9 @@
 local tostring = tostring;
 local t_insert = table.insert;
 local t_concat = table.concat;
-local error = error;
 local pairs = pairs;
 local next = next;
 
-local loadstring = loadstring;
 local pcall = pcall;
 
 local debug_traceback = debug.traceback;

--- a/util/set.lua	Wed May 06 19:26:53 2015 +0100
+++ b/util/set.lua	Wed May 13 17:00:27 2015 +0100
@@ -34,7 +34,7 @@
 	return new_set;
 end
 function set_mt.__eq(set1, set2)
-	local set1, set2 = set1._items, set2._items;
+	set1, set2 = set1._items, set2._items;
 	for item in pairs(set1) do
 		if not set2[item] then
 			return false;
@@ -66,6 +66,9 @@
 	local items = setmetatable({}, items_mt);
 	local set = { _items = items };
 
+	-- We access the set through an upvalue in these methods, so ignore 'self' being unused
+	--luacheck: ignore 212/self
+
 	function set:add(item)
 		items[item] = true;
 	end
@@ -82,9 +85,9 @@
 		items[item] = nil;
 	end
 
-	function set:add_list(list)
-		if list then
-			for _, item in ipairs(list) do
+	function set:add_list(item_list)
+		if item_list then
+			for _, item in ipairs(item_list) do
 				items[item] = true;
 			end
 		end

--- a/util/sslconfig.lua	Wed May 06 19:26:53 2015 +0100
+++ b/util/sslconfig.lua	Wed May 13 17:00:27 2015 +0100
@@ -6,11 +6,11 @@
 function handlers.options(a, k, b)
 	local o = a[k] or { };
 	if type(b) ~= "table" then b = { b } end
-	for k,v in pairs(b) do
-		if v == true or v == false then
-			o[k] = v;
+	for key, value in pairs(b) do
+		if value == true or value == false then
+			o[key] = value;
 		else
-			o[v] = true;
+			o[value] = true;
 		end
 	end
 	a[k] = o;

--- a/util/xml.lua	Wed May 06 19:26:53 2015 +0100
+++ b/util/xml.lua	Wed May 13 17:00:27 2015 +0100
@@ -39,7 +39,7 @@
 		function handler:CharacterData(data)
 			stanza:text(data);
 		end
-		function handler:EndElement(tagname)
+		function handler:EndElement()
 			stanza:up();
 		end
 		local parser = lxp.new(handler, "\1");