eval_set.c

Go to the documentation of this file.

#include "evaluator.h"
#include "hashtable.h"
#include "mir.h"
#include "module.h"
#include "types/keywords.h"
 
void
eval_set(mir_t* mir, module_t* module, ast_node_t* ast)
{
  if (ast->type != NT_STATEMENT || ast->token->value != KEY_SET) {
    module_add_error(
      module,
      ast->token->line,
      ast->token->column,
      ast->token->lexeme.length,
      "Unexpected token where is expected a set statement."
    );
 
    return;
  }
 
  ast_node_t* node_var = &ast->children[0];
  ast_node_t* node_value = &ast->children[1];
 
  int64_t value = eval_expression(&mir->variables, module, node_value);
  hashtable_set(&mir->variables, node_var->token->lexeme.data, value);
}