Function main

tests/daS/dasStackwalk/main.cpp:7–51

#define TUTORIAL_NAME   u8"/scripts/dasStackWalk/stackwalk.das"

int main(int argc, char** argv) {
    auto env_desc = make_zeroed<skr::das::EnvironmentDescriptor>();
    env_desc.argc = argc;
    env_desc.argv = argv;
    skr::das::Environment::Initialize(env_desc);
    // make file access, introduce string as if it was a file
    auto faccess_desc = make_zeroed<skr::das::FileAccessDescriptor>();
    auto faccess = skr::das::FileAccess::Create(faccess_desc);
    
    // output stream for all compiler messages (stdout. for stringstream use TextWriter)
    auto tout_desc = make_zeroed<skr::das::TextPrinterDescriptor>();
    auto tout = skr::das::TextPrinter::Create(tout_desc);

    // module group for compiled program
    auto lib_desc = make_zeroed<skr::das::LibraryDescriptor>();
    auto library = skr::das::Library::Create(lib_desc);

    // compile script
    skr::String script_path = skr::das::Environment::GetRootDir();
    script_path += TUTORIAL_NAME;
    auto program = skr::das::Environment::compile_dascript(
        script_path.u8_str(), faccess, tout, library);
    if (!program) return -1;
    
    // create context
    auto ctx_desc = make_zeroed<skr::das::ContextDescriptor>();
    ctx_desc.stack_size = program->get_ctx_stack_size();
    auto ctx = skr::das::Context::Create(ctx_desc);
    if ( !program->simulate(ctx, tout) ) return -2;

    // find function. its up to application to check, if function is not null
    auto function = ctx->find_function(u8"main");
    if ( !function ) return -3;

    // call context function
    ctx->eval(function);

    skr::das::Context::Free(ctx);
    skr::das::Program::Free(program);
    skr::das::Library::Free(library);
    skr::das::TextPrinter::Free(tout);
    skr::das::FileAccess::Free(faccess);
    skr::das::Environment::Finalize();
    return 0;
}