2 -- Copyright (C) 2008 Matthew Wild
3 -- Copyright (C) 2008 Waqas Hussain
5 -- This program is free software; you can redistribute it and/or
6 -- modify it under the terms of the GNU General Public License
7 -- as published by the Free Software Foundation; either version 2
8 -- of the License, or (at your option) any later version.
10 -- This program is distributed in the hope that it will be useful,
11 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
12 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 -- GNU General Public License for more details.
15 -- You should have received a copy of the GNU General Public License
16 -- along with this program; if not, write to the Free Software
17 -- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
22 local select = select;
23 local t_insert = table.insert;
29 local function get(self, ...)
31 for n = 1,select('#', ...) do
32 t = t[select(n, ...)];
33 if not t then break; end
38 local function add(self, ...)
40 local count = select('#', ...);
42 local key = select(n, ...);
44 if not tab then tab = {}; t[key] = tab; end
47 t_insert(t, select(count, ...));
50 local function r(t, n, _end, ...)
51 if t == nil then return; end
53 for key in pairs(t) do
57 local k = select(n, ...);
67 for _,b in pairs(t) do
76 local function remove(self, ...)
77 local _end = select('#', ...);
79 if select(n, ...) then _end = n; break; end
81 r(self.data, 1, _end, ...);