GSServer-CBT/soggy_resources/lua/LuaDebugjit.lua

local sethook = debug.sethook
local debugger_stackInfo = nil
local coro_debugger = nil
local debugger_require = require
local debugger_exeLuaString = nil
local loadstring_  = nil
if(loadstring) then
loadstring_ = loadstring
else
loadstring_ = load
end
local ZZBase64 = {}
local LuaDebugTool_ = nil
if(LuaDebugTool) then

	LuaDebugTool_ = LuaDebugTool
elseif(CS and CS.LuaDebugTool) then
	
	LuaDebugTool_ = CS.LuaDebugTool;

end
local LuaDebugTool = LuaDebugTool_
local loadstring = loadstring_
local getinfo = debug.getinfo
local function createSocket()
	local base = _G
	local string = require("string")
	local math = require("math")
	local socket = require("socket.core")
	
	local _M = socket
	
	-----------------------------------------------------------------------------
	-- Exported auxiliar functions
	-----------------------------------------------------------------------------
	function _M.connect4(address, port, laddress, lport)
		return socket.connect(address, port, laddress, lport, "inet")
	end
	
	function _M.connect6(address, port, laddress, lport)
		return socket.connect(address, port, laddress, lport, "inet6")
	end

	if(not _M.connect) then
		function _M.connect(address, port, laddress, lport)
			local sock, err = socket.tcp()
			if not sock then return nil, err end
			if laddress then
				local res, err = sock:bind(laddress, lport, -1)
				if not res then return nil, err end
			end
			local res, err = sock:connect(address, port)
			if not res then return nil, err end
			return sock
		end
	end
	function _M.bind(host, port, backlog)
		if host == "*" then host = "0.0.0.0" end
		local addrinfo, err = socket.dns.getaddrinfo(host);
		if not addrinfo then return nil, err end
		local sock, res
		err = "no info on address"
		for i, alt in base.ipairs(addrinfo) do
			if alt.family == "inet" then
				sock, err = socket.tcp4()
			else
				sock, err = socket.tcp6()
			end
			if not sock then return nil, err end
			sock:setoption("reuseaddr", true)
			res, err = sock:bind(alt.addr, port)
			if not res then
				sock:close()
			else
				res, err = sock:listen(backlog)
				if not res then
					sock:close()
				else
					return sock
				end
			end
		end
		return nil, err
	end
	
	_M.try = _M.newtry()
	
	function _M.choose(table)
		return function(name, opt1, opt2)
			if base.type(name) ~= "string" then
				name, opt1, opt2 = "default", name, opt1
			end
			local f = table[name or "nil"]
			if not f then base.error("unknown key (" .. base.tostring(name) .. ")", 3)
			else return f(opt1, opt2) end
		end
	end
	
	-----------------------------------------------------------------------------
	-- Socket sources and sinks, conforming to LTN12
	-----------------------------------------------------------------------------
	-- create namespaces inside LuaSocket namespace
	local sourcet, sinkt = {}, {}
	_M.sourcet = sourcet
	_M.sinkt = sinkt
	
	_M.BLOCKSIZE = 2048
	
	sinkt["close-when-done"] = function(sock)
		return base.setmetatable({
			getfd = function() return sock:getfd() end,
			dirty = function() return sock:dirty() end
		}, {
			__call = function(self, chunk, err)
				if not chunk then
					sock:close()
					return 1
				else return sock:send(chunk) end
			end
		})
	end
	
	sinkt["keep-open"] = function(sock)
		return base.setmetatable({
			getfd = function() return sock:getfd() end,
			dirty = function() return sock:dirty() end
		}, {
			__call = function(self, chunk, err)
				if chunk then return sock:send(chunk)
				else return 1 end
			end
		})
	end
	
	sinkt["default"] = sinkt["keep-open"]
	
	_M.sink = _M.choose(sinkt)
	
	sourcet["by-length"] = function(sock, length)
		return base.setmetatable({
			getfd = function() return sock:getfd() end,
			dirty = function() return sock:dirty() end
		}, {
			__call = function()
				if length <= 0 then return nil end
				local size = math.min(socket.BLOCKSIZE, length)
				local chunk, err = sock:receive(size)
				if err then return nil, err end
				length = length - string.len(chunk)
				return chunk
			end
		})
	end
	
	sourcet["until-closed"] = function(sock)
		local done
		return base.setmetatable({
			getfd = function() return sock:getfd() end,
			dirty = function() return sock:dirty() end
		}, {
			__call = function()
				if done then return nil end
				local chunk, err, partial = sock:receive(socket.BLOCKSIZE)
				if not err then return chunk
				elseif err == "closed" then
					sock:close()
					done = 1
					return partial
				else return nil, err end
			end
		})
	end
	
	
	sourcet["default"] = sourcet["until-closed"]
	
	_M.source = _M.choose(sourcet)
	
	return _M
end

local function createJson()
	local math = require('math')
	local string = require("string")
	local table = require("table")
	local object = nil
	-----------------------------------------------------------------------------
	-- Module declaration
	-----------------------------------------------------------------------------
	local json = {}              -- Public namespace
	local json_private = {}     -- Private namespace
	
	-- Public constants                                                            
	json.EMPTY_ARRAY = {}
	json.EMPTY_OBJECT = {}
	-- Public functions

	-- Private functions
	local decode_scanArray
	local decode_scanComment
	local decode_scanConstant
	local decode_scanNumber
	local decode_scanObject
	local decode_scanString
	local decode_scanWhitespace
	local encodeString
	local isArray
	local isEncodable
	
	-----------------------------------------------------------------------------
	-- PUBLIC FUNCTIONS
	-----------------------------------------------------------------------------
	--- Encodes an arbitrary Lua object / variable.
	-- @param v The Lua object / variable to be JSON encoded.
	-- @return String containing the JSON encoding in internal Lua string format (i.e. not unicode)
	function json.encode(v)
		-- Handle nil values
		if v == nil then
			return "null"
		end
		
		local vtype = type(v)
		
		-- Handle strings
		if vtype == 'string' then
			return "\"" .. json_private.encodeString(v) .. "\"" 	    -- Need to handle encoding in string
		end
		
		-- Handle booleans
		if vtype == 'number' or vtype == 'boolean' then
			return tostring(v)
		end
		
		-- Handle tables
		if vtype == 'table' then
			local rval = {}
			-- Consider arrays separately
			local bArray, maxCount = isArray(v)
			if bArray then
				for i = 1, maxCount do
					table.insert(rval, json.encode(v[i]))
				end
			else	-- An object, not an array
				for i, j in pairs(v) do
					if isEncodable(i) and isEncodable(j) then
						table.insert(rval, "\"" .. json_private.encodeString(i) .. '\":' .. json.encode(j))
					end
				end
			end
			if bArray then
				return '[' .. table.concat(rval, ',') .. ']'
			else
				return '{' .. table.concat(rval, ',') .. '}'
			end
		end
		
		-- Handle null values
		if vtype == 'function' and v == json.null then
			return 'null'
		end
		
		assert(false, 'encode attempt to encode unsupported type ' .. vtype .. ':' .. tostring(v))
	end
	
	
	--- Decodes a JSON string and returns the decoded value as a Lua data structure / value.
	-- @param s The string to scan.
	-- @param [startPos] Optional starting position where the JSON string is located. Defaults to 1.
	-- @param Lua object, number The object that was scanned, as a Lua table / string / number / boolean or nil,
	-- and the position of the first character after
	-- the scanned JSON object.
	function json.decode(s, startPos)
		startPos = startPos and startPos or 1
		startPos = decode_scanWhitespace(s, startPos)
		assert(startPos <= string.len(s), 'Unterminated JSON encoded object found at position in [' .. s .. ']')
		local curChar = string.sub(s, startPos, startPos)
		-- Object
		if curChar == '{' then
			return decode_scanObject(s, startPos)
		end
		-- Array
		if curChar == '[' then
			return decode_scanArray(s, startPos)
		end
		-- Number
		if string.find("+-0123456789.e", curChar, 1, true) then
			return decode_scanNumber(s, startPos)
		end
		-- String
		if curChar == "\"" or curChar == [[']] then
			return decode_scanString(s, startPos)
		end
		if string.sub(s, startPos, startPos + 1) == '/*' then
			return json.decode(s, decode_scanComment(s, startPos))
		end
		-- Otherwise, it must be a constant
		return decode_scanConstant(s, startPos)
	end
	
	--- The null function allows one to specify a null value in an associative array (which is otherwise
	-- discarded if you set the value with 'nil' in Lua. Simply set t = { first=json.null }
	function json.null()
		return json.null  -- so json.null() will also return null ;-)
	end
	-----------------------------------------------------------------------------
	-- Internal, PRIVATE functions.
	-- Following a Python-like convention, I have prefixed all these 'PRIVATE'
	-- functions with an underscore.
	-----------------------------------------------------------------------------
	--- Scans an array from JSON into a Lua object
	-- startPos begins at the start of the array.
	-- Returns the array and the next starting position
	-- @param s The string being scanned.
	-- @param startPos The starting position for the scan.
	-- @return table, int The scanned array as a table, and the position of the next character to scan.
	function decode_scanArray(s, startPos)
		local array = {} 	-- The return value
		local stringLen = string.len(s)
		assert(string.sub(s, startPos, startPos) == '[', 'decode_scanArray called but array does not start at position ' .. startPos .. ' in string:\n' .. s)
		startPos = startPos + 1
		-- Infinite loop for array elements
			repeat
			startPos = decode_scanWhitespace(s, startPos)
			assert(startPos <= stringLen, 'JSON String ended unexpectedly scanning array.')
			local curChar = string.sub(s, startPos, startPos)
			if(curChar == ']') then
				return array, startPos + 1
			end
			if(curChar == ',') then
				startPos = decode_scanWhitespace(s, startPos + 1)
			end
			assert(startPos <= stringLen, 'JSON String ended unexpectedly scanning array.')
			object, startPos = json.decode(s, startPos)
			table.insert(array, object)
		until false
	end
	
	--- Scans a comment and discards the comment.
	-- Returns the position of the next character following the comment.
	-- @param string s The JSON string to scan.
	-- @param int startPos The starting position of the comment
	function decode_scanComment(s, startPos)
		assert(string.sub(s, startPos, startPos + 1) == '/*', "decode_scanComment called but comment does not start at position " .. startPos)
		local endPos = string.find(s, '*/', startPos + 2)
		assert(endPos ~= nil, "Unterminated comment in string at " .. startPos)
		return endPos + 2
	end
	
	--- Scans for given constants: true, false or null
	-- Returns the appropriate Lua type, and the position of the next character to read.
	-- @param s The string being scanned.
	-- @param startPos The position in the string at which to start scanning.
	-- @return object, int The object (true, false or nil) and the position at which the next character should be 
	-- scanned.
	function decode_scanConstant(s, startPos)
		local consts = {["true"] = true, ["false"] = false, ["null"] = nil}
		local constNames = {"true", "false", "null"}
		
		for i, k in pairs(constNames) do
			if string.sub(s, startPos, startPos + string.len(k) - 1) == k then
				return consts[k], startPos + string.len(k)
			end
		end
		assert(nil, 'Failed to scan constant from string ' .. s .. ' at starting position ' .. startPos)
	end
	
	--- Scans a number from the JSON encoded string.
	-- (in fact, also is able to scan numeric +- eqns, which is not
	-- in the JSON spec.)
	-- Returns the number, and the position of the next character
	-- after the number.
	-- @param s The string being scanned.
	-- @param startPos The position at which to start scanning.
	-- @return number, int The extracted number and the position of the next character to scan.
	function decode_scanNumber(s, startPos)
		local endPos = startPos + 1
		local stringLen = string.len(s)
		local acceptableChars = "+-0123456789.e"
		while(string.find(acceptableChars, string.sub(s, endPos, endPos), 1, true)
		and endPos <= stringLen
		) do
			endPos = endPos + 1
		end
		local stringValue = 'return ' .. string.sub(s, startPos, endPos - 1)
		local stringEval = loadstring(stringValue)
		assert(stringEval, 'Failed to scan number [ ' .. stringValue .. '] in JSON string at position ' .. startPos .. ' : ' .. endPos)
		return stringEval(), endPos
	end
	
	--- Scans a JSON object into a Lua object.
	-- startPos begins at the start of the object.
	-- Returns the object and the next starting position.
	-- @param s The string being scanned.
	-- @param startPos The starting position of the scan.
	-- @return table, int The scanned object as a table and the position of the next character to scan.
	function decode_scanObject(s, startPos)
		local object = {}
		local stringLen = string.len(s)
		local key, value
		assert(string.sub(s, startPos, startPos) == '{', 'decode_scanObject called but object does not start at position ' .. startPos .. ' in string:\n' .. s)
		startPos = startPos + 1
		repeat
			startPos = decode_scanWhitespace(s, startPos)
			assert(startPos <= stringLen, 'JSON string ended unexpectedly while scanning object.')
			local curChar = string.sub(s, startPos, startPos)
			if(curChar == '}') then
				return object, startPos + 1
			end
			if(curChar == ',') then
				startPos = decode_scanWhitespace(s, startPos + 1)
			end
			assert(startPos <= stringLen, 'JSON string ended unexpectedly scanning object.')
			-- Scan the key
			key, startPos = json.decode(s, startPos)
			assert(startPos <= stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key)
			startPos = decode_scanWhitespace(s, startPos)
			assert(startPos <= stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key)
			assert(string.sub(s, startPos, startPos) == ':', 'JSON object key-value assignment mal-formed at ' .. startPos)
			startPos = decode_scanWhitespace(s, startPos + 1)
			assert(startPos <= stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key)
			value, startPos = json.decode(s, startPos)
			object[key] = value
		until false 	-- infinite loop while key-value pairs are found
	end
	
	-- START SoniEx2
	-- Initialize some things used by decode_scanString
	-- You know, for efficiency
	local escapeSequences = {
		["\\t"] = "\t",
		["\\f"] = "\f",
		["\\r"] = "\r",
		["\\n"] = "\n",
		["\\b"] = ""
	}
	setmetatable(escapeSequences, {__index = function(t, k)
		-- skip "\" aka strip escape
		return string.sub(k, 2)
	end})
	-- END SoniEx2
	--- Scans a JSON string from the opening inverted comma or single quote to the
	-- end of the string.
	-- Returns the string extracted as a Lua string,
	-- and the position of the next non-string character
	-- (after the closing inverted comma or single quote).
	-- @param s The string being scanned.
	-- @param startPos The starting position of the scan.
	-- @return string, int The extracted string as a Lua string, and the next character to parse.
	function decode_scanString(s, startPos)
		assert(startPos, 'decode_scanString(..) called without start position')
		local startChar = string.sub(s, startPos, startPos)
		-- START SoniEx2
		-- PS: I don't think single quotes are valid JSON
		assert(startChar == "\"" or startChar == [[']], 'decode_scanString called for a non-string')
		--assert(startPos, "String decoding failed: missing closing " .. startChar .. " for string at position " .. oldStart)
		local t = {}
		local i, j = startPos, startPos
		while string.find(s, startChar, j + 1) ~= j + 1 do
			local oldj = j
			i, j = string.find(s, "\\.", j + 1)
			local x, y = string.find(s, startChar, oldj + 1)
			if not i or x < i then
				i, j = x, y - 1
			end
			table.insert(t, string.sub(s, oldj + 1, i - 1))
			if string.sub(s, i, j) == "\\u" then
				local a = string.sub(s, j + 1, j + 4)
				j = j + 4
				local n = tonumber(a, 16)
				assert(n, "String decoding failed: bad Unicode escape " .. a .. " at position " .. i .. " : " .. j)
				-- math.floor(x/2^y) == lazy right shift
				-- a % 2^b == bitwise_and(a, (2^b)-1)
				-- 64 = 2^6
				-- 4096 = 2^12 (or 2^6 * 2^6)
				local x
				if n < 128 then
					x = string.char(n % 128)
				elseif n < 2048 then
					-- [110x xxxx] [10xx xxxx]
					x = string.char(192 +(math.floor(n / 64) % 32), 128 +(n % 64))
				else
					-- [1110 xxxx] [10xx xxxx] [10xx xxxx]
					x = string.char(224 +(math.floor(n / 4096) % 16), 128 +(math.floor(n / 64) % 64), 128 +(n % 64))
				end
				table.insert(t, x)
			else
				table.insert(t, escapeSequences[string.sub(s, i, j)])
			end
		end
		table.insert(t, string.sub(j, j + 1))
		assert(string.find(s, startChar, j + 1), "String decoding failed: missing closing " .. startChar .. " at position " .. j .. "(for string at position " .. startPos .. ")")
		return table.concat(t, ""), j + 2
		-- END SoniEx2
	end
	
	--- Scans a JSON string skipping all whitespace from the current start position.
	-- Returns the position of the first non-whitespace character, or nil if the whole end of string is reached.
	-- @param s The string being scanned
	-- @param startPos The starting position where we should begin removing whitespace.
	-- @return int The first position where non-whitespace was encountered, or string.len(s)+1 if the end of string
	-- was reached.
	function decode_scanWhitespace(s, startPos)
		local whitespace = " \n\r\t"
		local stringLen = string.len(s)
		while(string.find(whitespace, string.sub(s, startPos, startPos), 1, true) and startPos <= stringLen) do
			startPos = startPos + 1
		end
		return startPos
	end
	
	--- Encodes a string to be JSON-compatible.
	-- This just involves back-quoting inverted commas, back-quotes and newlines, I think ;-)
	-- @param s The string to return as a JSON encoded (i.e. backquoted string)
	-- @return The string appropriately escaped.
	local escapeList = {
		["\""] = '\\\"',
		['\\'] = '\\\\',
		['/'] = '\\/',
		[''] = '\\b',
		['\f'] = '\\f',
		['\n'] = '\\n',
		['\r'] = '\\r',
		['\t'] = '\\t'
	}
	
	function json_private.encodeString(s)
		local s = tostring(s)
		return s:gsub(".", function(c) return escapeList[c] end)  -- SoniEx2: 5.0 compat
	end
	
	-- Determines whether the given Lua type is an array or a table / dictionary.
	-- We consider any table an array if it has indexes 1..n for its n items, and no
	-- other data in the table.
	-- I think this method is currently a little 'flaky', but can't think of a good way around it yet...
	-- @param t The table to evaluate as an array
	-- @return boolean, number True if the table can be represented as an array, false otherwise. If true,
	-- the second returned value is the maximum
	-- number of indexed elements in the array. 
	function isArray(t)
		-- Next we count all the elements, ensuring that any non-indexed elements are not-encodable 
		-- (with the possible exception of 'n')
		if(t == json.EMPTY_ARRAY) then return true, 0 end
		if(t == json.EMPTY_OBJECT) then return false end
		
		local maxIndex = 0
		for k, v in pairs(t) do
			if(type(k) == 'number' and math.floor(k) == k and 1 <= k) then	-- k,v is an indexed pair
				if(not isEncodable(v)) then return false end	-- All array elements must be encodable
				maxIndex = math.max(maxIndex, k)
			else
				if(k == 'n') then
					if v ~=(t.n or # t) then return false end  -- False if n does not hold the number of elements
					
				else -- Else of (k=='n')
					if isEncodable(v) then return false end
				end  -- End of (k~='n')
			end  -- End of k,v not an indexed pair
		end   -- End of loop across all pairs
		return true, maxIndex
	end
	
	--- Determines whether the given Lua object / table / variable can be JSON encoded. The only
	-- types that are JSON encodable are: string, boolean, number, nil, table and json.null.
	-- In this implementation, all other types are ignored.
	-- @param o The object to examine.
	-- @return boolean True if the object should be JSON encoded, false if it should be ignored.
	function isEncodable(o)
		local t = type(o)
		return(t == 'string' or t == 'boolean' or t == 'number' or t == 'nil' or t == 'table') or
		(t == 'function' and o == json.null)
	end
	
	return json
end
local debugger_print = print
local debug_server = nil
local breakInfoSocket = nil
local json = createJson()
local LuaDebugger = {
	fileMaps = {},
	Run = true,  --表示正常运行只检测断点
	StepIn = false,
	StepNext = false,
	StepOut = false,
	breakInfos = {},
	runTimeType = nil,
	isHook = true,
	pathCachePaths = {},
	isProntToConsole = 1,
	isDebugPrint = true,
	hookType = "lrc",
	stepNextFun = nil,
	DebugLuaFie = "",
	runLineCount = 0,
	--分割字符串缓存
	splitFilePaths = {},
	version="1.0.7"
}
local debug_hook = nil
local _resume = coroutine.resume
coroutine.resume = function(co, ...)
	if(LuaDebugger.isHook) then
		if coroutine.status(co)~="dead" then
			debug.sethook(co,debug_hook, "lrc")
		end  
    end
    return _resume(co, ...)
end

LuaDebugger.event = {
	S2C_SetBreakPoints = 1,
	C2S_SetBreakPoints = 2,
	S2C_RUN = 3,
	C2S_HITBreakPoint = 4,
	S2C_ReqVar = 5,
	C2S_ReqVar = 6,
	--单步跳过请求
	S2C_NextRequest = 7,
	--单步跳过反馈
	C2S_NextResponse = 8,
	-- 单步跳过 结束 没有下一步
	C2S_NextResponseOver = 9,
	--单步跳入
	S2C_StepInRequest = 10,
	C2S_StepInResponse = 11,
	--单步跳出
	S2C_StepOutRequest = 12,
	--单步跳出返回
	C2S_StepOutResponse = 13,
	--打印
	C2S_LuaPrint = 14,
	S2C_LoadLuaScript = 16,
	C2S_SetSocketName = 17,
	C2S_LoadLuaScript = 18,
	C2S_DebugXpCall = 20,
	S2C_DebugClose = 21
}
--@region print
function print(...)
	if(LuaDebugger.isProntToConsole == 1 or LuaDebugger.isProntToConsole == 3) then
		debugger_print(...)
	end
	if(LuaDebugger.isProntToConsole == 1 or LuaDebugger.isProntToConsole == 2) then
		if(debug_server) then
			local arg = {...}    --这里的...和{}符号中间需要有空格号，否则会出错  
			local str = ""
		 	if(#arg==0) then
				arg = { "nil" }
			end
			for k, v in pairs(arg) do
				str = str .. tostring(v) .. "\t"
			end
			local sendMsg = {
				event = LuaDebugger.event.C2S_LuaPrint,
				data = {msg = ZZBase64.encode( str),type=1}
			}
			local sendStr = json.encode(sendMsg)
			debug_server:send(sendStr .. "__debugger_k0204__")
		end
	end
end
function luaIdePrintWarn( ... )
	if(LuaDebugger.isProntToConsole == 1 or LuaDebugger.isProntToConsole == 3) then
		debugger_print(...)
	end
	if(LuaDebugger.isProntToConsole == 1 or LuaDebugger.isProntToConsole == 2) then
		if(debug_server) then
			local arg = {...}    --这里的...和{}符号中间需要有空格号，否则会出错  
			local str = ""
			 	if(#arg==0) then
					arg = { "nil" }
				end
			for k, v in pairs(arg) do
				str = str .. tostring(v) .. "\t"
			end
			local sendMsg = {
				event = LuaDebugger.event.C2S_LuaPrint,
				data = {msg = ZZBase64.encode( str),type=2}
			}
			local sendStr = json.encode(sendMsg)
			debug_server:send(sendStr .. "__debugger_k0204__")
		end
	end
end
function luaIdePrintErr( ... )
	if(LuaDebugger.isProntToConsole == 1 or LuaDebugger.isProntToConsole == 3) then
		debugger_print(...)
	end
	if(LuaDebugger.isProntToConsole == 1 or LuaDebugger.isProntToConsole == 2) then
		if(debug_server) then
			local arg = {...}    --这里的...和{}符号中间需<E997B4><E99C80><EFBFBD>有空格号，否则会出错  
			local str = ""
			 	if(#arg==0) then
					arg = { "nil" }
				end
			for k, v in pairs(arg) do
				str = str .. tostring(v) .. "\t"
			end
			local sendMsg = {
				event = LuaDebugger.event.C2S_LuaPrint,
				data = {msg = ZZBase64.encode( str),type=3}
			}
			local sendStr = json.encode(sendMsg)
			debug_server:send(sendStr .. "__debugger_k0204__")
		end
	end
end
--@endregion

--@region 辅助方法
local function debugger_lastIndex(str, p)
    local startIndex = string.find(str, p, 1)
    while startIndex do
        local findstartIndex = string.find(str, p, startIndex + 1)
        if (not findstartIndex) then
            break
        else
            startIndex = findstartIndex
        end
    end
    return startIndex
end
local function debugger_convertParentDir(dir)
    local index, endindex = string.find(dir, "/%.%./")
    if (index) then
        local file1 = string.sub(dir, 1, index - 1)
        local startIndex = debugger_lastIndex(file1, "/")
        file1 = string.sub(file1, 1, startIndex - 1)
        local file2 = string.sub(dir, endindex)
        dir = file1 .. file2
        dir = debugger_convertParentDir(dir)
        return dir
    else
        return dir
    end
end

local function debugger_getFilePathInfo(file)	

	local fileName = nil
    local dir  = nil
	file = file:gsub("\\", "/")
	file = file:gsub("//", "/")
	file = file:gsub("/./", "/")

	if file:find("@") == 1 then
        file = file:sub(2)
	end
	local findex = file:find("%./")
	if(findex == 1) then
		file = file:sub(3)
	end

	file = debugger_convertParentDir(file)
    local fileLength = string.len( file )
    local suffixNames = {
        ".lua",
        ".txt.lua",
        ".txt",
        ".bytes"
    }
    table.sort( suffixNames,function(name1,name2) 
        return string.len( name1 ) > string.len( name2 )
    end )
    local suffixLengs = {}
    for i,suffixName in ipairs(suffixNames) do
       table.insert( suffixLengs,string.len(suffixName))
    end

    local fileLength = string.len( file )
    for i,suffix in ipairs(suffixNames) do
        local suffixName = string.sub(file,fileLength-suffixLengs[i]+1)
        if(suffixName == suffix) then
            file = string.sub(file,1,fileLength-suffixLengs[i])
            break
        end
    end
    local fileNameStartIndex = debugger_lastIndex(file, "/")
    if (fileNameStartIndex) then
         fileName = string.sub(file, fileNameStartIndex + 1)
      
        dir = string.sub(file, 1, fileNameStartIndex)
        file = dir .. fileName
    else
        fileNameStartIndex = debugger_lastIndex(file, "%.")
        if(not fileNameStartIndex) then
            fileName = file
            dir = ""
        else
            dir = string.sub(file, 1, fileNameStartIndex)
            dir = dir:gsub("%.", "/")
           fileName = string.sub(file, fileNameStartIndex+1)
           file = dir .. fileName
        end
	end

	return file,dir,fileName
end

--@endregion
----=============================工具方法=============================================

local function debugger_strSplit(input, delimiter)
	input = tostring(input)
	delimiter = tostring(delimiter)
	if(delimiter == '') then return false end
	local pos, arr = 0, {}
	-- for each divider found
	for st, sp in function() return string.find(input, delimiter, pos, true) end do
		table.insert(arr, string.sub(input, pos, st - 1))
		pos = sp + 1
	end
	table.insert(arr, string.sub(input, pos))
	return arr
end
local function debugger_strTrim(input)
	input = string.gsub(input, "^[ \t\n\r]+", "")
	return string.gsub(input, "[ \t\n\r]+$", "")
end
local function debugger_dump(value, desciption, nesting)
	if type(nesting) ~= "number" then nesting = 3 end
	local lookupTable = {}
	local result = {}
	local function _v(v)
		if type(v) == "string" then
			v = "\"" .. v .. "\""
		end
		return tostring(v)
	end
	local traceback = debugger_strSplit(debug.traceback("", 2), "\n")
	print("dump from: " .. debugger_strTrim(traceback[3]))
	local function _dump(value, desciption, indent, nest, keylen)
		desciption = desciption or "<var>"
		local spc = ""
		if type(keylen) == "number" then
			spc = string.rep(" ", keylen - string.len(_v(desciption)))
		end
		if type(value) ~= "table" then
			result[# result + 1] = string.format("%s%s%s = %s", indent, _v(desciption), spc, _v(value))
		elseif lookupTable[value] then
			result[# result + 1] = string.format("%s%s%s = *REF*", indent, desciption, spc)
		else
			lookupTable[value] = true
			if nest > nesting then
				result[# result + 1] = string.format("%s%s = *MAX NESTING*", indent, desciption)
			else
				result[# result + 1] = string.format("%s%s = {", indent, _v(desciption))
				local indent2 = indent .. "    "
				local keys = {}
				local keylen = 0
				local values = {}
				for k, v in pairs(value) do
					keys[# keys + 1] = k
					local vk = _v(k)
					local vkl = string.len(vk)
					if vkl > keylen then keylen = vkl end
					values[k] = v
				end
				table.sort(keys, function(a, b)
					if type(a) == "number" and type(b) == "number" then
						return a < b
					else
						return tostring(a) < tostring(b)
					end
				end)
				for i, k in ipairs(keys) do
					_dump(values[k], k, indent2, nest + 1, keylen)
				end
				result[# result + 1] = string.format("%s}", indent)
			end
		end
	end
	_dump(value, desciption, "- ", 1)
	for i, line in ipairs(result) do
		print(line)
	end
end

local function debugger_setVarInfo(name, value)
	local vt = type(value)	
	local valueStr = ""
	
	
	if(vt ~= "table") then
			valueStr = tostring(value)
			valueStr = ZZBase64.encode(valueStr) 
	else
		if(LuaDebugger.isFoxGloryProject) then
			valueStr =ZZBase64.encode("table") 
		else
			local status, msg = xpcall(function() 
				valueStr = tostring(value)
				valueStr =ZZBase64.encode(valueStr) 
			end, function(error)
				valueStr =ZZBase64.encode("table") 
			end)
		end
	end		

	local valueInfo = {
		name = name,
		valueType = vt,
		valueStr = valueStr
	}
	return valueInfo;
end
local function debugger_getvalue(f)
	local i = 1
	local locals = {}
	-- get locals
	while true do
		local name, value = debug.getlocal(f, i)	
		if not name then break end
		if(name ~= "(*temporary)") then
			locals[name] = value
		end
		i = i + 1
	end
	local func = getinfo(f, "f").func
	i = 1
	local ups = {}
	while func do -- check for func as it may be nil for tail calls
		local name, value = debug.getupvalue(func, i)
		if not name then break end
		if(name == "_ENV") then
			ups["_ENV_"] = value		
		else
			ups[name] = value
		end
		i = i + 1
	end
	return {locals = locals, ups = ups}
end
--获取堆栈
debugger_stackInfo = function(ignoreCount, event)
	local datas = {}
	local stack = {}
	local varInfos = {}
	local funcs = {}
	local index = 0;
	for i = ignoreCount, 100 do
		local source = getinfo(i)
		local isadd = true
		if(i == ignoreCount) then
			local file = source.source
			if(file:find(LuaDebugger.DebugLuaFie)) then
				return
			end
			if(file == "=[C]") then
				isadd = false
			end
		end
		if not source then
			break;
		end
		if(isadd) then

			local fullName,dir,fileName = debugger_getFilePathInfo(source.source)
			local info =
			{
				src = fullName,
				scoreName = source.name,
				currentline = source.currentline,
				linedefined = source.linedefined,
				what = source.what,
				nameWhat = source.namewhat
			}
			index = i
			local vars = debugger_getvalue(i + 1)
			table.insert(stack, info)
			table.insert(varInfos, vars)
			table.insert(funcs, source.func)
		end
		if source.what == 'main' then break end
	end
	local stackInfo = {stack = stack, vars = varInfos, funcs = funcs}
	local data = {
		stack = stackInfo.stack,
		vars = stackInfo.vars,
		funcs = stackInfo.funcs,
		event = event,
		funcsLength = #stackInfo.funcs
	}
	return data
end
--==============================工具方法 end======================================================
--===========================点断信息==================================================
--根据不同的游戏引擎进行定时获取断点信息
--CCDirector:sharedDirector():getScheduler()
local debugger_setBreak = nil
local function debugger_receiveDebugBreakInfo()
	if(not jit) then
		if(_VERSION)then
			print("当前lua版本为: ".._VERSION.." 请使用 -----LuaDebug.lua----- 进行调试!")
		else
			print("当前为lua版本,请使用-----LuaDebug.lua-----进行调试!")
		end
	end


	if(breakInfoSocket) then
		local msg, status = breakInfoSocket:receive()
		if(msg) then
			local netData = json.decode(msg)
			if netData.event == LuaDebugger.event.S2C_SetBreakPoints then
				debugger_setBreak(netData.data)
			elseif netData.event == LuaDebugger.event.S2C_LoadLuaScript then
			
				debugger_exeLuaString(netData.data, false)
			end
		end
	end
end
local function splitFilePath(path)
	if(LuaDebugger.splitFilePaths[path]) then
		return LuaDebugger.splitFilePaths[path]
	end
	local pos, arr = 0, {}
	-- for each divider found
	for st, sp in function() return string.find(path, '/', pos, true) end do		
		local pathStr = string.sub(path, pos, st - 1)	
		table.insert(arr, pathStr)
		pos = sp + 1
	end
	local pathStr = string.sub(path, pos)
	table.insert(arr,pathStr )
	LuaDebugger.splitFilePaths[path] = arr
	return arr
end
debugger_setBreak = function(datas)	
	local breakInfos = LuaDebugger.breakInfos
	for i, data in ipairs(datas) do
		data.fileName = string.lower( data.fileName)
		data.serverPath = string.lower( data.serverPath )
		local breakInfo = breakInfos[data.fileName]
		if(not breakInfo) then
			breakInfos[data.fileName] = {}
			breakInfo = breakInfos[data.fileName]
		end
		if(not data.breakDatas or # data.breakDatas == 0) then
			breakInfo[data.serverPath] = nil
		else
			local fileBreakInfo =breakInfo[data.serverPath]
			if(not fileBreakInfo) then
				fileBreakInfo	= {
					pathNames = splitFilePath(data.serverPath),
					--命中次數判斷計數器
					hitCounts ={}
				}
				breakInfo[data.serverPath] = fileBreakInfo
			end
			local lineInfos = {}
			for li, breakData in ipairs(data.breakDatas) do
				lineInfos[breakData.line] = breakData
				if(breakData.hitCondition and breakData.hitCondition ~= "") then
					breakData.hitCondition = tonumber(breakData.hitCondition)
				else
					breakData.hitCondition = 0
				end
				if(not fileBreakInfo.hitCounts[breakData.line]) then
					
					fileBreakInfo.hitCounts[breakData.line] = 0
				end 
			end
			fileBreakInfo.lines = lineInfos
			--這裡添加命中次數判斷
			for line,count in pairs(fileBreakInfo.hitCounts) do
				if(not lineInfos[line]) then
					fileBreakInfo.hitCounts[line] = nil
				end
			end			
		end
		local count = 0
		for i, linesInfo in pairs(breakInfo) do
			count = count + 1
		end
		if(count == 0) then
			breakInfos[data.fileName] = nil
		end
	end
	--debugger_dump(breakInfos, "breakInfos", 6)
	--检查是否需要断点
	local isHook = false
	for k, v in pairs(breakInfos) do
		isHook = true
		break
	end
	
	--这样做的原因是为了最大限度的使手机调试更加<E69BB4><E58AA0>畅 注意这里会连续的进行n次
	if(isHook) then
		if(not LuaDebugger.isHook) then
			debug.sethook(debug_hook, "lrc")
		end
		LuaDebugger.isHook = true
	
	else
		
		if(LuaDebugger.isHook) then
			debug.sethook()
		end
		LuaDebugger.isHook = false
	end
	
end
local function debugger_checkFileIsBreak(fileName)
	return LuaDebugger.breakInfos[fileName]
end
--=====================================断点信息 end ----------------------------------------------
local controller_host = "192.168.1.102"
local controller_port = 7003
local function debugger_sendMsg(serverSocket, eventName, data)
	local sendMsg = {
		event = eventName,
		data = data
	}
	local sendStr = json.encode(sendMsg)
	serverSocket:send(sendStr .. "__debugger_k0204__")
end
function debugger_conditionStr(condition,vars,callBack) 
	local function loadScript()
		local currentTabble = {}
	
		local locals = vars[1].locals;
		local ups = vars[1].ups
		if(ups) then
			for k, v in pairs(ups) do
				currentTabble[k] = v
			end
		end
		
		if(locals) then
			for k, v in pairs(locals) do
				currentTabble[k] = v
			end
		end
		setmetatable(currentTabble, {__index = _G})
		local fun = loadstring("return ".. condition)
		setfenv(fun, currentTabble)
		return fun()
	end
	local status, msg = xpcall(loadScript, function(error)
			print(error)
	end)
	if(status and msg) then
		callBack()
	end

end
--执行lua字符串
debugger_exeLuaString = function(data, isBreakPoint)
	local function loadScript()
		local luastr = data.luastr
		if(isBreakPoint) then
			local currentTabble = {_G = _G}
			local frameId = data.frameId
			frameId = frameId + 1
			local func = LuaDebugger.currentDebuggerData.funcs[frameId];
			local vars = LuaDebugger.currentDebuggerData.vars[frameId]
			local locals = vars.locals;
			local ups = vars.ups
			for k, v in pairs(ups) do
				currentTabble[k] = v
			end
			for k, v in pairs(locals) do
				currentTabble[k] = v
			end
			setmetatable(currentTabble, {__index = _G})
			local fun = loadstring(luastr)
			setfenv(fun, currentTabble)
			fun()
		else
			local fun = loadstring(luastr)
			fun()
		end
	end
	local status, msg = xpcall(loadScript, function(error)
		print(error)
	end)
	if(status) then
		debugger_sendMsg(debug_server, LuaDebugger.event.C2S_LoadLuaScript, {msg = "执行代码成功"})
		if(isBreakPoint) then
			debugger_sendMsg(debug_server, LuaDebugger.event.C2S_HITBreakPoint, LuaDebugger.currentDebuggerData.stack)
		end
	else
		debugger_sendMsg(debug_server, LuaDebugger.event.C2S_LoadLuaScript, {msg = "加载代码失败"})
	end
end

local function getSource(source)
	source = string.lower( source )
	if(LuaDebugger.pathCachePaths[source]) then
		LuaDebugger.currentLineFile = LuaDebugger.pathCachePaths[source]
		return LuaDebugger.pathCachePaths[source]
	end	

	local fullName,dir,fileName = debugger_getFilePathInfo(source)
	LuaDebugger.currentLineFile = fullName
	LuaDebugger.pathCachePaths[source] = fileName

	return fileName;
end
local function debugger_GeVarInfoBytUserData(server,var)
	local fileds = LuaDebugTool.getUserDataInfo(var)
	
	local varInfos = {}
	if(tolua and tolua.getpeer) then
		local  luavars = tolua.getpeer(var)
		if(luavars) then
			for k, v in pairs(luavars) do
				local vinfo = debugger_setVarInfo(k, v)
				table.insert(varInfos, vinfo)
			end			
		end
	end
	
	--c# vars
	for i=1,fileds.Count do
		local filed = fileds[i-1]
		local valueInfo = {
			name = filed.name,
			valueType = filed.valueType,
			valueStr = ZZBase64.encode(filed.valueStr),
			isValue = filed.isValue,
			csharp = true
		}
		
		table.insert( varInfos,valueInfo)
		
	end
	return varInfos
	-- debugger_sendMsg(server, LuaDebugger.event.C2S_ReqVar, {
	-- 		variablesReference = variablesReference,
	-- 		debugSpeedIndex = debugSpeedIndex,
	-- 		vars = varInfos,
	-- 		isComplete = 1
	-- 	})
end	

local function debugger_getValueByScript(value,script)
	

	local val = nil	
	local status, msg = xpcall(function() 
		local fun = loadstring("return " ..script)
		setfenv(fun, value)	
		val = fun()	
	end, function(error)
		print(error,"====>")
		val = nil
	end)

	return val
end
local function debugger_getVarByKeys(value,keys,index) 

	local str = ""
	for i=index,#keys do
		
		local key = keys[i]
		
		if(key == "[metatable]") then	
		else
			
			if(i == index) then
				if(string.find( key,"%.") ) then
					if(str == "") then
						i = index +1
						value = value[key]
					end
					if(i >= #keys) then
						return index,value
					end

					return debugger_getVarByKeys(value,keys,i)
				else
					str = key
				end
				
			else
				
				if(string.find(key,"%[")) then
					str = str..key
				elseif(type(key) == "string") then
					str = str.."[\""..key.."\"]"
				else
					str = str.."["..key.."]"
				end
			end
			
		end 
	end	

	local v = debugger_getValueByScript(value,str)

	return #keys,v
end
--[[
    @desc: 查找c# 值
    author:k0204
    time:2018-04-07 21:32:31
    return
]]
local function debugger_getCSharpValue(value,searchIndex,keys)
	local key = keys[searchIndex]
	local val = LuaDebugTool.getCSharpValue(value,key)
	if(val) then
		--1最后一个 直接返回
		if(searchIndex == #keys) then
			return #keys,val
		else
			--2再次获得 如果没有找到那么 进行lua 层面查找
			local vindex,val1 = debugger_getCSharpValue(val,searchIndex+1,keys)
			if(not val1) then
				--组建新的keys
				local tempKeys = {}
				for i=vindex,#keys do
					table.insert( tempKeys,keys[i] )
				end
				local vindx,val1 = debugger_searchVarByKeys(value,searckKeys,1)
				return vindx,val1
			else
				return vindex,val1
			
			end
		end
	else
		--3最终这里返回  所以2 中 没有当val1 不为空的处理
		return searchIndex,val
	end
end
local function debugger_searchVarByKeys(value,keys,searckKeys)

	local index,val = debugger_getVarByKeys(value,searckKeys,1)
	
	if(not LuaDebugTool) then
		return index,val
	end
	if(val) then
		if(index == #keys) then
			return index,val
		else
			local searchStr = "";
			--进行c# 值查找
			local keysLength = #keys
			local searchIndex =index+1 
			local sindex,val = debugger_getCSharpValue(val,searchIndex,keys)
			return sindex,val
		end
	else
		--进行递减
		local tempKeys = {}		
		for i=1,#searckKeys-1 do
			table.insert( tempKeys,keys[i] )
		end
		if(#tempKeys == 0) then
			return #keys,nil
		end
		return debugger_searchVarByKeys(value,keys,tempKeys)
	end
end
--[[
    @desc: 获取metatable 信息
    author:k0204
    time:2018-04-06 20:27:12
    return
]]
local function debugger_getmetatable(value,metatable,vinfos,server,variablesReference,debugSpeedIndex,metatables)
	for i,mtable in ipairs(metatables) do
		if(metatable == mtable)  then
			return vinfos
		end
	end
	table.insert( metatables,metatable)
	for k,v in pairs(metatable) do
		local val = nil		
		if(type(k) == "string") then
		
			xpcall(function()
				val = value[k]
			end,function(error) 
				val = nil
			end)
			if(val == nil) then
				xpcall(function()
					if(string.find( k,"__")) then
						val = v
					end
				end,function(error) 
					val = nil
				end)
			end
		end	
		if(val) then
			local vinfo = debugger_setVarInfo(k, val)
			table.insert( vinfos, vinfo)
			if(#vinfos > 10) then
				debugger_sendMsg(server,
				LuaDebugger.event.C2S_ReqVar,
				{
					variablesReference = variablesReference,
					debugSpeedIndex = debugSpeedIndex,
					vars = vinfos,
					isComplete = 0
				})
				vinfos = {}
			end
		end
	end 
	local m = getmetatable(metatable)
	if(m) then
		return debugger_getmetatable(value,m,vinfos,server,variablesReference,debugSpeedIndex,metatables)
	else
		return vinfos
	end
end
local function debugger_sendTableField(luatable,vinfos,server,variablesReference,debugSpeedIndex,valueType) 
	
		if(valueType == "userdata") then
			if(tolua and tolua.getpeer) then
				luatable = tolua.getpeer(luatable);
			else
				return vinfos;	
			end
		end
		if(luatable == nil) then return vinfos end

		for k, v in pairs(luatable) do	

			local vinfo = debugger_setVarInfo(k, v)
			table.insert(vinfos, vinfo)
			if(# vinfos > 10) then
				debugger_sendMsg(server,
				LuaDebugger.event.C2S_ReqVar,
				{
					variablesReference = variablesReference,
					debugSpeedIndex = debugSpeedIndex,
					vars = vinfos,
					isComplete = 0
				})
				vinfos = {} 
			end
		end
	

	return vinfos
end
local function debugger_sendTableValues(value,server,variablesReference,debugSpeedIndex)
	local vinfos = {}
	local luatable = {}
	local valueType = type(value)
	local userDataInfos = {}
	local m =nil
	if(valueType == "userdata") then
		if(tolua and tolua.getpeer) then	
			m =getmetatable(value)
			vinfos =	debugger_sendTableField(value,vinfos,server,variablesReference,debugSpeedIndex,valueType) 
		end
		if(LuaDebugTool) then
			local varInfos = debugger_GeVarInfoBytUserData(server,value,variablesReference,debugSpeedIndex)
		
			for i,v in ipairs(varInfos) do
				
					if(v.valueType == "System.Byte[]" and value[v.name] and type(value[v.name]) == "string") then
						local valueInfo = {
							name = v.name,
							valueType = "string",
							valueStr = ZZBase64.encode(value[v.name])
						}
						table.insert( vinfos, valueInfo)
					else
						table.insert(vinfos, v)
					end
					if(# vinfos > 10) then
						debugger_sendMsg(server,
						LuaDebugger.event.C2S_ReqVar,
						{
							variablesReference = variablesReference,
							debugSpeedIndex = debugSpeedIndex,
							vars = vinfos,
							isComplete = 0
						})
						vinfos = {}
					end
			end
			m =getmetatable(value)
		end
	else
		m =getmetatable(value)
		vinfos = debugger_sendTableField(value,vinfos,server,variablesReference,debugSpeedIndex,valueType) 
	end

	if(m) then
		vinfos = debugger_getmetatable(value,m,vinfos,server,variablesReference,debugSpeedIndex,{})
	end 
	debugger_sendMsg(server, LuaDebugger.event.C2S_ReqVar, {
				variablesReference = variablesReference,
				debugSpeedIndex = debugSpeedIndex,
				vars = vinfos,
				isComplete = 1
	})
end

--获取lua 变量的方法
local function debugger_getBreakVar(body, server)
	local variablesReference = body.variablesReference
	local debugSpeedIndex = body.debugSpeedIndex
	local vinfos = {}
	local function exe()
		local frameId = body.frameId;
		local type_ = body.type;
		local keys = body.keys;
		
		
		--找到对应的var
		local vars = nil
		if(type_ == 1) then
			vars = LuaDebugger.currentDebuggerData.vars[frameId + 1]
			vars = vars.locals
		elseif(type_ == 2) then
			vars = LuaDebugger.currentDebuggerData.vars[frameId + 1]
			vars = vars.ups	
		elseif(type_ == 3) then
			vars = _G
		end
		if(#keys == 0) then
			debugger_sendTableValues(vars,server,variablesReference,debugSpeedIndex)
			return
		end
		local index,value = debugger_searchVarByKeys(vars,keys,keys)
		if(value) then

			local valueType = type(value)
			if(valueType == "table" or valueType == "userdata") then
				debugger_sendTableValues(value,server,variablesReference,debugSpeedIndex)
			else
				if(valueType == "function") then
					value = tostring(value)
				end
				debugger_sendMsg(server, LuaDebugger.event.C2S_ReqVar, {
					variablesReference = variablesReference,
					debugSpeedIndex = debugSpeedIndex,
					vars = ZZBase64.encode(value)  ,
					isComplete = 1,
					varType = valueType
				})
			end

		else
			
			debugger_sendMsg(server, LuaDebugger.event.C2S_ReqVar, {
				variablesReference = variablesReference,
				debugSpeedIndex = debugSpeedIndex,
				vars = {} ,
				isComplete = 1,
				varType = "nil"
			})
		end
	end
	xpcall(exe, function(error)
		-- print("获取变量错误 错误消息-----------------")
		-- print(error)
		-- print(debug.traceback("", 2))
		debugger_sendMsg(server,
		LuaDebugger.event.C2S_ReqVar,
		{
			variablesReference = variablesReference,
			debugSpeedIndex = debugSpeedIndex,
			vars = {
				{
					name ="error",
					valueType = "string",
					valueStr = ZZBase64.encode("无法获取属性值:"..error.. "->"..debug.traceback("", 2)),
					isValue = false
				}
			},
			isComplete = 1
		})
	end)
end
local function ResetDebugInfo()
		LuaDebugger.Run = false
		LuaDebugger.StepIn = false
		LuaDebugger.StepNext = false
		LuaDebugger.StepOut = false

end
local function debugger_loop(server)
	server = debug_server
	--命令
	local command
	local eval_env = {}
	local arg
	while true do
		local line, status = server:receive()
		if(status == "closed") then
			debug.sethook()
			coroutine.yield()
		end
		if(line) then
			local netData = json.decode(line)
			local event = netData.event;
			local body = netData.data;
			if(event == LuaDebugger.event.S2C_DebugClose) then
				debug.sethook()
				coroutine.yield()
			elseif event == LuaDebugger.event.S2C_SetBreakPoints then
				--设置断点信息
				local function setB()
					debugger_setBreak(body)
				end
				xpcall(setB, function(error)
					print(error)
				end)
			elseif event == LuaDebugger.event.S2C_RUN then	--开始运行
			
				LuaDebugger.runTimeType = body.runTimeType
				LuaDebugger.isProntToConsole = body.isProntToConsole
				LuaDebugger.isFoxGloryProject = body.isFoxGloryProject
				ResetDebugInfo()
				LuaDebugger.currentDebuggerData = nil
				LuaDebugger.Run = true
				LuaDebugger.tempRunFlag = true
				local data = coroutine.yield()
				LuaDebugger.currentDebuggerData = data;
				debugger_sendMsg(server, data.event, {
					stack = data.stack
				})
			elseif event == LuaDebugger.event.S2C_ReqVar then -- 获取变量信息
				--请求数据信息
				debugger_getBreakVar(body, server)
			elseif event == LuaDebugger.event.S2C_NextRequest then -- 设置单步跳过
			
				
				ResetDebugInfo()
				LuaDebugger.StepNext = true
				--设置当前文件名和当前行数
				local data = coroutine.yield()
				--重置调试信息
				LuaDebugger.currentDebuggerData = data;
				debugger_sendMsg(server, data.event, {
					stack = data.stack
				})
			elseif(event == LuaDebugger.event.S2C_StepInRequest) then	--单步跳入
				--单步跳入
				ResetDebugInfo();
				LuaDebugger.StepIn = true
			
				local data = coroutine.yield()
				--重置调试信息
				LuaDebugger.currentDebuggerData = data;
				debugger_sendMsg(server, data.event, {
					stack = data.stack,
					eventType = data.eventType
				})
			elseif(event == LuaDebugger.event.S2C_StepOutRequest) then
				--单步跳出
				ResetDebugInfo()
				LuaDebugger.StepOut = true
				local data = coroutine.yield()
				--重置调试信息
				LuaDebugger.currentDebuggerData = data;
				debugger_sendMsg(server, data.event, {
					stack = data.stack,
					eventType = data.eventType
				})
			elseif event == LuaDebugger.event.S2C_LoadLuaScript then
				debugger_exeLuaString(body, true)
			end
		end
	end
end
coro_debugger = coroutine.create(debugger_loop)
debug_hook = function(event, line)

	if(not LuaDebugger.isHook) then
		return
	end

	if(LuaDebugger.Run) then
		if(event == "line") then
			local isCheck = false
			for k, breakInfo in pairs(LuaDebugger.breakInfos) do
				
				for bk, linesInfo in pairs(breakInfo) do
					
					if(linesInfo.lines and linesInfo.lines[line]) then
						isCheck = true
						break
					end
				end
				if(isCheck) then
					break
				end
			end
			 
			if(not isCheck) then
				return
			end
			
		end
	end
	

	local file = nil
	if(event == "line") then
		
		local funs = nil
		local funlength =0
		if(LuaDebugger.currentDebuggerData) then
			funs = LuaDebugger.currentDebuggerData.funcs
			funlength = #funs
		end
		local stepInfo = getinfo(2)
		local tempFunc = stepInfo.func
		local source = stepInfo.source
		file = getSource(source);
		if(source == "=[C]" or source:find(LuaDebugger.DebugLuaFie)) then return end
		if(funlength > 0 and funs[1] == tempFunc and LuaDebugger.currentLine ~= line) then
			LuaDebugger.runLineCount = LuaDebugger.runLineCount+1
		end
		local breakInfo = LuaDebugger.breakInfos[file]
		local breakData = nil
		local ischeck = false
		if(breakInfo) then
			
			for k, lineInfo in pairs(breakInfo) do
				local lines = lineInfo.lines
				if(lines and lines[line]) then
					ischeck = true
					break
				end
			end
		end
		local isHit = false
		if( ischeck) then 
		
		--并且在断点中
		local info = stepInfo
		local source = string.lower( info.source )
		local fullName,dir,fileName = debugger_getFilePathInfo(source)
		local hitPathNames = splitFilePath(fullName)
		
		local hitCounts = {}
		local debugHitCounts = nil
		for k, lineInfo in pairs(breakInfo) do
			
			local lines = lineInfo.lines
			local pathNames = lineInfo.pathNames
			debugHitCounts = lineInfo.hitCounts
			if(lines and lines[line]) then
				breakData = lines[line]
				--判断路径
				hitCounts[k] = 0
				local hitPathNamesCount = # hitPathNames
				local pathNamesCount = # pathNames
				while(true) do
					if(pathNames[pathNamesCount] ~= hitPathNames[hitPathNamesCount]) then
							
						break
					else
						hitCounts[k] = hitCounts[k] + 1
					end
					pathNamesCount = pathNamesCount - 1
					hitPathNamesCount = hitPathNamesCount - 1
					if(pathNamesCount <= 0 or hitPathNamesCount <= 0) then
						break;
					end
				end
			else
				breakData = nil
			end
		end		
		local hitFieName = ""
		local maxCount = 0		
		for k, v in pairs(hitCounts) do
			if(v > maxCount) then
				maxCount = v
				hitFieName = k;
			end
		end		
		if(# hitPathNames == 1 or(# hitPathNames > 1 and maxCount > 1)) then
			if(hitFieName ~= "") then
				
				local hitCount = breakData.hitCondition
				local clientHitCount = debugHitCounts[breakData.line]
				clientHitCount = clientHitCount +1
				debugHitCounts[breakData.line] = clientHitCount
				if(funs  and funs[1] == tempFunc and LuaDebugger.runLineCount == 0) then
					LuaDebugger.runLineCount = 0
				elseif(LuaDebugger.tempRunFlag and LuaDebugger.currentLine == line) then
					LuaDebugger.runLineCount = 0
					LuaDebugger.tempRunFlag  = nil
				elseif(clientHitCount >= hitCount) then
					isHit = true
				end	
				
			end
		end
	end
		if(LuaDebugger.StepOut) then
			if(funlength == 1) then
				ResetDebugInfo();
				LuaDebugger.Run = true
				return
			else
				if(funs[2] == tempFunc) then
					local data = debugger_stackInfo(3, LuaDebugger.event.C2S_StepInResponse)
					-- print("StepIn 挂起")
					--挂起等待调试器作出反应
					_resume(coro_debugger, data)
					return
				end
			end
		end
	
		if(LuaDebugger.StepIn) then
			if(funs[1] == tempFunc and LuaDebugger.runLineCount == 0) then
				return
			end
			local data = debugger_stackInfo(3, LuaDebugger.event.C2S_StepInResponse)
			-- print("StepIn 挂起")
			--挂起等待调试器作出反应
			_resume(coro_debugger, data)
			return
		end
		
		if(LuaDebugger.StepNext  ) then
			local isNext = false
			if(funs) then
				for i,f in ipairs(funs) do
					if(tempFunc == f) then
						if(LuaDebugger.currentLine == line) then
							return
						end
						isNext =true
						break;
					end
				end
			else
				
				isNext =true
			end
			if(isNext) then
				local data = debugger_stackInfo(3, LuaDebugger.event.C2S_NextResponse)
				LuaDebugger.runLineCount = 0
				LuaDebugger.currentLine = line
				--挂起等待调试器作出反应
				_resume(coro_debugger, data)
				return
			end
		end
		
		local sevent = nil
		

		--断点判断
		if(isHit) then
			
			
			LuaDebugger.runLineCount = 0
			LuaDebugger.currentLine = line
			sevent = LuaDebugger.event.C2S_HITBreakPoint
			--调用 coro_debugger 并传入 参数
			local data = debugger_stackInfo(3, sevent)
			--挂起等待调试器作出反应
			if(breakData and breakData.condition) then
				debugger_conditionStr(breakData.condition,data.vars,function() 
					_resume(coro_debugger, data)
				end)
			else
				--挂起等待调试器作出反应
				_resume(coro_debugger, data)
			end	
		end
	end
end
	

local function debugger_xpcall()
	--调用 coro_debugger 并传入 参数
	local data = debugger_stackInfo(4, LuaDebugger.event.C2S_HITBreakPoint)
	--挂起等待调试器作出反应
	_resume(coro_debugger, data)
end
--调试开始
local function start()
	
	local socket = createSocket()
	print(controller_host)
	print(controller_port)
	
	local fullName,dirName,fileName = debugger_getFilePathInfo(getinfo(1).source)
	LuaDebugger.DebugLuaFie = fileName
	local server = socket.connect(controller_host, controller_port)
	debug_server = server;
	if server then
		--创建breakInfo socket
		socket = createSocket()
		breakInfoSocket = socket.connect(controller_host, controller_port)
		if(breakInfoSocket) then
			breakInfoSocket:settimeout(0)
			debugger_sendMsg(breakInfoSocket, LuaDebugger.event.C2S_SetSocketName, {
				name = "breakPointSocket"
			})
			
		
			debugger_sendMsg(server, LuaDebugger.event.C2S_SetSocketName, {
				name = "mainSocket",
				version = LuaDebugger.version

			})
			xpcall(function()
				sethook(debug_hook, "lrc")
			end, function(error)
				print("error:", error)
			end)
			if(not jit) then
				if(_VERSION)then
					print("当前lua版本为: ".._VERSION.." 请使用LuaDebug 进行调试!")
				else
					print("当前为lua版本,请使用LuaDebug 进行调试!")
				end
				
			end
			_resume(coro_debugger, server)
		end
	end
end
function StartDebug(host, port)
	

	if(not host) then
		print("error host nil")
	end
	if(not port) then
		print("error prot nil")
	end
	if(type(host) ~= "string") then
		print("error host not string")
	end
	if(type(port) ~= "number") then
		print("error host not number")
	end
	controller_host = host
	controller_port = port
	xpcall(start, function(error)
		-- body
		print(error)
	end)
	return debugger_receiveDebugBreakInfo, debugger_xpcall
end



--base64

local string = string

ZZBase64.__code = {
            'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
            'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
            'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
            'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '/',
        };
ZZBase64.__decode = {}
for k,v in pairs(ZZBase64.__code) do
    ZZBase64.__decode[string.byte(v,1)] = k - 1
end

function ZZBase64.encode(text)
    local len = string.len(text)
    local left = len % 3
    len = len - left
    local res = {}
    local index  = 1
    for i = 1, len, 3 do
        local a = string.byte(text, i )
        local b = string.byte(text, i + 1)
        local c = string.byte(text, i + 2)
        -- num = a<<16 + b<<8 + c
        local num = a * 65536 + b * 256 + c 
        for j = 1, 4 do
            --tmp = num >> ((4 -j) * 6)
            local tmp = math.floor(num / (2 ^ ((4-j) * 6)))
            --curPos = tmp&0x3f
            local curPos = tmp % 64 + 1
            res[index] = ZZBase64.__code[curPos]
            index = index + 1
        end
    end

    if left == 1 then
        ZZBase64.__left1(res, index, text, len)
    elseif left == 2 then
        ZZBase64.__left2(res, index, text, len)        
    end
    return table.concat(res)
end

function ZZBase64.__left2(res, index, text, len)
    local num1 = string.byte(text, len + 1)
    num1 = num1 * 1024 --lshift 10 
    local num2 = string.byte(text, len + 2)
    num2 = num2 * 4 --lshift 2 
    local num = num1 + num2
   
    local tmp1 = math.floor(num / 4096) --rShift 12
    local curPos = tmp1 % 64 + 1
    res[index] = ZZBase64.__code[curPos]
    
    local tmp2 = math.floor(num / 64)
    curPos = tmp2 % 64 + 1
    res[index + 1] = ZZBase64.__code[curPos]

    curPos = num % 64 + 1
    res[index + 2] = ZZBase64.__code[curPos]
    
    res[index + 3] = "=" 
end

function ZZBase64.__left1(res, index,text, len)
    local num = string.byte(text, len + 1)
    num = num * 16 
    
    local tmp = math.floor(num / 64)
    local curPos = tmp % 64 + 1
    res[index ] = ZZBase64.__code[curPos]
    
    curPos = num % 64 + 1
    res[index + 1] = ZZBase64.__code[curPos]
    
    res[index + 2] = "=" 
    res[index + 3] = "=" 
end

function ZZBase64.decode(text)
    local len = string.len(text)
    local left = 0 
    if string.sub(text, len - 1) == "==" then
        left = 2 
        len = len - 4
    elseif string.sub(text, len) == "=" then
        left = 1
        len = len - 4
    end

    local res = {}
    local index = 1
    local decode = ZZBase64.__decode
    for i =1, len, 4 do
        local a = decode[string.byte(text,i    )] 
        local b = decode[string.byte(text,i + 1)] 
        local c = decode[string.byte(text,i + 2)] 
        local d = decode[string.byte(text,i + 3)]

        --num = a<<18 + b<<12 + c<<6 + d
        local num = a * 262144 + b * 4096 + c * 64 + d
        
        local e = string.char(num % 256)
        num = math.floor(num / 256)
        local f = string.char(num % 256)
        num = math.floor(num / 256)
        res[index ] = string.char(num % 256)
        res[index + 1] = f
        res[index + 2] = e
        index = index + 3
    end

    if left == 1 then
        ZZBase64.__decodeLeft1(res, index, text, len)
    elseif left == 2 then
        ZZBase64.__decodeLeft2(res, index, text, len)
    end
    return table.concat(res)
end

function ZZBase64.__decodeLeft1(res, index, text, len)
    local decode = ZZBase64.__decode
    local a = decode[string.byte(text, len + 1)] 
    local b = decode[string.byte(text, len + 2)] 
    local c = decode[string.byte(text, len + 3)] 
    local num = a * 4096 + b * 64 + c
    
    local num1 = math.floor(num / 1024) % 256
    local num2 = math.floor(num / 4) % 256
    res[index] = string.char(num1)
    res[index + 1] = string.char(num2)
end

function ZZBase64.__decodeLeft2(res, index, text, len)
    local decode = ZZBase64.__decode
    local a = decode[string.byte(text, len + 1)] 
    local b = decode[string.byte(text, len + 2)]
    local num = a * 64 + b
    num = math.floor(num / 16)
    res[index] = string.char(num)
end




return StartDebug