Scite Display Functions

wiki

 ---------------------------------------------- -- @ script : SciTE_DisplayFunctions.lua -- @ creator : gongadze -- @ desc : the script collects the functions and display in the usertable -- @ desc : if you stand on a functionname and press Ctrl-2 you are  -- @ desc : immediately routed to the function definition -- @ version : v0.02  ---------------------------------------------- function UserListShow(list) local s = '' local sep = ';' local n = table.getn(list) for i = 1,n-1 do s = s..list[i]..sep end s = s..list[n] editor.AutoCSeparator = string.byte(sep) editor:UserListShow(12,s) editor.AutoCSeparator = string.byte(' ') end function AllLinesWithText(txt,flags) if not flags then flags = 0 end local s,e = editor:findtext(txt,flags,0) local result = {} while s do local l = editor:LineFromPosition(s) -- trace(l..' '..editor:GetLine(l)) func = strip(editor:GetLine(l)) table.insert(result,func) s,e = editor:findtext(txt,flags,e+1) end return result end function strip(str)	str=string.gsub(str, "^%s+","") if string.find(str, "\r\n") then return string.gsub(str, "\r\n", "") else return string.gsub(str, "\n", "") end end function charAt(n) return string.char(editor.CharAt[n]) end function getCurrentWord()	_curpos = editor.CurrentPos	regexp = "[a-zA-Z_]" --> ProgLang-specific REGEXP	curpos = _curpos	char=charAt(curpos)	right='' while string.find(char,regexp) do	right=right..char	curpos = curpos + 1	char=charAt(curpos) --trace(char) end	regexp = "[a-zA-Z_]"	curpos = _curpos-1	char=charAt(curpos)	left='' while string.find(char,regexp) do	left=char..left	curpos = curpos - 1	char=charAt(curpos) end	result = left..right if result == '' then return false else return result end end function isInFunctionTable(table,value)	indicator = false for k,v in pairs(table) do if string.find(v,("^function "..value)) then indicator = true end end return indicator end function DisplayFunctions()	function_catch = '^[ |\t]*function [a-zA-Z0-9_:&]*([a-zA-Z0-9,_ \$\=\&]*)' --> ProgLang-specific REGEXP	ki = AllLinesWithText(function_catch,SCFIND_REGEXP)	current_word = getCurrentWord() if (current_word) and (isInFunctionTable(ki,current_word)) then local s,e = editor:findtext("^[ |\t]*function "..current_word,SCFIND_REGEXP,0)	editor:GotoPos(s) -- editor:MarkerAdd(editor:LineFromPosition(editor.CurrentPos),1) else if ( table.getn(ki) > 0 ) then	UserListShow(ki) end end return 0 end function OnUserListSelection(listID, s) local s,e = editor:findtext(s,SCFIND_REGEXP,0) editor:GotoPos(s) return 0 end