Функции Для Разработчиков, склад полезных функций

function MyFunc1(...)
  local m=''
  for i=1,select('#',...) do
    m=m..tostring(select(i,...))
  end
  Core.SendToAll(m)
end

MyFunc1("qwerty", "5", 1, 0x22b==555)

qwerty51true

function MyFunc2(...)
  Core.SendToAll(table.concat({...}))
end

MyFunc2("qwerty", "5", 1)

qwerty51

x inverse
1 0
0 1

x y and
0 0 0
1 0 0
0 1 0
1 1 1

x y or
0 0 0
1 0 1
0 1 1
1 1 1

x y xor
0 0 0
1 0 1
0 1 1
1 1 0

x y xnor
0 0 1
1 0 0
0 1 0
1 1 1

x xor y = x and inverse y or inverse x and y
x xnor y = x and y or inverse(x and y)
x xnor y = inverse(x xor y)
x xor y = inverse(x xnor y)
(x xor y) and (x xnor y) = 0
(x xor y) or (x xnor y) = 1

function odd(x)
  return math.floor(x / 2) * 2 ~= x
end

function bit_inverse(x)
  local c, s = 0, 1
  while x > 0 do
    if not odd(x) then
      c = c + s
    end
    s = s * 2
    x = math.floor(x / 2)
  end
  return c
end

function bit_or(x, y)
  local c, s = 0, 1
  while x > 0 or y > 0 do
    if odd(x) or odd(y) then
      c = c + s
    end
    s = s * 2
    x = math.floor(x / 2)
    y = math.floor(y / 2)
  end
  return c
end

function bit_and(x, y)
  local c, s = 0, 1
  while x > 0 or y > 0 do
    if odd(x) and odd(y) then
      c = c + s
    end
    s = s * 2
    x = math.floor(x / 2)
    y = math.floor(y / 2)
  end
  return c
end

function bit_xor(x, y)
  local c, s = 0, 1
  while x > 0 or y > 0 do
    if odd(x) and not odd(y) or odd(y) and not odd(x) then
      c = c + s
    end
    s = s * 2
    x = math.floor(x / 2)
    y = math.floor(y / 2)
  end
  return c
end

function bit_xnor(x, y)
  local c, s = 0, 1
  while x > 0 or y > 0 do
    if odd(x) and odd(y) or not odd(y) and not odd(x) then
      c = c + s
    end
    s = s * 2
    x = math.floor(x / 2)
    y = math.floor(y / 2)
  end
  return c
end

function to_hex(n)
if(type(n) ~= "number") then
error("non-number type passed in.")
end
-- checking not float
if(n - math.floor(n) > 0) then
error("trying to apply bitwise operation on non-integer!")
end
if(n < 0) then
-- negative
n = bit.tobits(bit.bnot(math.abs(n)) + 1)
n = bit.tonumb(n)
end
hex_tbl = {'A','B','C','D','E','F'}
hex_str = ""
while(n ~= 0) do
last = math.mod(n, 16)
if(last < 10) then
hex_str = tostring(last) .. hex_str
else
hex_str = hex_tbl[last-10+1] .. hex_str
end
n = math.floor(n/16)
end
if(hex_str == "") then
hex_str = "0"
end
return hex_str
end
function to_dec(hex)
if(type(hex) ~= "string") then
error("non-string type passed in.")
end
head = string.sub(hex, 1, 2)
if( head ~= "0x" and head ~= "0X") then
error("wrong hex format, should lead by 0x or 0X.")
end
v = tonumber(string.sub(hex, 3), 16)
return v;
end
-- hex lib interface
hex = {
to_dec = to_dec,
to_hex = to_hex,
}

function hex2bin(hex)
local bin_tbl = {[48]='0000',[49]='0001',[50]='0010',[51]='0011',[52]='0100',[53]='0101',[54]='0110',[55]='0111',[56]='1000',[57]='1001',[65]='1010',[66]='1011',[67]='1100',[68]='1101',[69]='1110',[70]='1111'}
local r,j, b = ''
for i=1,#hex do
b=hex:byte(i)
if (b>47 and b<58) or (b>64 and b<71) then j=bin_tbl[b] else return -1 end
if i==1 then j=tonumber(j) end
r=r..j
end
return r;
end

function bin2hex(bin)
local hex_tbl = {['0000']='0',['0001']='1',['0010']='2',['0011']='3',['0100']='4',['0101']='5',['0110']='6',['0111']='7',['1000']='8',['1001']='9',['1010']='A',['1011']='B',['1100']='C',['1101']='D',['1110']='E',['1111']='F'}
local r,b=''
for i=#bin,1,-4 do
b=bin:sub(i-3,i)
if i<4 then b=string.rep('0',4-i)..bin:sub(1,i):sub(-1*i) end
r=r..hex_tbl[b]
end
return r:reverse()
end

local hex_str = ""

_G.string.explode = function(self, Sep)
  local ret = {}
  for k in (self..Sep):gmatch(("(.-)%s+"):format(Sep)) do
    _G.table.insert(ret, k)
  end
  return ret
end

_G.string.explode

function CutText(s)
local txt,sReturn = s.." ",""
local Len,Ln,ln,stemp = txt:len(),0,0,""
for word in string.gmatch(txt, "%S+%s+" ) do
    local wlen = word:len(); Ln,ln = Ln + wlen,ln+wlen
    if ln >= iMargin then
        sReturn = sReturn..stemp.."\r\n\t"; stemp = word; ln = wlen
    else
        stemp = stemp..word
    end    
    if Ln == Len then sReturn = sReturn..stemp; end
end
return sReturn
end

do
  local mt = {}
  function mt:__call(str)
    table.insert(self, str) return self
  end
  function mt:__unm()
    return table.concat(self, "\n")
  end
  function L(...)
    return setmetatable({...}, mt)
  end
end

local p = -L "line 1" "line 2" "line 3"

Core.SendToAll(p)

function prnt(x)
  if x then
    Core.SendToAll(x)
    return prnt
  end
end
prnt "one" "two" "three"

function GetNormalTime(s)
    s=tonumber(s) or 0
    local r=""
    if s>=31104000 then r=math.floor(s/31104000).." г. " s=math.fmod(s,31104000) end
    if s>=2592000 then r=r..math.floor(s/2592000).." мес. " s=math.fmod(s,2592000) end
    if s>=86400 then r=r..math.floor(s/86400).." д. " s=math.fmod(s,86400) end
    if s>=3600 then r=r..math.floor(s/3600).." ч. " s=math.fmod(s,3600) end
    if s>=60 then r=r..math.floor(s/60).." мин. " s=math.fmod(s,60) end
    return r..s.." сек."
end

function bin_and(x, y)
  if y <= x then
    local i, r, a, b = 1, 0, 0, 0
    while 0 < y do
      x, a = math.modf(x / 2)
      y, b = math.modf(y / 2)
      if 0 < a and 0 < b then
        r = r + i
      end
      i = 2 * i
    end
    return r
  end
  return bin_and(y, x)
end

function URICoding(sText)
  local function Check(i)
    if i < 33 or 126 < i then return nil end
    if i == 33 then return true
    elseif 38 < i and i < 43 then return true
    elseif 44 < i and i < 47 then return true
    elseif 47 < i and i < 58 then return true
    elseif 64 < i and i < 91 then return true
    elseif 96 < i and i < 123 then return true
    elseif i == 126 then return true end
  end
  local s, r = AnsiToUtf8(sText), ''
  for i = 1, #s do
    local b = s:byte(i)
    if Check(b) then
      r = r..string.char(b)
    else
      r = r..("%%%X"):format(b)
    end
  end
  return r
end

function StringLower(arg)
    os.setlocale"Russian_Russia.1251"  -- (русс.локаль)
    arg = string.lower(arg)
    os.setlocale("C")  -- (возврат на станд.локаль)
    return arg
end

function StringUpper(arg)
    os.setlocale"Russian_Russia.1251"  -- (русс.локаль)
    arg = string.upper(arg)
    os.setlocale("C")  -- (возврат на станд.локаль)
    return arg
end