Michael Bulychev (Все сообщения пользователя)

except = require('except')

function logger_error(str)
  message(tostring(str))
end


function bad1()
   x = except.zero_divizion()
   return x
end

function bad2()
   x = except.null_pointer()
   return x
end

function err_handler(err)
  logger_error("Logger: " .. tostring(err))
  logger_error(debug.traceback())
end
function main()
   res, msg = xpcall(bad1, err_handler)

   if not res and msg then
     logger_error("call bad1: " .. tostring(msg))
   end
   
   res, msg = xpcall(bad2, err_handler)

   if not res and msg then
     logger_error("call bad2: " .. tostring(msg))
   end
end
 

p_classcode='SPBFUT' 
p_seccode='SiU5' 
svecha=0
 

require "iuplua"
 

local item = { 1, 2, 3, 4}
local _ins = table.insert
local _rem = table.remove

function remove_first(t)
   return _rem(t, 1)
end

function prepare(t, item, size)
   t={}
   for i=1, size do
      t[i] = item
   end
   return t
end

for s=500, 10000, 100 do
   T = prepare(T, item, s)
   _start = os.clock()
      while remove_first(T) do   end
   _end = os.clock()
   print(string.format("%d\t%.3f", s,  (_end - _start)))
end
 

/*
@@ LUAI_MAXVARS is the maximum number of local variables per function
@* (must be smaller than 250).
*/
#define LUAI_MAXVARS      200 

MAX_LOCALS=arg[1] or 200

for i=1, MAX_LOCALS do
   if i%10 ==0 then
      io.write("\n")
   end
   io.write(string.format("local x%03d ", i))
end
io.write("\n")

print("function foo()\n")
io.write("\t")
for i=1, MAX_LOCALS do
   if i%10 ==0 then
      io.write("\n\t")
   end
   io.write(string.format("local x%03d ", i))
end
print("\n\treturn 1\nend\n")

print("function foo1()\n")
io.write("\t")
for i=1, MAX_LOCALS do
   if i%10 ==0 then
      io.write("\n\t")
   end
   io.write(string.format("local x%03d ", i))
end
print("\n\treturn 1\nend\n")
 

label_params.DATE=string.format("%4d%02d%02d", t[v].datetime.year, t[v].datetime.month, t[v].datetime.day)  
label_params.TIME=string.format("%02d%02d%02d", t[v].datetime.hour, t[v].datetime.min, t[v].datetime.sec)

math.huge is a constant. It represents +infinity. 
> = math.huge
inf
> = math.huge / 2
inf
> = -math.huge
-inf
> = math.huge/math.huge   -- indeterminate
nan
> = math.huge * 0         -- indeterminate
nan
> = 1/0
inf
> = (math.huge == math.huge)
true
> = (1/0 == math.huge)
true
Note that some operations on math.huge return a special "not-a-number" value that displays as nan. This is a bit of a misnomer. nan is a number type, though it's different from other numbers:> = type(math.huge * 0)
number