#include "macro.hpp"

void assert_fail(Node const& node,
                 Compiler& compiler,
                 Program& program,
                 SymTable&)
{
  try
    {
      compiler.compile(*node.child_at(1), program);
      Loc loc = node.loc();

      std::cerr << loc.file_path().string() << ":" << loc.line();
      std::cerr << " ASSERTION FAILED" << std::endl;
      exit(-1);
    }
  catch (std::exception const&)
    {
    }

  size_t addr = program.add_constant(std::make_shared<Constant>
                                     (TYPE_NIL, node.loc(), 0));
  program.append(OPCODE_LOAD_CONST, addr);
}

void declare(Node const& node,
             Compiler& compiler,
             Program& program,
             SymTable& sym)
{
  std::string ident = node.child_at(1)->repr();
  compiler.compile(*node.child_at(2), program);
  auto entry = sym.find_any(ident);
  assert(entry);
  size_t addr = sym.gen_addr();

  sym.declare(ident, addr);
  program.append(OPCODE_STORE_LOCAL, addr);
}