Внешние дополнения к редактору SciTE

#Insert AutoIt3 Function Header (for all UDFs) as per UDF guidlines
command.name.35.$(au3)=Add headers to all UDFs
command.35.$(au3)="$(autoit3dir)\AutoIt3.exe" "$(SciteDefaultHome)\AddFuncHeaders\AddFuncHeaders.au3" "$(FilePath)"
command.is.filter.35.$(au3)=1
command.save.before.35.$(au3)=1
command.shortcut.35.$(au3)=Ctrl+Alt+Shift+f

"C:\AutoIt3\SciTE\Obfuscator\Obfuscator.exe" "%1" /SO

--------------------------------------------------------------------------------
-- MakeAbbrev()
--
-- Make abbreviation from selected code (by G.Sandler).
--
-- Tool: AutoItTools.MakeAbbrev $(au3) 2 Alt+A Make Abbreviation
--------------------------------------------------------------------------------
function AutoItTools:MakeAbbrev()
	local sel_text = editor:GetSelText()
	
	if #sel_text < 1 then 
		print("!!! To make abbreviation, select some code !!!")
		return 
	end
	
	if #sel_text < 10 then  --Limit abbrev value by 10 chars minimum
		print("!!! To make abbreviation, please select code with minimum of 10 chars !!!")
		return 
	end
	
	local abbrev_name = sel_text:match("%w+")
	abbrev_name = shell.inputbox("Make Abbreviation", "Enter abbreviation name for selected code:", abbrev_name:lower(), function(name) return not name:match('[# \t=]') end)
	if abbrev_name == nil then return end
	
	abbrev_name = abbrev_name:lower()
	
	local user_abbrev_file = props["SciteDefaultHome"] .. "\\abbrev\\au3.user.abbrev"
	local user_abbrev_kwrds_file = props["SciteDefaultHome"] .. "\\properties\\au3.user.keywords.abbreviations.properties"
	
	local user_abbrev_read = ''
	
	local h_user_abbrev_file = io.open(user_abbrev_file)
	
	if h_user_abbrev_file then
		user_abbrev_read = h_user_abbrev_file:read('*a') .. "\n"
		h_user_abbrev_file:close()
	end
	
	local h_user_abbrev_kwrds_file = io.open(user_abbrev_kwrds_file)
	
	if h_user_abbrev_kwrds_file then
		local user_abbrev_kwrds_read = h_user_abbrev_kwrds_file:read('*a') .. " "
		h_user_abbrev_kwrds_file:close()
		
		io.output(user_abbrev_kwrds_file)
		io.write(user_abbrev_kwrds_read .. abbrev_name)
		io.close()
	else 
		print("!!! File not found: " .. user_abbrev_kwrds_file .. "!!!")
	end
	
	local eol = "\r\n"
	
    if editor.EOLMode == SC_EOL_CR then
        eol = "\r"
    elseif editor.EOLMode == SC_EOL_LF then
        eol = "\n"
    end
	
	sel_text = sel_text:gsub("\\", "\\\\"):gsub(eol, "\\n"):gsub("\t", "\\t")
	
	io.output(user_abbrev_file)
	io.write(user_abbrev_read .. abbrev_name .. "=" .. sel_text)
	io.close()
	
	scite.Perform("reloadproperties:")
	
	print("+ Abbreviation seccessfuly created, to call it type in SciTE: " .. abbrev_name .. " and press Space or Ctrl+B")
end

  command.parent.33.$(au3)=1
	command.name.33.$(au3)=Make Abbreviation
	command.33.$(au3)=Invoke AutoItTools.MakeAbbrev
	command.mode.33.$(au3)=subsystem:lua,savebefore:no
	command.shortcut.33.$(au3)=Alt+A

--[[
	AddFuncUndeclaredVars()
	Add function uneclared variables.
	Author: G.Sandler (CreatoR)
--]]

-- Get the current line.
local iCurr_Pos = editor.CurrentPos
local iLine = editor:LineFromPosition(iCurr_Pos)
local sLine = editor:GetLine(iLine)

if sLine == nil then
	print("- Cursor not on function definition.")
	return
end

-- Get function name in original case registry
local sFunc_Name = sLine:match("^%s*[Ff][Uu][Nn][Cc] %s*([%w_]*)")

-- First we check if it's a function (in lower case).
if not sFunc_Name then
	print("- Cursor not on function definition.")
	return
end

-- Set up variables we'll be using throughout.
local sUnDclrd_Vars = ""
local sFunc_Body = sLine
local iFunc_Line = iLine
local aParams = sLine:gmatch("(%$[%w_]*)")
local aScope = {"local", "global", "dim", "const", "static"}
local aVars = {}

-- Get function body and vars
while iLine < editor.LineCount - 1 do
	iLine = iLine + 1
	sLine = editor:GetLine(iLine)
	
	if sLine:lower():match("^%s*endfunc") then
		sFunc_Body = sFunc_Body .. sLine
		break
	end
	
	-- Ignore commented lines
	if sLine:match("^%s*;") == nil then
		sFunc_Body = sFunc_Body .. sLine
		
		for var, str in sLine:gmatch("(%$[%w_]+)%s*=%s*") do
			aVars[var] = var
		end
	end
end

-- Get current doc content and remove all functions and all commented lines from it
local sDoc_Read = editor:GetText():lower():gsub("[\r\n^]%s*func %s*([%w_]*.-endfunc)", "")
sDoc_Read = sDoc_Read:gsub("[\r\n^]%s*;[^\r\n]*", "")
sDoc_Read = sDoc_Read:gsub("[\r\n^]%s*#cs%s*.-#ce", "")
sDoc_Read = sDoc_Read:gsub("[\r\n^]%s*#comments%-start%s*.-#comments%-end", "")

for sKey, sVar in pairs(aVars) do
	iFound = 0
	
	-- Check if the vars not declared in function params
	for sParam, str in aParams do
		if sVar:lower() == sParam:lower() then
			iFound = 1
			break
		end
	end
	
	-- Check if the vars not declared in function itself
	if iFound == 0 then
		-- for i = 1, #aScope do
		for _, sScope in ipairs(aScope) do
			if sFunc_Body:lower():match("[\r\n^]%s*" .. sScope:lower() .. " .*" .. sVar:lower() .. "%s*[=,\r\n]") then
				iFound = 1
				break
			end
		end
	end
	
	-- Check if the vars not declared globaly in entire file (only current script ATM)
	if iFound == 0 and sDoc_Read:match("[\r\n^]%s*global .*" .. sVar:lower() .. "%s*[=,\r\n]") then
		iFound = 1
	end
	
	if iFound == 0 then
		if sUnDclrd_Vars ~= "" then
			sUnDclrd_Vars = sUnDclrd_Vars .. ", "
		end
		
		sUnDclrd_Vars = sUnDclrd_Vars .. sVar
	end
end

if sUnDclrd_Vars == "" then
	print("> Undeclared variables not found in \"" .. sFunc_Name .. "\" function")
else
	editor:LineEnd()
	editor:NewLine()
	editor:ReplaceSel("Local " .. sUnDclrd_Vars)
	editor:NewLine()
	editor:GotoPos(iCurr_Pos)
end

	command.parent.33.$(au3)=1
	command.name.33.$(au3)=Add function undeclared vars
	command.33.$(au3)=dofile(props["SciteDefaultHome"].."\\lua\\AddUndeclaredVars.lua")
	command.mode.33.$(au3)=subsystem:lua,savebefore:no
	command.shortcut.33.$(au3)=Ctrl+2