-- CalcPaths.lua by Egaltech s.r.l. 2022/03/30
-- Calcolo percorsi di lavoro per Stampa 3d

-- Tabella per definizione modulo
local CSVManager = {}

-- Intestazioni
require( 'EgtBase')

EgtOutLog( ' CSVManager started', 1)

-- Dati
local AMD = require( 'AddManData')

---------------------------------------------------------------------
function toCSV (t)
   local s = ""
   for _,p in pairs(t) do
      s = s .. "," .. escapeCSV(p)
   end
   return string.sub(s, 2)      -- remove first comma
end

---------------------------------------------------------------------
function escapeCSV (s)
   if string.find(s, '[,"]') then
      ns = '"' .. string.gsub(s, '"', '""') .. '"'
   end
   return s
end

---------------------------------------------------------------------
local function fromCSV(s)
   s = s .. ';'        -- ending comma
   local t = {}        -- table to collect fields
   local fieldstart = 1
   repeat
      -- next field is quoted? (start with `"'?)
      if string.find(s, '^"', fieldstart) then
         local a, c
         local i  = fieldstart
         repeat
         -- find closing quote
         a, i, c = string.find(s, '"("?)', i+1)
         until c ~= '"'    -- quote not followed by quote?
         if not i then error('unmatched "') end
         local f = string.sub(s, fieldstart+1, i-1)
         table.insert(t, (string.gsub(f, '""', '"')))
         fieldstart = string.find(s, ';', i) + 1
      else                -- unquoted; find next comma
         local nexti = string.find(s, ';', fieldstart)
         table.insert(t, string.sub(s, fieldstart, nexti-1))
         fieldstart = nexti + 1
      end
   until fieldstart > string.len(s)
   return t
end

---------------------------------------------------------------------
function read_file( path)
    local file = io.open( path, "r") -- r read mode and b binary mode
    if not file then return nil end
    local CSVTable = {}

    for line in io.lines( path) do
       CSVTable[#CSVTable + 1] = fromCSV( line)
    end

    file:close()

    return CSVTable
end

---------------------------------------------------------------------
return CSVManager