Add C based module + lua based API code (WIP)

silkmvc/core/utils.lua

@@ -0,0 +1,161 @@
+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