132 lines
2.1 KiB
Lua
132 lines
2.1 KiB
Lua
local next,type=next,type
|
|
local TABLE={}
|
|
|
|
--Copy [1~#] elements
|
|
function TABLE.shift(org)
|
|
local L={}
|
|
for i=1,#org do
|
|
if type(org[i])~="table"then
|
|
L[i]=org[i]
|
|
else
|
|
L[i]=TABLE.shift(org[i])
|
|
end
|
|
end
|
|
return L
|
|
end
|
|
|
|
--Copy all elements
|
|
function TABLE.copy(org)
|
|
local L={}
|
|
for k,v in next,org do
|
|
if type(v)~="table"then
|
|
L[k]=v
|
|
else
|
|
L[k]=TABLE.copy(v)
|
|
end
|
|
end
|
|
return L
|
|
end
|
|
|
|
--For all things in G if same type in base, push to base
|
|
function TABLE.update(G,base)
|
|
for k,v in next,G do
|
|
if type(v)==type(base[k])then
|
|
if type(v)=="table"then
|
|
TABLE.update(v,base[k])
|
|
else
|
|
base[k]=v
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
--For all things in G if no val in base, push to base
|
|
function TABLE.complete(G,base)
|
|
for k,v in next,G do
|
|
if base[k]==nil then
|
|
base[k]=v
|
|
elseif type(v)=="table"and type(base[k])=="table"then
|
|
TABLE.complete(v,base[k])
|
|
end
|
|
end
|
|
end
|
|
|
|
--Remove positive integer index of table
|
|
function TABLE.cut(G)
|
|
for i=#G,1,-1 do
|
|
G[i]=nil
|
|
end
|
|
end
|
|
|
|
--Clear table
|
|
function TABLE.clear(G)
|
|
for k in next,G do
|
|
G[k]=nil
|
|
end
|
|
end
|
|
|
|
--Re-index string value of a table
|
|
function TABLE.reIndex(org)
|
|
for k,v in next,org do
|
|
if type(v)=="string"then
|
|
org[k]=org[v]
|
|
end
|
|
end
|
|
end
|
|
|
|
--Dump a simple lua table
|
|
do--function TABLE.dump(L,t)
|
|
local find=string.find
|
|
local tabs={
|
|
[0]="",
|
|
"\t",
|
|
"\t\t",
|
|
"\t\t\t",
|
|
"\t\t\t\t",
|
|
"\t\t\t\t\t",
|
|
}
|
|
function dump(L,t)
|
|
local s
|
|
if t then
|
|
s="{\n"
|
|
else
|
|
s="return{\n"
|
|
t=1
|
|
if type(L)~="table"then
|
|
return
|
|
end
|
|
end
|
|
local count=1
|
|
for k,v in next,L do
|
|
local T=type(k)
|
|
if T=="number"then
|
|
if k==count then
|
|
k=""
|
|
count=count+1
|
|
else
|
|
k="["..k.."]="
|
|
end
|
|
elseif T=="string"then
|
|
if find(k,"[^0-9a-zA-Z_]")then
|
|
k="[\""..k.."\"]="
|
|
else
|
|
k=k.."="
|
|
end
|
|
elseif T=="boolean"then k="["..k.."]="
|
|
else error("Error key type!")
|
|
end
|
|
T=type(v)
|
|
if T=="number"then v=tostring(v)
|
|
elseif T=="string"then v="\""..v.."\""
|
|
elseif T=="table"then v=dump(v,t+1)
|
|
elseif T=="boolean"then v=tostring(v)
|
|
else error("Error data type!")
|
|
end
|
|
s=s..tabs[t]..k..v..",\n"
|
|
end
|
|
return s..tabs[t-1].."}"
|
|
end
|
|
TABLE.dump=dump
|
|
end
|
|
|
|
return TABLE |