OpenRA/spec/lua.lua

-- language specification

return {
	exts = {"lua"},
	lexer = wxstc.wxSTC_LEX_LUA,
	apitype = "lua",
	linecomment = "--",
	sep = "[%.:]",
	isfncall = function(str)
					return string.find(str,"([A-Za-z0-9_]+)%s*%(")
				end,
	isfndef = function(str)
					local l
					local s,e,cap = string.find(str,"function%s*([A-Za-z0-9_]+%s*[%.%:]*%s*[A-Za-z0-9_]*%s*%(.*%))")
					if (not s) then
						s,e,cap = string.find(str,"function%s*([A-Za-z0-9_]+%s*[%.%:]*%s*[A-Za-z0-9_]*)%s*")
					end
					if (s) then
						l = string.find(string.sub(str,1,s-1),"local%s+$")
					end
					return s,e,cap,l
				end,
	
	typeassigns = function(editor)
			local line = editor:GetCurrentLine()
			line = line-1
			
			local scopestart = {"if","do","while","function", "local%s+function", "for", "else", "elseif"}
			local scopeend = {"end"}
			local iscomment = editor.spec.iscomment
			
			local assigns = {}
			
			-- iterate up until a line starts with scopestart
			-- always ignore lines whose first symbol is styled as comment
			local endline = line
			while (line >= 0) do 
				local ls = editor:PositionFromLine(line)
				local s = bit.band(editor:GetStyleAt(ls),31)

				if (not iscomment[s]) then
					local tx = editor:GetLine(line)
					local leftscope
					
					for i,v in ipairs(scopestart) do
						if (tx:match("^"..v)) then
							leftscope = true
						end
					end
					if (leftscope) then 
						break 
					end
				end
				line = line -1
			end
			
			while (line <= endline) do
				local ls = editor:PositionFromLine(line)
				local s = bit.band(editor:GetStyleAt(ls),31)

				if (not iscomment[s]) then
					local tx = editor:GetLine(line) --= string
					
					-- check for assignments
					local varname = "([%w_]+)"
					local identifier = "([%w_%.:]+)"

					-- special hint
					local typ,var = tx:match("%s*%-%-=%s*"..varname.."%s+"..identifier)
					if (var and typ) then
						assigns[var] = typ
					else
						-- real assignments
						local var,typ,rest = tx:match("%s*"..identifier.."%s*=%s*"..identifier.."(.*)")
						local comment = rest and rest:match(".*%-%-=%s*"..varname.."%s*$")
						local comma = rest and rest:match(".-%s*([,]*)%s*$")
						if (var and comment) then
							assigns[var] = comment
						elseif (var and typ and comma=="") then
							class,func = typ:match(varname.."[%.:]"..varname)
							if (func) then
								local funcnames = {"new","load","create"}
								for i,v in ipairs(funcnames) do
									if (func:match("^"..v)) then
										assigns[var] = class
										break
									end
								end
							elseif (assigns[typ]) then
								assigns[var] = assigns[typ]
							end
						end
					end

				end
				line = line+1
			end
			
			if (#assigns > 0) then
				DisplayOutput("\nTYPES\n")
				for i,v in pairs(assigns) do
					DisplayOutput(i,v,"\n")
				end
			end
	
			return assigns
		end,
	
	lexerstyleconvert = {
		text		= {wxstc.wxSTC_LUA_IDENTIFIER,},
	
		lexerdef	= {wxstc.wxSTC_LUA_DEFAULT,},
		comment 	= {wxstc.wxSTC_LUA_COMMENT, 
						wxstc.wxSTC_LUA_COMMENTLINE, 
						wxstc.wxSTC_LUA_COMMENTDOC,},
		stringtxt 	= {wxstc.wxSTC_LUA_STRING,
						wxstc.wxSTC_LUA_CHARACTER,
						wxstc.wxSTC_LUA_LITERALSTRING,},
		stringeol 	= {wxstc.wxSTC_LUA_STRINGEOL,},
		preprocessor= {wxstc.wxSTC_LUA_PREPROCESSOR,},
		operator 	= {wxstc.wxSTC_LUA_OPERATOR,},
		number 		= {wxstc.wxSTC_LUA_NUMBER,},
		
		
		keywords0	= {wxstc.wxSTC_LUA_WORD,},
		keywords1	= {wxstc.wxSTC_LUA_WORD2,},
		keywords2	= {wxstc.wxSTC_LUA_WORD3,},
		keywords3	= {wxstc.wxSTC_LUA_WORD4,},
		keywords4	= {wxstc.wxSTC_LUA_WORD5,},
		keywords5	= {wxstc.wxSTC_LUA_WORD6,},
		keywords6	= {wxstc.wxSTC_LUA_WORD7,},
		keywords7	= {wxstc.wxSTC_LUA_WORD8,},
	},
	
	keywords = {
		[[and break do else elseif end false for function if ipairs pairs
			in local nil not or repeat return then true until while]],

		[[_VERSION assert collectgarbage dofile error gcinfo loadfile loadstring
			print rawget rawset require tonumber tostring type unpack]],

		[[_G getfenv getmetatable loadlib next pcall
			rawequal setfenv setmetatable xpcall
			string table math coroutine io os debug
			load module select]],

		[[string.byte string.char string.dump string.find string.len
			string.lower string.rep string.sub string.upper string.format string.gfind string.gsub
			table.concat table.foreach table.foreachi table.getn table.sort table.insert table.remove table.setn
			math.abs math.acos math.asin math.atan math.atan2 math.ceil math.cos math.deg math.exp
			math.floor math.frexp math.ldexp math.log math.log10 math.max math.min math.mod
			math.pi math.pow math.rad math.random math.randomseed math.sin math.sqrt math.tan
			string.gmatch string.match string.reverse table.maxn
			math.cosh math.fmod math.modf math.sinh math.tanh math.huge]],

		[[coroutine.create coroutine.resume coroutine.status
			coroutine.wrap coroutine.yield
			io.close io.flush io.input io.lines io.open io.output io.read io.tmpfile io.type io.write
			io.stdin io.stdout io.stderr
			os.clock os.date os.difftime os.execute os.exit os.getenv os.remove os.rename
			os.setlocale os.time os.tmpname
			coroutine.running package.cpath package.loaded package.loadlib package.path
			package.preload package.seeall io.popen
			debug.debug debug.getfenv debug.gethook debug.getinfo debug.getlocal
			debug.getmetatable debug.getregistry debug.getupvalue debug.setfenv
			debug.sethook debug.setlocal debug.setmetatable debug.setupvalue debug.traceback]],
	},


}