// Linguagem para formatar algoritmo
//
// exemplo
//
//
/*
procedure w
  if i
  then
   {k1}
   {k2}
  end
  for k do
    {lalala}
    if x then
      {y}
      {z}
    else
      {u}
      {v}
    end
  next
{w}
end 
*/

start= procedure 

procedure = "procedure" _ id:identifier sb:statementblock _ "end" _
{ return   "<H2> PROCEDURE "+id+ "</H2>"+sb;}


inputs = "inputs" identifier ("," identifier)* nl

statement = ifstatement / forstatement / free

statementblock= s:(_ statement)* 
{var st="<UL>";
for (var k=0; k<s.length; k++) st+="<LI>"+s[k][1];
st=st+"</UL>"
return st;}

free = "{" f:freesentence "}" nl {return f;}

freesentence = (char+ _)* {return text();}

ifstatement 
	= "if" _ cond:identifier _ "then" _ then:statementblock 
    el:(_ "else" x:statementblock)? _  "end" nl
	{return "IF "+cond+" <BR> THEN  "+ then+ " <BR> ELSE "+el+"";} 

forstatement
	= "for" _  cond:identifier  _
      "do" _ dob:statementblock _ "next" nl
	{return "FOR "+cond+" <BR> DO "+ dob +"";}

identifier = letter char* {return text();}

char=letter/digit

digit=[0-9]

letter=[a-zA-Z]

_ "whitespace"
  = [ \t\n\r]*

nl= [\n] _