--/------------------------------------------------------------------
--/ Functions for Print-Log by Artos
--/------------------------------------------------------------------
--/ конвертер вывода строки лога
function fFormatToString(fmt,...)
     --/ локальная функция: перевод аргумента в стринг
     local to_str = function(val,typ)
         if typ == 'string' then
             return val --/>
         elseif typ == 'number' then
             return tostring(val) --/>
         elseif typ == 'boolean' then
             return tostring(val) --/>
         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('tbl{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
         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
--/------------------------------------------------------------------
--/ printf (функция вывода информации в лог игры)
--/------------------------------------------------------------------
local console = get_console()

function printf(fmt, ...)
     if not console then console = get_console() end
     console:execute("*INFO:"..string.sub(fFormatToString(fmt,...),1,250)) --/ +префикс строки лога (STCS|SCoP: "load ~:")
     console:execute("flush") --/ команда записи буфера лога в файл (в игре можно закомментиировать!)
end
--/------------------------------------------------------------------
--/ Abort (функция принудительного прерывания игры)
--/------------------------------------------------------------------
function abort(fmt, ...)
     printf("ВНИМАНИЕ! Ошибка! Информация по ошибке в строках ниже !")
     printf(string.gsub("ERROR!: "..string.sub(fFormatToString(fmt,...),1,250),'%s','\160'))
     assert(false,"ВНИМАНИЕ! Игра прервана! Информация в строках выше.") --/ прерываем с выводом строки на консоль
     exit() --/> прерываем игру при фатальных ошибках
end
--/
----------------------------------------------------------------------