Scite Func List

wiki

SciteFuncList depends on the [ctags] and SciteTags, so you need to prepare these before using SciteFuncList.

-- SciteFuncList.lua

-- by 2011.04.22 lee.sheen@gmail.com



scite_Command {

	'Function List|functionList|Ctrl+/',

}



function functionList()

	local sourceFilename = props["FilePath"]

	local ctagsFilename = sourceFilename .. ".ctags"



	makeCtagsFile(sourceFilename, ctagsFilename)

	readCtagsFile(ctagsFilename)

	removeCtagsFile(ctagsFilename)

end



function makeCtagsFile(sourceFilename, ctagsFilename)

	local makeCtagsCommand = "ctags -u -f " .. ctagsFilename .. " " .. sourceFilename

	--print(makeCtagsCommand)

	os.execute(makeCtagsCommand)

end



function readCtagsFile(ctagsFilename)

	print()

	io.input(ctagsFilename)

	while true do

		local line = io.read("*line")

		if line == nil then break end

		if not isCommentLine(line) then

			print(getFunctionName(line))

		end

	end

end



function isCommentLine(line)

	return '!' == string.sub(line, 0, 1)

end



function getFunctionName(line)

	local ctagsTable = {}

	ctagsTable = splitCtagsLine(line)

	local functionName = makeFunctionName(ctagsTable)

	local searchString = makeSearchString(ctagsTable)

	return functionName, searchString

end



function splitCtagsLine(line)

	local t = {}

	local l = 0

	local r = 0

	while true do

		r = string.find(line, "\t", l)

		if r == nil then

			r = #line + 1

		end



		local name = string.sub(line, l, r - 1)

		t[#t + 1] = name



		l = r + 1

		if #line <= l then break end

	end

	return t

end



function makeFunctionName(ctagsTable)

	local functionName = ctagsTable[1]

--[[

	-- with it's class name

	if not(ctagsTable[5] == nil) then

		local isClass = not(string.find(ctagsTable[5], "class:", 0) == nil)

		if isClass then 

			local className = string.sub(ctagsTable[5], 7)

			functionName = className.."::"..functionName

		end

	end

--]]

	return functionName

end



function makeSearchString(ctagsTable)

	local searchString = nil

	local s = string.sub(ctagsTable[3], 0, #ctagsTable[3] - 2)

	local l = 0

	local r = 0

	while true do

		r = string.find(s, "\\", l)

		if r == nil then

			r = #s + 1

		elseif string.sub(s, r + 1, r + 1) == "\\" then 

			r = r + 1

		end



		local name = string.sub(s, l, r - 1)

		if searchString == nil then 

			searchString = name

		else

			searchString = searchString..name

		end



		l = r + 1

		if #s <= l then break end

	end



	return searchString

end



function removeCtagsFile(ctagsFilename)

	os.remove(ctagsFilename)

end