123

local PANEL = {}

	PANEL.URL = "http://metastruct.github.io/lua_editor/"
	PANEL.COMPILE = "C"

	local javascript_escape_replacements =
	{
		["\\"] = "\\\\",
		["\0"] = "\\0" ,
		["\b"] = "\\b" ,
		["\t"] = "\\t" ,
		["\n"] = "\\n" ,
		["\v"] = "\\v" ,
		["\f"] = "\\f" ,
		["\r"] = "\\r" ,
		["\""] = "\\\"",
		["\'"] = "\\\'",
	}

	function PANEL:Init()
		self.Code = ""

		self.ErrorPanel = self:Add("DButton")
		self.ErrorPanel:SetFont('BudgetLabel')
		self.ErrorPanel:SetTextColor(Color(255,255,255))
		self.ErrorPanel:SetText("")
		self.ErrorPanel:SetTall(0)
		self.ErrorPanel.DoClick = function()
			self:GotoErrorLine()
		end
		self.ErrorPanel.DoRightClick = function(self)
			SetClipboardText(self:GetText())
		end
		self.ErrorPanel.Paint = function(self,w,h)
			surface.SetDrawColor(255,50,50)
			surface.DrawRect(0,0,w,h)
		end

		self:StartHTML()
	end

	function PANEL:Think()
		if self.NextValidate && self.NextValidate < CurTime() then
			self:ValidateCode()
		end
	end

	function PANEL:StartHTML()
		self.HTML = self:Add("DHTML")

		self:AddJavascriptCallback("OnCode")
		self:AddJavascriptCallback("OnLog")

		self.HTML:OpenURL(self.URL)

		self.HTML:RequestFocus()
	end

	function PANEL:ReloadHTML()
		self.HTML:OpenURL(self.URL)
	end

	function PANEL:JavascriptSafe(str)
		str = str:gsub(".",javascript_escape_replacements)
		str = str:gsub("\226\128\168","\\\226\128\168")
		str = str:gsub("\226\128\169","\\\226\128\169")
		return str
	end

	function PANEL:CallJS(JS)
		self.HTML:Call(JS)
	end

	function PANEL:AddJavascriptCallback(name)
		local func = self[name]

		self.HTML:AddFunction("gmodinterface",name,function(...)
			func(self,HTML,...)
		end)
	end

	function PANEL:OnCode(_,code)
		self.NextValidate = CurTime() + 0.2
		self.Code = code
	end

	function PANEL:OnLog(_,...)
		Msg("Editor: ")
		print(...)
	end

	function PANEL:SetCode(code)
		self.Code = code
		self:CallJS('SetContent("' .. self:JavascriptSafe(code) .. '");')
	end

	function PANEL:GetCode()
		return 'local me=Entity('..LocalPlayer():EntIndex()..') local trace=me:GetEyeTrace() local this,there=trace.Entity,trace.HitPos '..self.Code
	end

	function PANEL:SetGutterError(errline,errstr)
		self:CallJS("SetErr('" .. errline .. "','" .. self:JavascriptSafe(errstr) .. "')")
	end

	function PANEL:GotoLine(num)
		self:CallJS("GotoLine('" .. num .. "')")
	end

	function PANEL:ClearGutter()
		self:CallJS("ClearErr()")
	end

	function PANEL:GotoErrorLine()
		self:GotoLine(self.ErrorLine || 1)
	end

	function PANEL:SetError(err)
		if !IsValid(self.HTML) then
			self.ErrorPanel:SetText("")
			self:ClearGutter()
			return
		end

		local tall = 0

		if err then
			local line,err = string.match(err,self.COMPILE .. ":(%d*):(.+)")

			if line && err then
				tall = 20

				self.ErrorPanel:SetText((line && err) && ("Line " .. line .. ": " .. err) || err || "")
				self.ErrorLine = tonumber(string.match(err," at line (%d)%)") || line) || 1
				self:SetGutterError(self.ErrorLine,err)
			end
		else
			self.ErrorPanel:SetText("")
			self:ClearGutter()
		end

		local wide = self:GetWide()
		local tallm = self:GetTall()

		self.ErrorPanel:SetPos(0,tallm - tall)
		self.ErrorPanel:SetSize(wide,tall)
		self.HTML:SetSize(wide,tallm - tall)
	end

	function PANEL:ValidateCode()
		local time = SysTime()
		local code = self:GetCode()

		self.NextValidate = nil

		if !code || code == "" then
			self:SetError()
			return
		end

		local errormsg = CompileString(code,self.COMPILE,false)
		time = SysTime() - time

		if type(errormsg) == "string" then
			self:SetError(errormsg)
		elseif time > 0.25 then
			self:SetError("Компиляция заняла слишком много времени. (" .. math.Round(time * 1000) .. ")")
		else
			self:SetError()
		end
	end

	function PANEL:PerformLayout(w,h)
		local tall = self.ErrorPanel:GetTall()

		self.ErrorPanel:SetPos(0,h - tall)
		self.ErrorPanel:SetSize(w,tall)

		self.HTML:SetSize(w,h - tall)
	end


	vgui.Register("lua_editor",PANEL,"EditablePanel")

	local menu = vgui.Create('DFrame')
	menu:SetSize(ScrW()/2,ScrH()/2)
	menu:SetTitle('Хуй')
	menu:Center()
	menu:SetSizable(true)
	menu:MakePopup()
	menu:ShowCloseButton(false)
	menu.Paint = function(self,w,h)
		surface.SetDrawColor(100,30,30)
		surface.DrawRect(0, 0, w, 25)

		surface.SetDrawColor(0,0,0)
		surface.DrawRect(0, 25, w, h)
	end

	local clos = vgui.Create("DButton", menu)
	clos:SetSize(40,23)
	clos:SetText("")
	clos.Paint = function(self,w,h)
		surface.SetDrawColor(196,80,80)
		surface.DrawRect(0,0,w,h)
		surface.SetFont("marlett")
		local s,s1 = surface.GetTextSize("r")
		surface.SetTextPos(w/2-s/2,h/2-s1/2)
		surface.SetTextColor(255,255,255)
		surface.DrawText("r")
	end
	clos.DoClick = function()
		menu:SetVisible(!menu:IsVisible())
	end

	local ed = vgui.Create('lua_editor', menu)
	ed:SetPos(5, 55)

	menu.PerformLayout = function(self, w, h)
		clos:SetPos(w-41, 1)
		ed:SetSize(w-10, h-60)
	end

	local offset = 5

	local function CreateBtn(wide, text, icon, fn)
		local mt = Material(icon)
		local btn = vgui.Create('DButton', menu)
		btn:SetText('')
		btn.Paint = function(self,w,h)
			if self.Hovered then
				if self.Depressed then
					surface.SetDrawColor(90,90,90)
				else
					surface.SetDrawColor(70,70,70)
				end
			else
				surface.SetDrawColor(40,40,40)
			end

			surface.DrawRect(0,0,w,h)
			surface.SetDrawColor(255,255,255)
			surface.SetMaterial(mt)
			surface.DrawTexturedRect(5,h / 2 - 8,16,16)
			draw.SimpleText(text,'BudgetLabel',26,h / 2,Color(255,255,255),0,1)
		end
		btn.DoClick = fn
		btn:SetSize(wide, 20)
		btn:SetPos(offset, 30)
		offset=offset + wide + 5
	end


	CreateBtn(115, "Лоад", 'icon16/arrow_down.png', function()
		local code = ed:GetCode()
		RunStringEx(code)
	end)


	concommand.Add("scoralua", function() menu:SetVisible(!menu:IsVisible()) end)



	MsgC(Color(255, 155, 55), "Лоаднулся!\n")