; 保存为 save with UTF8 with DOM

; 用户创建目录
ConfigDir_Portable    := ".\User"
ConfigDir_UserProfile := USERPROFILE . "\.CapsLockX"
ConfigDir_AppData     := APPDATA . "\CapsLockX"

; 默认值
LaunchConfigDir := ConfigDir_AppData

if ( InStr(FileExist(ConfigDir_AppData), "D")) {
    LaunchConfigDir := ConfigDir_AppData
}
if ( InStr(FileExist(ConfigDir_UserProfile), "D")) {
    LaunchConfigDir := ConfigDir_UserProfile
}
if ( InStr(FileExist(ConfigDir_Portable), "D")) {
    LaunchConfigDir := ConfigDir_Portable
}
FileCreateDir %LaunchConfigDir%

global CLX_ConfigDir := LaunchConfigDir
global CLX_ConfigPath := CLX_ConfigDir . "\CapsLockX-Config.ini"

; 初始化配置
if (!CLX_ConfigPath) {
    Return
}
; 配置文件编码清洗
global CLX_ConfigChangedTickCount
CLX_ConfigChangedTickCount := A_TickCount
; msgbox CONVERT_FILE_TO_UTF16_WITH_BOM_ENCODING1
CONVERT_FILE_TO_UTF16_WITH_BOM_ENCODING(CLX_ConfigPath)
; msgbox CONVERT_FILE_TO_UTF16_WITH_BOM_ENCODING2

CLX_Config("_NOTICE_", "ENCODING_USING", "UTF16_LE", "")

; 基本设定
; [Core]
global T_XKeyAsSpace := CLX_Config("Core", "T_XKeyAsSpace", 1, ("使用 Space 作为引导键（默认启用，游戏玩家可在 .user.ignore.txt 里配置忽略游戏窗口）"))
global T_XKeyAsCapsLock := CLX_Config("Core", "T_XKeyAsCapsLock", 1, ("使用 CapsLock 作为引导键（默认启用）"))
global T_XKeyAsInsert := CLX_Config("Core", "T_XKeyAsInsert", 0, ("使用 Insert 作为引导键"))
global T_XKeyAsScrollLock := CLX_Config("Core", "T_XKeyAsScrollLock", 0, ("使用 ScrollLock 作为引导键"))
global T_XKeyAsRAlt := CLX_Config("Core", "T_XKeyAsRAlt", 0, ("使用 右 Alt 作为引导键"))

global T_UseScrollLockLight := CLX_Config("Advanced", "T_UseScrollLockLight", 0, "进阶： 是否使用 ScrollLock 灯来显示 CapsLockX 状态（不建议）")
global T_UseCapsLockLight := CLX_Config("Advanced", "T_UseCapsLockLight", 0, "进阶： 是否使用 CapsLockX 灯来显示 CapsLockX 状态（强烈不建议）")
global T_SwitchSound := CLX_Config("Advanced", "T_SwitchSound", 0, "进阶： 是否开启CapsLockX模式切换声音提示（默认不开）")
global T_SwitchSoundOn := CLX_Config("Advanced", "T_SwitchSoundOn", "./Data/NoteG.mp3", "CapsLockX 按下声音提示路径")
global T_SwitchSoundOff := CLX_Config("Advanced", "T_SwitchSoundOff", "./Data/NoteC.mp3", "CapsLockX 弹起声音提示路径")
; 不同模式下的拖盘图标
global T_SwitchTrayIconOff := CLX_Config("Advanced", "T_SwitchTrayIconOff", "./Data/XIconWhite.ico", "CapsLockX弹起托盘显示图标，默认为 " "./Data/XIconWhite.ico")
global T_SwitchTrayIconOn := CLX_Config("Advanced", "T_SwitchTrayIconOn", "./Data/XIconBlue.ico", "CapsLockX按下托盘显示图标，默认为 " "./Data/XIconBlue.ico")

IniSave(content, path, field, varName, defaultValue := "")
{
    IniRead, origin, %path%, %field%, %varName%, %defaultValue%
    if (content = origin) {
        return content ; already saved
    }
    IniWrite, %content%, %path%, %field%, %varName%
    return content
}

CLX_ConfigSet(field, varName, setValue, comment := "")
{
    global CLX_ConfigChangedTickCount
    CLX_ConfigChangedTickCount := A_TickCount
    content := setValue

    ConfigLock()
    ; 不对配置自动重新排序
    if (comment) {
        ; IniDelete, %CLX_ConfigPath%, %field%, %varName%#
        ; IniWrite, %comment%, %CLX_ConfigPath%, %field%, %varName%#
        IniSave( comment, CLX_ConfigPath, field, varName . "#" )
    }
    ; IniDelete, %CLX_ConfigPath%, %field%, %varName%
    ; IniWrite, %content%, %CLX_ConfigPath%, %field%, %varName%
    IniSave( content, CLX_ConfigPath, field, varName)
    ConfigUnlock()
    return content
}
CLX_ConfigGet(field, varName, defaultValue)
{
    global CLX_ConfigChangedTickCount
    CLX_ConfigChangedTickCount := A_TickCount

    IniRead, content, %CLX_ConfigPath%, %field%, %varName%, %defaultValue%
    if (content == "ERROR") {
        return ""
    }
    return content
}
CLX_Config(field, varName, defaultValue, comment := "")
{
    global CLX_ConfigChangedTickCount
    CLX_ConfigChangedTickCount := A_TickCount
    IniRead, content, %CLX_ConfigPath%, %field%, %varName%, %defaultValue%
    CLX_ConfigSet(field, varName, content, comment)
    ; 对配置自动重新排序
    ; ConfigLock(field varName)
    ; if (comment) {
    ;     IniDelete, %CLX_ConfigPath%, %field%, %varName%#
    ;     IniWrite, %comment%, %CLX_ConfigPath%, %field%, %varName%#
    ; }
    ; IniDelete, %CLX_ConfigPath%, %field%, %varName%
    ; IniWrite, %content%, %CLX_ConfigPath%, %field%, %varName%
    ; ConfigUnlock()
    return content
}

; convert file to UTF16 (which is required by ReadINI in ahk)
CONVERT_FILE_TO_UTF16_WITH_BOM_ENCODING(path){
    ConfigLock("UTF16_WITH_BOM 文件编码清洗：" path)
    if (FileGetFormat(path) === "UTF-16 LE") {
        ConfigUnlock()
        return
    }
    FileEncoding, UTF-8
    FileRead content, %path%
    FileDelete %path%
    FileAppend %content%, %path%, UTF-16
    FileRead content, %path%
    ConfigUnlock()
}

FileGetFormat(file)
{
    ; https://www.autohotkey.com/board/topic/95986-filegetencoding-filegetformat/
    ; There is no way to determine the file Encoding 100% sure, even if a file contains BOM.
    ; The result of this functions is simply a best guess assuming UTF-8 more common when BOM is missing.
    Static BOM:={      254_255: "UTF-16 BE", 255_254: "UTF-16 LE", 239_187_191: "UTF-8"
        , 0_0_254_255: "UTF-32 BE", 255_254_0_0: "UTF-32 LE", 43_47_118_43: "UTF-7"
        , 43_47_118_47: "UTF-7", 43_47_118_56: "UTF-7", 43_47_118_57: "UTF-7"
        , 221_115_102_115: "UTF-EBCDIC", 132_49_149_51: "GB 18030"}
    f := FileOpen(file, "rw"), f.Pos := 0
    BOM4 := (BOM3 := (BOM2 := f.ReadUChar() "_" f.ReadUChar()) "_" f.ReadUChar()) "_" f.ReadUChar(), f.Close()
    FileRead, f, *c %file%
    if (BOM.HasKey(BOM4)) {
        Return BOM[BOM4]
    }
    if (BOM.HasKey(BOM3)) {
        Return BOM[BOM3]
    }
    if (BOM.HasKey(BOM2)) {
        Return BOM[BOM2]
    }
    FileRead, f, *P65001 %file%
    FileGetSize, size, %file%
    Return StrLen(f) = size ? "ANSI" : "UTF-8 no BOM"
}

CONVERT_FILE_TO_UTF8_WITH_BOM_ENCODING(path){
    ConfigLock("UTF8_WITH_BOM 文件编码清洗：" path)
    if (FileGetFormat(path) === "UTF-8") {
        ConfigUnlock()
        return
    }
    FileEncoding UTF-8
    FileRead content, %path%
    FileDelete %path%
    FileAppend %content%, %path%, UTF-8

    ConfigUnlock()
}

ConfigLock(reason:="")
{
    k:= 0
    while (FileExist(CLX_ConfigPath ".lock")) {
        k := k + 1
        if ( k > 10 ) {
            FileRead lastReason, % CLX_ConfigPath ".lock"
            ; MsgBox, 程序退出, %reason% 配置写入失败，配置文件被意外锁定，上次锁定名义为 %lastReason%
            ConfigUnlock()
            Reload
            ExitApp
            ; return False
        }
        Sleep, 1000
    }
    CLX_DontReload := 1

    FileAppend %reason%, % CLX_ConfigPath ".lock"
    return True
}
ConfigUnlock()
{
    FileDelete % CLX_ConfigPath ".lock"
    CLX_DontReload := 0
    return True
}