# --- <FAForeverRoot>/bin/init_scta.lua ----
local File = '*.scta'

# Some functions
local function mount_dir(dir, mountpoint)
    table.insert(path, { dir = dir, mountpoint = mountpoint })
end
local function mount_contents(dir, mountpoint)
    LOG('checking '..dir)
    for _,entry in io.dir(dir..'\\*') do
        if entry != '.' and entry != '..' then
            local mp = string.lower(entry)
            mp = string.gsub(mp, '[.]scd$', '')
            mp = string.gsub(mp, '[.]zip$', '')
            mp = string.gsub(mp, '[.]faf$', '')
            mp = string.gsub(mp, '[.]scta$', '')
            mount_dir(dir..'\\'..entry, mountpoint..'/'..mp)
        end
    end
end

dofile(InitFileDir..'\\SupComDataPath.lua')

LOG('Hooking SCTA')
table.insert(hook, '/sctahook')

local oldPath = path
path = {}

mount_dir(InitFileDir..'\\..\\gamedata\\'..File, '/')

for k, v in oldPath do
    table.insert(path, v)
end

-- <FAForeverRoot>bin/init_scta.lua

-- this imports a path file that is written by Forged Alliance Forever right before it starts the game.
dofile(InitFileDir .. '\\..\\fa_path.lua')

# Some functions
local function mount_dir(dir, mountpoint)
    table.insert(path, { dir = dir, mountpoint = mountpoint })
end
local function mount_contents(dir, mountpoint)
    LOG('checking '..dir)
    for _,entry in io.dir(dir..'\\*') do
        if entry != '.' and entry != '..' then
            local mp = string.lower(entry)
            mp = string.gsub(mp, '[.]scd$', '')
            mp = string.gsub(mp, '[.]zip$', '')
            mp = string.gsub(mp, '[.]faf$', '')
            mp = string.gsub(mp, '[.]scta$', '')
            mount_dir(dir..'\\'..entry, mountpoint..'/'..mp)
        end
    end
end

dofile(InitFileDir..'\\SupComDataPath.lua')

LOG('Hooking SCTA')
table.insert(hook, '/sctahook')

local oldPath = path
path = {}

blacklist = {
"00_BigMap.scd",
"00_BigMapLEM.scd",
"fa-ladder.scd",
"fa_ladder.scd",
"faladder.scd",
"powerlobby.scd",
"02_sorian_ai_pack.scd",
"03_lobbyenhancement.scd",
"randmap.scd",
"_Eject.scd",
"Eject.scd"
}

local function mount_dir_with_blacklist(dir, glob, mountpoint)
    LOG('checking ' .. dir .. glob)
    for _,entry in io.dir(dir .. glob) do
        if entry != '.' and entry != '..' then
         local safe = true
         for i, black in blacklist do
            safe = safe and (string.find(entry, black, 1) == nil)
         end
         if safe then
            mount_dir(dir .. entry, '/')
         else
            LOG('not safe ' .. dir .. entry)
         end
        end
    end
end
-- these are the classic supcom directories. They don't work with accents or other foreign characters in usernames
mount_contents(SHGetFolderPath('PERSONAL') .. 'My Games\\Gas Powered Games\\Supreme Commander Forged Alliance\\mods', '/mods')
mount_contents(SHGetFolderPath('PERSONAL') .. 'My Games\\Gas Powered Games\\Supreme Commander Forged Alliance\\maps', '/maps')

-- these are the local FAF directories. The My Games ones are only there for people with usernames that don't work in the uppder ones.
mount_contents(InitFileDir .. '\\..\\user\\My Games\\Gas Powered Games\\Supreme Commander Forged Alliance\\mods', '/mods')
mount_contents(InitFileDir .. '\\..\\user\\My Games\\Gas Powered Games\\Supreme Commander Forged Alliance\\maps', '/maps')

mount_dir(InitFileDir..'\\..\\gamedata\\*.scta', '/')
mount_dir_with_blacklist(fa_path .. '\\gamedata\\', '*.scd', '/')

for k, v in oldPath do
    table.insert(path, v)
end