Cocos2d-x lua库函数剖析（六）functions
这部分主要是封装了一些会常用的函数,比如printLog，等。先上源码
--[[
Copyright (c) 2011-2014 chukong-inc.com
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE SOFTWARE.
]]
function printLog(tag, fmt, ...)
local t = {
"[",
string.upper(tostring(tag)),
"] ",
string.format(tostring(fmt), ...)
}
print(table.concat(t))
end
function printError(fmt, ...)
printLog("ERR", fmt, ...)
print(debug.traceback("", 2))
end
function printInfo(fmt, ...)
if type(DEBUG) ~= &#34;number&#34; or DEBUG < 2 then return end
printLog(&#34;INFO&#34;, fmt, ...)
end
local function dump_value_(v)
if type(v) == &#34;string&#34; then
v = &#34;\&#34;&#34; .. v .. &#34;\&#34;&#34;
end
return tostring(v)
end
function dump(value, desciption, nesting)
if type(nesting) ~= &#34;number&#34; then nesting = 3 end
local lookupTable = {}
local result = {}
local traceback = string.split(debug.traceback(&#34;&#34;, 2), &#34;\n&#34;)
print(&#34;dump from: &#34; .. string.trim(traceback))
local function dump_(value, desciption, indent, nest, keylen)
desciption = desciption or &#34;<var>&#34;
local spc = &#34;&#34;
if type(keylen) == &#34;number&#34; then
spc = string.rep(&#34; &#34;, keylen - string.len(dump_value_(desciption)))
end
if type(value) ~= &#34;table&#34; then
result[#result +1 ] = string.format(&#34;%s%s%s = %s&#34;, indent, dump_value_(desciption), spc, dump_value_(value))
elseif lookupTable then
result[#result +1 ] = string.format(&#34;%s%s%s = *REF*&#34;, indent, dump_value_(desciption), spc)
else
lookupTable = true
if nest > nesting then
result[#result +1 ] = string.format(&#34;%s%s = *MAX NESTING*&#34;, indent, dump_value_(desciption))
else
result[#result +1 ] = string.format(&#34;%s%s = {&#34;, indent, dump_value_(desciption))
local indent2 = indent..&#34; &#34;
local keys = {}
local keylen = 0
local values = {}
for k, v in pairs(value) do
keys[#keys + 1] = k
local vk = dump_value_(k)
local vkl = string.len(vk)
if vkl > keylen then keylen = vkl end
values = v
end
table.sort(keys, function(a, b)
if type(a) == &#34;number&#34; and type(b) == &#34;number&#34; then
return a < b
else
return tostring(a) < tostring(b)
end
end)
for i, k in ipairs(keys) do
dump_(values, k, indent2, nest + 1, keylen)
end
result[#result +1] = string.format(&#34;%s}&#34;, indent)
end
end
end
dump_(value, desciption, &#34;- &#34;, 1)
for i, line in ipairs(result) do
print(line)
end
end
function printf(fmt, ...)
print(string.format(tostring(fmt), ...))
end
function checknumber(value, base)
return tonumber(value, base) or 0
end
function checkint(value)
return math.round(checknumber(value))
end
function checkbool(value)
return (value ~= nil and value ~= false)
end
function checktable(value)
if type(value) ~= &#34;table&#34; then value = {} end
return value
end
function isset(hashtable, key)
local t = type(hashtable)
return (t == &#34;table&#34; or t == &#34;userdata&#34;) and hashtable ~= nil
end
local setmetatableindex_
setmetatableindex_ = function(t, index)
if type(t) == &#34;userdata&#34; then
local peer = tolua.getpeer(t)
if not peer then
peer = {}
tolua.setpeer(t, peer)
end
setmetatableindex_(peer, index)
else
local mt = getmetatable(t)
if not mt then mt = {} end
if not mt.__index then
mt.__index = index
setmetatable(t, mt)
elseif mt.__index ~= index then
setmetatableindex_(mt, index)
end
end
end
setmetatableindex = setmetatableindex_
function clone(object)
local lookup_table = {}
local function _copy(object)
if type(object) ~= &#34;table&#34; then
return object
elseif lookup_table then
return lookup_table
end
local newObject = {}
lookup_table = newObject
for key, value in pairs(object) do
newObject = _copy(value)
end
return setmetatable(newObject, getmetatable(object))
end
return _copy(object)
end
function class(classname, ...)
local cls = {__cname = classname}
local supers = {...}
for _, super in ipairs(supers) do
local superType = type(super)
assert(superType == &#34;nil&#34; or superType == &#34;table&#34; or superType == &#34;function&#34;,
string.format(&#34;class() - create class \&#34;%s\&#34; with invalid super class type \&#34;%s\&#34;&#34;,
classname, superType))
if superType == &#34;function&#34; then
assert(cls.__create == nil,
string.format(&#34;class() - create class \&#34;%s\&#34; with more than one creating function&#34;,
classname));
-- if super is function, set it to __create
cls.__create = super
elseif superType == &#34;table&#34; then
if super[&#34;.isclass&#34;] then
-- super is native class
assert(cls.__create == nil,
string.format(&#34;class() - create class \&#34;%s\&#34; with more than one creating function or native class&#34;,
classname));
cls.__create = function() return super:create() end
else
-- super is pure lua class
cls.__supers = cls.__supers or {}
cls.__supers[#cls.__supers + 1] = super
if not cls.super then
-- set first super pure lua class as class.super
cls.super = super
end
end
else
error(string.format(&#34;class() - create class \&#34;%s\&#34; with invalid super type&#34;,
classname), 0)
end
end
cls.__index = cls
if not cls.__supers or #cls.__supers == 1 then
setmetatable(cls, {__index = cls.super})
else
setmetatable(cls, {__index = function(_, key)
local supers = cls.__supers
for i = 1, #supers do
local super = supers
if super then return super end
end
end})
end
if not cls.ctor then
-- add default constructor
cls.ctor = function() end
end
cls.new = function(...)
local instance
if cls.__create then
instance = cls.__create(...)
else
instance = {}
end
setmetatableindex(instance, cls)
instance.class = cls
instance:ctor(...)
return instance
end
cls.create = function(_, ...)
return cls.new(...)
end
return cls
end
local iskindof_
iskindof_ = function(cls, name)
local __index = rawget(cls, &#34;__index&#34;)
if type(__index) == &#34;table&#34; and rawget(__index, &#34;__cname&#34;) == name then return true end
if rawget(cls, &#34;__cname&#34;) == name then return true end
local __supers = rawget(cls, &#34;__supers&#34;)
if not __supers then return false end
for _, super in ipairs(__supers) do
if iskindof_(super, name) then return true end
end
return false
end
function iskindof(obj, classname)
local t = type(obj)
if t ~= &#34;table&#34; and t ~= &#34;userdata&#34; then return false end
local mt
if t == &#34;userdata&#34; then
if tolua.iskindof(obj, classname) then return true end
mt = tolua.getpeer(obj)
else
mt = getmetatable(obj)
end
if mt then
return iskindof_(mt, classname)
end
return false
end
function import(moduleName, currentModuleName)
local currentModuleNameParts
local moduleFullName = moduleName
local offset = 1
while true do
if string.byte(moduleName, offset) ~= 46 then -- .
moduleFullName = string.sub(moduleName, offset)
if currentModuleNameParts and #currentModuleNameParts > 0 then
moduleFullName = table.concat(currentModuleNameParts, &#34;.&#34;) .. &#34;.&#34; .. moduleFullName
end
break
end
offset = offset + 1
if not currentModuleNameParts then
if not currentModuleName then
local n,v = debug.getlocal(3, 1)
currentModuleName = v
end
currentModuleNameParts = string.split(currentModuleName, &#34;.&#34;)
end
table.remove(currentModuleNameParts, #currentModuleNameParts)
end
return require(moduleFullName)
end
function handler(obj, method)
return function(...)
return method(obj, ...)
end
end
function math.newrandomseed()
local ok, socket = pcall(function()
return require(&#34;socket&#34;)
end)
if ok then
math.randomseed(socket.gettime() * 1000)
else
math.randomseed(os.time())
end
math.random()
math.random()
math.random()
math.random()
end
function math.round(value)
value = checknumber(value)
return math.floor(value + 0.5)
end
local pi_div_180 = math.pi / 180
function math.angle2radian(angle)
return angle * pi_div_180
end
local pi_mul_180 = math.pi * 180
function math.radian2angle(radian)
return radian / pi_mul_180
end
function io.exists(path)
local file = io.open(path, &#34;r&#34;)
if file then
io.close(file)
return true
end
return false
end
function io.readfile(path)
local file = io.open(path, &#34;r&#34;)
if file then
local content = file:read(&#34;*a&#34;)
io.close(file)
return content
end
return nil
end
function io.writefile(path, content, mode)
mode = mode or &#34;w+b&#34;
local file = io.open(path, mode)
if file then
if file:write(content) == nil then return false end
io.close(file)
return true
else
return false
end
end
function io.pathinfo(path)
local pos = string.len(path)
local extpos = pos + 1
while pos > 0 do
local b = string.byte(path, pos)
if b == 46 then -- 46 = char &#34;.&#34;
extpos = pos
elseif b == 47 then -- 47 = char &#34;/&#34;
break
end
pos = pos - 1
end
local dirname = string.sub(path, 1, pos)
local filename = string.sub(path, pos + 1)
extpos = extpos - pos
local basename = string.sub(filename, 1, extpos - 1)
local extname = string.sub(filename, extpos)
return {
dirname = dirname,
filename = filename,
basename = basename,
extname = extname
}
end
function io.filesize(path)
local size = false
local file = io.open(path, &#34;r&#34;)
if file then
local current = file:seek()
size = file:seek(&#34;end&#34;)
file:seek(&#34;set&#34;, current)
io.close(file)
end
return size
end
function table.nums(t)
local count = 0
for k, v in pairs(t) do
count = count + 1
end
return count
end
function table.keys(hashtable)
local keys = {}
for k, v in pairs(hashtable) do
keys[#keys + 1] = k
end
return keys
end
function table.values(hashtable)
local values = {}
for k, v in pairs(hashtable) do
values[#values + 1] = v
end
return values
end
function table.merge(dest, src)
for k, v in pairs(src) do
dest = v
end
end
function table.insertto(dest, src, begin)
begin = checkint(begin)
if begin <= 0 then
begin = #dest + 1
end
local len = #src
for i = 0, len - 1 do
dest = src
end
end
function table.indexof(array, value, begin)
for i = begin or 1, #array do
if array == value then return i end
end
return false
end
function table.keyof(hashtable, value)
for k, v in pairs(hashtable) do
if v == value then return k end
end
return nil
end
function table.removebyvalue(array, value, removeall)
local c, i, max = 0, 1, #array
while i <= max do
if array == value then
table.remove(array, i)
c = c + 1
i = i - 1
max = max - 1
if not removeall then break end
end
i = i + 1
end
return c
end
function table.map(t, fn)
for k, v in pairs(t) do
t = fn(v, k)
end
end
function table.walk(t, fn)
for k,v in pairs(t) do
fn(v, k)
end
end
function table.filter(t, fn)
for k, v in pairs(t) do
if not fn(v, k) then t = nil end
end
end
function table.unique(t, bArray)
local check = {}
local n = {}
local idx = 1
for k, v in pairs(t) do
if not check then
if bArray then
n = v
idx = idx + 1
else
n = v
end
check = true
end
end
return n
end
string._htmlspecialchars_set = {}
string._htmlspecialchars_set[&#34;&&#34;] = &#34;&amp;&#34;
string._htmlspecialchars_set[&#34;\&#34;&#34;] = &#34;&quot;&#34;
string._htmlspecialchars_set[&#34;&#39;&#34;] = &#34;&#039;&#34;
string._htmlspecialchars_set[&#34;<&#34;] = &#34;&lt;&#34;
string._htmlspecialchars_set[&#34;>&#34;] = &#34;&gt;&#34;
function string.htmlspecialchars(input)
for k, v in pairs(string._htmlspecialchars_set) do
input = string.gsub(input, k, v)
end
return input
end
function string.restorehtmlspecialchars(input)
for k, v in pairs(string._htmlspecialchars_set) do
input = string.gsub(input, v, k)
end
return input
end
function string.nl2br(input)
return string.gsub(input, &#34;\n&#34;, &#34;<br />&#34;)
end
function string.text2html(input)
input = string.gsub(input, &#34;\t&#34;, &#34; &#34;)
input = string.htmlspecialchars(input)
input = string.gsub(input, &#34; &#34;, &#34;&nbsp;&#34;)
input = string.nl2br(input)
return input
end
function string.split(input, delimiter)
input = tostring(input)
delimiter = tostring(delimiter)
if (delimiter==&#39;&#39;) then return false end
local pos,arr = 0, {}
-- for each divider found
for st,sp in function() return string.find(input, delimiter, pos, true) end do
table.insert(arr, string.sub(input, pos, st - 1))
pos = sp + 1
end
table.insert(arr, string.sub(input, pos))
return arr
end
function string.ltrim(input)
return string.gsub(input, &#34;^[ \t\n\r]+&#34;, &#34;&#34;)
end
function string.rtrim(input)
return string.gsub(input, &#34;[ \t\n\r]+$&#34;, &#34;&#34;)
end
function string.trim(input)
input = string.gsub(input, &#34;^[ \t\n\r]+&#34;, &#34;&#34;)
return string.gsub(input, &#34;[ \t\n\r]+$&#34;, &#34;&#34;)
end
function string.ucfirst(input)
return string.upper(string.sub(input, 1, 1)) .. string.sub(input, 2)
end
local function urlencodechar(char)
return &#34;%&#34; .. string.format(&#34;%02X&#34;, string.byte(char))
end
function string.urlencode(input)
-- convert line endings
input = string.gsub(tostring(input), &#34;\n&#34;, &#34;\r\n&#34;)
-- escape all characters but alphanumeric, &#39;.&#39; and &#39;-&#39;
input = string.gsub(input, &#34;([^%w%.%- ])&#34;, urlencodechar)
-- convert spaces to &#34;+&#34; symbols
return string.gsub(input, &#34; &#34;, &#34;+&#34;)
end
function string.urldecode(input)
input = string.gsub (input, &#34;+&#34;, &#34; &#34;)
input = string.gsub (input, &#34;%%(%x%x)&#34;, function(h) return string.char(checknumber(h,16)) end)
input = string.gsub (input, &#34;\r\n&#34;, &#34;\n&#34;)
return input
end
function string.utf8len(input)
local len= string.len(input)
local left = len
local cnt= 0
local arr= {0, 0xc0, 0xe0, 0xf0, 0xf8, 0xfc}
while left ~= 0 do
local tmp = string.byte(input, -left)
local i = #arr
while arr do
if tmp >= arr then
left = left - i
break
end
i = i - 1
end
cnt = cnt + 1
end
return cnt
end
function string.formatnumberthousands(num)
local formatted = tostring(checknumber(num))
local k
while true do
formatted, k = string.gsub(formatted, &#34;^(-?%d+)(%d%d%d)&#34;, &#39;%1,%2&#39;)
if k == 0 then break end
end
return formatted
end这部分建议有时间的时候自己看看，语法应该没有什么很难理解的，很多较为常用。
页:
[1]