Portugomes

[full_width]

Código-Fonte

Saída

Entrada:

Variáveis

Nome	Tipo	Valor

Pronto

📂 Algoritmos Salvos

? Referência de Palavras Reservadas

Estrutura Básica

Algoritmo Declara o nome do programa

Algoritmo "MeuPrograma"

Var Inicia seção de declaração de variáveis

Var

  x: inteiro

  nome: caractere

Inicio Início do bloco principal de comandos

Inicio

  escreval("Olá!")

Fim.

Fim. / fimalgoritmo Encerra o algoritmo

Tipos de Dados

inteiro / int Números inteiros

idade: inteiro

real Números decimais

altura: real

caractere Texto / strings

nome: caractere

logico Verdadeiro ou falso

ativo: logico

vetor Tipo vetor (array)

notas: vetor[1..10] de real

Entrada / Saída

escreva Exibe texto (sem quebra de linha)

escreva("Digite: ")

escreval Exibe texto com quebra de linha

escreval("Olá, ", nome, "!")

leia / leial Lê entrada do usuário

leia(nome)

leia(idade)

Atribuição

:= ou <- Atribui valor a uma variável

x := 10

nome <- "Maria"

Operadores Lógicos

e E lógico (AND)

se (a > 0) e (b > 0) entao

ou OU lógico (OR)

se (x = 1) ou (x = 2) entao

nao Negação lógica (NOT)

se nao achou entao

xou OU exclusivo (XOR)

resultado := a xou b

mod Resto da divisão inteira

resto := 10 mod 3  # resultado: 1

verdadeiro / falso Constantes lógicas

ativo := verdadeiro

Condicional

se / entao / senao / fimse

se idade >= 18 entao

  escreval("Maior de idade")

senao

  escreval("Menor de idade")

fimse

Escolha (Switch/Case)

escolha / caso / outrocaso / fimescolha

escolha opcao

  caso 1

    escreval("Opção 1")

  caso 2

    escreval("Opção 2")

  outrocaso

    escreval("Opção inválida")

fimescolha

Repetição

enquanto / faca / fimenquanto

enquanto x < 10 faca

  x := x + 1

fimenquanto

para / de / ate / passo / fimpara

para i de 1 ate 10 passo 1 faca

  escreval(i)

fimpara

repita / ate / fimrepita Repete até condição ser verdadeira

repita

  escreva("Senha: ")

  leia(senha)

ate senha = "1234"

interrompa Sai do loop atual (break)

interrompa

Funções e Procedimentos

funcao / fimfuncao Função com retorno

funcao dobro(n: inteiro): inteiro

var

Inicio

  retorne n * 2

fimfuncao

procedimento / fimprocedimento Procedimento sem retorno

procedimento saudacao(nome: caractere)

Inicio

  escreval("Olá, ", nome)

fimprocedimento

retorne Retorna valor de uma função

retorne resultado

Comandos Especiais

limpatela Limpa a tela de saída

limpatela

pausa Pausa e aguarda Enter

pausa

cronometro Inicia/para cronômetro

cronometro

# ... código ...

cronometro  # mostra tempo

Comentários

# ou // Comentário de linha

# Isto é um comentário

// Isto também é

//<![CDATA[

(function(){

"use strict";

/* FUNÇÃO PARA PROTEGER ACENTOS AO DECODIFICAR BASE64 */

function decodificarUTF8(str) {

try {

return decodeURIComponent(escape(atob(str)));

} catch(e) {

return atob(str);

}

/* ═══════════ DEFAULT CODE (base64 for Blogger safety) ═══════════ */

var DEFAULT_CODE = decodificarUTF8('QWxnb3JpdG1vICJNZXVQcm9ncmFtYSIKIyBFeGVtcGxvIGRlIGFsZ29yaXRtbyBlbSBQb3J0dWdvbApWYXIKICBub21lOiBjYXJhY3RlcmUKICBpZGFkZTogaW50ZWlybwogIG1haW9yRGVJZGFkZTogbG9naWNvCkluaWNpbwogIGxpbXBhdGVsYQogIGVzY3JldmFsKCJCZW0tdmluZG8gYW8gUG9ydHVnb2wgT25saW5lISIpCiAgZXNjcmV2YSgiRGlnaXRlIHNldSBub21lOiAiKQogIGxlaWEobm9tZSkKICBlc2NyZXZhKCJEaWdpdGUgc3VhIGlkYWRlOiAiKQogIGxlaWEoaWRhZGUpCiAgbWFpb3JEZUlkYWRlIDo9IGlkYWRlID49IDE4CiAgc2UgbWFpb3JEZUlkYWRlIGVudGFvCiAgICBlc2NyZXZhbCgiT2zDoSwgIiwgbm9tZSwgIiEgVm9jw6ogw6kgbWFpb3IgZGUgaWRhZGUuIikKICBzZW5hbwogICAgZXNjcmV2YWwoIk9sw6EsICIsIG5vbWUsICIhIFZvY8OqIMOpIG1lbm9yIGRlIGlkYWRlLiIpCiAgZmltc2UKICBlc2NyZXZhbCgiUHJvZ3JhbWEgZmluYWxpemFkby4iKQpGaW0u');

/* ═══════════ DOM REFS ═══════════ */

var $=function(id){return document.getElementById(id);};

var codeInput=$('pgCodeInput'), codeHL=$('pgCodeHL'), lineNums=$('pgLineNums');

var bracketLayer=$('pgBracketLayer');

var outputArea=$('pgOutput'), varBody=$('pgVarBody');

var inputBar=$('pgInputBar'), inputField=$('pgInputField');

var statusBar=$('pgStatus'), statusL=$('pgStatusL'), statusR=$('pgStatusR');

var transLang=$('pgTransLang'), transPanel=$('pgTransPanel'), transCode=$('pgTransCode');

var btnRun=$('pgBtnRun'), btnStep=$('pgBtnStep'), btnStop=$('pgBtnStop');

var interpreter=null, stepping=false, running=false, currentLine=-1;

/* ── Measure monospace char width ── */

var _charW=0;

(function measureChar(){

var sp=document.createElement('span');

sp.style.cssText='font-family:JetBrains Mono,monospace;font-size:13px;position:absolute;visibility:hidden;white-space:pre;';

sp.textContent='MMMMMMMMMM';

document.getElementById('portugol-app').appendChild(sp);

_charW=sp.offsetWidth/10;

sp.remove();

if(!_charW||_charW<4)_charW=7.8;

})();

/* ═══════════ LOAD ═══════════ */

var PG_VERSION='7';

(function loadCode(){

try{

var saved=localStorage.getItem('portugol_last');

var ver=localStorage.getItem('portugol_version');

if(saved && ver===PG_VERSION){ codeInput.value=saved; }

else{ codeInput.value=DEFAULT_CODE; try{localStorage.setItem('portugol_version',PG_VERSION);}catch(e){} }

}catch(e){ codeInput.value=DEFAULT_CODE; }

})();

/* ═══════════ SYNTAX HIGHLIGHTING ═══════════ */

var KW_LIST=['algoritmo','var','inicio','início','fim','fimalgoritmo','fimse','se','entao','então','senao','senão',

'enquanto','faca','faça','fimenquanto','para','de','ate','até','passo','fimpara',

'escreva','escreval','leia','leial','retorne','funcao','função','procedimento',

'fimfuncao','fimfunção','fimprocedimento','escolha','caso','outrocaso','fimescolha',

'repita','fimrepita','interrompa','limpatela','pausa','cronometro','cronômetro'];

var TYPE_LIST=['inteiro','int','real','logico','lógico','caractere','cadeia','vetor'];

var OP_LIST=['\\be\\b','\\bou\\b','\\bnao\\b','\\bnão\\b','\\bmod\\b','\\bdiv\\b','\\bverdadeiro\\b','\\bfalso\\b','\\bxou\\b'];

var CSS_COMMENT='#6a7380',CSS_STR='#98c379',CSS_NUM='#d19a66',CSS_TYPE='#e5c07b',CSS_KW='#c678dd',CSS_FN='#61afef',CSS_OP='#56b6c2';

function hlLine(line){

var h=line.replace(/&/g,'&').replace(/</g,'<').replace(/>/g,'>');

if(/^\s*(#|\/\/)/.test(h)) return '<span style="color:'+CSS_COMMENT+'">'+h+'</span>';

var strs=[];

h=h.replace(/(\"[^\"]*\"|\'[^\']*\')/g,function(m){strs.push(m);return '\x00S'+(strs.length-1)+'\x00';});

h=h.replace(/\b(\d+\.?\d*)\b/g,'\x01n$1\x02');

var tr=new RegExp('\\b('+TYPE_LIST.join('|')+')\\b','gi');

h=h.replace(tr,'\x01t$1\x02');

var kr=new RegExp('\\b('+KW_LIST.join('|')+')(\\.)?\\b','gi');

h=h.replace(kr,function(m,w,d){return '\x01k'+w+'\x02'+(d||'');});

var or2=new RegExp('('+OP_LIST.join('|')+')','gi');

h=h.replace(or2,'\x01o$1\x02');

var colorMap={n:CSS_NUM,t:CSS_TYPE,f:CSS_FN,k:CSS_KW,o:CSS_OP};

h=h.replace(/\x01([ntkfo])([\s\S]*?)\x02/g,function(m,tag,txt){return '<span style="color:'+colorMap[tag]+'">'+txt+'</span>';});

h=h.replace(/\x00S(\d+)\x00/g,function(m,i){return '<span style="color:'+CSS_STR+'">'+strs[parseInt(i)]+'</span>';});

h=h.replace(/:=/g,'\u2190');

h=h.replace(/<-/g,'\u2190');

h=h.replace(/>=/g,'\u2265');

h=h.replace(/<=/g,'\u2264');

h=h.replace(/<>/g,'\u2260');

return h;

}

function updateHL(){

var lines=codeInput.value.split('\n'), html='', lnH='';

for(var i=0;i<lines.length;i++){

var cls=(i===currentLine)?' class="pg-line-active"':'';

html+='<span'+cls+'>'+hlLine(lines[i])+'\n</span>';

var lc=(i===currentLine)?' class="pg-ln-active"':'';

lnH+='<div'+lc+'>'+(i+1)+'</div>';

}

codeHL.innerHTML=html;

lineNums.innerHTML=lnH;

updateBrackets(lines);

}

/* ═══════════ BRACKET / SCOPE LINES ═══════════ */

var BLOCK_OPENERS={'se':1,'enquanto':1,'para':1,'repita':1,'escolha':1,'funcao':1,'função':1,'procedimento':1,'inicio':1,'início':1};

var BLOCK_CLOSERS={

'fimse':'se','fimenquanto':'enquanto','fimpara':'para',

'fimrepita':'repita','fimescolha':'escolha',

'fimfuncao':'funcao','fimfunção':'função','fimprocedimento':'procedimento',

'fim':'inicio','fimalgoritmo':'inicio'

};

function updateBrackets(lines){

bracketLayer.innerHTML='';

var PAD_T=8, PAD_L=12, LINE_H=20.8, CW=_charW;

/* Scan lines for keywords and their indentation */

var entries=[];

for(var i=0;i<lines.length;i++){

var m=lines[i].match(/^(\s*)(\S+)/);

if(!m)continue;

var col=m[1].length;

var word=m[2].toLowerCase().replace(/[^a-záàâãéèêíïóôõúç]/g,'');

var nw=norm(word);

if(BLOCK_OPENERS[nw]||BLOCK_OPENERS[word])entries.push({type:'open',kw:nw==='início'?'inicio':nw,line:i,col:col});

else if(BLOCK_CLOSERS[nw]||BLOCK_CLOSERS[word]){

var target=BLOCK_CLOSERS[nw]||BLOCK_CLOSERS[word];

entries.push({type:'close',kw:nw,target:target,line:i,col:col});

}

/* Match using stack */

var stack=[], pairs=[];

for(var e=0;e<entries.length;e++){

var ent=entries[e];

if(ent.type==='open'){

stack.push(ent);

} else {

/* Find matching opener in stack (search from top) */

for(var s=stack.length-1;s>=0;s--){

if(stack[s].kw===ent.target){

var opener=stack.splice(s,1)[0];

pairs.push({open:opener,close:ent});

break;

}

/* Draw lines for pairs at same indent column */

var frag=document.createDocumentFragment();

for(var p=0;p<pairs.length;p++){

var pr=pairs[p];

if(pr.open.col!==pr.close.col)continue;

if(pr.close.line-pr.open.line<1)continue;

var col=pr.open.col;

var x=PAD_L+col*CW-CW;

/* Line goes from bottom of opener line to top of closer line, shifted half line up */

var yStart=PAD_T+(pr.open.line+1)*LINE_H-LINE_H*0.5;

var yEnd=PAD_T+pr.close.line*LINE_H-LINE_H*0.5;

var h=yEnd-yStart;

if(h<1)continue;

var div=document.createElement('div');

div.className='pg-bracket-line';

div.style.cssText='left:'+x.toFixed(1)+'px;top:'+yStart.toFixed(1)+'px;height:'+h.toFixed(1)+'px;';

frag.appendChild(div);

}

bracketLayer.appendChild(frag);

}

function syncScroll(){

var tx='translate('+(-codeInput.scrollLeft)+'px,'+(-codeInput.scrollTop)+'px)';

codeHL.style.transform=tx;

bracketLayer.style.transform=tx;

lineNums.scrollTop=codeInput.scrollTop;

}

codeInput.addEventListener('scroll',syncScroll);

codeInput.addEventListener('input',function(){ updateHL(); syncScroll(); });

codeInput.addEventListener('keydown',function(e){

if(e.key==='Tab'){ e.preventDefault(); var s=codeInput.selectionStart,end=codeInput.selectionEnd; codeInput.value=codeInput.value.substring(0,s)+'  '+codeInput.value.substring(end); codeInput.selectionStart=codeInput.selectionEnd=s+2; updateHL(); }

});

codeInput.addEventListener('keyup',syncScroll);

codeInput.addEventListener('click',syncScroll);

updateHL();

/* ═══════════ OUTPUT ═══════════ */

function outW(text,cls){ var s=document.createElement('span'); if(cls)s.className=cls; s.textContent=text; outputArea.appendChild(s); outputArea.scrollTop=outputArea.scrollHeight; }

function outClear(){ outputArea.innerHTML=''; }

/* ═══════════ VAR TABLE ═══════════ */

function updateVT(vars){

varBody.innerHTML='';

if(!vars)return;

for(var name in vars){ if(!vars.hasOwnProperty(name))continue;

var info=vars[name], tr=document.createElement('tr');

tr.innerHTML='<td class="pg-vn">'+name+'</td><td class="pg-vt">'+info.type+'</td><td class="pg-vv">'+fmtVal(info.value)+'</td>';

varBody.appendChild(tr);

}

function fmtVal(v){ if(v===null||v===undefined)return'<vazio>'; if(typeof v==='string')return'"'+v+'"'; if(typeof v==='boolean')return v?'verdadeiro':'falso'; return String(v); }

/* ═══════════ STATUS ═══════════ */

function setStatus(text,cls){ statusBar.className='pg-status'+(cls?' '+cls:''); statusL.textContent=text; }

/* ═══════════════════════════════════════════════════════════

LEXER

═══════════════════════════════════════════════════════════ */

var TT={KW:'KW',ID:'ID',NUM:'NUM',STR:'STR',OP:'OP',ASSIGN:'ASSIGN',LPAREN:'LPAREN',RPAREN:'RPAREN',COMMA:'COMMA',COLON:'COLON',LBRACKET:'LBRACKET',RBRACKET:'RBRACKET',DOT:'DOT',EOL:'EOL',EOF:'EOF',COMMENT:'COMMENT'};

var KEYWORDS=new Set([

'algoritmo','var','inicio','início','fim','fimalgoritmo',

'se','entao','então','senao','senão','fimse',

'enquanto','faca','faça','fimenquanto',

'para','de','ate','até','passo','fimpara',

'escreva','escreval','leia','leial','retorne',

'inteiro','int','real','logico','lógico','caractere','cadeia','vetor',

'e','ou','nao','não','mod','div','xou','verdadeiro','falso',

'funcao','função','procedimento','fimfuncao','fimfunção','fimprocedimento',

'escolha','caso','outrocaso','fimescolha',

'repita','fimrepita',

'interrompa','limpatela','pausa','cronometro','cronômetro'

]);

function norm(w){return w.replace(/í/g,'i').replace(/ã/g,'a').replace(/ç/g,'c').replace(/é/g,'e').replace(/ó/g,'o').replace(/ô/g,'o');}

function tokenize(src){

var tokens=[],lines=src.split('\n');

for(var ln=0;ln<lines.length;ln++){

var line=lines[ln],i=0;

while(i<line.length){

if(/\s/.test(line[i])){i++;continue;}

if(line[i]==='#'||(line[i]==='/'&&line[i+1]==='/')){tokens.push({type:TT.COMMENT,value:line.substring(i),line:ln});break;}

if(line[i]==='"'||line[i]==="'"){var q=line[i],s='';i++;while(i<line.length&&line[i]!==q){s+=line[i];i++;}i++;tokens.push({type:TT.STR,value:s,line:ln});continue;}

if(/\d/.test(line[i])){var n='';while(i<line.length&&/[\d.]/.test(line[i])){n+=line[i];i++;}tokens.push({type:TT.NUM,value:parseFloat(n),line:ln});continue;}

if(line[i]===':'&&line[i+1]==='='){tokens.push({type:TT.ASSIGN,value:':=',line:ln});i+=2;continue;}

if(line[i]==='<'&&line[i+1]==='-'){tokens.push({type:TT.ASSIGN,value:'<-',line:ln});i+=2;continue;}

if(line[i]==='<'&&line[i+1]==='='){tokens.push({type:TT.OP,value:'<=',line:ln});i+=2;continue;}

if(line[i]==='>'&&line[i+1]==='='){tokens.push({type:TT.OP,value:'>=',line:ln});i+=2;continue;}

if(line[i]==='<'&&line[i+1]==='>'){tokens.push({type:TT.OP,value:'<>',line:ln});i+=2;continue;}

var singles={'(':TT.LPAREN,')':TT.RPAREN,',':TT.COMMA,':':TT.COLON,'[':TT.LBRACKET,']':TT.RBRACKET,'.':TT.DOT};

if(singles[line[i]]){tokens.push({type:singles[line[i]],value:line[i],line:ln});i++;continue;}

if('+-*/^<>='.indexOf(line[i])>=0){tokens.push({type:TT.OP,value:line[i],line:ln});i++;continue;}

if(/[a-zA-ZÀ-ÿ_]/.test(line[i])){var id='';while(i<line.length&&/[a-zA-ZÀ-ÿ0-9_]/.test(line[i])){id+=line[i];i++;}var low=id.toLowerCase(),nr=norm(low);if(KEYWORDS.has(low)||KEYWORDS.has(nr)){tokens.push({type:TT.KW,value:KEYWORDS.has(low)?low:nr,line:ln});}else{tokens.push({type:TT.ID,value:id,line:ln});}continue;}

i++;

}

tokens.push({type:TT.EOL,value:'\\n',line:ln});

}

tokens.push({type:TT.EOF,value:null,line:lines.length});

return tokens;

}

/* ═══════════════════════════════════════════════════════════

PARSER

═══════════════════════════════════════════════════════════ */

function parse(tokens){

var pos=0;

function peek(){return tokens[pos]||{type:TT.EOF};}

function advance(){return tokens[pos++];}

function skipEOL(){while(peek().type===TT.EOL||peek().type===TT.COMMENT)pos++;}

function expect(type,val){skipEOL();var t=advance();if(t.type!==type||(val!==undefined&&norm(t.value.toString().toLowerCase())!==norm(val.toLowerCase())))throw{message:"Esperado '"+( val||type)+"', encontrado '"+t.value+"'",line:t.line};return t;}

function isKW(val){var t=peek();return t.type===TT.KW&&norm(t.value.toLowerCase())===norm(val.toLowerCase());}

function isAnyKW(vals){var t=peek();if(t.type!==TT.KW)return false;var n=norm(t.value.toLowerCase());for(var i=0;i<vals.length;i++){if(n===norm(vals[i].toLowerCase()))return true;}return false;}

skipEOL(); expect(TT.KW,'algoritmo');

var nt=advance(), algoName=nt.type===TT.STR?nt.value:'semnome';

skipEOL();

/* ── Funcoes e Procedimentos ── */

var funcs=[];

while(isKW('funcao')||isKW('função')||isKW('procedimento')){

funcs.push(parseFuncDecl());

skipEOL();

}

/* ── Var section ── */

var vars=[];

if(isKW('var')){

advance();skipEOL();

while(!isAnyKW(['inicio','início'])&&peek().type!==TT.EOF){

if(peek().type===TT.EOL||peek().type===TT.COMMENT){pos++;continue;}

/* Also stop if we hit funcao/procedimento before inicio */

if(isAnyKW(['funcao','função','procedimento']))break;

var names=[];names.push(advance().value);

while(peek().type===TT.COMMA){advance();names.push(advance().value);}

expect(TT.COLON);

var tipo=norm(advance().value.toLowerCase());

if(tipo==='int')tipo='inteiro';

for(var ni=0;ni<names.length;ni++) vars.push({name:names[ni],type:tipo});

skipEOL();

}

/* ── More funcs after var ── */

while(isKW('funcao')||isKW('função')||isKW('procedimento')){

funcs.push(parseFuncDecl());

skipEOL();

}

skipEOL();

var itk=advance();

if(norm(itk.value)!=='inicio') throw{message:"Esperado 'Inicio', encontrado '"+itk.value+"'",line:itk.line};

skipEOL();

var body=parseBlock(['fim','fimalgoritmo']);

return{type:'Program',name:algoName,vars:vars,funcs:funcs,body:body};

/* ── Parse function/procedure declaration ── */

function parseFuncDecl(){

var t=advance(); /* funcao or procedimento */

var isFunc=norm(t.value)==='funcao'||norm(t.value)==='função';

var fname=advance().value;

var params=[];

if(peek().type===TT.LPAREN){

advance();

while(peek().type!==TT.RPAREN&&peek().type!==TT.EOF){

var pnames=[];pnames.push(advance().value);

while(peek().type===TT.COMMA){advance();pnames.push(advance().value);}

expect(TT.COLON);

var ptype=norm(advance().value.toLowerCase());

if(ptype==='int')ptype='inteiro';

for(var pi=0;pi<pnames.length;pi++) params.push({name:pnames[pi],type:ptype});

if(peek().type===TT.COMMA||peek().value===';')advance();

}

if(peek().type===TT.RPAREN)advance();

}

var retType=null;

if(peek().type===TT.COLON){advance();retType=norm(advance().value.toLowerCase());if(retType==='int')retType='inteiro';}

skipEOL();

/* Local vars */

var localVars=[];

if(isKW('var')){

advance();skipEOL();

while(!isAnyKW(['inicio','início'])&&peek().type!==TT.EOF){

if(peek().type===TT.EOL||peek().type===TT.COMMENT){pos++;continue;}

var vn=[];vn.push(advance().value);

while(peek().type===TT.COMMA){advance();vn.push(advance().value);}

expect(TT.COLON);

var vt=norm(advance().value.toLowerCase());

if(vt==='int')vt='inteiro';

for(var vi=0;vi<vn.length;vi++) localVars.push({name:vn[vi],type:vt});

skipEOL();

}

skipEOL();

if(isAnyKW(['inicio','início']))advance();

skipEOL();

var endKW=isFunc?['fimfuncao','fimfunção']:['fimprocedimento'];

var fbody=parseBlock(endKW);

return{type:'FuncDecl',name:fname,params:params,retType:retType,localVars:localVars,body:fbody,isFunc:isFunc,line:t.line};

}

function parseBlock(endKW){

var stmts=[];

while(true){

skipEOL();var t=peek();

if(t.type===TT.EOF)break;

if(t.type===TT.KW&&endKW.some(function(k){return norm(t.value)===norm(k);})){advance();if(peek().type===TT.DOT)advance();break;}

var s=parseStatement();if(s)stmts.push(s);

}

return stmts;

}

function parseStatement(){

skipEOL();var t=peek();

if(t.type===TT.COMMENT||t.type===TT.EOL){advance();return null;}

if(t.type===TT.KW){

var kw=norm(t.value.toLowerCase());

if(kw==='escreva'||kw==='escreval')return parseEscreva();

if(kw==='leia'||kw==='leial')return parseLeia();

if(kw==='se')return parseSe();

if(kw==='enquanto')return parseEnquanto();

if(kw==='para')return parsePara();

if(kw==='repita')return parseRepita();

if(kw==='escolha')return parseEscolha();

if(kw==='interrompa'){advance();return{type:'Interrompa',line:t.line};}

if(kw==='limpatela'){advance();return{type:'LimpaTela',line:t.line};}

if(kw==='pausa'){advance();return{type:'Pausa',line:t.line};}

if(kw==='cronometro'){advance();return{type:'Cronometro',line:t.line};}

if(kw==='retorne'){advance();var expr=null;if(peek().type!==TT.EOL&&peek().type!==TT.EOF)expr=parseExpr();return{type:'Retorne',expr:expr,line:t.line};}

/* Allow funcao/procedimento declarations inside the body */

if(kw==='funcao'||kw==='função'||kw==='procedimento'){funcs.push(parseFuncDecl());return null;}

}

if(t.type===TT.ID){

var id=advance();

if(peek().type===TT.ASSIGN){advance();return{type:'Assign',name:id.value,expr:parseExpr(),line:id.line};}

/* Function/procedure call */

if(peek().type===TT.LPAREN){

advance();

var args=[];

if(peek().type!==TT.RPAREN){args.push(parseExpr());while(peek().type===TT.COMMA){advance();args.push(parseExpr());}}

expect(TT.RPAREN);

return{type:'Call',name:id.value,args:args,line:id.line};

}

throw{message:"Comando desconhecido: '"+id.value+"'",line:id.line};

}

advance();return null;

}

function parseSe(){

var t=advance(),cond=parseExpr();skipEOL();

if(isAnyKW(['entao','então']))advance();skipEOL();

var body=[],elseBody=[];

while(true){

skipEOL();var p=peek();

if(p.type===TT.EOF)break;

if(p.type===TT.KW&&norm(p.value)==='fimse'){advance();break;}

if(p.type===TT.KW&&(norm(p.value)==='senao')){

advance();skipEOL();

while(true){skipEOL();var q=peek();if(q.type===TT.EOF)break;if(q.type===TT.KW&&norm(q.value)==='fimse'){advance();break;}var s2=parseStatement();if(s2)elseBody.push(s2);}

break;

}

var s=parseStatement();if(s)body.push(s);

}

return{type:'Se',cond:cond,body:body,elseBody:elseBody,line:t.line};

}

function parseEnquanto(){var t=advance(),cond=parseExpr();skipEOL();if(isAnyKW(['faca','faça']))advance();skipEOL();var body=parseBlock(['fimenquanto']);return{type:'Enquanto',cond:cond,body:body,line:t.line};}

function parsePara(){

var t=advance(),vn=advance().value;

if(isKW('de'))advance();else if(peek().type===TT.ASSIGN)advance();

var start=parseExpr();skipEOL();

if(isAnyKW(['ate','até']))advance();

var end=parseExpr();

var step={type:'Literal',value:1,line:t.line};

skipEOL();if(isKW('passo')){advance();step=parseExpr();}

skipEOL();if(isAnyKW(['faca','faça']))advance();skipEOL();

var body=parseBlock(['fimpara']);

return{type:'Para',varName:vn,start:start,end:end,step:step,body:body,line:t.line};

}

function parseRepita(){

var t=advance();skipEOL();

/* Collect body until ate or fimrepita */

var body=[];

while(true){

skipEOL();var p=peek();

if(p.type===TT.EOF)break;

if(p.type===TT.KW&&norm(p.value)==='fimrepita'){advance();break;}

if(p.type===TT.KW&&(norm(p.value)==='ate'||norm(p.value)==='até')){

advance();

var cond=parseExpr();

return{type:'Repita',body:body,cond:cond,line:t.line};

}

var s=parseStatement();if(s)body.push(s);

}

/* fimrepita without ate - needs ate after */

skipEOL();

if(isAnyKW(['ate','até']))advance();

var cond=parseExpr();

return{type:'Repita',body:body,cond:cond,line:t.line};

}

function parseEscolha(){

var t=advance(),expr=parseExpr();skipEOL();

var cases=[],outrocaso=null;

while(true){

skipEOL();var p=peek();

if(p.type===TT.EOF)break;

if(p.type===TT.KW&&norm(p.value)==='fimescolha'){advance();break;}

if(p.type===TT.KW&&norm(p.value)==='outrocaso'){

advance();skipEOL();

outrocaso=[];

while(true){

skipEOL();var q=peek();

if(q.type===TT.EOF)break;

if(q.type===TT.KW&&norm(q.value)==='fimescolha'){advance();return{type:'Escolha',expr:expr,cases:cases,outrocaso:outrocaso,line:t.line};}

var s=parseStatement();if(s)outrocaso.push(s);

}

break;

}

if(p.type===TT.KW&&norm(p.value)==='caso'){

advance();

var vals=[];vals.push(parseExpr());

while(peek().type===TT.COMMA){advance();vals.push(parseExpr());}

skipEOL();

var cbody=[];

while(true){

skipEOL();var r=peek();

if(r.type===TT.EOF)break;

if(r.type===TT.KW&&(norm(r.value)==='caso'||norm(r.value)==='outrocaso'||norm(r.value)==='fimescolha'))break;

var s=parseStatement();if(s)cbody.push(s);

}

cases.push({vals:vals,body:cbody});

continue;

}

advance(); /* skip unknown inside escolha */

}

return{type:'Escolha',expr:expr,cases:cases,outrocaso:outrocaso,line:t.line};

}

/* ── Expression parser ── */

function parseExpr(){return parseOr();}

function parseOr(){var l=parseXor();while(peek().type===TT.KW&&norm(peek().value)==='ou'){advance();l={type:'BinOp',op:'ou',left:l,right:parseXor(),line:l.line};}return l;}

function parseXor(){var l=parseAnd();while(peek().type===TT.KW&&norm(peek().value)==='xou'){advance();l={type:'BinOp',op:'xou',left:l,right:parseAnd(),line:l.line};}return l;}

function parseAnd(){var l=parseNot();while(peek().type===TT.KW&&norm(peek().value)==='e'){advance();l={type:'BinOp',op:'e',left:l,right:parseNot(),line:l.line};}return l;}

function parseNot(){if(peek().type===TT.KW&&(norm(peek().value)==='nao')){var t=advance();return{type:'UnaryOp',op:'nao',expr:parseNot(),line:t.line};}return parseCmp();}

function parseAdd(){var l=parseMul();while(peek().type===TT.OP&&(peek().value==='+'||peek().value==='-')){var op=advance().value;l={type:'BinOp',op:op,left:l,right:parseMul(),line:l.line};}return l;}

function parsePow(){var l=parseUnary();while(peek().type===TT.OP&&peek().value==='^'){advance();l={type:'BinOp',op:'^',left:l,right:parseUnary(),line:l.line};}return l;}

function parsePrimary(){

var t=peek();

if(t.type===TT.NUM){advance();return{type:'Literal',value:t.value,line:t.line};}

if(t.type===TT.STR){advance();return{type:'Literal',value:t.value,line:t.line};}

if(t.type===TT.KW&&norm(t.value)==='verdadeiro'){advance();return{type:'Literal',value:true,line:t.line};}

if(t.type===TT.KW&&norm(t.value)==='falso'){advance();return{type:'Literal',value:false,line:t.line};}

if(t.type===TT.LPAREN){advance();var e=parseExpr();expect(TT.RPAREN);return e;}

if(t.type===TT.ID){

var id=advance();

/* Function call in expression */

if(peek().type===TT.LPAREN){

advance();

var args=[];

if(peek().type!==TT.RPAREN){args.push(parseExpr());while(peek().type===TT.COMMA){advance();args.push(parseExpr());}}

expect(TT.RPAREN);

return{type:'CallExpr',name:id.value,args:args,line:id.line};

}

return{type:'Var',name:id.value,line:id.line};

}

throw{message:"Expressão inesperada: '"+t.value+"'",line:t.line};

}

/* ═══════════════════════════════════════════════════════════

INTERPRETER

═══════════════════════════════════════════════════════════ */

var BREAK_SIGNAL={__break:true};

var RETURN_SIGNAL=function(v){return{__return:true,value:v};};

function PortugolInterpreter(ast,cb){

this.ast=ast; this.vars={}; this.cb=cb; this.stopped=false; this._sr=null; this.stepMode=false;

this.funcs={};

this.callStack=[];

this.timerStart=null;

/* Register functions */

if(ast.funcs) for(var fi=0;fi<ast.funcs.length;fi++) this.funcs[ast.funcs[fi].name.toLowerCase()]=ast.funcs[fi];

/* Init global vars */

for(var i=0;i<ast.vars.length;i++){

var v=ast.vars[i],def=null;

if(v.type==='inteiro')def=0; else if(v.type==='real')def=0.0; else if(v.type==='logico')def=false; else def='';

this.vars[v.name]={type:v.type,value:def};

}

cb.onVarChange(this.vars);

}

PortugolInterpreter.prototype.stop=function(){this.stopped=true;if(this._sr)this._sr();};

PortugolInterpreter.prototype.continueStep=function(){if(this._sr)this._sr();};

PortugolInterpreter.prototype.run=function(){

var self=this;

return self.execBlock(self.ast.body).then(function(r){if(!self.stopped)self.cb.onDone();}).catch(function(e){if(!self.stopped)self.cb.onError(e);});

};

PortugolInterpreter.prototype.waitStep=function(line){

var self=this;

if(self.stopped)return Promise.reject({message:'Execução interrompida',line:line});

self.cb.onStep(line);self.cb.onVarChange(self.vars);

if(self.stepMode) return new Promise(function(r){self._sr=function(){self._sr=null;r();};});

return new Promise(function(r){setTimeout(r,0);});

};

PortugolInterpreter.prototype.execBlock=function(stmts){

var self=this,i=0;

function next(){

if(i>=stmts.length||self.stopped)return Promise.resolve();

return self.execStmt(stmts[i++]).then(function(r){

if(r&&r.__break)return r;

if(r&&r.__return)return r;

return next();

});

}

return next();

};

PortugolInterpreter.prototype.execStmt=function(stmt){

if(!stmt)return Promise.resolve();

var self=this;

return self.waitStep(stmt.line).then(function(){

if(self.stopped)return;

switch(stmt.type){

case'Escreva':return self.execEscreva(stmt);

case'Leia':return self.execLeia(stmt);

case'Assign':return self.execAssign(stmt);

case'Se':return self.execSe(stmt);

case'Enquanto':return self.execEnquanto(stmt);

case'Para':return self.execPara(stmt);

case'Repita':return self.execRepita(stmt);

case'Escolha':return self.execEscolha(stmt);

case'Call':return self.execCall(stmt);

case'Interrompa':return BREAK_SIGNAL;

case'Retorne':return self.evalExprAsync(stmt.expr).then(function(val){return RETURN_SIGNAL(val);});

case'LimpaTela':self.cb.clear();return;

case'Pausa':return self.cb.pause();

case'Cronometro':

if(!self.timerStart){self.timerStart=Date.now();}

else{var elapsed=(Date.now()-self.timerStart)/1000;self.cb.write('Tempo: '+elapsed.toFixed(3)+'s\n');self.timerStart=null;}

return;

}

});

};

PortugolInterpreter.prototype.execEscreva=function(stmt){

var self=this;

return self.evalExprListAsync(stmt.args).then(function(vals){

var out='';for(var i=0;i<vals.length;i++) out+=self.stringify(vals[i]);

self.cb.write(out);if(stmt.newline)self.cb.write('\n');

});

};

PortugolInterpreter.prototype.execLeia=function(stmt){

var self=this,i=0;

function next(){

if(i>=stmt.names.length||self.stopped)return Promise.resolve();

var name=stmt.names[i++];

return self.cb.input(name).then(function(val){

if(self.stopped)return;

var v=self.getVar(name,stmt.line);

v.value=self.coerce(val,v.type);self.cb.onVarChange(self.vars);

return next();

});

}

return next();

};

PortugolInterpreter.prototype.execAssign=function(stmt){

var self=this;

return self.evalExprAsync(stmt.expr).then(function(val){

var v=self.getVar(stmt.name,stmt.line);

v.value=self.coerce(val,v.type);self.cb.onVarChange(self.vars);

});

};

PortugolInterpreter.prototype.execSe=function(stmt){

var self=this;

return self.evalExprAsync(stmt.cond).then(function(val){

return self.toBool(val)?self.execBlock(stmt.body):self.execBlock(stmt.elseBody);

});

};

PortugolInterpreter.prototype.execEnquanto=function(stmt){

var self=this,guard=0;

function loop(){

if(self.stopped)return Promise.resolve();

return self.evalExprAsync(stmt.cond).then(function(condVal){

if(!self.toBool(condVal))return Promise.resolve();

if(++guard>100000)throw{message:'Loop infinito detectado',line:stmt.line};

return self.execBlock(stmt.body).then(function(r){

if(r&&r.__break)return Promise.resolve();

if(r&&r.__return)return r;

return self.waitStep(stmt.line).then(loop);

});

}

return loop();

};

PortugolInterpreter.prototype.execPara=function(stmt){

var self=this,v=self.getVar(stmt.varName,stmt.line);

return self.evalExprAsync(stmt.start).then(function(startVal){

v.value=self.coerce(startVal,v.type);self.cb.onVarChange(self.vars);

return self.evalExprAsync(stmt.end).then(function(endVal){

return self.evalExprAsync(stmt.step).then(function(stepVal){

var guard=0;

function loop(){

if(self.stopped)return Promise.resolve();

if(stepVal>=0&&v.value>endVal)return Promise.resolve();

if(stepVal<0&&v.value<endVal)return Promise.resolve();

if(++guard>100000)throw{message:'Loop infinito detectado',line:stmt.line};

return self.execBlock(stmt.body).then(function(r){

if(r&&r.__break)return Promise.resolve();

if(r&&r.__return)return r;

v.value+=stepVal;self.cb.onVarChange(self.vars);

return self.waitStep(stmt.line).then(loop);

});

}

return loop();

});

};

PortugolInterpreter.prototype.execRepita=function(stmt){

var self=this,guard=0;

function loop(){

if(self.stopped)return Promise.resolve();

if(++guard>100000)throw{message:'Loop infinito detectado',line:stmt.line};

return self.execBlock(stmt.body).then(function(r){

if(r&&r.__break)return Promise.resolve();

if(r&&r.__return)return r;

return self.waitStep(stmt.line).then(function(){

return self.evalExprAsync(stmt.cond).then(function(condVal){

if(self.toBool(condVal))return Promise.resolve();

return loop();

});

}

return loop();

};

PortugolInterpreter.prototype.execEscolha=function(stmt){

var self=this;

return self.evalExprAsync(stmt.expr).then(function(val){

var matched=false,i=0;

function nextCase(){

if(i>=stmt.cases.length){

if(stmt.outrocaso&&!matched)return self.execBlock(stmt.outrocaso);

return Promise.resolve();

}

var c=stmt.cases[i++];

return self.evalExprListAsync(c.vals).then(function(caseVals){

for(var j=0;j<caseVals.length;j++){if(caseVals[j]==val){matched=true;break;}}

if(matched){

return self.execBlock(c.body).then(function(r){

if(r&&r.__break)return Promise.resolve();

return Promise.resolve(r);

});

}

return nextCase();

});

}

return nextCase();

});

};

PortugolInterpreter.prototype.execCall=function(stmt){

return this.callFunc(stmt.name,stmt.args,stmt.line);

};

PortugolInterpreter.prototype.callFunc=function(name,argExprs,line){

var self=this;

var fd=self.funcs[name.toLowerCase()];

if(!fd)throw{message:"Função/procedimento '"+name+"' não declarado(a)",line:line};

/* Evaluate args async */

return self.evalExprListAsync(argExprs).then(function(argVals){

/* Save vars, create scope */

var savedVars=JSON.parse(JSON.stringify(self.vars));

/* Add params */

for(var p=0;p<fd.params.length;p++){

var pv=fd.params[p];

self.vars[pv.name]={type:pv.type,value:self.coerce(p<argVals.length?argVals[p]:null,pv.type)};

}

/* Add local vars */

for(var lv=0;lv<fd.localVars.length;lv++){

var loc=fd.localVars[lv],def=null;

if(loc.type==='inteiro')def=0;else if(loc.type==='real')def=0.0;else if(loc.type==='logico')def=false;else def='';

self.vars[loc.name]={type:loc.type,value:def};

}

/* If function, add return var with its name */

if(fd.isFunc&&fd.retType){

var rdef=null;

if(fd.retType==='inteiro')rdef=0;else if(fd.retType==='real')rdef=0.0;else if(fd.retType==='logico')rdef=false;else rdef='';

self.vars[fd.name]={type:fd.retType,value:rdef};

}

self.cb.onVarChange(self.vars);

return self.execBlock(fd.body).then(function(r){

var retVal=null;

if(r&&r.__return) retVal=r.value;

else if(fd.isFunc&&self.vars[fd.name]) retVal=self.vars[fd.name].value;

if(fd.isFunc&&fd.retType&&retVal!==null) retVal=self.coerce(retVal,fd.retType);

self.vars=savedVars;

self.cb.onVarChange(self.vars);

return retVal;

});

};

PortugolInterpreter.prototype.getVar=function(name,line){

var v=this.vars[name];if(!v)throw{message:"Variável '"+name+"' não declarada",line:line};return v;

};

PortugolInterpreter.prototype.evalExpr=function(node){

switch(node.type){

case'Literal':return node.value;

case'Var':return this.getVar(node.name,node.line).value;

case'BinOp':return this.evalBinOp(node);

case'UnaryOp':var val=this.evalExpr(node.expr);if(node.op==='-')return-val;if(node.op==='nao')return!this.toBool(val);return val;

case'CallExpr':throw{message:"Chamada de função em expressão requer avaliação assíncrona",line:node.line};

}

throw{message:'Nó desconhecido: '+node.type,line:node.line};

};

/* ── Async expression evaluator (steps into function calls) ── */

PortugolInterpreter.prototype.evalExprAsync=function(node){

if(!node)return Promise.resolve(null);

var self=this;

switch(node.type){

case'Literal':return Promise.resolve(node.value);

case'Var':return Promise.resolve(self.getVar(node.name,node.line).value);

case'UnaryOp':

return self.evalExprAsync(node.expr).then(function(val){

if(node.op==='-')return-val;

if(node.op==='nao')return!self.toBool(val);

return val;

});

case'BinOp':

return self.evalExprAsync(node.left).then(function(lVal){

return self.evalExprAsync(node.right).then(function(rVal){

return self.evalBinOpVals(node.op,lVal,rVal,node.line);

});

case'CallExpr':

return self.evalExprListAsync(node.args).then(function(argVals){

var literalArgs=[];

for(var i=0;i<argVals.length;i++) literalArgs.push({type:'Literal',value:argVals[i],line:node.line});

return self.callFunc(node.name,literalArgs,node.line);

});

}

return Promise.resolve(self.evalExpr(node));

};

/* ── Evaluate a list of expressions async (sequentially) ── */

PortugolInterpreter.prototype.evalExprListAsync=function(exprs){

var self=this, results=[], i=0;

function next(){

if(i>=exprs.length)return Promise.resolve(results);

return self.evalExprAsync(exprs[i++]).then(function(val){

results.push(val);

return next();

});

}

return next();

};

/* ── Binary operation from pre-computed values ── */

PortugolInterpreter.prototype.evalBinOpVals=function(op,l,r,line){

switch(op){

case'+':if(typeof l==='string'||typeof r==='string')return this.stringify(l)+this.stringify(r);return l+r;

case'-':return l-r;case'*':return l*r;

case'/':if(r===0)throw{message:'Divisão por zero',line:line};return l/r;

case'div':if(r===0)throw{message:'Divisão por zero',line:line};return Math.trunc(l/r);

case'mod':return l%r;case'^':return Math.pow(l,r);

case'=':return l==r;case'<>':return l!=r;

case'<':return l<r;case'>':return l>r;case'<=':return l<=r;case'>=':return l>=r;

case'e':return this.toBool(l)&&this.toBool(r);

case'ou':return this.toBool(l)||this.toBool(r);

case'xou':return this.toBool(l)!==this.toBool(r);

}

throw{message:'Operador desconhecido: '+op,line:line};

};

PortugolInterpreter.prototype.evalBinOp=function(node){

var l=this.evalExpr(node.left),r=this.evalExpr(node.right);

switch(node.op){

case'+':if(typeof l==='string'||typeof r==='string')return this.stringify(l)+this.stringify(r);return l+r;

case'-':return l-r;case'*':return l*r;

case'/':if(r===0)throw{message:'Divisão por zero',line:node.line};return l/r;

case'div':if(r===0)throw{message:'Divisão por zero',line:node.line};return Math.trunc(l/r);

case'mod':return l%r;case'^':return Math.pow(l,r);

case'=':return l==r;case'<>':return l!=r;

case'<':return l<r;case'>':return l>r;case'<=':return l<=r;case'>=':return l>=r;

case'e':return this.toBool(l)&&this.toBool(r);

case'ou':return this.toBool(l)||this.toBool(r);

case'xou':return this.toBool(l)!==this.toBool(r);

}

throw{message:'Operador desconhecido: '+node.op,line:node.line};

};

PortugolInterpreter.prototype.coerce=function(val,type){if(type==='inteiro')return parseInt(val)||0;if(type==='real')return parseFloat(val)||0;if(type==='logico')return this.toBool(val);return String(val==null?'':val);};

PortugolInterpreter.prototype.toBool=function(v){if(typeof v==='boolean')return v;if(typeof v==='number')return v!==0;if(typeof v==='string'){var s=v.toLowerCase();return s==='verdadeiro'||s==='v'||s==='true';}return!!v;};

PortugolInterpreter.prototype.stringify=function(v){if(v===null||v===undefined)return'';if(typeof v==='boolean')return v?'verdadeiro':'falso';return String(v);};

/* ═══════════════════════════════════════════════════════════

EXECUTION CONTROL

═══════════════════════════════════════════════════════════ */

function saveAlgo(){

var code=codeInput.value,m=code.match(/algoritmo\s+"([^"]+)"/i),name=m?m[1]:'semnome';

try{localStorage.setItem('portugol_algo_'+name,code);localStorage.setItem('portugol_last',code);localStorage.setItem('portugol_version',PG_VERSION);}catch(e){}

return name;

}

function execute(stepMode){

if(running)return;

outClear();

var code=codeInput.value,algoName=saveAlgo(),tokens,ast;

try{tokens=tokenize(code);ast=parse(tokens);}catch(e){

outW('Erro de sintaxe (linha '+((e.line||0)+1)+'): '+e.message+'\n','pg-out-err');

setStatus('Erro na linha '+((e.line||0)+1),'pg-s-err');currentLine=e.line||0;updateHL();return;

}

running=true;stepping=stepMode;

btnStop.style.display='inline-flex';btnRun.disabled=true;btnStep.disabled=!stepMode;

setStatus(stepMode?'Execução passo-a-passo...':'Executando...',stepMode?'pg-s-step':'pg-s-ok');

outW('Início da execução\n','pg-out-info');

interpreter=new PortugolInterpreter(ast,{

write:function(t){outW(t);},

clear:function(){outClear();outW('Início da execução\n','pg-out-info');},

pause:function(){

return new Promise(function(resolve){

outW('[Pressione OK para continuar]\n','pg-out-warn');

inputBar.style.display='flex';inputField.value='';inputField.placeholder='Pressione Enter para continuar...';inputField.focus();

function submit(){inputBar.style.display='none';inputField.removeEventListener('keydown',onKey);$('pgInputOk').removeEventListener('click',submit);resolve();}

function onKey(e){if(e.key==='Enter')submit();}

inputField.addEventListener('keydown',onKey);$('pgInputOk').addEventListener('click',submit);

});

input:function(varName){

return new Promise(function(resolve){

inputBar.style.display='flex';inputField.value='';inputField.focus();

inputField.placeholder='Valor para '+varName;

function submit(){var val=inputField.value;inputBar.style.display='none';inputField.removeEventListener('keydown',onKey);$('pgInputOk').removeEventListener('click',submit);resolve(val);}

function onKey(e){if(e.key==='Enter')submit();}

inputField.addEventListener('keydown',onKey);$('pgInputOk').addEventListener('click',submit);

});

onStep:function(line){currentLine=line;updateHL();statusR.textContent='Linha '+(line+1);},

onVarChange:function(vars){updateVT(vars);},

onDone:function(){outW('\nFim da execução.\n','pg-out-info');setStatus('Algoritmo "'+algoName+'" finalizado','pg-s-ok');cleanup();},

onError:function(e){if(e.message!=='Execução interrompida'){outW('\nErro (linha '+((e.line||0)+1)+'): '+e.message+'\n','pg-out-err');setStatus('Erro na linha '+((e.line||0)+1),'pg-s-err');}cleanup();}

});

interpreter.stepMode=stepMode;

interpreter.run();

updateTranslation();

}

function cleanup(){running=false;stepping=false;interpreter=null;currentLine=-1;updateHL();btnStop.style.display='none';btnRun.disabled=false;btnStep.disabled=false;inputBar.style.display='none';}

function stopExec(){if(interpreter){interpreter.stop();outW('\nExecução interrompida.\n','pg-out-warn');setStatus('Interrompido','pg-s-err');cleanup();}}

btnRun.addEventListener('click',function(){execute(false);});

btnStep.addEventListener('click',function(){if(running&&stepping){interpreter.continueStep();}else{execute(true);}});

btnStop.addEventListener('click',stopExec);

$('pgBtnClear').addEventListener('click',function(){

if(running)stopExec();

codeInput.value=decodificarUTF8('QWxnb3JpdG1vICJzZW1ub21lIgoKVmFyCgpJbmljaW8KCkZpbS4=');

updateHL();syncScroll();outClear();updateVT(null);

setStatus('Código limpo','');

});

$('pgBtnNew').addEventListener('click',function(){

if(running)stopExec();

codeInput.value=DEFAULT_CODE;

updateHL();syncScroll();outClear();updateVT(null);

setStatus('Novo algoritmo','');

});

$('pgBtnHelp').addEventListener('click',function(){

$('pgHelpOverlay').classList.add('pg-vis');

});

$('pgHelpOverlay').addEventListener('click',function(e){

if(e.target===$('pgHelpOverlay'))$('pgHelpOverlay').classList.remove('pg-vis');

});

document.addEventListener('keydown',function(e){

var app=$('portugol-app');

if(!app.contains(document.activeElement)&&document.activeElement!==document.body)return;

if(e.ctrlKey&&e.key==='Enter'){e.preventDefault();execute(false);}

if(e.shiftKey&&e.key==='Enter'){e.preventDefault();if(running&&stepping)interpreter.continueStep();else execute(true);}

if(e.key==='Escape'&&running)stopExec();

});

/* ═══════════ SAVE/LOAD ═══════════ */

$('pgBtnSave').addEventListener('click',function(){

var list=$('pgSaveList');list.innerHTML='';var keys=[];

try{for(var i=0;i<localStorage.length;i++){var k=localStorage.key(i);if(k.indexOf('portugol_algo_')===0)keys.push(k);}}catch(e){}

if(keys.length===0)list.innerHTML='<li style="color:#7f8694;cursor:default;">Nenhum algoritmo salvo</li>';

for(var j=0;j<keys.length;j++){(function(k){

var name=k.replace('portugol_algo_','');

var li=document.createElement('li');

li.innerHTML='<span>📄 '+name+'</span><button class="pg-del">✕</button>';

li.querySelector('span').addEventListener('click',function(){codeInput.value=localStorage.getItem(k);updateHL();$('pgOverlay').classList.remove('pg-vis');});

li.querySelector('.pg-del').addEventListener('click',function(e){e.stopPropagation();localStorage.removeItem(k);li.remove();});

list.appendChild(li);

})(keys[j]);}

$('pgOverlay').classList.add('pg-vis');

});

$('pgOverlay').addEventListener('click',function(e){if(e.target===$('pgOverlay'))$('pgOverlay').classList.remove('pg-vis');});

/* ═══════════════════════════════════════════════════════════

TRANSLATION

═══════════════════════════════════════════════════════════ */

transLang.addEventListener('change',function(){

if(transLang.value){transPanel.style.display='flex';updateTranslation();}else{transPanel.style.display='none';}

});

function updateTranslation(){

var lang=transLang.value;if(!lang)return;

try{var tokens=tokenize(codeInput.value),ast=parse(tokens),result='';

switch(lang){case'javascript':result=trJS(ast);break;case'python':result=trPy(ast);break;case'c++':result=trCpp(ast);break;case'basic':result=trBasic(ast);break;case'msxbasic':result=trMSX(ast);break;case'cobol':result=trCobol(ast);break;case'assembly':result=trAsm(ast);break;case'pascal':result=trPascal(ast);break;case'java':result=trJava(ast);break;case'php':result=trPhp(ast);break;}

var rLines=result.split('\n');if(rLines.length>1000){result=rLines.slice(0,1000).join('\n')+'\n\n// ... (saida limitada a 1000 linhas)';}

transCode.textContent=result;

}catch(e){transCode.textContent='// Erro: '+e.message;}

}

/* ── Shared expr translators ── */

/* ── Detecta se corpo de funcao tem retorne explicito ── */
function _hasRetorne(stmts){
  for(var i=0;i<stmts.length;i++){
    var st=stmts[i];if(!st)continue;
    if(st.type==='Retorne')return true;
    if(st.type==='Se'){if(_hasRetorne(st.body)||_hasRetorne(st.elseBody))return true;}
    if(st.type==='Enquanto'||st.type==='Para'||st.type==='Repita'){if(_hasRetorne(st.body))return true;}
    if(st.type==='Escolha'){for(var c=0;c<st.cases.length;c++){if(_hasRetorne(st.cases[c].body))return true;}if(st.outrocaso&&_hasRetorne(st.outrocaso))return true;}
  }
  return false;
}

/* ── JavaScript ── */

function trJS(ast){

var o='// Algoritmo: '+ast.name+'\n';

if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++) o+=trFuncJS(ast.funcs[fi])+'\n';

for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i],d=v.type==='inteiro'||v.type==='real'?'0':v.type==='logico'?'false':'""';o+='let '+v.name+' = '+d+';\n';}

o+='\n';return o+sJS(ast.body,0);

function trFuncJS(fd){

var s='function '+fd.name+'('+fd.params.map(function(p){return p.name;}).join(', ')+') {\n';
    var hr=_hasRetorne(fd.body);

for(var lv=0;lv<fd.localVars.length;lv++){var v=fd.localVars[lv],d=v.type==='inteiro'||v.type==='real'?'0':v.type==='logico'?'false':'""';s+='  let '+v.name+' = '+d+';\n';}

if(fd.isFunc&&!hr){var rd=fd.retType==='inteiro'||fd.retType==='real'?'0':fd.retType==='logico'?'false':'""';s+='  let '+fd.name+' = '+rd+';\n';}

s+=sJS(fd.body,1);

if(fd.isFunc&&!hr)s+='  return '+fd.name+';\n';

return s+'}\n';

}

function sJS(stmts,ind){var p='  '.repeat(ind),s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){

case'Escreva':s+=p+'console.log('+st.args.map(e2js).join(' + ')+');\n';break;

case'Leia':for(var j=0;j<st.names.length;j++)s+=p+st.names[j]+' = prompt("'+st.names[j]+':");\n';break;

case'Assign':s+=p+st.name+' = '+e2js(st.expr)+';\n';break;

case'Se':s+=p+'if ('+e2js(st.cond)+') {\n'+sJS(st.body,ind+1)+p+'}';if(st.elseBody.length)s+=' else {\n'+sJS(st.elseBody,ind+1)+p+'}';s+='\n';break;

case'Enquanto':s+=p+'while ('+e2js(st.cond)+') {\n'+sJS(st.body,ind+1)+p+'}\n';break;

case'Para':s+=p+'for ('+st.varName+' = '+e2js(st.start)+'; '+st.varName+' <= '+e2js(st.end)+'; '+st.varName+' += '+e2js(st.step)+') {\n'+sJS(st.body,ind+1)+p+'}\n';break;

case'Repita':s+=p+'do {\n'+sJS(st.body,ind+1)+p+'} while (!('+e2js(st.cond)+'));\n';break;

case'Escolha':s+=p+'switch ('+e2js(st.expr)+') {\n';for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];for(var cv=0;cv<c.vals.length;cv++)s+=p+'  case '+e2js(c.vals[cv])+':\n';s+=sJS(c.body,ind+2)+p+'    break;\n';}if(st.outrocaso)s+=p+'  default:\n'+sJS(st.outrocaso,ind+2);s+=p+'}\n';break;

case'Call':s+=p+st.name+'('+st.args.map(e2js).join(', ')+');\n';break;

case'Interrompa':s+=p+'break;\n';break;

case'Retorne':s+=p+'return'+(st.expr?' '+e2js(st.expr):'')+';  \n';break;

case'LimpaTela':s+=p+'console.clear();\n';break;

case'Pausa':s+=p+'alert("Pressione OK para continuar");\n';break;

case'Cronometro':s+=p+'console.time("timer"); // ou console.timeEnd("timer")\n';break;

}}return s;}

}

/* ── Python ── */

function trPy(ast){

var o='# Algoritmo: '+ast.name+'\nimport time, os\n\n';

if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++) o+=trFuncPy(ast.funcs[fi])+'\n';

for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i],d=v.type==='inteiro'||v.type==='real'?'0':v.type==='logico'?'False':'""';o+=v.name+' = '+d+'\n';}

o+='\n';return o+sPy(ast.body,0);

function trFuncPy(fd){

var s='def '+fd.name+'('+fd.params.map(function(p){return p.name;}).join(', ')+'):\n';
    var hr=_hasRetorne(fd.body);

for(var lv=0;lv<fd.localVars.length;lv++){var v=fd.localVars[lv],d=v.type==='inteiro'||v.type==='real'?'0':v.type==='logico'?'False':'""';s+='    '+v.name+' = '+d+'\n';}

if(fd.isFunc&&!hr){var rd=fd.retType==='inteiro'||fd.retType==='real'?'0':fd.retType==='logico'?'False':'""';s+='    '+fd.name+' = '+rd+'\n';}

s+=sPy(fd.body,1);

if(fd.isFunc&&!hr)s+='    return '+fd.name+'\n';

return s+'\n';

}

function sPy(stmts,ind){var p='    '.repeat(ind),s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){

case'Escreva':s+=p+'print('+st.args.map(e2py).join(', ')+(st.newline?'':', end=""')+')\n';break;

case'Leia':for(var j=0;j<st.names.length;j++){var vr=ast.vars.find(function(x){return x.name===st.names[j];});s+=(!vr||vr.type==='caractere'||vr.type==='cadeia')?p+st.names[j]+' = input("'+st.names[j]+': ")\n':p+st.names[j]+' = '+(vr.type==='inteiro'?'int':'float')+'(input("'+st.names[j]+': "))\n';}break;

case'Assign':s+=p+st.name+' = '+e2py(st.expr)+'\n';break;

case'Se':s+=p+'if '+e2py(st.cond)+':\n'+sPy(st.body,ind+1);if(st.elseBody.length)s+=p+'else:\n'+sPy(st.elseBody,ind+1);break;

case'Enquanto':s+=p+'while '+e2py(st.cond)+':\n'+sPy(st.body,ind+1);break;

case'Para':s+=p+'for '+st.varName+' in range('+e2py(st.start)+', '+e2py(st.end)+' + 1, '+e2py(st.step)+'):\n'+sPy(st.body,ind+1);break;

case'Repita':s+=p+'while True:\n'+sPy(st.body,ind+1)+p+'    if '+e2py(st.cond)+':\n'+p+'        break\n';break;

case'Escolha':

s+=p+'match '+e2py(st.expr)+':\n';

for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];s+=p+'    case '+c.vals.map(e2py).join(' | ')+':\n'+sPy(c.body,ind+2);}

if(st.outrocaso)s+=p+'    case _:\n'+sPy(st.outrocaso,ind+2);

break;

case'Call':s+=p+st.name+'('+st.args.map(e2py).join(', ')+')\n';break;

case'Interrompa':s+=p+'break\n';break;

case'Retorne':s+=p+'return'+(st.expr?' '+e2py(st.expr):'')+'\n';break;

case'LimpaTela':s+=p+'os.system("cls" if os.name == "nt" else "clear")\n';break;

case'Pausa':s+=p+'input("Pressione Enter para continuar...")\n';break;

case'Cronometro':s+=p+'_t = time.time()  # cronômetro\n';break;

}}return s||p+'pass\n';}

}

/* ── C++ ── */

function trCpp(ast){

var o='// Algoritmo: '+ast.name+'\n#include <iostream>\n#include <string>\n#include <cmath>\n#include <cstdlib>\n#include <chrono>\nusing namespace std;\n\n';

if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++) o+=trFuncCpp(ast.funcs[fi])+'\n';

o+='int main() {\n';

for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i],tm={inteiro:'int',real:'double',logico:'bool',caractere:'string',cadeia:'string'},d=v.type==='inteiro'||v.type==='real'?' = 0':v.type==='logico'?' = false':' = ""';o+='  '+(tm[v.type]||'int')+' '+v.name+d+';\n';}

o+='\n';o+=sCpp(ast.body,1);o+='  return 0;\n}\n';return o;

function trFuncCpp(fd){

var rt=fd.isFunc?(({inteiro:'int',real:'double',logico:'bool',caractere:'string'})[fd.retType]||'int'):'void';

var s=rt+' '+fd.name+'('+fd.params.map(function(p){return(({inteiro:'int',real:'double',logico:'bool',caractere:'string'})[p.type]||'int')+' '+p.name;}).join(', ')+') {\n';
    var hr=_hasRetorne(fd.body);

for(var lv=0;lv<fd.localVars.length;lv++){var v=fd.localVars[lv],tm={inteiro:'int',real:'double',logico:'bool',caractere:'string'},d=v.type==='inteiro'||v.type==='real'?' = 0':v.type==='logico'?' = false':' = ""';s+='  '+(tm[v.type]||'int')+' '+v.name+d+';\n';}

if(fd.isFunc&&!hr){var rtd=fd.retType==='inteiro'||fd.retType==='real'?' = 0':fd.retType==='logico'?' = false':' = ""';s+='  '+(({inteiro:'int',real:'double',logico:'bool',caractere:'string'})[fd.retType]||'int')+' '+fd.name+rtd+';\n';}

s+=sCpp(fd.body,1);

if(fd.isFunc&&!hr)s+='  return '+fd.name+';\n';

return s+'}\n';

}

function sCpp(stmts,ind){var p='  '.repeat(ind),s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){

case'Escreva':s+=p+'cout';for(var j=0;j<st.args.length;j++)s+=' << '+e2cpp(st.args[j]);if(st.newline)s+=' << endl';s+=';\n';break;

case'Leia':for(var j=0;j<st.names.length;j++)s+=p+'cin >> '+st.names[j]+';\n';break;

case'Assign':s+=p+st.name+' = '+e2cpp(st.expr)+';\n';break;

case'Se':s+=p+'if ('+e2cpp(st.cond)+') {\n'+sCpp(st.body,ind+1)+p+'}';if(st.elseBody.length)s+=' else {\n'+sCpp(st.elseBody,ind+1)+p+'}';s+='\n';break;

case'Enquanto':s+=p+'while ('+e2cpp(st.cond)+') {\n'+sCpp(st.body,ind+1)+p+'}\n';break;

case'Para':s+=p+'for ('+st.varName+' = '+e2cpp(st.start)+'; '+st.varName+' <= '+e2cpp(st.end)+'; '+st.varName+' += '+e2cpp(st.step)+') {\n'+sCpp(st.body,ind+1)+p+'}\n';break;

case'Repita':s+=p+'do {\n'+sCpp(st.body,ind+1)+p+'} while (!('+e2cpp(st.cond)+'));\n';break;

case'Escolha':s+=p+'switch ('+e2cpp(st.expr)+') {\n';for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];for(var cv=0;cv<c.vals.length;cv++)s+=p+'  case '+e2cpp(c.vals[cv])+':\n';s+=sCpp(c.body,ind+2)+p+'    break;\n';}if(st.outrocaso)s+=p+'  default:\n'+sCpp(st.outrocaso,ind+2);s+=p+'}\n';break;

case'Call':s+=p+st.name+'('+st.args.map(e2cpp).join(', ')+');\n';break;

case'Interrompa':s+=p+'break;\n';break;

case'Retorne':s+=p+'return'+(st.expr?' '+e2cpp(st.expr):'')+';  \n';break;

case'LimpaTela':s+=p+'system("cls");\n';break;

case'Pausa':s+=p+'system("pause");\n';break;

case'Cronometro':s+=p+'auto _t = chrono::high_resolution_clock::now();\n';break;

}}return s;}

}

/* ── Basic ── */

function trBasic(ast){

var o="' Algoritmo: "+ast.name+'\n';

if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++) o+=trFuncBas(ast.funcs[fi])+'\n';

for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i],tm={inteiro:'Integer',real:'Double',logico:'Boolean',caractere:'String',cadeia:'String'};o+='Dim '+v.name+' As '+(tm[v.type]||'Variant')+'\n';}

o+='\n';return o+sBas(ast.body,0);

function trFuncBas(fd){

var s=(fd.isFunc?'Function ':'Sub ')+fd.name+'('+fd.params.map(function(p){return p.name+' As '+({inteiro:'Integer',real:'Double',logico:'Boolean',caractere:'String'}[p.type]||'Variant');}).join(', ')+')';

if(fd.isFunc&&fd.retType)s+=' As '+({inteiro:'Integer',real:'Double',logico:'Boolean',caractere:'String'}[fd.retType]||'Variant');

s+='\n';

for(var lv=0;lv<fd.localVars.length;lv++){var v=fd.localVars[lv];s+='  Dim '+v.name+' As '+({inteiro:'Integer',real:'Double',logico:'Boolean',caractere:'String'}[v.type]||'Variant')+'\n';}

s+=sBas(fd.body,1);

s+=(fd.isFunc?'End Function':'End Sub')+'\n';

return s;

}

function sBas(stmts,ind){var p='  '.repeat(ind),s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){

case'Escreva':s+=p+(st.newline?'Print ':'Print ')+st.args.map(e2bas).join(' & ')+(st.newline?'':';')+'\n';break;

case'Leia':for(var j=0;j<st.names.length;j++)s+=p+'Input "'+st.names[j]+': ", '+st.names[j]+'\n';break;

case'Assign':s+=p+st.name+' = '+e2bas(st.expr)+'\n';break;

case'Se':s+=p+'If '+e2bas(st.cond)+' Then\n'+sBas(st.body,ind+1);if(st.elseBody.length)s+=p+'Else\n'+sBas(st.elseBody,ind+1);s+=p+'End If\n';break;

case'Enquanto':s+=p+'Do While '+e2bas(st.cond)+'\n'+sBas(st.body,ind+1)+p+'Loop\n';break;

case'Para':s+=p+'For '+st.varName+' = '+e2bas(st.start)+' To '+e2bas(st.end)+' Step '+e2bas(st.step)+'\n'+sBas(st.body,ind+1)+p+'Next '+st.varName+'\n';break;

case'Repita':s+=p+'Do\n'+sBas(st.body,ind+1)+p+'Loop Until '+e2bas(st.cond)+'\n';break;

case'Escolha':s+=p+'Select Case '+e2bas(st.expr)+'\n';for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];s+=p+'  Case '+c.vals.map(e2bas).join(', ')+'\n'+sBas(c.body,ind+2);}if(st.outrocaso)s+=p+'  Case Else\n'+sBas(st.outrocaso,ind+2);s+=p+'End Select\n';break;

case'Call':s+=p+st.name+' '+st.args.map(e2bas).join(', ')+'\n';break;

case'Interrompa':s+=p+'Exit Do\n';break;

case'Retorne':s+=p+(st.expr?'Return '+e2bas(st.expr):'Return')+'\n';break;

case'LimpaTela':s+=p+'Cls\n';break;

case'Pausa':s+=p+'Sleep\n';break;

case'Cronometro':s+=p+"' cronômetro\n";break;

}}return s;}

}

/* ═══════════ MSX BASIC (GOSUB/RETURN, variaveis globais) ═══════════ */
function trMSX(ast){
  var strV={},funcParams={},funcRetVar={};
  /* Mapear variaveis string (globais + locais de funcoes) */
  for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i];if(v.type==='caractere'||v.type==='cadeia')strV[v.name]=true;}
  if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++){
    var fd=ast.funcs[fi];
    for(var pi=0;pi<fd.params.length;pi++){if(fd.params[pi].type==='caractere'||fd.params[pi].type==='cadeia')strV[fd.params[pi].name]=true;}
    for(var li=0;li<fd.localVars.length;li++){if(fd.localVars[li].type==='caractere'||fd.localVars[li].type==='cadeia')strV[fd.localVars[li].name]=true;}
    funcParams[fd.name.toLowerCase()]=fd.params;
    if(fd.isFunc&&fd.retType){
      funcRetVar[fd.name.toLowerCase()]=fd.name;
      if(fd.retType==='caractere'||fd.retType==='cadeia')strV[fd.name]=true;
    }
  }

var lc=0;
  function nl(){return'L'+(lc++);}
  function vn(name){return name.toUpperCase()+(strV[name]?'$':'');}

function endsWithReturn(stmts){
    for(var i=stmts.length-1;i>=0;i--){
      if(stmts[i]&&stmts[i].type==='Retorne')return true;
      if(stmts[i])return false;
    }
    return false;
  }

/* ═══ PROGRAMA PRINCIPAL ═══ */
  var mainL=[];
  mainL.push("REM *** "+ast.name.toUpperCase()+" ***");
  mainL.push("REM");
  mainL.push("REM Variaveis sao globais no MSX BASIC");
  mainL.push("REM Funcoes convertidas em GOSUB/RETURN");
  mainL.push("REM Loops simulados com IF/GOTO");
  mainL.push("REM");
  mainL.push('CLS');

/* Inicializar todas as variaveis globais */
  for(var i=0;i<ast.vars.length;i++){
    var v=ast.vars[i];
    mainL.push(vn(v.name)+'='+(strV[v.name]?'""':'0'));
  }
  /* Inicializar parametros/locais das funcoes (tudo global no MSX BASIC) */
  if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++){
    var fd=ast.funcs[fi];
    for(var pi=0;pi<fd.params.length;pi++){
      var pp=fd.params[pi];
      mainL.push(vn(pp.name)+'='+(strV[pp.name]?'""':'0'));
    }
    for(var li=0;li<fd.localVars.length;li++){
      var lv=fd.localVars[li];
      mainL.push(vn(lv.name)+'='+(strV[lv.name]?'""':'0'));
    }
    if(fd.isFunc&&fd.retType){
      mainL.push(vn(fd.name)+'='+(strV[fd.name]?'""':'0'));
    }
  }

/* Corpo principal */
  gB(mainL,ast.body,null);
  mainL.push('END');

/* ═══ SUB-ROTINAS (GOSUB targets) ═══ */
  var subL=[];
  if(ast.funcs&&ast.funcs.length>0){
    subL.push("REM");
    subL.push("REM ============================");
    subL.push("REM  SUB-ROTINAS (GOSUB/RETURN)");
    subL.push("REM ============================");
    for(var fi=0;fi<ast.funcs.length;fi++){
      var fd=ast.funcs[fi];
      subL.push("REM");
      subL.push('@SUB_'+fd.name.toUpperCase());
      subL.push("REM --- "+fd.name.toUpperCase()+(fd.isFunc?" (funcao)":" (procedimento)")+" ---");
      if(fd.params.length>0)
        subL.push("REM Parametros: "+fd.params.map(function(p){return vn(p.name);}).join(', '));
      if(fd.isFunc)subL.push("REM Retorno em: "+vn(fd.name));
      gB(subL,fd.body,fd);
      if(!endsWithReturn(fd.body)){
        subL.push('RETURN');
      }
    }
  }

/* ═══ NUMERAR LINHAS E RESOLVER ROTULOS ═══ */
  var allLines=[],map={},ln=10;
  for(var i=0;i<mainL.length;i++){
    if(mainL[i].charAt(0)==='@'){map[mainL[i].substring(1)]=ln;continue;}
    allLines.push({n:ln,t:mainL[i]});
    ln+=10;
  }
  var subStart=Math.max(1000,Math.ceil(ln/100)*100);
  ln=subStart;
  for(var i=0;i<subL.length;i++){
    if(subL[i].charAt(0)==='@'){map[subL[i].substring(1)]=ln;continue;}
    allLines.push({n:ln,t:subL[i]});
    ln+=10;
  }

var r="' MSX BASIC 1.0 / 2.0\n";
  r+="' Algoritmo: "+ast.name+"\n";
  r+="' Gerado pelo Portugomes\n";
  r+="' Sub-rotinas via GOSUB/RETURN\n";
  r+="' Variaveis globais (setar antes de GOSUB)\n";
  r+="'\n";
  for(var i=0;i<allLines.length;i++){
    var t=allLines[i].t.replace(/#([^#]+)#/g,function(m,lb){return String(map[lb]||'????');});
    r+=allLines[i].n+' '+t+'\n';
  }
  return r;

/* ═══ GERADOR DE CORPO ═══ */
  function gB(L,stmts,curFunc){for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){

case'Escreva':
      emitCallsInExprList(L,st.args);
      L.push('PRINT '+st.args.map(ev).join(';')+(st.newline?'':';'));
      break;

case'Leia':
      for(var j=0;j<st.names.length;j++)
        L.push('INPUT "'+st.names[j]+': ";'+vn(st.names[j]));
      break;

case'Assign':
      emitCallsInExpr(L,st.expr);
      L.push(vn(st.name)+'='+ev(st.expr));
      break;

case'Se':
      var le=nl(),lf=nl();
      emitCallsInExpr(L,st.cond);
      if(st.elseBody.length>0){
        L.push('IF NOT('+ev(st.cond)+') THEN GOTO #'+le+'#');
        gB(L,st.body,curFunc);
        L.push('GOTO #'+lf+'#');
        L.push('@'+le);
        L.push("REM ' SENAO");
        gB(L,st.elseBody,curFunc);
        L.push('@'+lf);
        L.push("REM ' FIMSE");
      } else {
        L.push('IF NOT('+ev(st.cond)+') THEN GOTO #'+lf+'#');
        gB(L,st.body,curFunc);
        L.push('@'+lf);
        L.push("REM ' FIMSE");
      }
      break;

case'Enquanto':
      var ls=nl(),le2=nl();
      L.push('@'+ls);
      L.push("REM ' ENQUANTO (IF/GOTO)");
      emitCallsInExpr(L,st.cond);
      L.push('IF NOT('+ev(st.cond)+') THEN GOTO #'+le2+'#');
      gB(L,st.body,curFunc);
      L.push('GOTO #'+ls+'#');
      L.push('@'+le2);
      L.push("REM ' FIMENQUANTO");
      break;

case'Para':
      L.push('FOR '+st.varName.toUpperCase()+'='+ev(st.start)+' TO '+ev(st.end)+' STEP '+ev(st.step));
      gB(L,st.body,curFunc);
      L.push('NEXT '+st.varName.toUpperCase());
      break;

case'Repita':
      var ls2=nl();
      L.push('@'+ls2);
      L.push("REM ' REPITA (IF/GOTO)");
      gB(L,st.body,curFunc);
      emitCallsInExpr(L,st.cond);
      L.push('IF NOT('+ev(st.cond)+') THEN GOTO #'+ls2+'#');
      L.push("REM ' FIM REPITA");
      break;

case'Escolha':
      var lf2=nl();
      for(var ci=0;ci<st.cases.length;ci++){
        var c=st.cases[ci],ln2=nl();
        var conds=c.vals.map(function(v2){return ev(st.expr)+'<>'+ev(v2);});
        L.push('IF '+conds.join(' AND ')+' THEN GOTO #'+ln2+'#');
        gB(L,c.body,curFunc);
        L.push('GOTO #'+lf2+'#');
        L.push('@'+ln2);
        L.push("REM ' PROXIMO CASO");
      }
      if(st.outrocaso){
        L.push("REM ' OUTROCASO");
        gB(L,st.outrocaso,curFunc);
      }
      L.push('@'+lf2);
      L.push("REM ' FIMESCOLHA");
      break;

case'Call':
      emitCallSetup(L,st.name,st.args);
      break;

case'LimpaTela':
      L.push('CLS');
      break;

case'Pausa':
      L.push("PRINT \"Pressione uma tecla...\"");
      L.push("A$=INPUT$(1)");
      break;

case'Interrompa':
      L.push("REM ' INTERROMPA (ajustar GOTO manualmente)");
      break;

case'Retorne':
      if(st.expr&&curFunc&&curFunc.isFunc){
        emitCallsInExpr(L,st.expr);
        L.push(vn(curFunc.name)+'='+ev(st.expr));
      }
      L.push('RETURN');
      break;

case'Cronometro':
      L.push("T!=TIMER");
      break;

}}}
}

/* ═══════════ COBOL ═══════════ */

function trCobol(ast){

var o='',ind='           ';

o+='       IDENTIFICATION DIVISION.\n';

var pid=ast.name.toUpperCase().replace(/[^A-Z0-9]/g,'');if(!pid)pid='PROGRAMA';

o+='       PROGRAM-ID. '+pid+'.\n';

o+='       AUTHOR. PORTUGOMES.\n\n';

o+='       DATA DIVISION.\n';

o+='       WORKING-STORAGE SECTION.\n';

for(var i=0;i<ast.vars.length;i++){

var v=ast.vars[i],pic='';

if(v.type==='inteiro')pic='PIC S9(10) VALUE 0';

else if(v.type==='real')pic='PIC S9(10)V9(4) VALUE 0';

else if(v.type==='logico')pic='PIC 9 VALUE 0';

else pic='PIC X(100) VALUE SPACES';

o+='       01 WS-'+v.name.toUpperCase().replace(/[^A-Z0-9]/g,'-')+' '+pic+'.\n';

}

/* Variaveis auxiliares */

o+='       01 WS-TEMP-INPUT PIC X(100).\n';

o+='\n';

o+='       PROCEDURE DIVISION.\n';

o+='       '+pid+'-MAIN.\n';

o+=sC(ast.body);

o+=ind+'STOP RUN.\n';

/* Paragrafos para funcoes */

if(ast.funcs&&ast.funcs.length>0){

o+='\n      * Funcoes/procedimentos nao suportados diretamente.\n';

o+='      * Use PERFORM com paragrafos separados.\n';

}

return o;

function ec(n){if(!n)return'"0"';switch(n.type){

case'Literal':if(typeof n.value==='string')return'"'+n.value+'"';if(typeof n.value==='boolean')return n.value?'1':'0';return String(n.value);

case'Var':return'WS-'+n.name.toUpperCase().replace(/[^A-Z0-9]/g,'-');

case'BinOp':var l=ec(n.left),r=ec(n.right);var mp={'+':' + ','-':' - ','*':' * ','/':' / ','mod':' / ','div':' / ','^':' ** ','=':' = ','<>':' NOT = ','<':' < ','>':' > ','<=':' <= ','>=':' >= ','e':' AND ','ou':' OR '};return'('+l+(mp[n.op]||' '+n.op+' ')+r+')';

case'UnaryOp':if(n.op==='nao')return'NOT ('+ec(n.expr)+')';return'-1 * '+ec(n.expr);

case'CallExpr':return'WS-'+n.name.toUpperCase();

}return'"0"';}

function isSimple(n){return n&&(n.type==='Literal'||n.type==='Var');}

function sC(stmts){var s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){

case'Escreva':

if(st.args.length===1){s+=ind+'DISPLAY '+ec(st.args[0])+'\n';}

else{var parts=st.args.map(ec);s+=ind+'DISPLAY '+parts.join('\n'+ind+'    ')+'\n';}

break;

case'Leia':

for(var j=0;j<st.names.length;j++){

var wn='WS-'+st.names[j].toUpperCase().replace(/[^A-Z0-9]/g,'-');

s+=ind+'DISPLAY "'+st.names[j]+': "\n';

s+=ind+'    WITH NO ADVANCING\n';

s+=ind+'ACCEPT '+wn+'\n';

}break;

case'Assign':

var wn='WS-'+st.name.toUpperCase().replace(/[^A-Z0-9]/g,'-');

if(isSimple(st.expr)){s+=ind+'MOVE '+ec(st.expr)+' TO '+wn+'\n';}

else{s+=ind+'COMPUTE '+wn+' = '+ec(st.expr)+'\n';}

break;

case'Se':

s+=ind+'IF '+ec(st.cond)+'\n';

s+=sC(st.body);

if(st.elseBody.length>0){s+=ind+'ELSE\n';s+=sC(st.elseBody);}

s+=ind+'END-IF\n';break;

case'Enquanto':

s+=ind+'PERFORM UNTIL NOT ('+ec(st.cond)+')\n';

s+=sC(st.body);

s+=ind+'END-PERFORM\n';break;

case'Para':

var wn='WS-'+st.varName.toUpperCase().replace(/[^A-Z0-9]/g,'-');

s+=ind+'MOVE '+ec(st.start)+' TO '+wn+'\n';

s+=ind+'PERFORM UNTIL '+wn+' > '+ec(st.end)+'\n';

s+=sC(st.body);

s+=ind+'ADD '+ec(st.step)+' TO '+wn+'\n';

s+=ind+'END-PERFORM\n';break;

case'Repita':

s+=ind+'PERFORM UNTIL '+ec(st.cond)+'\n';

s+=sC(st.body);

s+=ind+'END-PERFORM\n';break;

case'Escolha':

s+=ind+'EVALUATE '+ec(st.expr)+'\n';

for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];s+=ind+'WHEN '+c.vals.map(ec).join('\n'+ind+'WHEN ')+'\n';s+=sC(c.body);}

if(st.outrocaso){s+=ind+'WHEN OTHER\n';s+=sC(st.outrocaso);}

s+=ind+'END-EVALUATE\n';break;

case'Call':s+=ind+'PERFORM '+st.name.toUpperCase()+'-PARAGRAFO\n';break;

case'LimpaTela':s+=ind+'DISPLAY SPACES\n';break;

case'Pausa':s+=ind+'DISPLAY "Pressione ENTER..."\n'+ind+'ACCEPT WS-TEMP-INPUT\n';break;

case'Interrompa':s+=ind+'EXIT PERFORM\n';break;

case'Retorne':s+=ind+'*> RETORNE nao suportado diretamente\n';break;

case'Cronometro':s+=ind+'*> CRONOMETRO - use FUNCTION CURRENT-DATE\n';break;

}}return s;}

}

/* ═══════════ ASSEMBLY x86 (NASM, Linux) ═══════════ */

function trAsm(ast){

var o='',lc=0,strV={},dataSec=[],bssSec=[];

for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i];if(v.type==='caractere'||v.type==='cadeia')strV[v.name]=true;}

function nl(){return'.L'+(lc++);}

function vl(name){return'_'+name.toLowerCase();}

var strLiterals={},slc=0;

function addStr(s){var key='__s'+s;if(strLiterals[key])return strLiterals[key];var label='str_'+slc++;strLiterals[key]=label;dataSec.push('    '+label+' db "'+s+'", 0');return label;}

function addStrNl(s){var key='__sn'+s;if(strLiterals[key])return strLiterals[key];var label='str_'+slc++;strLiterals[key]=label;dataSec.push('    '+label+' db "'+s+'", 10, 0');return label;}

o+='; ============================================\n';

o+='; Algoritmo: '+ast.name+'\n';

o+='; Assembly x86 (NASM, Linux) - pseudo-codigo\n';

o+='; Gerado pelo Portugomes\n';

o+='; ============================================\n\n';

/* Declarar variaveis na secao .bss */

for(var i=0;i<ast.vars.length;i++){

var v=ast.vars[i];

if(strV[v.name]){bssSec.push('    '+vl(v.name)+' resb 256        ; caractere');}

else if(v.type==='real'){bssSec.push('    '+vl(v.name)+' resq 1          ; real (double)');}

else{bssSec.push('    '+vl(v.name)+' resd 1          ; '+v.type);}

}

bssSec.push('    _input_buf resb 256      ; buffer de entrada');

/* Gerar corpo como comentarios estruturados + instrucoes */

var code=[];

code.push('_start:');

gA(ast.body,code,'    ');

code.push('');

code.push('    ; --- Fim do programa ---');

code.push('    mov eax, 1              ; sys_exit');

code.push('    xor ebx, ebx            ; codigo 0');

code.push('    int 0x80');

/* Montar saida final */

/* Adicionar strings de mensagens usadas */

addStr('');

var newline_label='_newline';

dataSec.push('    '+newline_label+' db 10, 0');

o+='section .data\n';

for(var i=0;i<dataSec.length;i++)o+=dataSec[i]+'\n';

o+='\nsection .bss\n';

for(var i=0;i<bssSec.length;i++)o+=bssSec[i]+'\n';

o+='\nsection .text\n';

o+='    global _start\n\n';

o+='; --- Rotinas auxiliares ---\n';

o+='; print_str: imprime string em ECX (terminada em 0)\n';

o+='print_str:\n';

o+='    push eax\n';

o+='    push ebx\n';

o+='    push edx\n';

o+='    mov edx, 0\n';

o+='.count:\n';

o+='    cmp byte [ecx+edx], 0\n';

o+='    je .done\n';

o+='    inc edx\n';

o+='    jmp .count\n';

o+='.done:\n';

o+='    mov eax, 4               ; sys_write\n';

o+='    mov ebx, 1               ; stdout\n';

o+='    int 0x80\n';

o+='    pop edx\n';

o+='    pop ebx\n';

o+='    pop eax\n';

o+='    ret\n\n';

o+='; print_int: imprime inteiro em EAX\n';

o+='print_int:\n';

o+='    ; (rotina simplificada)\n';

o+='    push eax\n';

o+='    push ebx\n';

o+='    push ecx\n';

o+='    push edx\n';

o+='    ; converter e imprimir via stack\n';

o+='    mov ecx, _input_buf\n';

o+='    add ecx, 250\n';

o+='    mov byte [ecx], 0\n';

o+='    mov ebx, 10\n';

o+='.loop:\n';

o+='    dec ecx\n';

o+='    xor edx, edx\n';

o+='    div ebx\n';

o+='    add dl, "0"\n';

o+='    mov [ecx], dl\n';

o+='    test eax, eax\n';

o+='    jnz .loop\n';

o+='    call print_str\n';

o+='    pop edx\n';

o+='    pop ecx\n';

o+='    pop ebx\n';

o+='    pop eax\n';

o+='    ret\n\n';

o+='; read_int: le inteiro do stdin, retorna em EAX\n';

o+='read_int:\n';

o+='    push ebx\n';

o+='    push ecx\n';

o+='    push edx\n';

o+='    mov eax, 3               ; sys_read\n';

o+='    mov ebx, 0               ; stdin\n';

o+='    mov ecx, _input_buf\n';

o+='    mov edx, 255\n';

o+='    int 0x80\n';

o+='    ; converter ASCII para inteiro (simplificado)\n';

o+='    mov esi, _input_buf\n';

o+='    xor eax, eax\n';

o+='    xor ecx, ecx\n';

o+='.parse:\n';

o+='    movzx ecx, byte [esi]\n';

o+='    cmp cl, "0"\n';

o+='    jb .pdone\n';

o+='    cmp cl, "9"\n';

o+='    ja .pdone\n';

o+='    imul eax, 10\n';

o+='    sub cl, "0"\n';

o+='    add eax, ecx\n';

o+='    inc esi\n';

o+='    jmp .parse\n';

o+='.pdone:\n';

o+='    pop edx\n';

o+='    pop ecx\n';

o+='    pop ebx\n';

o+='    ret\n\n';

o+='; read_str: le string do stdin para endereco em ECX\n';

o+='read_str:\n';

o+='    mov eax, 3               ; sys_read\n';

o+='    mov ebx, 0               ; stdin\n';

o+='    mov edx, 255\n';

o+='    int 0x80\n';

o+='    ; remover newline\n';

o+='    dec eax\n';

o+='    mov byte [ecx+eax], 0\n';

o+='    ret\n\n';

o+='; --- Programa principal ---\n';

for(var i=0;i<code.length;i++)o+=code[i]+'\n';

return o;

function gA(stmts,code,p){

for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){

case'Escreva':

for(var j=0;j<st.args.length;j++){

var a=st.args[j];

if(a.type==='Literal'&&typeof a.value==='string'){

var sl=addStr(a.value);

code.push(p+'; escreva("'+a.value+'")');

code.push(p+'mov ecx, '+sl);

code.push(p+'call print_str');

} else if(a.type==='Var'){

if(strV[a.name]){

code.push(p+'; escreva('+a.name+')  [string]');

code.push(p+'mov ecx, '+vl(a.name));

code.push(p+'call print_str');

} else {

code.push(p+'; escreva('+a.name+')  [inteiro]');

code.push(p+'mov eax, ['+vl(a.name)+']');

code.push(p+'call print_int');

}

} else {

code.push(p+'; escreva(expressao)');

code.push(p+'mov eax, ['+vl('resultado')+'] ; avaliar expr');

code.push(p+'call print_int');

}

if(st.newline){

code.push(p+'mov ecx, _newline');

code.push(p+'call print_str');

}

break;

case'Leia':

for(var j=0;j<st.names.length;j++){

var nm=st.names[j];

if(strV[nm]){

code.push(p+'; leia('+nm+')  [string]');

code.push(p+'mov ecx, '+vl(nm));

code.push(p+'call read_str');

} else {

code.push(p+'; leia('+nm+')  [inteiro]');

code.push(p+'call read_int');

code.push(p+'mov ['+vl(nm)+'], eax');

}

}break;

case'Assign':

code.push(p+'; '+st.name+' := ...');

if(st.expr.type==='Literal'&&typeof st.expr.value==='number'){

if(strV[st.name]){

code.push(p+'; (atribuicao string - simplificado)');

} else {

code.push(p+'mov dword ['+vl(st.name)+'], '+Math.floor(st.expr.value));

}

} else if(st.expr.type==='Literal'&&typeof st.expr.value==='string'){

var sl=addStr(st.expr.value);

code.push(p+'; copiar string para '+st.name);

code.push(p+'mov esi, '+sl);

code.push(p+'mov edi, '+vl(st.name));

code.push(p+'call _strcpy          ; (rotina auxiliar)');

} else if(st.expr.type==='Var'){

if(strV[st.expr.name]){

code.push(p+'mov esi, '+vl(st.expr.name));

code.push(p+'mov edi, '+vl(st.name));

code.push(p+'call _strcpy');

} else {

code.push(p+'mov eax, ['+vl(st.expr.name)+']');

code.push(p+'mov ['+vl(st.name)+'], eax');

}

} else if(st.expr.type==='BinOp'){

genExprAsm(st.expr,code,p);

code.push(p+'mov ['+vl(st.name)+'], eax');

} else if(st.expr.type==='BinOp'||st.expr.type==='Literal'){

genExprAsm(st.expr,code,p);

code.push(p+'mov ['+vl(st.name)+'], eax');

} else {

code.push(p+'; expressao complexa (simplificado)');

genExprAsm(st.expr,code,p);

code.push(p+'mov ['+vl(st.name)+'], eax');

}

break;

case'Se':

var lElse=nl(),lEnd=nl();

code.push(p+'; --- SE ---');

genCondAsm(st.cond,code,p);

if(st.elseBody.length>0){

code.push(p+'jz '+lElse+'              ; se falso, vai para senao');

gA(st.body,code,p);

code.push(p+'jmp '+lEnd);

code.push(lElse+':                     ; SENAO');

gA(st.elseBody,code,p);

code.push(lEnd+':                      ; FIMSE');

} else {

code.push(p+'jz '+lEnd+'              ; se falso, pula');

gA(st.body,code,p);

code.push(lEnd+':                      ; FIMSE');

}

break;

case'Enquanto':

var lStart=nl(),lEnd=nl();

code.push(p+'; --- ENQUANTO ---');

code.push(lStart+':');

genCondAsm(st.cond,code,p);

code.push(p+'jz '+lEnd+'              ; sai do loop');

gA(st.body,code,p);

code.push(p+'jmp '+lStart);

code.push(lEnd+':                      ; FIMENQUANTO');

break;

case'Para':

var lStart=nl(),lEnd=nl();

code.push(p+'; --- PARA '+st.varName+' ---');

if(st.start.type==='Literal')code.push(p+'mov dword ['+vl(st.varName)+'], '+Math.floor(st.start.value));

else{code.push(p+'; inicio = expressao');genExprAsm(st.start,code,p);code.push(p+'mov ['+vl(st.varName)+'], eax');}

code.push(lStart+':');

code.push(p+'mov eax, ['+vl(st.varName)+']');

if(st.end.type==='Literal')code.push(p+'cmp eax, '+Math.floor(st.end.value));

else{code.push(p+'push eax');genExprAsm(st.end,code,p);code.push(p+'mov ebx, eax');code.push(p+'pop eax');code.push(p+'cmp eax, ebx');}

code.push(p+'jg '+lEnd+'              ; fim do para');

gA(st.body,code,p);

var stepV=(st.step.type==='Literal')?Math.floor(st.step.value):1;

code.push(p+'add dword ['+vl(st.varName)+'], '+stepV);

code.push(p+'jmp '+lStart);

code.push(lEnd+':                      ; FIMPARA');

break;

case'Repita':

var lStart=nl();

code.push(p+'; --- REPITA ---');

code.push(lStart+':');

gA(st.body,code,p);

genCondAsm(st.cond,code,p);

code.push(p+'jz '+lStart+'            ; repete se falso');

code.push(p+'; --- ATE (condicao verdadeira) ---');

break;

case'Escolha':

var lEnd=nl();

code.push(p+'; --- ESCOLHA ---');

for(var ci=0;ci<st.cases.length;ci++){

var c=st.cases[ci],lNext=nl();

for(var cv=0;cv<c.vals.length;cv++){

genExprAsm(st.expr,code,p);

if(c.vals[cv].type==='Literal')code.push(p+'cmp eax, '+c.vals[cv].value);

code.push(p+'je '+lNext+'_body');

}

code.push(p+'jmp '+lNext);

code.push(lNext+'_body:');

gA(c.body,code,p);

code.push(p+'jmp '+lEnd);

code.push(lNext+':');

}

if(st.outrocaso){code.push(p+'; OUTROCASO');gA(st.outrocaso,code,p);}

code.push(lEnd+':                      ; FIMESCOLHA');

break;

case'Call':code.push(p+'; CALL '+st.name);code.push(p+'call _'+st.name.toLowerCase());break;

case'LimpaTela':code.push(p+'; limpatela (nao implementado em asm puro)');break;

case'Pausa':

code.push(p+'; pausa - aguarda Enter');

var sl=addStr('Pressione Enter...');

code.push(p+'mov ecx, '+sl);

code.push(p+'call print_str');

code.push(p+'call read_int           ; aguarda entrada');

break;

case'Interrompa':code.push(p+'; interrompa');code.push(p+'jmp '+nl()+'           ; BREAK (ajustar destino)');break;

case'Retorne':code.push(p+'; retorne');if(st.expr){genExprAsm(st.expr,code,p);}code.push(p+'ret');break;

case'Cronometro':code.push(p+'; cronometro (nao implementado)');break;

}}

}

function genExprAsm(n,code,p){

if(!n)return;

if(n.type==='Literal'){

if(typeof n.value==='boolean')code.push(p+'mov eax, '+(n.value?1:0));

else if(typeof n.value==='number')code.push(p+'mov eax, '+Math.floor(n.value));

else{var sl=addStr(String(n.value));code.push(p+'mov ecx, '+sl);}

} else if(n.type==='Var'){

code.push(p+'mov eax, ['+vl(n.name)+']');

} else if(n.type==='BinOp'){

genExprAsm(n.right,code,p);

code.push(p+'push eax');

genExprAsm(n.left,code,p);

code.push(p+'pop ebx');

switch(n.op){

case'+':code.push(p+'add eax, ebx');break;

case'-':code.push(p+'sub eax, ebx');break;

case'*':code.push(p+'imul eax, ebx');break;

case'/':case'div':code.push(p+'cdq');code.push(p+'idiv ebx');break;

case'mod':code.push(p+'cdq');code.push(p+'idiv ebx');code.push(p+'mov eax, edx');break;

case'^':code.push(p+'; potencia (simplificado - usar rotina)');break;

case'=':code.push(p+'cmp eax, ebx');code.push(p+'sete al');code.push(p+'movzx eax, al');break;

case'<>':code.push(p+'cmp eax, ebx');code.push(p+'setne al');code.push(p+'movzx eax, al');break;

case'<':code.push(p+'cmp eax, ebx');code.push(p+'setl al');code.push(p+'movzx eax, al');break;

case'>':code.push(p+'cmp eax, ebx');code.push(p+'setg al');code.push(p+'movzx eax, al');break;

case'<=':code.push(p+'cmp eax, ebx');code.push(p+'setle al');code.push(p+'movzx eax, al');break;

case'>=':code.push(p+'cmp eax, ebx');code.push(p+'setge al');code.push(p+'movzx eax, al');break;

case'e':code.push(p+'and eax, ebx');break;

case'ou':code.push(p+'or eax, ebx');break;

case'xou':code.push(p+'xor eax, ebx');break;

}

} else if(n.type==='UnaryOp'){

genExprAsm(n.expr,code,p);

if(n.op==='-')code.push(p+'neg eax');

else if(n.op==='nao'){code.push(p+'test eax, eax');code.push(p+'setz al');code.push(p+'movzx eax, al');}

}

function genCondAsm(cond,code,p){

if(cond.type==='BinOp'&&['=','<>','<','>','<=','>='].indexOf(cond.op)>=0){

genExprAsm(cond.right,code,p);

code.push(p+'push eax');

genExprAsm(cond.left,code,p);

code.push(p+'pop ebx');

code.push(p+'cmp eax, ebx');

/* O chamador usa jz/jnz conforme necessario */

switch(cond.op){

case'=':code.push(p+'sete al');break;

case'<>':code.push(p+'setne al');break;

case'<':code.push(p+'setl al');break;

case'>':code.push(p+'setg al');break;

case'<=':code.push(p+'setle al');break;

case'>=':code.push(p+'setge al');break;

}

code.push(p+'movzx eax, al');

code.push(p+'test eax, eax');

} else {

genExprAsm(cond,code,p);

code.push(p+'test eax, eax');

}

/* ═══════════ Pascal ═══════════ */
function trPascal(ast){
  var o='program '+ast.name.replace(/[^a-zA-Z0-9_]/g,'')+';\n';
  o+='{ Gerado pelo Portugomes }\n';
  o+='uses CRT, SysUtils;\n\n';
  if(ast.funcs&&ast.funcs.length>0){
    for(var fi=0;fi<ast.funcs.length;fi++) o+=trFuncPas(ast.funcs[fi])+'\n';
  }
  if(ast.vars.length>0){
    o+='var\n';
    for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i],tp=pasTp(v.type);o+='  '+v.name+': '+tp+';\n';}
  }
  o+='\nbegin\n';o+=sPas(ast.body,1);o+='end.\n';return o;
  function pasTp(t){var m={inteiro:'Integer',real:'Real',logico:'Boolean',caractere:'String',cadeia:'String'};return m[t]||'Integer';}
  function trFuncPas(fd){
    var hr=_hasRetorne(fd.body),s='';
    if(fd.isFunc){s+='function '+fd.name+'('+fd.params.map(function(p){return p.name+': '+pasTp(p.type);}).join('; ')+'): '+pasTp(fd.retType)+';\n';}
    else{s+='procedure '+fd.name+'('+fd.params.map(function(p){return p.name+': '+pasTp(p.type);}).join('; ')+');\n';}
    if(fd.localVars.length>0){s+='var\n';for(var i=0;i<fd.localVars.length;i++) s+='  '+fd.localVars[i].name+': '+pasTp(fd.localVars[i].type)+';\n';}
    s+='begin\n';s+=sPas(fd.body,1);
    if(fd.isFunc&&!hr) s+='  '+fd.name+' := 0; { retorno padrao }\n';
    s+='end;\n';return s;
  }
  function ePas(n){if(!n)return'';switch(n.type){
    case'Literal':if(typeof n.value==='string')return"'"+n.value.replace(/'/g,"''")+"'";if(typeof n.value==='boolean')return n.value?'True':'False';return String(n.value);
    case'Var':return n.name;case'CallExpr':return n.name+'('+n.args.map(ePas).join(', ')+')';
    case'BinOp':var l=ePas(n.left),r=ePas(n.right);if(n.op==='<>')return'('+l+' <> '+r+')';var mp={'+':' + ','-':' - ','*':' * ','/':' / ','div':' div ','mod':' mod ','^':' ** ','=':' = ','<':' < ','>':' > ','<=':' <= ','>=':' >= ','e':' and ','ou':' or ','xou':' xor '};return'('+l+(mp[n.op]||' '+n.op+' ')+r+')';
    case'UnaryOp':if(n.op==='nao')return'not '+ePas(n.expr);return'-'+ePas(n.expr);
  }return'';}
  function sPas(stmts,ind){var p='  '.repeat(ind),s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){
    case'Escreva':s+=p+(st.newline?'WriteLn':'Write')+'('+st.args.map(ePas).join(', ')+');\n';break;
    case'Leia':for(var j=0;j<st.names.length;j++) s+=p+'ReadLn('+st.names[j]+');\n';break;
    case'Assign':s+=p+st.name+' := '+ePas(st.expr)+';\n';break;
    case'Se':s+=p+'if '+ePas(st.cond)+' then\n'+p+'begin\n'+sPas(st.body,ind+1)+p+'end';if(st.elseBody.length>0)s+='\n'+p+'else\n'+p+'begin\n'+sPas(st.elseBody,ind+1)+p+'end';s+=';\n';break;
    case'Enquanto':s+=p+'while '+ePas(st.cond)+' do\n'+p+'begin\n'+sPas(st.body,ind+1)+p+'end;\n';break;
    case'Para':var dir=(st.step.type==='Literal'&&st.step.value<0)?'downto':'to';s+=p+'for '+st.varName+' := '+ePas(st.start)+' '+dir+' '+ePas(st.end)+' do\n'+p+'begin\n'+sPas(st.body,ind+1)+p+'end;\n';break;
    case'Repita':s+=p+'repeat\n'+sPas(st.body,ind+1)+p+'until '+ePas(st.cond)+';\n';break;
    case'Escolha':s+=p+'case '+ePas(st.expr)+' of\n';for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];s+=p+'  '+c.vals.map(ePas).join(', ')+':\n'+p+'  begin\n'+sPas(c.body,ind+2)+p+'  end;\n';}if(st.outrocaso){s+=p+'else\n'+p+'begin\n'+sPas(st.outrocaso,ind+1)+p+'end;\n';}s+=p+'end;\n';break;
    case'Call':s+=p+st.name+'('+st.args.map(ePas).join(', ')+');\n';break;
    case'Interrompa':s+=p+'Break;\n';break;
    case'Retorne':if(st.expr)s+=p+'Result := '+ePas(st.expr)+';\n';s+=p+'Exit;\n';break;
    case'LimpaTela':s+=p+'ClrScr;\n';break;
    case'Pausa':s+=p+"WriteLn('Pressione Enter...');\n"+p+'ReadLn;\n';break;
    case'Cronometro':s+=p+'{ cronometro }\n';break;
  }}return s;}
}

/* ═══════════ Java ═══════════ */
function trJava(ast){
  var cls=ast.name.replace(/[^a-zA-Z0-9_]/g,'');if(!cls)cls='Programa';cls=cls.charAt(0).toUpperCase()+cls.slice(1);
  var o='// Algoritmo: '+ast.name+'\nimport java.util.Scanner;\n\npublic class '+cls+' {\n    static Scanner scanner = new Scanner(System.in);\n\n';
  for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i];o+='    static '+javaTp(v.type)+' '+v.name+' = '+javaDef(v.type)+';\n';}
  o+='\n';
  if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++) o+=trFuncJava(ast.funcs[fi])+'\n';
  o+='    public static void main(String[] args) {\n';o+=sJava(ast.body,2);o+='    }\n}\n';return o;
  function javaTp(t){var m={inteiro:'int',real:'double',logico:'boolean',caractere:'String',cadeia:'String'};return m[t]||'int';}
  function javaDef(t){if(t==='inteiro')return'0';if(t==='real')return'0.0';if(t==='logico')return'false';return'""';}
  function trFuncJava(fd){
    var hr=_hasRetorne(fd.body),rt=fd.isFunc?javaTp(fd.retType):'void';
    var s='    static '+rt+' '+fd.name+'('+fd.params.map(function(p){return javaTp(p.type)+' '+p.name;}).join(', ')+') {\n';
    for(var lv=0;lv<fd.localVars.length;lv++){var v=fd.localVars[lv];s+='        '+javaTp(v.type)+' '+v.name+' = '+javaDef(v.type)+';\n';}
    if(fd.isFunc&&!hr){s+='        '+javaTp(fd.retType)+' '+fd.name+' = '+javaDef(fd.retType)+';\n';}
    s+=sJava(fd.body,2);
    if(fd.isFunc&&!hr)s+='        return '+fd.name+';\n';
    s+='    }\n';return s;
  }
  function eJava(n){if(!n)return'';switch(n.type){
    case'Literal':if(typeof n.value==='string')return'"'+n.value.replace(/"/g,'\\"')+'"';if(typeof n.value==='boolean')return n.value?'true':'false';return String(n.value);
    case'Var':return n.name;case'CallExpr':return n.name+'('+n.args.map(eJava).join(', ')+')';
    case'BinOp':var l=eJava(n.left),r=eJava(n.right);if(n.op==='^')return'Math.pow('+l+', '+r+')';if(n.op==='div')return'('+l+' / '+r+')';if(n.op==='xou')return'('+l+' ^ '+r+')';var mp={'=':'==','<>':'!=','e':'&&','ou':'||','mod':'%','+':'+','-':'-','*':'*','/':'/','<':'<','>':'>','<=':'<=','>=':'>='};return'('+l+' '+(mp[n.op]||n.op)+' '+r+')';
    case'UnaryOp':if(n.op==='nao')return'!'+eJava(n.expr);return'-'+eJava(n.expr);
  }return'';}
  function sJava(stmts,ind){var p='    '.repeat(ind),s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){
    case'Escreva':var fn=st.newline?'System.out.println':'System.out.print';if(st.args.length===1)s+=p+fn+'('+eJava(st.args[0])+');\n';else s+=p+fn+'('+st.args.map(eJava).join(' + ')+');\n';break;
    case'Leia':for(var j=0;j<st.names.length;j++){var nm=st.names[j],vr=ast.vars.find(function(x){return x.name===nm;});if(!vr||vr.type==='caractere'||vr.type==='cadeia')s+=p+nm+' = scanner.nextLine();\n';else if(vr.type==='inteiro')s+=p+nm+' = scanner.nextInt();\n';else if(vr.type==='real')s+=p+nm+' = scanner.nextDouble();\n';else s+=p+nm+' = scanner.nextLine();\n';}break;
    case'Assign':s+=p+st.name+' = '+eJava(st.expr)+';\n';break;
    case'Se':s+=p+'if ('+eJava(st.cond)+') {\n'+sJava(st.body,ind+1)+p+'}';if(st.elseBody.length>0)s+=' else {\n'+sJava(st.elseBody,ind+1)+p+'}';s+='\n';break;
    case'Enquanto':s+=p+'while ('+eJava(st.cond)+') {\n'+sJava(st.body,ind+1)+p+'}\n';break;
    case'Para':s+=p+'for ('+st.varName+' = '+eJava(st.start)+'; '+st.varName+' <= '+eJava(st.end)+'; '+st.varName+' += '+eJava(st.step)+') {\n'+sJava(st.body,ind+1)+p+'}\n';break;
    case'Repita':s+=p+'do {\n'+sJava(st.body,ind+1)+p+'} while (!('+eJava(st.cond)+'));\n';break;
    case'Escolha':s+=p+'switch ('+eJava(st.expr)+') {\n';for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];for(var cv=0;cv<c.vals.length;cv++)s+=p+'    case '+eJava(c.vals[cv])+':\n';s+=sJava(c.body,ind+2)+p+'        break;\n';}if(st.outrocaso)s+=p+'    default:\n'+sJava(st.outrocaso,ind+2);s+=p+'}\n';break;
    case'Call':s+=p+st.name+'('+st.args.map(eJava).join(', ')+');\n';break;
    case'Interrompa':s+=p+'break;\n';break;
    case'Retorne':s+=p+'return'+(st.expr?' '+eJava(st.expr):'')+';  \n';break;
    case'LimpaTela':s+=p+'// limpatela\n';break;
    case'Pausa':s+=p+'System.out.println("Pressione Enter...");\n'+p+'scanner.nextLine();\n';break;
    case'Cronometro':s+=p+'long _t = System.currentTimeMillis();\n';break;
  }}return s;}
}

/* ═══════════ PHP ═══════════ */
function trPhp(ast){
  var o="<?php\n// Algoritmo: "+ast.name+"\n\n";
  if(ast.funcs)for(var fi=0;fi<ast.funcs.length;fi++) o+=trFuncPhp(ast.funcs[fi])+'\n';
  for(var i=0;i<ast.vars.length;i++){var v=ast.vars[i];o+='$'+v.name+' = '+phpDef(v.type)+';\n';}
  o+='\n';o+=sPhp(ast.body,0);o+='\n?>\n';return o;
  function phpDef(t){if(t==='inteiro')return'0';if(t==='real')return'0.0';if(t==='logico')return'false';return'""';}
  function trFuncPhp(fd){
    var hr=_hasRetorne(fd.body);
    var s='function '+fd.name+'('+fd.params.map(function(p){return'$'+p.name;}).join(', ')+') {\n';
    for(var lv=0;lv<fd.localVars.length;lv++){var v=fd.localVars[lv];s+='    $'+v.name+' = '+phpDef(v.type)+';\n';}
    if(fd.isFunc&&!hr){s+='    $'+fd.name+' = '+phpDef(fd.retType)+';\n';}
    s+=sPhp(fd.body,1);
    if(fd.isFunc&&!hr)s+='    return $'+fd.name+';\n';
    s+='}\n';return s;
  }
  function ePhp(n){if(!n)return'';switch(n.type){
    case'Literal':if(typeof n.value==='string')return'"'+n.value.replace(/"/g,'\\"')+'"';if(typeof n.value==='boolean')return n.value?'true':'false';return String(n.value);
    case'Var':return'$'+n.name;case'CallExpr':return n.name+'('+n.args.map(ePhp).join(', ')+')';
    case'BinOp':var l=ePhp(n.left),r=ePhp(n.right);if(n.op==='^')return'pow('+l+', '+r+')';if(n.op==='div')return'intdiv('+l+', '+r+')';if(n.op==='xou')return'('+l+' xor '+r+')';if(n.op==='<>')return'('+l+' != '+r+')';var mp={'=':'==','e':'&&','ou':'||','mod':'%','+':'+','-':'-','*':'*','/':'/','<':'<','>':'>','<=':'<=','>=':'>='};return'('+l+' '+(mp[n.op]||n.op)+' '+r+')';
    case'UnaryOp':if(n.op==='nao')return'!'+ePhp(n.expr);return'-'+ePhp(n.expr);
  }return'';}
  function sPhp(stmts,ind){var p='    '.repeat(ind),s='';for(var i=0;i<stmts.length;i++){var st=stmts[i];if(!st)continue;switch(st.type){
    case'Escreva':if(st.newline){s+=p+'echo '+st.args.map(ePhp).join(' . ')+" . \"\\n\";\n";}else{s+=p+'echo '+st.args.map(ePhp).join(' . ')+';\n';}break;
    case'Leia':for(var j=0;j<st.names.length;j++){var nm=st.names[j],vr=ast.vars.find(function(x){return x.name===nm;});if(!vr||vr.type==='caractere'||vr.type==='cadeia')s+=p+'$'+nm+' = trim(fgets(STDIN));\n';else if(vr.type==='inteiro')s+=p+'$'+nm+' = intval(trim(fgets(STDIN)));\n';else if(vr.type==='real')s+=p+'$'+nm+' = floatval(trim(fgets(STDIN)));\n';else s+=p+'$'+nm+' = trim(fgets(STDIN));\n';}break;
    case'Assign':s+=p+'$'+st.name+' = '+ePhp(st.expr)+';\n';break;
    case'Se':s+=p+'if ('+ePhp(st.cond)+') {\n'+sPhp(st.body,ind+1)+p+'}';if(st.elseBody.length>0)s+=' else {\n'+sPhp(st.elseBody,ind+1)+p+'}';s+='\n';break;
    case'Enquanto':s+=p+'while ('+ePhp(st.cond)+') {\n'+sPhp(st.body,ind+1)+p+'}\n';break;
    case'Para':s+=p+'for ($'+st.varName+' = '+ePhp(st.start)+'; $'+st.varName+' <= '+ePhp(st.end)+'; $'+st.varName+' += '+ePhp(st.step)+') {\n'+sPhp(st.body,ind+1)+p+'}\n';break;
    case'Repita':s+=p+'do {\n'+sPhp(st.body,ind+1)+p+'} while (!('+ePhp(st.cond)+'));\n';break;
    case'Escolha':s+=p+'switch ('+ePhp(st.expr)+') {\n';for(var ci=0;ci<st.cases.length;ci++){var c=st.cases[ci];for(var cv=0;cv<c.vals.length;cv++)s+=p+'    case '+ePhp(c.vals[cv])+':\n';s+=sPhp(c.body,ind+2)+p+'        break;\n';}if(st.outrocaso)s+=p+'    default:\n'+sPhp(st.outrocaso,ind+2);s+=p+'}\n';break;
    case'Call':s+=p+st.name+'('+st.args.map(ePhp).join(', ')+');\n';break;
    case'Interrompa':s+=p+'break;\n';break;
    case'Retorne':s+=p+'return'+(st.expr?' '+ePhp(st.expr):'')+';  \n';break;
    case'LimpaTela':s+=p+'system("clear");\n';break;
    case'Pausa':s+=p+"echo \"Pressione Enter...\";\n"+p+'fgets(STDIN);\n';break;
    case'Cronometro':s+=p+'$_t = microtime(true);\n';break;
  }}return s;}
}

/* ═══════════ RESIZERS ═══════════ */

(function(){

var rv=document.getElementById('pgRszV'),ep=document.getElementById('pgEditorPanel'),op=document.getElementById('pgOutputPanel');

var sx,swe,swo;

if(rv){

rv.addEventListener('mousedown',function(e){

e.preventDefault();rv.classList.add('active');sx=e.clientX;swe=ep.offsetWidth;swo=op.offsetWidth;

function onM(ev){var dx=ev.clientX-sx,tot=swe+swo,nw=Math.max(180,Math.min(tot-180,swe+dx));ep.style.flex='none';op.style.flex='none';ep.style.width=nw+'px';op.style.width=(tot-nw)+'px';}

function onU(){rv.classList.remove('active');document.removeEventListener('mousemove',onM);document.removeEventListener('mouseup',onU);}

document.addEventListener('mousemove',onM);document.addEventListener('mouseup',onU);

});

}

/* pgRszH: borda do meio - redimensiona pg-main (area de codigo/saida acima) */
  var rh=document.getElementById('pgRszH'),mn=document.getElementById('pgMain');
  if(rh&&mn){
    var sy1,sh1;
    rh.addEventListener('mousedown',function(e){
      e.preventDefault();rh.classList.add('active');sy1=e.clientY;sh1=mn.offsetHeight;
      function onM(ev){var dy=ev.clientY-sy1;mn.style.height=Math.max(120,sh1+dy)+'px';}
      function onU(){rh.classList.remove('active');document.removeEventListener('mousemove',onM);document.removeEventListener('mouseup',onU);}
      document.addEventListener('mousemove',onM);document.addEventListener('mouseup',onU);
    });
  }

/* pgRszH2: borda inferior - redimensiona pg-bottom (variaveis/traducao acima) */
  var rh2=document.getElementById('pgRszH2'),bs=document.getElementById('pgBottom');
  if(rh2&&bs){
    var sy2,sh2;
    rh2.addEventListener('mousedown',function(e){
      e.preventDefault();rh2.classList.add('active');sy2=e.clientY;sh2=bs.offsetHeight;
      function onM(ev){var dy=ev.clientY-sy2;bs.style.maxHeight='none';bs.style.height=Math.max(50,sh2+dy)+'px';}
      function onU(){rh2.classList.remove('active');document.removeEventListener('mousemove',onM);document.removeEventListener('mouseup',onU);}
      document.addEventListener('mousemove',onM);document.addEventListener('mouseup',onU);
    });
  }

})();

updateHL();

})();

//]]>

Comentários

BLOGGER

Comente aqui...

FACEBOOK

DISQUS

Brasil Acadêmico

Portugomes

Comentários

Nuvem de Categorias

$hide=mobile$hide=home

Seguidores

/fa-comments/ Discussão$type=blogging$hide=mobile

/fa-youtube/ Brasil Acadêmico

$show=mobile

/fa-clock-o/ Tendências da Semana$type=blogging

Últimas$type=blogging$date=0$au=0$c=3$m=0

Recentes$type=list-tab$date=0$au=0$c=5

RANDOM$type=list-tab$date=0$au=0$c=5$src=random-posts

/fa-book/ Dicionário$hide=mobile$type=tab

Dicionário Bíblico

Nomes Deverbais

Nomes de Qualidade

Gentílicos e Topônimos

Estrangeirismos

Advérbios em -mente

Mudança ortográfica

Vocabulário ortográfico

Wikipedia

/fa-fire/ YEAR POPULAR$type=one

Levantamento de Requisitos: Um Guia sobre Conceito, História e Técnicas de Elicitação

/fa-envelope/ Assine nossa newsletter

Receba as novidades por email:

Blogs interessantes$show=/p/parceiros.html

/fa-line-chart/ Contador

/fa-language/ Idioma$hide=mobile$type=tab

English to English