#include "lua4dec.hpp"

Vector<Byte> read_file(const char* filename)

{

auto* stream = fopen(filename, "rb");

if(stream == nullptr)

{

return {};

}

fseek(stream, 0, SEEK_END);

auto len = ftell(stream);

fseek(stream, 0, SEEK_SET);

auto buffer = Vector<Byte>(len);

auto bytes_read = (long)fread(buffer.data(), 1, len, stream);

fclose(stream);

if(len != bytes_read)

{

printf("Reading error %ld != %ld.\n", len, bytes_read);

return {};

}

return buffer;

}

void write_file(const char* filename, Ast const* const ast)

{

auto* stream = fopen(std::string(filename).append(".lua").c_str(), "w+");

print_ast(ast, stream);

fclose(stream);

}

Status create_ast(Ast*& ast, const char* filename)

{

auto buffer = read_file(filename);

auto* iter = buffer.data();

auto chunk = read_chunk(iter);

auto state = State();

return parse_function(state, ast, chunk.main);

}

void delete_ast(Ast*& ast)

{

while(ast->child)

{

ast = ast->child;

}

while(ast->parent)

{

ast = ast->parent;

delete ast->child;

}

}

Status parse(Ast*& ast, const char* filename, FILE* stream)

{

auto buffer = read_file(filename);

auto* iter = buffer.data();

auto chunk = read_chunk(iter);

auto state = State();

auto error = parse_function(state, ast, chunk.main);

if(error != Status::OK)

print_ast(ast, stream);

return error;

}