silk/silkmvc/core/utils.lua

utils = {}

function utils.is_array(table)
    local max = 0
    local count = 0
    for k, v in pairs(table) do
        if type(k) == "number" then
            if k > max then max = k end
            count = count + 1
        else
            return false
        end
    end
    if max > count * 2 then
        return false
    end

    return true
end

function utils.escape(s)
	local replacements = {
		["\\"] = "\\\\" ,
		['"'] = '\\"', 
		["\n"] = "\\n", 
		["\t"] = "\\t", 
		["\b"] = "\\b", 
		["\f"] = "\\f",
		["\r"] = "\\r",
		["%"] = "%%"
	}
	return (s:gsub( "[\\'\"\n\t\b\f\r%%]", replacements ))
end

function utils.escape_pattern(s)
	return s:gsub("[%(%)%.%+%-%*%?%[%]%^%$%%]", "%%%1")
end

function utils.unescape_pattern(s)
	return s:gsub( "[%%]", "%%%%")
end

function utils.hex_to_char(x)
	return string.char(tonumber(x, 16))
end
  
function utils.decodeURI(url)
	return url:gsub("%%(%x%x)", utils.hex_to_char)
end

function utils.unescape(s)
	local str = ""
	local escape = false
	local esc_map = {b = '\b', f = '\f', n = '\n', r = '\r', t = '\t'}
	for c in s:gmatch"." do
		if c ~= '\\' then
			if escape then
				if esc_map[c] then
					str = str..esc_map[c]
				else
					str = str..c
				end
			else
				str = str..c
			end
			escape = false
		else
			if escape then
				str = str..c
				escape = false
			else
				escape = true
			end
		end
	end
	return str
end

function utils.file_exists(name)
   local f=io.open(name,"r")
   if f~=nil then io.close(f) return true else return false end
end

function utils.url_parser(uri)
	local pattern = "^(https?)://([%.%w]+):?(%d*)(/?[^#]*)#?.*$"
	local obj = {}
	obj.protocol = uri:gsub(pattern, "%1")
	obj.hostname = uri:gsub(pattern, "%2")
	obj.port = uri:gsub(pattern, "%3")
	obj.query = uri:gsub(pattern, "%4")
	
	if obj.port == "" then obj.port = 80 else obj.port = tonumber(obj.port) end
	if obj.query == "" then obj.query="/" end
	return obj
end

JSON = require("json")

function JSON.encode(obj)
	local t = type(obj)
	if t == 'table' then 
		-- encode object
		if utils.is_array(obj) == false then
			local lst = {}
			for k,v in pairs(obj) do
				table.insert(lst,'"'..k..'":'..JSON.encode(v))
			end
			return "{"..table.concat(lst,",").."}"
		else
			local lst = {}
			local a = {}
			for n in pairs(obj) do table.insert(a, n) end
			table.sort(a)
			for i,v	in pairs(a) do
				table.insert(lst,JSON.encode(obj[v]))
			end
			return "["..table.concat(lst,",").."]"
		end
	elseif t == 'string' then
		--print('"'..utils.escape(obj)..'"')
		return '"'..utils.escape(obj)..'"'
	elseif t == 'boolean' or t == 'number' then
		return tostring(obj)
	elseif obj == nil then
		return "null"
	else
		return '"'..tostring(obj)..'"'
	end
end

function explode(str, div) -- credit: http://richard.warburton.it
	if (div=='') then return false end
	local pos,arr = 0,{}
	-- for each divider found
	for st,sp in function() return string.find(str,div,pos,true) end do
	  table.insert(arr,string.sub(str,pos,st-1)) -- Attach chars left of current divider
	  pos = sp + 1 -- Jump past current divider
	end
	table.insert(arr,string.sub(str,pos)) -- Attach chars right of last divider
	return arr
  end
function implode(arr, div)
	return table.concat(arr,div)
end

function firstToUpper(str)
    return (str:gsub("^%l", string.upper))
end


local charset = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890"

function utils.generate_salt(length)
	local ret = {}
	local r
	for i = 1, length do
		r = math.random(1, #charset)
		table.insert(ret, charset:sub(r, r))
	end
	return table.concat(ret)
end