Lua注释的解析方法

之前实验室一个学长跟我一起研究lua的注释格式，特此写了一个lua的注释解析小代码练手，顺便练习递归文法解析。

lua注释格式为 -- XXXX +'\n'或者为 --[n个=[XXX]n个=]

--Lua注释解析
--case1：从--开始 若--后面不为[ 则解析到\n为注释
--case2：从--开始 若--后面为[ 则必须为[==[XXX]==]的形式 中间等号数相等可为O
--
str=[[  --[==[sadsadasdas]==]  ]]


function GetChar(i)
	return string.sub(str,i,i);	
end

function StrMatch(i,j,pattern)
	return string.sub(s,i,j)==pattern;
end

function EscapeWhiteSpaces(i)
	local strlen=string.len(str);
	local e=i;
	while e<strlen do
		if GetChar(i)==' ' then
			e=e+1;
		else
			break;
		end
	end
end


function EscapeComments(i)
	local strlen=string.len(str);
	if StrMatch(i,i+3,"--[") then
		local e=i+3;
		if StrMatch(e,e+1,"[") then
			local right="]"..string.sub(str,i+3,e).."]";
			local len=e-i-1;
			e=e+1;
			while e+len<= strlen and string.sub(str,e,e+len)==right do
				e=e+1;
			end
			if e+len>strlen then
				print("comment error!");
			else
				return e+len
			end
		else
			while e<strlen and GetChar(e)~='\n' do
				e=e+1;
			end
			return e+1;
		end
	else
		local e=i+2;
		while e<strlen and GetChar(e)~='\n' do
			e=e+1;
		end
		return e+1;
	end
end

function Escape(i)
	local strlen=string.len(str);
	while i<strlen do
		i=EscapeWhiteSpaces(i);
		if StrMatch(i,i+2,"--") then
			i=EscapeComments(i);
		else
			break;
		end
	end
end