FreeKill/lua/core/util.lua

-- the iterator of QList object
local qlist_iterator = function(list, n)
	if n < list:length() - 1 then
		return n + 1, list:at(n + 1) -- the next element of list
	end
end

function freekill.qlist(list)
	return qlist_iterator, list, -1
end

function table:contains(element)
	if #self == 0 or type(self[1]) ~= type(element) then return false end
	for _, e in ipairs(self) do
		if e == element then return true end
	end
end

function table:shuffle()
	for i = #self, 2, -1 do
	  	local j = math.random(i)
	  	self[i], self[j] = self[j], self[i]
	end
end

function table:insertTable(list)
	for _, e in ipairs(list) do
		table.insert(self, e)
	end
end

Sql = {
	open = function(filename)
		return freekill.OpenDatabase(filename)
	end,
	close = function(db)
		freekill.CloseDatabase(db)
	end,
	exec = function(db, sql)
		freekill.ExecSQL(db, sql)
	end,
	exec_select = function(db, sql)
		return json.decode(freekill.SelectFromDb(db, sql))
	end,
}

FileIO = {
	pwd = freekill.QmlBackend_pwd,
	ls = function(filename)
		if filename == nil then
			return freekill.QmlBackend_ls(".")
		else
			return freekill.QmlBackend_ls(filename)
		end
	end,
	cd = freekill.QmlBackend_cd,
	exists = freekill.QmlBackend_exists,
	isDir = freekill.QmlBackend_isDir
}

os.getms = freekill.GetMicroSecond

Stack = class("Stack")
function Stack:initialize()
	self.t = {}
	self.p = 0
end

function Stack:push(e)
	self.p = self.p + 1
	self.t[self.p] = e
end

function Stack:isEmpty()
	return self.p == 0
end

function Stack:pop()
	if self.p == 0 then return nil end
	self.p = self.p - 1
	return self.t[self.p + 1]
end

function table:removeOne(element)
	if #self == 0 or type(self[1]) ~= type(element) then return false end

	for i = 1, #self do
		if self[i] == element then
			table.remove(self, i)
			return true
		end
	end
	return false
end

local Util = class("Util")

function Util.static:createEnum(tbl, index)
  assert(type(tbl) == "table")
  local enumtbl = {}
  local enumindex = index or 0
  for i, v in ipairs(tbl) do
      enumtbl[v] = enumindex + i
  end
  return enumtbl
end

return Util