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