--[[ ----------------------------------------------------------------------------------------------
 Платформы: CS 1.5.10, CoP 1.6.02
 Описание : Различные утилиты для работы с данными
 Поддержка: 2013 © Shoker Weapon Mod
 Авторы   : Shoker, <...>
--]] ----------------------------------------------------------------------------------------------

--[[
    TODO:
        * При чтении через ltx() из ini-файла может совпасть имя секции и строка для чтения с похожей
          секцией из system_ini() или любого другого ini, из за чего она буферизируется и перебьёт значения из них
--]]

--************************************************************--
--***********************[Ядро скрипта]***********************--
--************************************************************--
local _SN = script_name()

--**************************************************************--
--********************[Функциональная часть]********************--
--**************************************************************--

--********************** Операции с векторами - Начало **********************--
--\\ Из вектора "вперёд" возвращает вектор "вправо" и вектор "вверх" (Roll не учитывается)
--\\ Спасибо malandrinus за формулы
function get_all_direction(dir)
    --* "Вправо"
    local dir_right = vector()
    dir_right:crossproduct(dir, vector():set(0,1,0))
    dir_right = dir_right:normalize()

    --* "Вверх"
    local dir_up = vector()
    dir_up:crossproduct(dir_right, dir)
    dir_up = dir_up:normalize()

    return dir_right:invert(), dir_up
end

--\\ Принимает координаты на земле и превращает их в координаты для экрана
--\\ Можно использовать в целеуказателях (malandrinus)
function point_to_hud(point)
    local dev = device()
    local scr_w = dev.width
    local scr_h = dev.height

    local fov2 = (dev.fov/2) * (math.pi/180)
    local scr_dist = 0.5 * scr_h / math.tan(fov2)

    local ppp = vector():sub(point, dev.cam_pos)
    local dp = dev.cam_dir:dotproduct(ppp)

    local x = 512 + dev.cam_right:dotproduct(ppp) * scr_dist / dp * (1024/scr_w)
    local y = 384 - dev.cam_top:dotproduct(ppp)   * scr_dist / dp * (768/scr_h)
    return x, y
end

--\\ Вектор X,Y в углах переводит в дирекцию
function angle_to_direction(oangle)
    local yaw = oangle.y
    local pitch = oangle.x
    return vector():setHP(yaw,pitch):normalize()
end
--********************** Операции с векторами - Конец  **********************--


--********************** Работа с конфигами - Начало **********************--
local ltxBuffer = {}    --> Хранит уже загруженные данные из конфигов

--\\ Возвращает значение из секции в конфигах
--  sec         - секция
--  line        - строка
--  *mode       - режим чтения, по умолчанию читает число с точкой ("str", "tbl1", "bol", "num", "numf")
--  *ini_file   - ini-конфиг откуда надо читать, по умолчанию читает из system.ltx и подкл. к нему файлах
-- Внимание: в случае отсутствия секции\строки в конфиге - вылета не будет, так что все такие места
-- проверять соотв. функциями самим. Сделано для упрощения кода.
function ltx(sec, line, mode, ini_file)
    if sec == nil then
        _abort(_SN, "ltx", "sec (%s)(%s)", tostring(line), tostring(mode))
    end

    if not ltxBuffer[sec] then
        ltxBuffer[sec] = {}
    end

    local result = ltxBuffer[sec][line]
    if result ~= nil then
        --* Вектора возвращаются как ссылки! Поэтому их нужно копировать
        if type(result) == "userdata" then
            return utils.vector_copy_by_val(result)
        end

        return result
    end --> Нет смысла каждый раз читать из конфигов, когда достаточно 1 раз записать в таблицу

    local ini = ini_file or system_ini()

    if ltxExist(sec, line, ini) then
        if mode==nil or mode=="numf" then   --> число с запятой
            ltxBuffer[sec][line] = ini:r_float(sec, line)
            return ltxBuffer[sec][line]
        end

        if mode=="bol" then --> true\false
            ltxBuffer[sec][line] = ini:r_bool(sec, line)
            return ltxBuffer[sec][line]
        end

        if mode=="num" then   --> целое число
            ltxBuffer[sec][line] = ini:r_u32(sec, line)
            return ltxBuffer[sec][line]
        end

        if mode=="str" then --> строка
            ltxBuffer[sec][line] = ini:r_string(sec, line)
            return ltxBuffer[sec][line]
        end

        if mode=="vec" then --> вектор
            local vec = ini:r_vector(sec, line)
            ltxBuffer[sec][line] = vec
            return ltxBuffer[sec][line]
        end

        if mode=="tbl1" then --> таблица из строки с запятыми (1 = ..., 2 = ....)
            local temp = ini:r_string(sec, line)
            ltxBuffer[sec][line] = string_expl(temp, ",")
            return ltxBuffer[sec][line]
        end
    end

    -- mDbg(_SN, "ltx - no section: "..sec.." || "..line)
    return nil
end


--\\ Позволяет выставить значение какого либо из загруженных параметров конфига
function ltxBufferW(sec, line, value)
    if not ltxBuffer[sec] then
           ltxBuffer[sec] = {}
    end

    ltxBuffer[sec][line] = value
end

--\\ Возвращает имя и описание предмета
--  sec - секция предмета в конфигах
function ltxItem(sec)
    local name  = ltx(sec, "inv_name", "str") or ""
    local descr = ltx(sec, "description", "str") or ""

    return xml(name), xml(descr)
end

--\\ Проверяет, что такая комбинация секции-*строки существует в конфиге
--  sec         - секция
--  *line       - строка
--  *ini_file   - ini-конфиг откуда надо читать, по умолчанию читает из system.ltx и подкл. к нему файлах
function ltxExist(sec, line, ini_file)
    local ini = ini_file or system_ini()
    if sec == nil then _abort(_SN, "ltxExist", "sec") end
    if not ini:section_exist(sec) then return false end
    if line and not ini:line_exist(sec, line) then return false end
    return true
end

--\\ Возвращает <text> из текстового xml-файла
--  xml_id  - идентификатор текста
function xml(xml_id)
    return game.translate_string(xml_id)
end

--\\ Преобразует таблицу в отформатированную строку для записи в custom data
--[[
    local value = 123
    local cd = {}
    cd["test"] = {}
    cd["test"]["line"] = value
    cd["test"]["simple_table"] = {2,4,6,8}
    cd["test"]["extended_table"] = {val1 = 1, val2 = 2, val3 = 3}

    [test]
    line = 123
    simple_table = 2468
    extended_table = val1, 1, val2, 2, val3, 3
]]
function tocdata(tTbl)
    local result = ""
    for sec, tData in pairs(tTbl) do
        result = result.."\n["..sec.."]\n"
        if type(tData) ~= "table" then
            _abort(_SN, "tocdata", "tData is not table! result = %s, tData = %s", result, tostring(tData))
        else
            for line, t_Param in pairs(tData) do
                result = result..tostring(line).." = "
                if type(t_Param) == "table" then
                    if table_size(t_Param) > 0 and #t_Param > 0 then
                    --* Скорее всего это нумерованная таблица, пакуем её без ключа
                        for _,p1 in pairs(t_Param) do
                            local first = true
                            if first then
                                result = result..tostring(p1)
                                first = false
                            else
                                result = result..", "..tostring(p1)
                            end
                        end
                    else
                    --* Хэш-таблица, её пишем вместе с ключами
                        local first = true
                        for p1,p2 in pairs(t_Param) do
                            if first then
                                result = result..tostring(p1)..", "..tostring(p2)
                                first = false
                            else
                                result = result..", "..tostring(p1)..", "..tostring(p2)
                            end
                        end
                    end
                    result = result.."\n"
                else
                    result = result..tostring(t_Param).."\n"
                end
            end
        end
    end

    return result
end
--********************** Работа с конфигами - Конец **********************--

--\\ Крэшнуть игру с выводом в лог
function _abort(script_name, function_name, error_string, ...)
    if script_name == nil then
       script_name = "<nil>"
    end

    if function_name == nil then
       function_name = "<nil>"
    end

    abort("%s.%s - "..error_string, script_name, function_name, ...)
end

--\\ Вывод в лог
function log(text)
    if _console == nil or (_console.GetVal("dbg.log") == true) then
        get_console():execute("load ~~ " .. tostring(text))
    end
end

--\\ Подсчёт кол-ва элементов в таблице (под-таблицы считает за 1 элемент)
function table_size(tTbl)
    local count = 0
    for _,_ in pairs(tTbl) do
        count = count + 1
    end

    return count
end

--! Внимание: стандартный шаблон плохо работает с "особыми" символами (например #) и разбивает строку криво
function string_expl(sStr, sDiv, Mode, bNoClear)
  sStr = tostring(sStr)
  if not (sStr ~= "nil" and sStr ~= '') then return {} end --> нечего разделять
  local tRet = {}
  local sPattern = '[%w%_]+' --> дефолтный патерн (разделение по 'словам')
  if type(sDiv) == "string" then --> если задан сепаратор: разделяем по нему
    if bNoClear then --> если НЕ указано 'чистить пробелы'
      sPattern = '([^'..sDiv..']+)'
    else --> иначе с чисткой пробелов
      sPattern = '%s*([^'..sDiv..']+)%s*'
    end
  end
  --* разделяем строку по патерну
  if Mode == nil then --> обычный массив
    for sValue in sStr:gmatch(sPattern) do
      table.insert(tRet, sValue)
    end
  else
    local sTypeMode = type(Mode)
    if sTypeMode == "boolean" then --> таблица '[значение] = true или false'
      for sValue in sStr:gmatch(sPattern) do
        tRet[sValue] = Mode
      end
    elseif sTypeMode == "number" then --> таблица '[idx] = число или стринг'
      for sValue in sStr:gmatch(sPattern) do
        tRet[#tRet+1] = tonumber(sValue) or sValue
      end
    end
  end
  return tRet --> возвращаем таблицу
end