-- edit by kinn
scite_Command {
	'maintain tools |ShowMaintain|Ctrl+F8'
}
--print('test========='..lua_LoadPath())
local my_path=lua_LoadPath()

local len = string.len

local cmd_copy_lua_to_shareTmp='<copy  lua  to share_tmp(207-jin-x60)> '
local cmd_copy_lua_from_shareTmp='<copy  lua  from share_tmp> '
local cmd_make_zip='<make zip file > '
local cmd_update='<update command> '

local dis_cmd_cpy={}
local begcpyPos, endcpyPos,cmdStartcpyPos,cmdendcpyPos,cpToSharePos,cpFromSharePos,makeZipFromScite

scite_OnInit(function(order1,order2)
    if order1==0 and order2 ==0 then
        local f = io.open(my_path.."/maintain_tool.cnf", "r")
        if not f then
            return false
        end
        for line in f:lines() do
            local field,Value=line:match('^([^=]+)=(.*)$')
            if field == 'begcpyPos' then
                begcpyPos=tonumber(Value)
            elseif field == 'endcpyPos' then
                endcpyPos=tonumber(Value)
            elseif field == 'cmdStartcpyPos' then
                cmdStartcpyPos=tonumber(Value) 
            elseif field == 'cmdendcpyPos' then
                cmdendcpyPos=tonumber(Value) 
            elseif field == 'cpToSharePos' then
                cpToSharePos=tonumber(Value)
            elseif field == 'cpFromSharePos' then
                cpFromSharePos=tonumber(Value) 
            elseif field == 'makeZipFromScite' then
                makeZipFromScite=tonumber(Value) 
            end
        end
        f:close()
    end
    return false
end)
scite_OnFinalise(function()
    local f = io.open(my_path.."/maintain_tool.cnf", "w")
    if not f then
        return false
    end
    if begcpyPos then
        f:write('begcpyPos='..begcpyPos..'\n')
        f:write('endcpyPos='..endcpyPos..'\n')
        f:write('cmdStartcpyPos='..cmdStartcpyPos..'\n')
        f:write('cmdendcpyPos='..cmdendcpyPos..'\n')
        f:write('cpToSharePos='..cpToSharePos..'\n')
        f:write('cpFromSharePos='..cpFromSharePos..'\n')
        f:write('makeZipFromScite='..makeZipFromScite..'\n')
    else
        --os.remove(my_path.."/ctagsdx.cnf")
        f:write()
    end
    f:close()

    return false
end)

function PosMaintainAdjust(diff)
    begcpyPos = begcpyPos+diff
    endcpyPos = endcpyPos+diff
    cmdStartcpyPos = cmdStartcpyPos+diff
    cmdendcpyPos = cmdendcpyPos+diff
    cpToSharePos = cpToSharePos +diff
    cpFromSharePos = cpFromSharePos+diff
    makeZipFromScite = makeZipFromScite+diff
end
function AdjustMaintainDelete(bPos,ePos)
    --print('AdjustMaintainDelete'..bPos..','..ePos..':'..begcpyPos..':'..endcpyPos)
    --pane.Focus and 
	if begcpyPos and endcpyPos > begcpyPos then
		if ePos <= begcpyPos then
            local diff=(ePos-bPos)
            PosMaintainAdjust(-diff)
		elseif  bPos >= endcpyPos then
		   --print('-----')
		else
			begcpyPos=-1
			endcpyPos=-1
		end
	end
end
function AdjustMaintainAdd(count)
	if begcpyPos and endcpyPos > begcpyPos then
		if output.CurrentPos <= begcpyPos then
            PosMaintainAdjust(count)
		elseif output.CurrentPos < endcpyPos then
			--begcpyPos=begcpyPos+count
			begcpyPos=-1
			endcpyPos=-1
			--return true
		end
	end
	return false
end

scite_OnKey(function(keyval, shift,ctl,atl)
      --print(keyval)
	--print('start:'..output.SelectionStart..',end:'..output.SelectionEnd)
	if output.Focus and not shift and not ctl and not atl and ( keyval <37 or  keyval > 40) then
        if output.SelectionStart<output.SelectionEnd then
            AdjustMaintainDelete(output.SelectionStart,output.SelectionEnd)
        -- delete 46(.) , Back space 8
        elseif  keyval == 46 or  keyval == 8 then
            AdjustMaintainAdd(-1)
        end
	end
	return false
end)

scite_OnChar(function(ch)
    --print(ch)
    if output.Focus then
        AdjustMaintainAdd(1)
    end
end)

scite_outputRemove(function(pane,bPos,ePos)
	--print('start:'..output.SelectionStart..',end:'..output.SelectionEnd)
	if  pane == output then
		--print("---"..keyval)
		AdjustMaintainDelete(bPos,ePos)
	end
	return false
end)
scite_OnMenuCommand(function(cmd,pane)
	--print('cmd:'..cmd)
	if pane == IDM_RUNWIN and  (cmd == IDM_CUT  or cmd == IDM_CLEAR) then
		AdjustMaintainDelete(output.SelectionStart,output.SelectionEnd)
	end
	return false
end)
-- exe_command()
function exe_command(cmd)
    local f = scite_Popen(cmd)
    table.insert(dis_cmd_cpy, cmd)
    return f
end

-- make_zip_from_scite()
function make_zip_from_scite()
    directoryToCreate='D:\\temp\\Give\\scite_'
    
    winrar_dir='reg query "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\WinRAR.exe" /v Path | find "Path"'
    f=exe_command(winrar_dir)
    local  dir_tmp=f:read("*all")
    local dir=string.gsub(dir_tmp, '^.*%s+REG_SZ%s+(%S.+%S)%s*$', "%1")

    local make_zip='xcopy '..extman_Path():gsub('/','\\') ..'\\*.* '..directoryToCreate..'\\script /s/e/y'..' && del '..directoryToCreate..'\\script\\scite_lua\\*.exe'..' && copy '..props['SciteDefaultHome'] ..'\\SciTE.exe '..directoryToCreate..' /y'..' && copy '..props['SciteDefaultHome'] ..'\\SciTEGlobal.properties '..directoryToCreate..' /y'..' && set Path='..dir..';%Path% && D: && cd '..parent_of(directoryToCreate)..' && winrar a scite_.zip -m5 scite_ '
    exe_command(make_zip)

    --'for /f "tokens=2,*" %%i in (InstallDir.txt) do set  InstallDir=%%j'

	for line in f:lines() do
			--print(line)
	end
    --print(exe_makectag)
end
-- copy_to_shareTmp()
function copy_to_shareTmp()
    local copy_lua='xcopy '..extman_Path():gsub('/','\\') ..'\\*.* F:\\share_tmp\\scite\\scite\\script /s/e/y'
    exe_command(copy_lua)
    copy_lua='copy '..props['SciteDefaultHome'] ..'\\SciTE.exe F:\\share_tmp\\scite\\scite /y'
    exe_command(copy_lua)
    copy_lua='copy '..props['SciteDefaultHome'] ..'\\SciTEGlobal.properties F:\\share_tmp\\scite\\scite /y'
    local f = exe_command(copy_lua)
	for line in f:lines() do
			--print(line)
	end
    --print(exe_makectag)
end

-- copy_from_shareTmp()
function copy_from_shareTmp()
    local make_dir='md  '..extman_Path():gsub('/','\\') ..'__'
    exe_command(make_dir)
    local copy_lua='xcopy \\\\207-jin-x60\\share_tmp\\scite\\scite\\script\\*.* '..extman_Path():gsub('/','\\') ..'__ /s/e/y'
   exe_command(copy_lua)
    copy_lua='copy \\\\207-jin-x60\\share_tmp\\scite\\scite\\SciTE.exe '..props['SciteDefaultHome'] ..'\\SciTE__.exe  /y'
   exe_command(copy_lua)
    copy_lua='copy \\\\207-jin-x60\\share_tmp\\scite\\scite\\SciTEGlobal.properties '..props['SciteDefaultHome'] ..'\\SciTEGlobal.properties__  /y'
    local f = exe_command(copy_lua)
	for line in f:lines() do
			--print(line)
	end
    --print(exe_makectag)
end
local function updateCpyContent()
    if begcpyPos and endcpyPos then
        outputRemove(output,begcpyPos, endcpyPos)
    end
    begcpyPos = output.Length
    print()
    print('=====================================')
    cmdStartcpyPos=output.CurrentPos
    print(cmd_copy_lua_to_shareTmp)
    cpToSharePos=output.CurrentPos
    print(cmd_copy_lua_from_shareTmp)
    cpFromSharePos=output.CurrentPos
    print(cmd_make_zip)
    makeZipFromScite=output.CurrentPos
    print(cmd_update)
    cmdendcpyPos=output.CurrentPos
    print('-------------------------------')
	for k, t in pairs(dis_cmd_cpy) do
		if  t then
			print(t)
		end
	end
    print('-------------------------------')
    endcpyPos = output.CurrentPos
    --print('bbbbb--'..begcpyPos)
    --print('eeeee--'..endcpyPos)
end
function ShowMaintain()
    updateCpyContent()
end
scite_OnDoubleClick(function ()
    --print(name)
    if not output.Focus or not endcpyPos
    or endcpyPos <= output.CurrentPos
    or output.CurrentPos <= begcpyPos then
	--oldOnDoubleClick()
        return false
    end
    --print('bbbbb::'..begcpyPos)
    --print('eeeee::'..endcpyPos)
    dis_cmd_cpy=nil
    dis_cmd_cpy={}
    if output.CurrentPos > cmdStartcpyPos and
    output.CurrentPos < cmdendcpyPos  then
	if  output.CurrentPos < cpToSharePos then
		copy_to_shareTmp()
		updateCpyContent()
	elseif output.CurrentPos < cpFromSharePos then
		copy_from_shareTmp()
		updateCpyContent()
	elseif output.CurrentPos < makeZipFromScite then
		make_zip_from_scite()
		updateCpyContent()
	elseif output.CurrentPos < cmdendcpyPos then
		updateCpyContent()
	end
    
    end
    return true
end)