#include <string>

#include <libasr/config.h>

#include <libasr/asr_utils.h>

#include <libasr/asr_verify.h>

#include <libasr/modfile.h>

#include <libasr/serialization.h>

#include <libasr/bwriter.h>

namespace LFortran {

const std::string lfortran_modfile_type_string = "LFortran Modfile";

std::string save_modfile(const ASR::TranslationUnit_t &m) {

}

ASR::TranslationUnit_t* load_modfile(Allocator &al, const std::string &s,

bool load_symtab_id, SymbolTable &symtab) {

#ifdef WITH_LFORTRAN_BINARY_MODFILES

BinaryReader b(s);

#else

TextReader b(s);

#endif

std::string file_type = b.read_string();

if (file_type != lfortran_modfile_type_string) {

throw LFortranException("LFortran Modfile format not recognized");

}

std::string version = b.read_string();

if (version != LFORTRAN_VERSION) {

throw LFortranException("Incompatible format: LFortran Modfile was generated using version '" + version + "', but current LFortran version is '" + LFORTRAN_VERSION + "'");

}

std::string asr_binary = b.read_string();

ASR::asr_t *asr = deserialize_asr(al, asr_binary, load_symtab_id, symtab);

ASR::TranslationUnit_t *tu = ASR::down_cast2<ASR::TranslationUnit_t>(asr);

return tu;

}

} // namespace LFortran