local base = _G

module('Serializer')
-- модуль для сохранения таблицы в файл
-- могут быть сохранены переменные типа число, строка или булевский тип
-- таблица сохраняется в текущий поток вывода
-- если вы хотите, чтобы сохранение производилось в файл,
-- то поток вывода Lua должен быть предварительно настроен, например так:
-- открываем файл для записи данных
-- local f = io.open("data.lua", "w")
-- сохраняем предыдущий поток вывода
-- local prevOutput = io.output()
-- устанавливаем вывод стандартного потока в наш файл
-- io.output(f)
-- сериализация...
-- закрываем файл
-- f:close()
-- восстанавливаем предыдущий поток вывода
-- io.output(prevOutput)
-- ...

-- проверка, что переменная может быть сохранена как строка 
-- т.е это число, строка или булевский тип)
local function isValidType(valueType)
  return "number" == valueType or 
         "boolean" == valueType or 
         "string" == valueType
end

-- конвертация переменной в строку
local function valueToString (value)
    local valueType = base.type(value)
  
    if "number" == valueType or "boolean" == valueType then
        result = base.tostring(value)
    else  -- assume it is a string
    --result = base.string.format("%q", value)
        value = base.string.gsub( value, "\n", "\\n" )
        if base.string.match( base.string.gsub(value,"[^'\"]",""), '^"+$' ) then
            return "'" .. value .. "'"
        else
            return '"' .. base.string.gsub(value,'"', '\\"' ) .. '"'
        end
    end
    return result
end

function save (name, value, saved)
  saved = saved or {}       -- initial value
  base.io.write(name, " = ")
  local valueType = base.type(value)
  if isValidType(valueType) then
    base.io.write(valueToString(value), "\n")
  elseif "table" == valueType then
    if saved[value] then    -- value already saved?
      base.io.write(saved[value], "\n")  -- use its previous name
    else
      saved[value] = name   -- save name for next time
      base.io.write("{}\n")     -- create a new table
      for k,v in base.pairs(value) do      -- save its fields
        -- добавляем проверку ключа таблицы
        local keyType = base.type(k)
        if isValidType(keyType) then
          local fieldname = base.string.format("%s[%s]", name, valueToString(k))
          save(fieldname, v, saved)
        else
          base.error("cannot save a " .. keyType)
        end
      end
    end
  else
    base.error("cannot save a " .. valueType)
  end
end

local table2string
table2string = function (table)
    local str
    for k,v in pairs(table) do
        if type(v)=="string" or type(v)=="number" then
            str=str..k.."="..v..';'
        elseif type(v)=="table"then
            str=str..k.."={"..table2string(v).."};"
        elseif type(v)=="function" or type(v)=='boolean' then
            str=str..k..'='..tostring(v)..';'
        end
    end
    return str
end

local function table2string(table)
    local str
    for k,v in pairs(table) do
        if type(v)=="string" or type(v)=="number" then
            str=str..k.."="..v..';'
        elseif type(v)=="table"then
            str=str..k.."={"..table2string(v).."};"
        elseif type(v)=="function" or type(v)=='boolean' then
            str=str..k..'='..tostring(v)..';'
        end
    end
    return str
end

function serialize (o)
    if type(o) == "number" then io.write (o)
    elseif type(o) == "string" then io.write(string.format("%q", o))
    elseif type(o) == "table" then
        io.write("{\n")
        for k,v in pairs(o) do
            io.write(" ", k, " = ") serialize(v) io.write(",\n")
        end
        io.write("}\n")
    else
        error("cannot serialize a " .. type(o))
    end
end

local function toLog(file_path,value, isLog, isDebug, isTest)
    -- запись в лог параметра value
    -- value может быть числом, строкой или таблицей
    -- file_path  -  путь к файлу
    -- файл открывается на дозапись и закрывается после записи строки
    if value~=nil then
        local lStr
        if type(value)=="string" or type(value)=="number" then lStr = value
        elseif type(value)=='boolean' then lStr = tostring(value)
        elseif type(value)=="table" then lStr = table2string(value)
        end
        if file_path~=nil and lStr ~=nil and isLog then
            local lf=io.open(file_path,"a+")
            if lf~=nil then
                lf.write(tostring(os.date("%H:%M:%S")) .. "\t" .. lStr .."\n")
                if io.type(lf)~="file" then    lf=io.open(file_path,"a+") end
                lf.flush()
                if io.type(lf)=="file" then    lf:close() end
            end
        end
        if isDebug then
            if isTest then
                print(os.date("%H:%M:%S") .. " " .. lStr)
            else
                PrintDbgStr(lStr)
            end
        end
    end
end