/* eslint-disable @typescript-eslint/no-use-before-define */
/* globals $*/
import { Types } from "./types";
import * as Models from "./ivprog_elements";
import { LocalizedStrings } from "./../services/localizedStringsService";
import * as Utils from "./utils";
export function generate () {
$(".ivprog_visual_panel")
.find(".error_icon")
.remove();
let code = LocalizedStrings.getUI("program") + " { ";
code += globalsCode();
code += "\n";
let has_error = false;
for (let i = 0; i < window.program_obj.functions.length; i++) {
const n_code = functionsCode(window.program_obj.functions[i]);
if (n_code == null) {
has_error = true;
}
code += n_code;
code += "\n";
}
code += "\n}";
if (has_error) {
return null;
} else {
return code;
}
}
function functionsCode (function_obj) {
let ret = "\n\t" + LocalizedStrings.getUI("function") + " ";
const has_error = false;
switch (function_obj.return_type) {
case Types.INTEGER:
ret += LocalizedStrings.getUI("type_integer");
break;
case Types.REAL:
ret += LocalizedStrings.getUI("type_real");
break;
case Types.TEXT:
ret += LocalizedStrings.getUI("type_text");
break;
case Types.BOOLEAN:
ret += LocalizedStrings.getUI("type_boolean");
break;
case Types.CHAR:
ret += LocalizedStrings.getUI("type_char");
break;
case Types.VOID:
ret += LocalizedStrings.getUI("type_void");
break;
}
ret += " ";
if (function_obj.return_dimensions == 1) {
ret += "[] ";
} else if (function_obj.return_dimensions == 2) {
ret += "[][] ";
}
if (function_obj.is_main) {
ret += LocalizedStrings.getUI("start");
} else {
ret += function_obj.name;
}
ret += " ( ";
for (let j = 0; j < function_obj.parameters_list.length; j++) {
ret += parametersCode(function_obj.parameters_list[j]);
if (j + 1 < function_obj.parameters_list.length) {
ret += ", ";
}
}
ret += " ) {";
for (let j = 0; j < function_obj.variables_list.length; j++) {
ret += variablesCode(function_obj.variables_list[j]);
}
for (let j = 0; j < function_obj.commands.length; j++) {
//try {
ret += commandsCode(function_obj.commands[j]);
/*} catch (err) {
has_error = true;
console.error(err.message);
var todos = $('body').find('.command_container');
for (var i = 0; i < todos.length; i++) {
if ($(todos[i]).data('command') == function_obj.commands[j]) {
$( todos[i] ).prepend( ' ' );
break;
}
}
}*/
}
ret += "\n\t}";
if (has_error) {
return null;
} else {
return ret;
}
}
function commandsCode (command_obj, indentation = 2) {
switch (command_obj.type) {
case Models.COMMAND_TYPES.break:
return breaksCode(command_obj, indentation);
case Models.COMMAND_TYPES.comment:
return commentsCode(command_obj, indentation);
case Models.COMMAND_TYPES.reader:
return readersCode(command_obj, indentation);
case Models.COMMAND_TYPES.writer:
return writersCode(command_obj, indentation);
case Models.COMMAND_TYPES.functioncall:
return functioncallsCode(command_obj, indentation);
case Models.COMMAND_TYPES.attribution:
return attributionsCode(command_obj, indentation);
case Models.COMMAND_TYPES.whiletrue:
return whiletruesCode(command_obj, indentation);
case Models.COMMAND_TYPES.dowhiletrue:
return doWhilesCode(command_obj, indentation);
case Models.COMMAND_TYPES.iftrue:
return iftruesCode(command_obj, indentation);
case Models.COMMAND_TYPES.repeatNtimes:
return repeatNtimesCode(command_obj, indentation);
case Models.COMMAND_TYPES.switch:
return switchsCode(command_obj, indentation);
case Models.COMMAND_TYPES.return:
return returnsCode(command_obj, indentation);
}
}
function returnsCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_return");
if (command_obj.variable_value_menu) {
try {
ret += " " + elementExpressionCode(command_obj.variable_value_menu);
//ret += ' ' + variableValueMenuCode(command_obj.variable_value_menu, true);
} catch (err) {
//Empty block
}
}
return ret;
}
function breaksCode (_command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_break");
return ret;
}
function switchsCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_code_switch") + " ( ";
ret += variableValueMenuCode(command_obj.variable);
ret += " ) { ";
if (command_obj.cases) {
for (let i = 0; i < command_obj.cases.length; i++) {
ret += switchcasesCode(command_obj.cases[i], indentation + 1);
}
}
ret += "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += "} ";
return ret;
}
function switchcasesCode (switchcase, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_code_case") + " ";
ret += variableValueMenuCode(switchcase.variable_value_menu);
ret += " :";
if (switchcase.commands_block) {
for (let i = 0; i < switchcase.commands_block.length; i++) {
ret += commandsCode(switchcase.commands_block[i], indentation + 1);
}
}
return ret;
}
export function repeatNtimesHeader (command_obj) {
let ret = "";
if (command_obj.var_attribution) {
ret += '';
ret += variableValueMenuCode(command_obj.var_attribution);
ret += '';
ret += ` ${LocalizedStrings.getUI("text_code_for_from")} `;
ret += '';
ret += variableValueMenuCode(command_obj.expression1);
ret += '';
}
if (command_obj.expression2) {
ret += ` ${LocalizedStrings.getUI("text_code_for_to")} `;
ret += '';
ret += variableValueMenuCode(command_obj.expression2);
ret += '';
}
if (command_obj.expression3) {
ret += ` ${LocalizedStrings.getUI("text_code_for_pass")} `;
ret += '';
switch (command_obj.expression3.itens[1]) {
case Models.ARITHMETIC_TYPES.plus:
ret += " +";
break;
case Models.ARITHMETIC_TYPES.minus:
ret += " -";
break;
}
ret += variableValueMenuCode(command_obj.expression3.itens[2]);
ret += '';
}
return ret;
}
function repeatNtimesCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_for") + " ";
if (command_obj.var_attribution) {
ret += variableValueMenuCode(command_obj.var_attribution);
ret += ` ${LocalizedStrings.getUI("text_code_for_from")} `;
ret += variableValueMenuCode(command_obj.expression1);
}
if (command_obj.expression2) {
ret += ` ${LocalizedStrings.getUI("text_code_for_to")} `;
ret += variableValueMenuCode(command_obj.expression2);
}
if (command_obj.expression3) {
ret += ` ${LocalizedStrings.getUI("text_code_for_pass")} `;
switch (command_obj.expression3.itens[1]) {
case Models.ARITHMETIC_TYPES.plus:
ret += " +";
break;
case Models.ARITHMETIC_TYPES.minus:
ret += " -";
break;
}
ret += variableValueMenuCode(command_obj.expression3.itens[2]);
}
ret += " { ";
if (command_obj.commands_block) {
for (let i = 0; i < command_obj.commands_block.length; i++) {
ret += commandsCode(command_obj.commands_block[i], indentation + 1);
}
}
ret += "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += "}";
return ret;
}
function iftruesCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_if");
if (!command_obj.expression) {
Utils.renderErrorMessage(
command_obj.expression.dom_object,
LocalizedStrings.getUI("inform_valid_expression")
);
} else {
ret += " ( ";
ret += elementExpressionCode(command_obj.expression);
ret += " ) ";
}
/*switch (command_obj.expression.expression.type) {
case Models.EXPRESSION_TYPES.exp_logic:
ret += logicExpressionCode(command_obj.expression.expression);
break;
case Models.EXPRESSION_TYPES.exp_arithmetic:
ret += arithmeticExpressionCode(command_obj.expression.expression);
break;
}*/
ret += " { ";
if (command_obj.commands_block) {
for (let i = 0; i < command_obj.commands_block.length; i++) {
ret += commandsCode(command_obj.commands_block[i], indentation + 1);
}
}
ret += "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += "} " + LocalizedStrings.getUI("text_else") + " {";
if (command_obj.commands_else) {
for (let i = 0; i < command_obj.commands_else.length; i++) {
ret += commandsCode(command_obj.commands_else[i], indentation + 1);
}
}
ret += "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += "}";
return ret;
}
function doWhilesCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_code_do") + " { ";
if (command_obj.commands_block) {
for (let i = 0; i < command_obj.commands_block.length; i++) {
ret += commandsCode(command_obj.commands_block[i], indentation + 1);
}
}
ret += "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += "} " + LocalizedStrings.getUI("text_code_do_until");
if (!command_obj.expression) {
Utils.renderErrorMessage(
command_obj.expression.dom_object,
LocalizedStrings.getUI("inform_valid_expression")
);
}
/*switch (command_obj.expression.expression.type) {
case Models.EXPRESSION_TYPES.exp_logic:
ret += logicExpressionCode(command_obj.expression.expression);
break;
case Models.EXPRESSION_TYPES.exp_arithmetic:
ret += arithmeticExpressionCode(command_obj.expression.expression);
break;
}*/
if (command_obj.expression) {
ret += " ( ";
ret += elementExpressionCode(command_obj.expression);
ret += " ) ";
}
return ret;
}
function whiletruesCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_code_while");
if (!command_obj.expression) {
Utils.renderErrorMessage(
command_obj.expression.dom_object,
LocalizedStrings.getUI("inform_valid_expression")
);
}
/*switch (command_obj.expression.expression.type) {
case Models.EXPRESSION_TYPES.exp_logic:
ret += logicExpressionCode(command_obj.expression.expression);
break;
case Models.EXPRESSION_TYPES.exp_arithmetic:
ret += arithmeticExpressionCode(command_obj.expression.expression);
break;
}*/
if (command_obj.expression) {
ret += " ( ";
ret += elementExpressionCode(command_obj.expression);
ret += " ) ";
}
ret += " { ";
if (command_obj.commands_block) {
for (let i = 0; i < command_obj.commands_block.length; i++) {
ret += commandsCode(command_obj.commands_block[i], indentation + 1);
}
}
ret += "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += "}";
return ret;
}
function logicExpressionCode (expression) {
let ret = " ( ";
if (expression.first_operand.type == Models.EXPRESSION_TYPES.exp_logic) {
ret += logicExpressionCode(expression.first_operand);
} else if (
expression.first_operand.type == Models.EXPRESSION_TYPES.exp_arithmetic
) {
ret += arithmeticExpressionCode(expression.first_operand);
} else {
ret += variableValueMenuCode(expression.first_operand);
}
if (expression.operator) {
switch (expression.operator) {
case Models.LOGIC_COMPARISON.equals_to:
ret += " == ";
break;
case Models.LOGIC_COMPARISON.not_equals_to:
ret += " != ";
break;
case Models.LOGIC_COMPARISON.and:
ret += " && ";
break;
case Models.LOGIC_COMPARISON.or:
ret += " || ";
break;
}
if (expression.second_operand.type == Models.EXPRESSION_TYPES.exp_logic) {
ret += logicExpressionCode(expression.second_operand);
} else if (
expression.second_operand.type == Models.EXPRESSION_TYPES.exp_arithmetic
) {
ret += arithmeticExpressionCode(expression.second_operand);
} else {
ret += variableValueMenuCode(expression.second_operand);
}
}
ret += " ) ";
return ret;
}
function arithmeticExpressionCode (expression) {
let ret = " ( ";
if (expression.first_operand.type == Models.EXPRESSION_TYPES.exp_logic) {
ret += logicExpressionCode(expression.first_operand);
} else if (
expression.first_operand.type == Models.EXPRESSION_TYPES.exp_arithmetic
) {
ret += arithmeticExpressionCode(expression.first_operand);
} else {
ret += variableValueMenuCode(expression.first_operand);
}
switch (expression.operator) {
case Models.ARITHMETIC_COMPARISON.greater_than:
ret += " > ";
break;
case Models.ARITHMETIC_COMPARISON.less_than:
ret += " < ";
break;
case Models.ARITHMETIC_COMPARISON.equals_to:
ret += " == ";
break;
case Models.ARITHMETIC_COMPARISON.not_equals_to:
ret += " != ";
break;
case Models.ARITHMETIC_COMPARISON.greater_than_or_equals_to:
ret += " >= ";
break;
case Models.ARITHMETIC_COMPARISON.less_than_or_equals_to:
ret += " <= ";
break;
}
if (expression.second_operand.type == Models.EXPRESSION_TYPES.exp_logic) {
ret += logicExpressionCode(expression.second_operand);
} else if (
expression.second_operand.type == Models.EXPRESSION_TYPES.exp_arithmetic
) {
ret += arithmeticExpressionCode(expression.second_operand);
} else {
ret += variableValueMenuCode(expression.second_operand);
}
ret += " ) ";
return ret;
}
function attributionsCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += variableValueMenuCode(command_obj.variable) + " <- ";
/*for (var i = 0; i < command_obj.expression.length; i++) {
ret += elementExpressionCode(command_obj.expression[i]);
}*/
ret += elementExpressionCode(command_obj.expression);
return ret;
}
export function elementExpressionCode (expression_obj) {
let ret = "";
for (let i = 0; i < expression_obj.length; i++) {
if (expression_obj[i].type) {
ret += variableValueMenuCode(expression_obj[i]);
} else if (expression_obj[i].type_op) {
switch (expression_obj[i].item) {
case Models.ARITHMETIC_TYPES.plus:
ret += " + ";
break;
case Models.ARITHMETIC_TYPES.minus:
ret += " - ";
break;
case Models.ARITHMETIC_TYPES.multiplication:
ret += " * ";
break;
case Models.ARITHMETIC_TYPES.division:
ret += " / ";
break;
case Models.ARITHMETIC_TYPES.module:
ret += " % ";
break;
case Models.LOGIC_COMPARISON.equals_to:
ret += " == ";
break;
case Models.LOGIC_COMPARISON.not_equals_to:
ret += " != ";
break;
case Models.LOGIC_COMPARISON.and:
ret += " " + LocalizedStrings.getUI("logic_operator_and") + " ";
break;
case Models.LOGIC_COMPARISON.or:
ret += " " + LocalizedStrings.getUI("logic_operator_or") + " ";
break;
case Models.LOGIC_COMPARISON.not:
ret += " " + LocalizedStrings.getUI("logic_operator_not") + " ";
break;
case Models.ARITHMETIC_COMPARISON.greater_than:
ret += " > ";
break;
case Models.ARITHMETIC_COMPARISON.less_than:
ret += " < ";
break;
case Models.ARITHMETIC_COMPARISON.greater_than_or_equals_to:
ret += " >= ";
break;
case Models.ARITHMETIC_COMPARISON.less_than_or_equals_to:
ret += " <= ";
break;
case Models.EXPRESSION_TYPES.write_sep:
ret += ', " ", ';
break;
}
} else {
ret += " " + expression_obj[i] + " ";
}
}
return ret;
}
function functioncallsCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += variableValueMenuCode(command_obj.function_called);
return ret;
}
function readersCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_command_read") + " ( ";
ret += variableValueMenuCode(command_obj.variable_value_menu);
ret += " ) ";
return ret;
}
export function variableValueMenuCode (variable_obj, is_return = false) {
let ret = "";
try {
if (variable_obj.function_called) {
if (variable_obj.function_called.name) {
ret += variable_obj.function_called.name + " ( ";
} else {
ret +=
LocalizedStrings.translateInternalFunction(
variable_obj.function_called.identifier,
variable_obj.function_called.category
) + " ( ";
}
if (variable_obj.parameters_list) {
for (let i = 0; i < variable_obj.parameters_list.length; i++) {
ret += variableValueMenuCode(variable_obj.parameters_list[i]);
if (i + 1 < variable_obj.parameters_list.length) {
ret += ", ";
}
}
}
ret += " )";
} else if (variable_obj.content.type) {
ret += variable_obj.content.name;
if (
variable_obj.content.dimensions == 1 &&
variable_obj.dimensions != 1
) {
ret += " [ " + variableValueMenuCode(variable_obj.column) + " ] ";
}
if (
variable_obj.content.dimensions == 2 &&
variable_obj.dimensions != 2 &&
variable_obj.reference_dimensions == 1
) {
ret += " [ " + variableValueMenuCode(variable_obj.row) + " ] ";
} else if (
variable_obj.content.dimensions == 2 &&
variable_obj.dimensions != 2
) {
ret += " [ " + variableValueMenuCode(variable_obj.row) + " ] ";
ret += " [ " + variableValueMenuCode(variable_obj.column) + " ] ";
}
} else {
const content = String(variable_obj.content);
if (isNaN(content)) {
// console.debug("Content length: ", content.length);
// console.debug("Char code at 0", content.charCodeAt(0));
const isBackslash = content.charCodeAt(0) === 92;
if (content.length === 1 || (content.length === 2 && isBackslash)) {
ret += `'${content}'`;
} else {
ret += '"' + variable_obj.content + '"';
}
} else if (content.length == 0) {
ret += '""';
} else if (content.trim().length == 0) {
ret += '"' + content + '"';
} else {
ret += variable_obj.content;
}
}
} catch (err) {
if (!is_return) {
Utils.renderErrorMessage(
variable_obj.dom_object,
LocalizedStrings.getUI("inform_valid_content")
);
throw err;
}
}
return ret;
}
function writersCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += LocalizedStrings.getUI("text_command_write") + " ( ";
/*for (var i = 0; i < command_obj.content.length; i++) {
ret += variableValueMenuCode(command_obj.content[i]);
if ((i + 1) < command_obj.content.length) {
ret += ' + ';
}
}*/
ret += elementExpressionCode(command_obj.content);
if (command_obj.newline) {
ret += ', "\\n"';
}
ret += " ) ";
return ret;
}
function commentsCode (command_obj, indentation) {
let ret = "\n";
for (let i = 0; i < indentation; i++) {
ret += "\t";
}
ret += "// ";
ret += command_obj.comment_text.content;
return ret;
}
function parametersCode (parameter_obj) {
let ret = "";
switch (parameter_obj.type) {
case Types.INTEGER:
ret += " " + LocalizedStrings.getUI("type_integer") + " ";
break;
case Types.REAL:
ret += " " + LocalizedStrings.getUI("type_real") + " ";
break;
case Types.TEXT:
ret += " " + LocalizedStrings.getUI("type_text") + " ";
break;
case Types.BOOLEAN:
ret += " " + LocalizedStrings.getUI("type_boolean") + " ";
break;
case Types.CHAR:
ret += " " + LocalizedStrings.getUI("type_char") + " ";
break;
}
if (parameter_obj.reference)
ret += "&";
ret += parameter_obj.name + "";
if (parameter_obj.dimensions == 1) {
ret += " []";
} else if (parameter_obj.dimensions == 2) {
ret += " [][]";
}
return ret;
}
function variablesCode (variable_obj) {
let ret = "";
const temp = variable_obj;
ret += "\n\t\t";
if (temp.is_constant) {
ret += "const ";
}
switch (temp.type) {
case Types.INTEGER:
ret += LocalizedStrings.getUI("type_integer") + " ";
break;
case Types.REAL:
ret += LocalizedStrings.getUI("type_real") + " ";
break;
case Types.TEXT:
ret += LocalizedStrings.getUI("type_text") + " ";
break;
case Types.BOOLEAN:
ret += LocalizedStrings.getUI("type_boolean") + " ";
break;
case Types.CHAR:
ret += LocalizedStrings.getUI("type_char") + " ";
break;
}
ret += temp.name + " ";
if (temp.dimensions == 1) {
ret += "[" + temp.columns + "] ";
switch (temp.type) {
case Types.INTEGER:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += temp.value[j];
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.REAL:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += parseFloat(temp.value[j]).toFixed(2);
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.TEXT:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += '"' + temp.value[j] + '"';
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.BOOLEAN:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
if (temp.value[j]) {
ret += LocalizedStrings.getUI("logic_value_true");
} else {
ret += LocalizedStrings.getUI("logic_value_false");
}
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.CHAR:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += "'" + temp.value[j] + "'";
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
}
} else if (temp.dimensions == 2) {
ret += "[" + temp.rows + "][" + temp.columns + "] ";
switch (temp.type) {
case Types.INTEGER:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += temp.value[j][k];
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.REAL:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += parseFloat(temp.value[j][k]).toFixed(2);
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.TEXT:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += '"' + temp.value[j][k] + '"';
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.BOOLEAN:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
if (temp.value[j][k]) {
ret += LocalizedStrings.getUI("logic_value_true");
} else {
ret += LocalizedStrings.getUI("logic_value_false");
}
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.CHAR:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += "'" + temp.value[j][k] + "'";
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
}
} else {
switch (temp.type) {
case Types.INTEGER:
ret += "<- " + temp.value;
break;
case Types.REAL:
ret += "<- " + parseFloat(temp.value).toFixed(2);
break;
case Types.TEXT:
ret += '<- "' + temp.value + '"';
break;
case Types.BOOLEAN:
ret += "<- ";
if (temp.value) {
ret += LocalizedStrings.getUI("logic_value_true");
} else {
ret += LocalizedStrings.getUI("logic_value_false");
}
break;
case Types.CHAR:
ret += "<- '" + temp.value + "'";
break;
}
}
return ret;
}
function globalsCode () {
let ret = "";
if (window.program_obj.globals) {
for (let i = 0; i < window.program_obj.globals.length; i++) {
const temp = window.program_obj.globals[i];
ret += "\n\t";
if (temp.is_constant) {
ret += "const ";
}
switch (temp.type) {
case Types.INTEGER:
ret += LocalizedStrings.getUI("type_integer");
break;
case Types.REAL:
ret += LocalizedStrings.getUI("type_real");
break;
case Types.TEXT:
ret += LocalizedStrings.getUI("type_text");
break;
case Types.BOOLEAN:
ret += LocalizedStrings.getUI("type_boolean");
break;
case Types.CHAR:
ret += LocalizedStrings.getUI("type_char");
break;
}
ret += " " + temp.name + " ";
if (temp.dimensions == 1) {
ret += "[" + temp.columns + "] ";
switch (temp.type) {
case Types.INTEGER:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += temp.value[j];
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.REAL:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += parseFloat(temp.value[j]).toFixed(2);
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.TEXT:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += '"' + temp.value[j] + '"';
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.BOOLEAN:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
if (temp.value[j]) {
ret += LocalizedStrings.getUI("logic_value_true");
} else {
ret += LocalizedStrings.getUI("logic_value_false");
}
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
case Types.CHAR:
ret += "<- {";
for (let j = 0; j < temp.value.length; j++) {
ret += "'" + temp.value[j] + "'";
if (j + 1 < temp.value.length) {
ret += ", ";
}
}
ret += "}";
break;
}
} else if (temp.dimensions == 2) {
ret += "[" + temp.rows + "][" + temp.columns + "] ";
switch (temp.type) {
case Types.INTEGER:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += temp.value[j][k];
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.REAL:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += parseFloat(temp.value[j][k]).toFixed(2);
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.TEXT:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += '"' + temp.value[j][k] + '"';
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.BOOLEAN:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
if (temp.value[j][k]) {
ret += LocalizedStrings.getUI("logic_value_true");
} else {
ret += LocalizedStrings.getUI("logic_value_false");
}
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
case Types.CHAR:
ret += "<- {";
for (let j = 0; j < temp.rows; j++) {
ret += "{";
for (let k = 0; k < temp.columns; k++) {
ret += "'" + temp.value[j][k] + "'";
if (k + 1 < temp.columns) {
ret += ", ";
}
}
ret += "}";
if (j + 1 < temp.rows) {
ret += ", ";
}
}
ret += "}";
break;
}
} else {
switch (temp.type) {
case Types.INTEGER:
ret += "<- " + temp.value;
break;
case Types.REAL:
ret += "<- " + parseFloat(temp.value).toFixed(2);
break;
case Types.TEXT:
ret += '<- "' + temp.value + '"';
break;
case Types.BOOLEAN:
ret += "<- ";
if (temp.value) {
ret += LocalizedStrings.getUI("logic_value_true");
} else {
ret += LocalizedStrings.getUI("logic_value_false");
}
break;
case Types.CHAR:
ret += "<- '" + temp.value + "'";
break;
}
}
}
}
return ret;
}