--[[
@noindex

This file is a part of "ReaClassical" package.
See "ReaClassical.lua" for more information.

Copyright (C) 2022–2024 chmaha

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
]]

for key in pairs(reaper) do _G[key] = reaper[key] end

local main, copy_file, get_path

---------------------------------------------------------------------

function main()
    local separator = package.config:sub(1, 1)
    local resource_path = GetResourcePath()
    local menu_relative_path = get_path("", "Scripts", "chmaha Scripts", "ReaClassical", "ReaClassical-menu.ini")
    local source_file_path = resource_path .. menu_relative_path
    local destination_file_path = resource_path .. separator .. "reaper-menu.ini"
    local kb_relative_path = get_path("", "Scripts", "chmaha Scripts", "ReaClassical", "ReaClassical-kb.ini")
    local source_shortcuts_path = resource_path .. kb_relative_path
    local dest_shortcuts_path = resource_path .. separator .. "reaper-kb.ini"

    local sync_reapack = reaper.NamedCommandLookup("_REAPACK_SYNC")
    Main_OnCommand(sync_reapack, 0)
    ShowMessageBox("1) Syncing ReaPack repos. Please wait for this to complete before pressing OK.",
        "ReaClassical Updater", 0)

    local response1 = ShowMessageBox(
    "2) This section will overwrite your custom toolbars.\nAre you sure you want to continue?", "ReaClassical Updater", 4)
    if response1 == 6 then
        copy_file(source_file_path, destination_file_path)
    end

    local response2 = ShowMessageBox(
    "3) This section will overwrite your custom keymaps!\nAre you sure you want to continue?", "ReaClassical Updater", 4)
    if response2 == 6 then
        copy_file(source_shortcuts_path, dest_shortcuts_path)
    end

    if response1 == 6 or response2 == 6 then
    ShowMessageBox("4) REAPER/ReaClassical will now close.", "ReaClassical Updater",0)
    reaper.Main_OnCommand(40004, 0) -- Save dirty projects and close REAPER
    end
end

---------------------------------------------------------------------

function copy_file(source, destination)
    -- Check if destination file exists
    local destination_file_exists = io.open(destination, "rb")
    if destination_file_exists then
        destination_file_exists:close()
        -- Backup existing destination file
        local backup_destination = destination .. ".backup"
        local success, err = os.rename(destination, backup_destination)
        if not success then
            ShowMessageBox("Error creating backup: " .. err, "ReaClassical Updater", 0)
            return
        end
    end

    -- Open source file
    local source_file = io.open(source, "rb")
    if not source_file then
        ShowMessageBox("Error opening source file: " .. source, "ReaClassical Updater", 0)
        return
    end

    -- Open destination file
    local destination_file = io.open(destination, "wb")
    if not destination_file then
        source_file:close()
        ShowMessageBox("Error opening destination file: " .. destination, "ReaClassical Updater", 0)
        return
    end

    -- Read content from source and write to destination
    local content = source_file:read("*a")
    destination_file:write(content)

    --Close files
    source_file:close()
    destination_file:close()
end

---------------------------------------------------------------------

function get_path(...)
    local pathseparator = package.config:sub(1, 1);
    local elements = { ... }
    return table.concat(elements, pathseparator)
end

---------------------------------------------------------------------

main()