--------------------------------------------------------------------------------
-- Returns the length of a table. Useful where the 'getn' function is normally unavailable.
function getn(tTable)
	local nCount = 0
	for i, iCount in tTable do
		nCount = nCount + 1
	end
	return nCount
end


--------------------------------------------------------------------------------
-- Inserts an item into a table. Useful where the 'tinsert' function is normally unavailable.
function tinsert(tTable, Arg1, Arg2)
	if (Arg2) then
		local TempTable = {}
		for i = Arg1, getn(tTable) do
			TempTable[i + 1] = tTable[i]
		end
		for i = Arg1, getn(tTable) do
			tTable[i + 1] = TempTable[i + 1]
		end
		tTable[Arg1] = Arg2
	else
		tTable[getn(tTable) + 1] = Arg1
	end
end

-- Compares two tables and returns true if they're equal and false if they're not.
function tcomp(tTable1, tTable2)
	local same = 1
	if (getn(tTable1) ~= getn(tTable2)) then
		same = 0
	else
		for i, k in tTable1 do
			if (type(tTable1[i]) == "table") and (type(tTable2[i]) == "table") then
				same = tcomp(tTable1[i], tTable2[i])
				if (same == 0) then
					break
				end
			elseif (tTable1[i] ~= tTable2[i]) then
				same = 0
				break
			end
		end
	end
	return same
end