projects
/
prosody.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
portmanager, s2smanager, sessionmanager, stanza_router, storagemanager, usermanager...
[prosody.git]
/
util
/
set.lua
diff --git
a/util/set.lua
b/util/set.lua
index 7f45526eb41f97741cfdabd8abc15f114442a0f1..04f5f0f4f297d3d5b9d8bf3d167edebf4cf6d092 100644
(file)
--- a/
util/set.lua
+++ b/
util/set.lua
@@
-1,7
+1,7
@@
-- Prosody IM
-- Copyright (C) 2008-2010 Matthew Wild
-- Copyright (C) 2008-2010 Waqas Hussain
-- Prosody IM
-- Copyright (C) 2008-2010 Matthew Wild
-- Copyright (C) 2008-2010 Waqas Hussain
---
+--
-- This project is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--
-- This project is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--
@@
-23,7
+23,7
@@
function set_mt.__sub(set1, set2)
return _M.difference(set1, set2);
end
function set_mt.__div(set, func)
return _M.difference(set1, set2);
end
function set_mt.__div(set, func)
- local new_set
, new_items
= _M.new();
+ local new_set = _M.new();
local items, new_items = set._items, new_set._items;
for item in pairs(items) do
local new_item = func(item);
local items, new_items = set._items, new_set._items;
for item in pairs(items) do
local new_item = func(item);
@@
-40,13
+40,13
@@
function set_mt.__eq(set1, set2)
return false;
end
end
return false;
end
end
-
+
for item in pairs(set2) do
if not set1[item] then
return false;
end
end
for item in pairs(set2) do
if not set1[item] then
return false;
end
end
-
+
return true;
end
function set_mt.__tostring(set)
return true;
end
function set_mt.__tostring(set)
@@
-65,23
+65,23
@@
end
function new(list)
local items = setmetatable({}, items_mt);
local set = { _items = items };
function new(list)
local items = setmetatable({}, items_mt);
local set = { _items = items };
-
+
function set:add(item)
items[item] = true;
end
function set:add(item)
items[item] = true;
end
-
+
function set:contains(item)
return items[item];
end
function set:contains(item)
return items[item];
end
-
+
function set:items()
function set:items()
- return items;
+ return
next,
items;
end
end
-
+
function set:remove(item)
items[item] = nil;
end
function set:remove(item)
items[item] = nil;
end
-
+
function set:add_list(list)
if list then
for _, item in ipairs(list) do
function set:add_list(list)
if list then
for _, item in ipairs(list) do
@@
-89,34
+89,34
@@
function new(list)
end
end
end
end
end
end
-
+
function set:include(otherset)
function set:include(otherset)
- for item in
pairs(otherset)
do
+ for item in
otherset
do
items[item] = true;
end
end
function set:exclude(otherset)
items[item] = true;
end
end
function set:exclude(otherset)
- for item in
pairs(otherset)
do
+ for item in
otherset
do
items[item] = nil;
end
end
items[item] = nil;
end
end
-
+
function set:empty()
return not next(items);
end
function set:empty()
return not next(items);
end
-
+
if list then
set:add_list(list);
end
if list then
set:add_list(list);
end
-
+
return setmetatable(set, set_mt);
end
function union(set1, set2)
local set = new();
local items = set._items;
return setmetatable(set, set_mt);
end
function union(set1, set2)
local set = new();
local items = set._items;
-
+
for item in pairs(set1._items) do
items[item] = true;
end
for item in pairs(set1._items) do
items[item] = true;
end
@@
-124,14
+124,14
@@
function union(set1, set2)
for item in pairs(set2._items) do
items[item] = true;
end
for item in pairs(set2._items) do
items[item] = true;
end
-
+
return set;
end
function difference(set1, set2)
local set = new();
local items = set._items;
return set;
end
function difference(set1, set2)
local set = new();
local items = set._items;
-
+
for item in pairs(set1._items) do
items[item] = (not set2._items[item]) or nil;
end
for item in pairs(set1._items) do
items[item] = (not set2._items[item]) or nil;
end
@@
-142,13
+142,13
@@
end
function intersection(set1, set2)
local set = new();
local items = set._items;
function intersection(set1, set2)
local set = new();
local items = set._items;
-
+
set1, set2 = set1._items, set2._items;
set1, set2 = set1._items, set2._items;
-
+
for item in pairs(set1) do
items[item] = (not not set2[item]) or nil;
end
for item in pairs(set1) do
items[item] = (not not set2[item]) or nil;
end
-
+
return set;
end
return set;
end