Adicionando "converteInt"

interpretador.lua

@@ -197,6 +197,10 @@ function avaliaExpChamada (exp, ambiente)
 		exp.nome.v = "textoSub"
 		exp.args[3] = exp.args[2]
 		return avaliaExpChamada(exp, ambiente)
+	elseif exp.nome.v == "converteInt" then
+		local v = exp.args[1]
+		local s = avalia(v, ambiente)
+		return math.tointeger(s)
 	else
 		return avaliaExpChamadaAux(exp, ambiente)
 	end			

parser.lua

@@ -107,7 +107,7 @@ local g = re.compile([[
                   ABREPAR  (Exp / ErroExpPar)  (FECHAPAR / ErroFechaPar)  /
                   ChamadaFunc / Numero  / Var  / Cadeia / VERDADEIRO / FALSO
   ChamadaFunc  <- ((FuncPredef -> noId (ABREPAR / ErroFuncPredef) / Nome ABREPAR) ListaExp (FECHAPAR / ErroFechaPar)) -> noChamadaFunc
-  FuncPredef   <- ENTRADA / SAIDA / TEXTOCOMP / TEXTOSUB / TEXTOPOS
+  FuncPredef   <- ENTRADA / SAIDA / TEXTOCOMP / TEXTOSUB / TEXTOPOS / CONVINT
   ListaExp     <- (Exp (VIRG (Exp / ErroExpVirg))*)*
   Var          <- (Nome (ABRECOL (Exp / ErroExpArray) (FECHACOL / ErroFechaCol))*) -> noVar
   Nome         <- !RESERVADA {LETRA RestoNome*} -> noId Sp
@@ -136,6 +136,7 @@ local g = re.compile([[
   TEXTOCOMP    <- {'textoComp'} FimNome
   TEXTOSUB     <- {'textoSub'} FimNome
   TEXTOPOS     <- {'textoPos'} FimNome
+  CONVINT      <- {'converteInt'} FimNome
   REPITA       <- 'repita' FimNome
   ENQUANTO     <- 'enquanto' FimNome
   INTEIRO      <- 'inteiro' -> getTipoBasico FimNome

semantica.lua

@@ -324,6 +324,17 @@ function analisaExpChamada (exp, ambiente)
 			end
 		end	
 		exp.tipo = arvore.makeTipo(TipoTag.simples, TipoBasico.texto)
+	elseif exp.nome.v == "converteInt" then
+		if #exp.args ~= 1 then
+			erro("função converteInt espera 1 parâmetro, mas foi chamada com " .. #exp.args, exp.nome.linha)
+			return
+		end
+		local v1 = exp.args[1]	
+		analisaExp(v1, ambiente)
+		if (v1.tipo.basico ~= TipoBasico.inteiro and v1.tipo.basico ~= TipoBasico.numero) or not ehValorBasico(v1, ambiente) then
+			erro("função converteInt espera parâmetro do tipo 'numero' ou 'inteiro'", v1.linha)
+		end
+		exp.tipo = arvore.makeTipo(TipoTag.simples, TipoBasico.inteiro)
 	else
 		analisaExpChamadaAux(exp, ambiente)
 	end

test/semNo/converteInt.gol

@@ -0,0 +1,16 @@
+inteiro x
+
+x = converteInt(3)
+
+x = converteInt(3.0)
+
+//Erro
+escreva(converteInt("3.0"))
+
+//Erro
+escreva(converteInt(verdadeiro))
+
+escreva(converteInt(3.0 + 4.2))
+
+//Erro
+escreva(converteInt(3.0 + 4.2, 3))

test/semYes/converte.gol

@@ -0,0 +1,9 @@
+numero x = 8.0
+
+escreva(converteInt(3 + 4.2))
+
+escreva(converteInt(4.5 + 4.5))
+
+escreva(converteInt(x))
+
+escreva(converteInt(44))

test/semYes/converte.lua

@@ -0,0 +1,9 @@
+local x = 8.0
+
+print(math.tointeger(3 + 4.2))
+
+print(math.tointeger(4.5 + 4.5))
+
+print(math.tointeger(x))
+
+print(math.tointeger(44))

testsemantico.lua

@@ -111,6 +111,7 @@ novoTeste("erroTextoPos.gol", 8)
 novoTeste("funcaoSoma.gol", 16)
 novoTeste("funcaoArray.gol", 4)
 novoTeste("funcaoArray2.gol", 6)
+novoTeste("converteInt.gol", 3)
 
 local dir = "./test/semNo"
 makeTeste(arqTeste, dir)