--/ Functions for Print-Log
--/------------------------------------------------------------------
local console --/ переменная, кеширующая функцию консоли
--/----------------------------------------------
--/ вывод в буфер лога
--/ незначительно нагружает игру, но при фатальных ошибках информация из буфера лога может быть утеряна
--/----------------------------------------------
function printf(fmt,...)
if not console then console = get_console() end
if next({...}) then
fmt = string.sub(this.FormatToString(fmt,...),1,250)
console:execute("load :>"..fmt)
else
console:execute("load :>"..tostring(fmt))
end
end
--/----------------------------------------------
--/ вывод в лог-файл
--/ сохраняет каждую строку в лог-файл в реальном времени, но в циклах и апдейтах может значително тормозить игру.
--/----------------------------------------------
function print_f(...)
printf(...)
console:execute("flush") --/ команда записи буфера лога в файл
end
--/----------------------------------------------
--/ конвертер строки для 'printf'
--/----------------------------------------------
function FormatToString(fmt,...)
--/ локальная функция: перевод аргумента в стринг
local to_str = function(val,typ)
if typ == 'boolean' then
return tostring(a) --/>
elseif typ == 'table' or typ == 'userdata' then
if tonumber(val.x) and tonumber(val.y) and tonumber(val.z) then
if typ == 'table' then
return string.format('tab{x=%.3f:y=%.3f:z=%.3f}',val.x,val.y,val.z) --/>
end
return string.format('vec(x=%.3f:y=%.3f:z=%.3f)',val.x,val.y,val.z) --/>
end
elseif typ == 'number' then
return tostring(val) --/>
elseif typ == 'string' then
return val --/>
end
return "<"..typ..">" --/>
end
--/ основное тело функции: парсинг исходной строки
if type(fmt) == 'string' then
if fmt:match('%\%[s|d]') then --/ есть патерн(ы)
if next({...}) then --/ есть аргумент(ы)?
local arg,val,typ,i = {...},nil,nil,nil
for i=1,#arg do
val = arg[i] --/ значение текущего аргумента
typ = type(val) --/ тип текущего аргумента
if typ == 'string' then
fmt = fmt:gsub('%\%s',val,1)
elseif typ == 'number' then
if fmt:match('%\%d') then
fmt = fmt:gsub('%\%d',val,1)
else
fmt = fmt:gsub('%\%s',val,1)
end
else
fmt = fmt:gsub('%\%s',to_str(val,typ),1)
end
end
end
fmt = fmt:gsub('%\%[s|d]',"<NOT_arg!>") --/ заглушка от отсутствия аргументов
end
else
fmt = to_str(fmt,type(fmt))
end
--/ с заменой обычных пробелов (sym_space='\032') на печатные ('\160')
return fmt:gsub('%s','\160') --/>
end
--/------------------------------------------------------------------
--/ Abort (функция принудительного прерывания игры)
--/------------------------------------------------------------------
function abort(fmt, ...)
local sReason = this.FormatToString(fmt or "<>",...) or '<Not_reason>'
assert("ERROR:" .. sReason)
if not console then console = get_console() end
console:execute(string.rep("~",96))
console:execute("load :>ВНИМАНИЕ!_Ошибка!_Ниже_строка_с_информацией_по_ошибке!")
console:execute("load :>ОШИБКА:"..string.gsub(sReason,"%s",'\160'),1,500)
console:execute("load :>ВНИМАНИЕ!_Игра_прервана!")
console:execute("load :>"..string.rep("~",96))
console:execute("flush")
exit() --/> прерываем игру при фатальных ошибках
end
--/------------------------------------------------------------------